[DIALOG d_pazargates]
0,0
NOMOVE
resizepic 10 50 3500 200 130
text 25 68 108 0 0
button 30 100 2714 2715 1 0 1
text 60 100 45 1
button 30 125 2714 2715 1 0 2
text 60 125 45 2
[DIALOG d_pazargates TEXT]
Moongate
Pazar alani
Hayvanat bahcesi
[DIALOG d_pazargates BUTTON]
ONBUTTON=0
RETURN 1
ONBUTTON=1
IF (<DISTANCE><=3)
SRC.GO marble island
SRC.Smy Pazar alanina hosgeldiniz
ELSE
SRC.Sms Gate size uzak !
ENDIF
SRC.FIX
ONBUTTON=2
IF (<DISTANCE><=3)
SRC.GO 4527,1378,23
SRC.Smy Hayvanat bahcesine hosgeldiniz .
ELSE
SRC.Sms Gate size uzak !
ENDIF
SRC.FIX
[ITEMDEF i_pazargates]
DEFNAME=i_pazargates
TYPE=t_moongate
ID=i_moongate_blue
NAME=Pazar gate
ON=@Create
COLOR=1953
ON=@DCLICK
if (<src.findid i_rune_poison>)
src.sms Uzerinizde Zehir Varken gate'i Kullanamazsiniz.
elseif (<src.hits> < <src.str>)
src.sms Yaraliyken gate'i Kullanamazsiniz.
else
DIALOG d_pazargates
RETURN 1
ON=@STEP
if (<src.findid i_rune_poison>)
src.sms Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
elseif (<src.hits> < <src.str>)
src.sms Yaraliyken Moongate'leri Kullanamazsiniz.
else
DIALOG d_pazargates
SRC.MOVE 1
RETURN 1
[PLEVEL 7]
dgpazar
[function dgpazar]
if !(<src.flags>&statf_insubstantial)
src.newitem i_pazargates
src.act.p <src.p>
src.act.attr 010
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move n 1
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move s 1
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move e 1
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move w 1
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move near 1
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move sw 1
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move nw 1
src.newitem 050d
src.act.color 0455
src.act.p <src.p>
src.act.attr 010
src.act.move se 1
[EOF]