Function CanAttackPlayer(ByVal Attacker As Long, ByVal Victim As Long) As Boolean

    ' Check attack timer
    If GetTickCount < TempPlayer(Attacker).AttackTimer + 1000 Then
        Exit Function
    End If
       
    ' Check for subscript out of range
    If Not IsPlaying(Victim) Then
        Exit Function
    End If

    ' Make sure they are on the same map
    If Not GetPlayerMap(Attacker) = GetPlayerMap(Victim) Then
        Exit Function
    End If
       
    ' Make sure we dont attack the player if they are switching maps
    If TempPlayer(Victim).GettingMap = YES Then
        Exit Function
    End If
 
    ' Check if map is attackable
    If Not Map(GetPlayerMap(Attacker)).Moral = MAP_MORAL_NONE Or GetPlayerPK(Victim) = NO Then
        Call PlayerMsg(Attacker, "This is a safe zone!", BrightRed)
        Exit Function
    End If
   
    ' Check if at same coordinates
    Select Case GetPlayerDir(Attacker)
        Case DIR_UP
            If (GetPlayerY(Victim) + 1 = GetPlayerY(Attacker)) And (GetPlayerX(Victim) = GetPlayerX(Attacker)) Then CanAttackPlayer = True Else Exit Function
        Case DIR_DOWN
            If (GetPlayerY(Victim) - 1 = GetPlayerY(Attacker)) And (GetPlayerX(Victim) = GetPlayerX(Attacker)) Then CanAttackPlayer = True Else Exit Function
        Case DIR_LEFT
            If (GetPlayerY(Victim) = GetPlayerY(Attacker)) And (GetPlayerX(Victim) + 1 = GetPlayerX(Attacker)) Then CanAttackPlayer = True Else Exit Function
        Case DIR_RIGHT
            If (GetPlayerY(Victim) = GetPlayerY(Attacker)) And (GetPlayerX(Victim) - 1 = GetPlayerX(Attacker)) Then CanAttackPlayer = True Else Exit Function
        Case Else
            Exit Function
    End Select
   
    ' Make sure they have more then 0 hp
    If GetPlayerVital(Victim, Vitals.HP) <= 0 Then
        Exit Function
    End If

    ' Check to make sure that they dont have access
    If GetPlayerAccess(Attacker) > ADMIN_MONITOR Then
        Call PlayerMsg(Attacker, "You cannot attack any player for thou art an admin!", BrightBlue)
        Exit Function
    End If

    ' Check to make sure the victim isn't an admin
    If GetPlayerAccess(Victim) > ADMIN_MONITOR Then
        Call PlayerMsg(Attacker, "You cannot attack " & GetPlayerName(Victim) & "!", BrightRed)
        Exit Function
    End If

    ' Make sure attacker is high enough level
    If GetPlayerLevel(Attacker) < 10 Then
        Call PlayerMsg(Attacker, "You are below level 10, you cannot attack another player yet!", BrightRed)
        Exit Function
    End If
   
    ' Make sure victim is high enough level
    If GetPlayerLevel(Victim) < 10 Then
        Call PlayerMsg(Attacker, GetPlayerName(Victim) & " is below level 10, you cannot attack this player yet!", BrightRed)
        Exit Function
    End If
 
End Function

+++++++++++++
++ MS 3.59 ++
+++++++++++++
*This release was done by Giaken*

--------
|Client|
--------
- /setaccess fixed (Giaken)
- /motd fixed (Giaken)
- Added better UBound and IsNumeric checks for all of the commands (Giaken)
- Whispering is fixed now (Giaken)

--------
|Server|
--------
- DestroyBanList now deletes the file properly instead (Giaken)
- Deleted some redundant code (Giaken)
- There is now a MAX_LEVELS constant, which controls the highest level the player can get (Giaken)
- Experience now rolls over instead of being set to 0 (Giaken)
- CanAttackPlayer now works right...mega ROFL at how it was done before (Giaken)
- Items are now properly refreshed when the map sends (Giaken)
- Kicking and banning is fixed now. Before you could kick/ban the same access as you. (Giaken)