Mirage Source

If TempPlayer(Index).Target = TARGET_TYPE_NONE Then
        Exit Sub
    End If

Dim Parse() As String
Dim Name As String
Dim Password As String
Dim Sex As Long
Dim Class As Long
Dim CharNum As Long
Dim Msg As String
Dim MsgTo As Long
Dim Dir As Long
Dim InvNum As Long
Dim Ammount As Long
Dim Damage As Long
Dim PointType As Long
Dim Movement As Long
Dim i As Long, n As Long, x As Long, y As Long, f As Long
Dim MapNum As Long
Dim s As String
Dim tMapStart As Long, tMapEnd As Long
Dim ShopNum As Long, ItemNum As Long
Dim DurNeeded As Long, GoldNeeded As Long

Private Parse() As String
Private Name As String
Private Password As String
Private Sex As Long
Private Class As Long
Private CharNum As Long
Private Msg As String
Private MsgTo As Long
Private Dir As Long
Private InvNum As Long
Private Ammount As Long
Private Damage As Long
Private PointType As Long
Private Movement As Long
Private i As Long
Private n As Long
Private x As Long
Private y As Long
Private f As Long
Private MapNum As Long
Private s As String
Private tMapStart As Long
Private tMapEnd As Long
Private ShopNum As Long
Private ItemNum As Long
Private DurNeeded As Long
Private GoldNeeded As Long