[ITEMDEF i_potion_shrink]
ID=i_bottle_white
NAME=Shrink
TYPE=t_potion
TDATA1=i_bottle_empty
RESOURCES=i_reag_batwing 2, i_bottle_empty
SKILLMAKE=ALCHEMY 60.0
CATEGORY=!Custom - Items
SUBSECTION=Potions
DESCRIPTION=Shrink
ON=@Create
MORE1=s_shrink
MORE2=100.0
COLOR=056b
ON=@DCLICK
SRC.SYSMESSAGE What do you want to shrink?
TARGET
RETURN 1
ON=@TARGON_ITEM
SRC.SYSMESSAGE You cannot shrink an item.
RETURN 1
ON=@TARGON_CHAR
IF ((<SRC.TARG.BODY>==c_man) || (<SRC.TARG.BODY>==c_woman) || (<SRC.TARG.FLAGS>&statf_conjured))
SRC.SYSMESSAGE You can only shrink a pet.
RETURN 1
ELSEIF <SRC.TARG.ISMYPET>
IF <SRC.TARG.NPC>
SRC.NEWITEM=<SRC.TARG.ICON>
SRC.ACT.NAME=<SRC.TARG.NAME>
SRC.ACT.COLOR=<SRC.TARG.COLOR>
SRC.ACT.MORE1=<SRC.TARG.ID>
SRC.ACT.BOUNCE
SRC.TARG.REMOVE
REMOVE
RETURN 1
ENDIF
ENDIF

[DIALOG d_travgate]
0,0
NOMOVE
resizepic 150 100 5054 400 300
text 155 105 0 0
button 380 135 210 211 1 0 1
text 400 135 0 1
button 380 160 210 211 1 0 2
text 400 160 0 2
button 380 185 210 211 1 0 3
text 400 185 0 3
button 380 210 210 211 1 0 4
text 400 210 0 4
button 380 235 210 211 1 0 5
text 400 235 0 5
button 380 260 210 211 1 0 6
text 400 260 0 6
button 380 285 210 211 1 0 7
text 400 285 0 7
button 380 310 210 211 1 0 8
text 400 310 0 8
button 160 360 4005 4007 1 0 9
text 195 360 0 9

[DIALOG d_travgate TEXT]
You are now in <SRC.REGION.NAME> :
Moonglow
Britain
Jhelom
Yew
Minoc
Trinsic
Skara Brae
Magincia
CANCEL

[DIALOG d_travgate BUTTON]
ONBUTTON=0
RETURN 1

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

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

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

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


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

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

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

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

ONBUTTON=9
RETURN 1

[ITEMDEF i_travgate]
DEFNAME=i_travgate
TYPE=t_moongate
ID=i_moongate_blue
NAME=Moongate

ON=@STEP
DIALOG d_travgate
SRC.MOVE 1
RETURN 1