Gate Fix

[ITEMDEF 0f6c]
//blue moongate
DEFNAME=i_moongate_blue
TYPE=t_telepad
CATEGORY=Provisions - Alchemy & Magic
SUBSECTION=Moongates
DESCRIPTION=Blue Moongate
DUPELIST=0f6d,0f6e,0f6f,0f70
NAME=Moongate

On=@Click
if ((<color> == 022) && (<link> == 04fffffff))
	if (<src.region.type> == <region.type>)
		sayua 0905,6,6,0 an Unknown Gate
	else
		message an Unknown Gate
	endif
elseif (<src.region.type> == <region.type>)
	sayua 0905,6,6,0 <name>
else
endif
return 1

On=@Create
attr 010

On=@Dclick
if !(<src.flags>&statf_stone)
	if (<distance> > 3)
		src.sysmessage Gate'e ulasamiyorsunuz.
	else
		if (<src.findid.i_gater>)
			src.findid.i_gater.remove
		endif
		src.newitem i_gater
		src.act.link <uid>
		src.act.morep <morep>
		src.act.equip
	endif
endif
return 1

On=@Step
if !((<src.findid.i_gater>) || (<src.flags>&statf_stone))
	src.newitem i_gater
	src.act.link <uid>
	src.act.morep <morep>
	src.act.equip
endif
return 1

[itemdef i_gater]
name gater
id i_handr_1
type t_eq_script
weight 0
layer layer_special

On=@Create
attr attr_invis|attr_can_decay

On=@Equip
timer 30
src.dialog d_gatetravel
	
On=@Timer
remove
return 1

[dialog d_gatetravel]
-100,-100
nomove

resizepic 190 165 5120 140 120
resizepic 200 175 3000 120 100
htmlgump 220 185 120 20 0 0 0

htmlgump 258 218 80 20 1 0 0
htmlgump 258 238 80 20 2 0 0

button 225 215 4006 4007 1 0 1
button 225 235 4018 4019 1 0 0

[dialog d_gatetravel text]
GATE TRAVEL
Evet
Hayir

[dialog d_gatetravel button]
On=0
findid.i_gater.remove

On=1 // gate'e gir
if !(<findid.i_gater.link.isitem>)
	sysmessage Gate gecemeden kapanmis.
	findid.i_gater.remove
elseif (<findid.i_gater.link.distance> > 3)
	sysmessage Gate'e ulasamiyorsunuz.
	findid.i_gater.remove
else
	goplace <findid.i_gater.morep>
	findid.i_gater.timer 2
endif

[DIALOG d_moongate]
0,0
NOMOVE
resizepic 10 50 5054 190 325
text 25 68 105 0 0
button 30 100 2714 2715 1 0 1
text 60 100 0 1
button 30 125 2714 2715 1 0 2
text 60 125 0 2
button 30 150 2714 2715 1 0 3
text 60 150 0 3
button 30 175 2714 2715 1 0 4
text 60 175 0 4
button 30 200 2714 2715 1 0 5
text 60 200 0 5
button 30 225 2714 2715 1 0 6
text 60 225 0 6
button 30 250 2714 2715 1 0 7
text 60 250 0 7
button 30 275 2714 2715 1 0 8
text 60 275 0 8
button 30 300 2714 2715 1 0 9
text 60 300 0 9
button 30 340 2714 2715 1 0 10
text 60 340 0 10

[DIALOG d_moongate TEXT]
<SRC.REGION.NAME>
Pazar Alani
Moonglow
Britain
Jhelom
Yew
Minoc
Aksiyon Bolgesi
Bugs Den
Magincia
Iptal

[DIALOG d_travgate BUTTON]
ONBUTTON=0
RETURN 1

ONBUTTON=1
IF (<DISTANCE><=3)
SRC.GO 1958,2082,0
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

ONBUTTON=2
IF (<DISTANCE><=3)
SRC.GO 4442,1171,0
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

ONBUTTON=3
IF (<DISTANCE><=3)
SRC.GO 1479,1629,20
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

ONBUTTON=4
IF (<DISTANCE><=3)
SRC.GO 1384,3816,0
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

ONBUTTON=5
IF (<DISTANCE><=3)
SRC.GO 545,993,0
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX


ONBUTTON=6
IF (<DISTANCE><=3)
SRC.GO 2515,561,0
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

ONBUTTON=7
IF (<DISTANCE><=3)
SRC.GO 5707,662,0
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

ONBUTTON=8
IF (<DISTANCE><=3)
SRC.GO 2707,2163,0
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

ONBUTTON=9
IF (<DISTANCE><=3)
SRC.GO 3674,2188,20
ELSE
SRC.SYSMESSAGE You must be near the moongate to use it.
ENDIF
SRC.FIX

OnBUTTON=10
RETURN 1

[ITEMDEF i_moongate]
DEFNAME=i_moongate
TYPE=t_moongate
ID=i_moongate_black
NAME=Travel Gate

ON=@DCLICK
if (<src.findid i_rune_poison>)
src.sysmessage Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
elseif (<src.hits> < <src.str>)
src.sysmessage Yarali oldugunuz icin moongate kullanamazsiniz.
else
DIALOG d_moongate
RETURN 1 


ON=@STEP
if (<src.findid i_rune_poison>)
src.sysmessage Uzerinizde Zehir Varken Moongate'leri Kullanamazsiniz.
elseif (<src.hits> < <src.str>)
src.sysmessage Yarali oldugunuz icin moongate kullanamazsiniz.
else
DIALOG d_moongate
SRC.MOVE 1
RETURN 1