Mirage Source

Public Const START_MAP = 1
Public Const START_X = MAX_MAPX / 2
Public Const START_Y = MAX_MAPY / 2

public START_MAP as byte
Public START_X as byte
Public START_Y as byte

select case getplayerclass(index)

case 0
START_MAP = 1 '<----insert first class starting map here
START_X = MAX_MAPX / 2 '<---Insert map x, or leave it as it is, if you leave it as it is it'll warp you to the middle of the map
START_Y = MAX_MAPY / 2'<--- same here but with Y coords

case 1
START_MAP = 1
START_X = MAX_MAPX / 2
START_Y = MAX_MAPY / 2

case 2
START_MAP = 1
START_X = MAX_MAPX / 2
START_Y = MAX_MAPY / 2

'repeat the above cases as many times as you have classes
'once you've done that, end the case select

end select

Public Function START_MAP(ByVal Index As Long) As Long

    START_MAP = Class(Player(Index).Char(Player(Index).CharNum).Class).Map

End Function

Public Function START_X(ByVal Index As Long) As Long

    START_X = Class(Player(Index).Char(Player(Index).CharNum).Class).x
   
End Function

Public Function START_Y(ByVal Index As Long) As Long

    START_Y = Class(Player(Index).Char(Player(Index).CharNum).Class).y

End Function

Map As Long
    x As Integer
    y As Integer