[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]