5 minutes of looking at the client only

[Joost]

Server-side :

Code:

Public Function PasswordOK(ByVal Name As String, ByVal Password As String) As Boolean

Compares Ucase, while a good p/w is bother upper and undercase.

Code:

CanAttackPlayer

Checks if something has 0 hp, while taht's impossible

Code:

Public Sub DestroyServer()

Does the same as LoadServer, unloading evreything, with a succesful DestroyServer, there's no need to Unload everything again on the next start-up

Code:

Function IsMultiIPOnline(ByVal IP As String) As Boolean

Poor coding.

Code:

Public Sub SendDataToMapBut(ByVal Index As Long, ByVal MapNum As Long, ByVal Data As String

Poor coding.
The entire HIGH_INDEX
Will look something like this : 1, 4, 7, 9, looping from 1 to 9. Instead, an array should be made holding those numbers.

Code:

Public Function CanPlayerBlockHit

Nothing wrong with this function, it's just that shields are completely useless.