Function Main(Player as Long, Command as String, Parm1 as String, Parm2 as String, Parm3 as String, Parm4 as String) as Long
Main = Stop
Dim Target as Long
Dim Map as Long, X as Long, Y as Long
Dim tMap as Long, tX as Long, tY as Long
Dim A as Long, B as Long, C as Long

Target = FindPlayer(Parm1)

Map = GetPlayerMap(Player)
X = GetPlayerX(Player)
Y = GetPlayerY(Player)

tMap = GetPlayerMap(Target)
tX = GetPlayerX(Target)
tY = GetPlayerY(Target)

Select Case Command

'***PLAYER COMMANDS GO HERE***

   Case "GODS"
	PlayerMessage(Player, "-Gods Online-", BrightGreen)
	For A = 1 To GetMaxUsers()
	   If GetPlayerAccess(A) > 0 Then PlayerMessage(Player, GetPlayerName(A), White)
	Next A

'*****************************

   Case Else
      If GetPlayerAccess(Player) Then
         Select Case Command

'****GOD COMMANDS GO HERE*****

   Case "RUN"
	RunScript0(Parm1)

'*****************************

            Case Else
               Main = Continue
         End Select
      Else
         Main = Continue
      End If
End Select

End Function