[@main]
Hello <$USERNAME>, would you like to travel across the sea?\
I can take you to several different Islands across the world.\
So what can I do for you?\
{-20=^}{-20=~}{f.3,i.2048-2057,t.100,b.1,R.0.0.50.50=img}{24=~}{50=^} <{View Location List=FCO=116}/@LocationList1>{6=~}\
\ 
<Leave/@Exit>\

[@LocationList1]
The ammount you will be charged is listed next to the location.\
<&{BichonProvince=FCO=116}  {(Ticket Cost: 2500Gold)=FCO=150}/@MoveLocation(n0,250,682,2500)>\
\
<Back/@Main>   <Leave/@Exit>\

[@MoveLocation]
#IF
CHECKGOLD <$STR(T3)>
#ACT
take gold <$STR(T3)>
MAPMOVE <$STR(T0)> <$STR(T1)> <$STR(T2)>
break
#ELSESAY
You dont have the required gold to teleport.\
<Back/@Main>   <Leave/@Exit>\
}
