================================================
================================================
ODYSSEY ONLINE CLASSIC MEGA HOUSE GUIDE FOR GODS
================================================
================================================





------------------------------
FREQUENT WARP LOCATIONS
------------------------------
Hero's - 1588, 2, 11
Bog - 1314, 8, 6
Tower - 95, 4, 8





------------------------------
ENTRANCE TO HOUSE OUTSIDE CHD
------------------------------

Sub Main(Player As Long)

If GetPlayerHP(Player) <> GetPlayerMaxHP(Player) And GetPlayerGuild(Player) > 0 Then
    RunScript0("PushBack")
Else
    PlayerWarp(Player, MAP#, X, Y)
End If

End Sub




------------------------------
HOUSE NAME
------------------------------

Sub Main(Player As Long)

CreateMapStaticText(MAP#,X,Y,"Player's House", BrightCyan)
 
End Sub




------------------------------
HOUSE GATE
------------------------------

Function Main(Player as Long) as Long
    
If GetPlayerUser(Player) = "PLAYERUSER" or GetPlayerUser(Player) = "PLAYER2USER" Then
    OpenDoor(MAP#, X, Y)
Else
    Main = Stop
End If
	
End Function





------------------------------
HOUSE VAULT
------------------------------

Sub Main(Player as Long)

If GetPlayerUser(Player) = "PLAYERUSER" Then
	If GetPlayerDirection(Player) = DIRECTION Then
		PlayerWarp(Player, MAP#, X, Y) 'Tele in to Vault
	Else
		PlayerWarp(Player, MAP#, X, Y) 'Tele outside Vault
	End If
Else
	PlayerWarp(Player, MAP#, X, Y) 'Tele outside Vault
End If

End Sub






------------------------------
SPRITE TILE
------------------------------

Function Main(Player as Long) as Long

SetPlayerSprite(Player, SPRITE#)
    If GetPlayerStatus(Player) = 1 Then 
        SetPlayerStatus(Player, 1)
    Else
        SetPlayerStatus(Player, STATUS#)
    End If

End Function