Mirage Source

Sub PlayerMove(ByVal Index As Long, ByVal Dir As Long, ByVal Movement As Long)
Dim Packet As String
Dim MapNum As Long
Dim x As Long
Dim y As Long
Dim PlayerX As Long, PlayerY As Long
Dim Moved As Byte

    ' Check for subscript out of range
    If IsPlaying(Index) = False Or Dir < DIR_UP Or Dir > DIR_RIGHT Or Movement < 1 Or Movement > 2 Then
        Exit Sub
    End If
   
    Call SetPlayerDir(Index, Dir)
   
    Moved = NO
   
    Select Case Dir
        Case DIR_UP
            If GetPlayerY(Index) > 0 Then
                PlayerX = GetPlayerX(Index)
                PlayerY = GetPlayerY(Index) - 1
            Else
                If Map(GetPlayerMap(Index)).Up > 0 Then
                    Call PlayerWarp(Index, Map(GetPlayerMap(Index)).Up, GetPlayerX(Index), MAX_MAPY)
                    Moved = YES
                End If
            End If
        Case DIR_DOWN
            If GetPlayerY(Index) < MAX_MAPY Then
                PlayerX = GetPlayerX(Index)
                PlayerY = GetPlayerY(Index) + 1
            Else
                If Map(GetPlayerMap(Index)).Down > 0 Then
                    Call PlayerWarp(Index, Map(GetPlayerMap(Index)).Down, GetPlayerX(Index), 0)
                    Moved = YES
                End If
            End If
        Case DIR_LEFT
            If GetPlayerX(Index) > 0 Then
                PlayerX = GetPlayerX(Index) - 1
                PlayerY = GetPlayerY(Index)
             Else
                If Map(GetPlayerMap(Index)).Left > 0 Then
                    Call PlayerWarp(Index, Map(GetPlayerMap(Index)).Left, MAX_MAPX, GetPlayerY(Index))
                    Moved = YES
                End If
            End If
        Case DIR_RIGHT
            If GetPlayerX(Index) > MAX_MAPX Then
                PlayerX = GetPlayerX(Index) + 1
                PlayerY = GetPlayerY(Index)
            Else
                If Map(GetPlayerMap(Index)).Right > 0 Then
                    Call PlayerWarp(Index, Map(GetPlayerMap(Index)).Right, 0, GetPlayerY(Index))
                    Moved = YES
                End If
            End If
    End Select

        If Map(GetPlayerMap(Index)).Tile(PlayerX, PlayerY).Type <> TILE_TYPE_BLOCKED Then
            ' Check to see if the tile is a key and if it is check if its opened
            If Map(GetPlayerMap(Index)).Tile(PlayerX, PlayerY).Type <> TILE_TYPE_KEY Or (Map(GetPlayerMap(Index)).Tile(PlayerX, PlayerY).Type = TILE_TYPE_KEY And TempTile(GetPlayerMap(Index)).DoorOpen(PlayerX, PlayerY) = YES) Then
                Call SetPlayerY(Index, PlayerY)
               
                Packet = SPlayerMove & SEP_CHAR & Index & SEP_CHAR & PlayerX & SEP_CHAR & PlayerY & SEP_CHAR & GetPlayerDir(Index) & SEP_CHAR & Movement & END_CHAR
                Call SendDataToMapBut(Index, GetPlayerMap(Index), Packet)
                Moved = YES
            End If
        End If
       
    ' Check to see if the tile is a warp tile, and if so warp them
    If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_WARP Then
        MapNum = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data1
        x = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data2
        y = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data3
                       
        Call PlayerWarp(Index, MapNum, x, y)
        Moved = YES
    End If
   
    ' Check for key trigger open
    If Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Type = TILE_TYPE_KEYOPEN Then
        x = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data1
        y = Map(GetPlayerMap(Index)).Tile(GetPlayerX(Index), GetPlayerY(Index)).Data2
       
        If Map(GetPlayerMap(Index)).Tile(x, y).Type = TILE_TYPE_KEY And TempTile(GetPlayerMap(Index)).DoorOpen(x, y) = NO Then
            TempTile(GetPlayerMap(Index)).DoorOpen(x, y) = YES
            TempTile(GetPlayerMap(Index)).DoorTimer = GetTickCount
                           
            Call SendDataToMap(GetPlayerMap(Index), SMapKey & SEP_CHAR & x & SEP_CHAR & y & SEP_CHAR & 1 & END_CHAR)
            Call MapMsg(GetPlayerMap(Index), "A door has been unlocked.", White)
        End If
    End If
   
    ' They tried to hack
    If Moved = NO Then
        Call HackingAttempt(Index, "Position Modification")
    End If
End Sub

--------
|Client|
--------
- Heavily optimized looping (DFA's code, implemented by Dugor)
- The following game editors do no allow blank names: Spell, Shop, NPC, Item (DFA)
- Removed assignment to MyText from GameLoop, moved to txtMyChat_Change (DFA)
- Added password character for password text boxes (Giaken)
- Made frmMirage.lblName taller to support longer game name's (Giaken)
- frmMirage.lblName and frmMirage's caption are now updated with the game's name (Giaken)
- Fill button added to map editor (Lea's code, implemented by Giaken)
- frmIndex is now opened as a modal (Giaken)
- Max is updated in Npc and Item editor (Giaken)
- Map Item captions changed to 1's and the value minimum is 1 now (Giaken)
- Added a MapItemEditorBltItem and now shows preview when selecting a Map Item (Giaken)
- Added a KeyItemEditorBltItem and now shows preview like the map item does (Giaken)
- Did an extra check for warp tile to make sure their X and Y Offset is 0 (Giaken)
- Attributes are now displayed differently and are centered on the tile better (Giaken)
- Changed the CheckInput sub to use a Select Case (Giaken)
- Changed macro check to be more optimized (reduced to only a few lines) and added the shiftdown check (Giaken)
- Changed NPCs to work off the High_Npc_Index instead of MAX_MAP_NPCS (Giaken)
- Moved the check if we're still connected to the top of the GameLoop (Giaken)
- Moved the Clear button on the map editor to the front (Giaken)

--------
|Server|
--------
- Heavily optimized looping (DFA's code, implemented by Dugor)
- Had problems with Function CanAttackPlayer, fixed but lacks optimization. (DFA)
- Chat box scrolls down while minimized (Giaken)

If Val(txtDrop.Text) > GetPlayerInvItemValue(MyIndex, InvNum) Then
        Exit Sub
    End If