Just a simple portal script that you add to your commands
Code:
Case "/setportal"
Call PlayerMsg(index, "You have created a portal opening at this spot! You may now return to this spot at any time by typing /portal", 1)
Call PutVar("Portal.ini", GetPlayerName(index), "map", GetPlayerMap(index))
Call PutVar("Portal.ini", GetPlayerName(index), "x", GetPlayerX(index))
Call PutVar("Portal.ini", GetPlayerName(index), "y", GetPlayerY(index))
Exit Sub
Case "/portal"
mapnum = GetVar("Portal.ini", GetPlayerName(index), "map")
y = GetVar("Portal.ini", GetPlayerName(index), "y")
x = GetVar("Portal.ini", GetPlayerName(index), "x")
Call SetPlayerMap(index, mapnum)
Call setPlayery(index, y)
call setplayerx(index, x)
Call SendPlayerData(index)
Call GetPlayerData(index)
Exit Sub