[MS4] Kill Command

[Nean]

This tutorial is out of date! Lucky for you wankers (hehe), I remade it for the newest version. YAY. =[

Server

Under:

Code:

' :: Quit game packet ::

Add:

Code:

' ::::::::::::::::::::::::
        ' :: Kill Player Packet ::
        ' ::::::::::::::::::::::::
Sub HandleKillPlayer(ByVal Index As Long, ByRef Parse() As String)
Dim N
        ' Prevent hacking...
        If GetPlayerAccess(Index) < ADMIN_CREATOR Then
            Call HackingAttempt(Index, "Admin Cloning")
        Exit Sub
    End If

N = FindPlayer(Parse(1))

    If N  Index Then
    If N > 0 Then
    'Sends messages out
        Call PlayerMsg(N, "You have been killed by an admin.", BrightRed)
        Call GlobalMsg(GetPlayerName(N) & " has been killed by an admin.", BrightRed)
    'Warp to starting map
        Call PlayerWarp(N, START_MAP, START_X, START_Y)
        Call SetPlayerPK(Index, NO)
    Else
        Call PlayerMsg(Index, "Player is not online.", White)
    End If
    Else
        Call PlayerMsg(Index, "You cannot kill yourself!", White)
    End If

End Sub

Then find:

Code:

HandleKickPlayer Index, Parse

Add this under that:

Code:

Case CkillPlayer
            HandleKillPlayer Index, Parse

Remember, this is just the newest change. The client hasn't changed.