[Defname moongate_version_6]
moonkord britain,moonglow,minoc_vesper,trinsic,skara_brae,delucia,yew,jhelom,magincia

[Itemdef i_moongate_v6]
Defname=i_moongate
Id=i_moongate_blue
Name=Moongate
Type=t_normal

On=@Create
Attr=attr_static

On=@Dclick
if (<distance> < 4)
src.sdialog d_moongate_v6
else
src.sysmessage @0489,,1 Moongate'e yetişemiyorsunuz.
endif
return 1

On=@Step
src.move 1
Dclick

[Dialog d_moongate_v6]
50,50
nomove
resizepic 0 0 5120 200 <eval <eval <f_moonsep 0,<def.moonkord>> * 20> + 70>
resizepic 10 10 3000 180 <eval <eval <f_moonsep 0,<def.moonkord>> * 20> + 50>
dhtmlgump 70 20 200 20 0 0 <def.bfont_blue> Şehirler

For 1 <f_moonsep 0,<def.moonkord>>
Dtext 48 <EVAL (<DLOCAL._FOR>*20)+30> 15 <strreverse <strsub 9 30 <strreverse <serv.area.a_<f_moonsep <DLOCAL._FOR>,<def.moonkord>>_moongate_1.name>>>>
Button 25 <EVAL (<DLOCAL._FOR>*20)+30> 210 211 1 0 <DLOCAL._FOR>
Endfor

[Dialog d_moongate_v6 BUTTON]
ON=1 90
src.kontrol go <serv.area.a_<f_moonsep <DARGN>,<DEF.MOONKORD>>_moongate_1.p>

[Function kontrol]
if (<flags>&statf_poisoned) || (<hits> < <str>)
sysmessage @026,,1 Üzerinizde zehir varken veya yaralıyken kullanamazsınız.
elif (<distance> > 3) || (<targ.distance> > 3)
sysmessage @026,,1 Moongateye çok uzaktasınız.
else
<args>
endif

[function f_moonsep]
if <argv[0]> == 0
return <eval <argv> - 1>
else
return <argv[<argv[0]>]>
endif

[AREADEF a_delucia_moongate_1]
EVENTS=r_default,r_default_rock,r_default_water,r_default_tree,r_default_grass
NAME=Delucia Moongate
GROUP=Moongates
FLAGS=0100
P=5382,4008,2
RECT=5378,4005,5386,4010,0
[EOF]