https://www.youtube.com/watch?v=FH1IPWoTXEM&feature=youtu.be
geliştirilmesi gerekiyor lootun ve diğer şeylerin.. 3 çeşit alan poi saldırısı var.
kod:
//brownie
[function f_array]
local.temp = <argv[<eval <argv> - 1>]> -1
return <argv[<dlocal.temp>]>
[chardef c_boss_poi]
id=c_terathan_warrior
name=Poison Spider
on=@create
var.bossuid <uid>
str 4500
dex 6000
int 0
hits 4500
stam 6000
mana 0
stone 1
var.spideruid <uid>
on=@click
message @68,,1 Poison Spider
message @1153,,1 Kalan Can: <hitpoints>
return 1
on=@dclick
sdialog d_spider_poi
return 1
on=@gethit
local.random <r100>
if <dlocal.random> < 11
area_poi
endif
[dialog d_spider_poi]
0,0
nomove
resizepic 20 20 5054 350 350
resizepic 30 30 3000 330 330
gumppic 58 105 0000058A
tilepic 275 75 025ca
dhtmlgump 110 37 250 20 0 0 <def.bfont_size7><def.bfont_blue><serv.servname> Poison Spider
dhtmlgump 40 60 310 4 1 0 // line
dhtmlgump 40 70 200 120 1 0 // squad
//in
dhtmlgump 40 73 200 20 0 0 <def.bfont_size7> Yaratığın lootu =
for 1 5
local.fiyatlar 10000,20000,30000,40000,50000
dhtmlgump 40 <eval 75+<dlocal._for>*17> 200 20 0 0 <def.bfont_size4> * Level <dlocal._for> = <f_array <local.fiyatlar>,<dlocal._for>>
endfor
//out
dhtmlgump 40 195 170 65 1 0 // squad 2
//in
dhtmlgump 40 198 200 20 0 0 <def.bfont_size7> Sahip olduğun altın =
dhtmlgump 60 220 200 20 0 0 <def.bfont_size7><qval (<src.gold>)? <def.bfont_green><src.gold> : <def.bfont_red><src.gold>>
//out
button 40 270 00000FA5 00000FA7 1 0 1
dhtmlgump 70 270 200 20 0 0 <def.bfont_size7> Savaşa başla
[dialog d_spider_poi button]
on 1
if <src.restest 50000 i_gold>
src.consume i_gold 50000 // bu loot gold kısımlarıyla uğraşmıyorum
try uid.<var.bossuid>.stone 0
else
src.sysmessage @1153,,1 Yeterli miktarda paranız yok.
return 1
endif
// Buxion taktiği =P
[function area_poi]
dorand 3
area_poi1
area_poi2
area_poi3
enddo
[function area_poi1]
for 1 10
serv.newitem i_poi_item1
new.p 5<r688,718>,6<r24,54>
new.timerd 1
endfor
[itemdef i_poi_item1]
id=i_fire
on=@create
timerf 10,remove
color 68
on=@step
src.poison 9000
on=@timer
forchars 0
poison 9000
endfor
local.yonler n,e,s,w,nw,ne,se,sw
move <f_array <local.yonler>,<r1,8>>
timerd <r1,3>
return 1
[function poi2_itemkoy]
serv.newitem i_poi_item2
new.p 5703,639
new.move <args>
new.timerd 3
[function poi2_itemkoya]
for 1 8
local.yonler n,e,s,w,nw,ne,se,sw
poi2_itemkoy <f_array <local.yonler>,<dlocal._for>> <args>
endfor
[function area_poi2]
serv.newitem i_poi_kosturucu
new.p 5703,639
new.timerd 1
[itemdef i_poi_kosturucu]
id=i_memory
on=@create
timerf 2,remove
on=@timer
tag.poikos +=1
poi2_itemkoya <dtag.poikos>
timerd 1
[itemdef i_poi_item2]
id=i_fire_column
on=@create
color 68
on=@step
src.poison 9000
on=@timer
forchars 0
poison 9000
endfor
remove
return 1
[itemdef i_poi_item3]
id=i_fire_column
on=@create
timerf 6,remove
color 68
on=@step
src.poison 9000
on=@timer
forchars 0
poison 9000
endfor
move e 1
timerd 1
return 1
[itemdef i_poi_cikarici]
id=i_memory
on=@create
timerf 10,remove
on=@timer
serv.newitem i_poi_item3
new.p <p>
new.timerd 1
timerd 2
return 1
[function area_poi3]
serv.newitem i_poi_cikarici
new.p 5688,6<r24,54>
new.timerd 1
