[DEFNAME MOONGATE]
MOON a_britain_moongate_1,a_moonglow_moongate_1,a_minoc_vesper_moongate_1,a_trinsic_moongate_1,a_skara_brae_moongate_1,a_delucia_moongate_1,a_yew_moongate_1,a_jhelom_moongate_1,a_magincia_moongate_1

[FUNCTION f_kontrol]
IF (<FLAGS>&STATF_POISONED) || (<HITS> < <MAXHITS>)
SYS_HATA Üzerinizde zehir var veya enerjiniz az.
ELSEIF (<TARG.DISTANCE> >1) || !(<TARG.CANSEELOS>)
SYS_HATA Ay Kapısı'na ulaşamıyorsunuz.
ELSE
<ARGS>
ENDIF
SRC.TAG.MOONGATE=
RETURN 1

[ITEMDEF i_moongate_city]
ID=I_MOONGATE_BLUE
NAME=Moongate
TYPE=T_SCRIPT

ON=@DCLICK
SRC.F_KONTROL F_RESENDIALOG D_MOONGATE
SRC.TAG.MOONGATE=<UID>
RETURN 1

ON=@STEP
SRC.SYS_HATA Lütfen Ay Kapısı'na çift tıklayınız.
SRC.MOVE 1

ON=@CLICK
MSG_NORMAL Ay Kapısı
RETURN 1

[DIALOG D_MOONGATE]
50,50
NOMOVE
RESIZEPIC 0 0 02422 220 270
DHTMLGUMP 70 20 200 20 0 0 <DEF.BFONT_RED>MoonGates
FOR 9
LOCAL.X=<EVAL (<LOCAL._FOR>*20)+30>
DHTMLGUMP 60 <DLOCAL.X> 300 20 0 0 <SERV.AREA.<F_SELECT <DLOCAL._FOR>,<DEF.MOON>>.NAME>
<QVAL STRMATCH("<REGION.UID>","<SERV.AREA.<F_SELECT <DLOCAL._FOR>,<DEF.MOON>>.UID>")?GUMPPIC 32 <DLOCAL.X> 5605:BUTTON 32 <DLOCAL.X> <DEF.BUTTONID_1> 1 0 <DLOCAL._FOR>>
ENDFOR

[DIALOG D_MOONGATE BUTTON]
ON=0
SRC.TAG0.MOONGATE=

ON=1,9
IF (<SRC.F_CANSEELOS <SRC.TAG.MOONGATE>>)
SRC.SYS_HATA Ay Kapısı'na ulaşamıyorsunuz.
RETURN 1
ENDIF

SRC.F_KONTROL GO <F_SELECT <DARGN>,<DEF.MOON>>
SRC.TAG.MOONGATE=

[EOF]