Mirage Source

        ' AIDA command
        If Mid$(MyText, 1, 5) = "/aida" Then
            MyText = Mid$(MyText, 5, Len(MyText) - 4)
            Call SendData(CAida & END_CHAR)
        End If
            MyText = ""
        Exit Sub
    End If

        ' :::::::::::::::::
        ' :: AIDA Packet ::
        ' :::::::::::::::::
        Case CAida
        If HasItem(Index, 200) Then
            Call Aida(Index)
        Exit Sub

        ' ::::::::::::::::::::::::
        ' :: Kill Player Packet ::
        ' ::::::::::::::::::::::::
Case CKillPlayer
' 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

Exit Sub

Public Sub Aida()
    SetPlayerVital(Index, HP) = GetPlayerMaxVital(Index, HP) + 5000
End Sub

Public Sub Aida()
    SetPlayerVital(Index, HP, GetPlayerMaxVital) = 5000
End Sub

Public Sub Aida()
    SetPlayerVital(Index, HP, GetPlayerMaxVital) = 5000
End Sub

Sub SetPlayerVital(ByVal Index As Long, ByVal Vital As Vitals, ByVal Value As Long)

Public Sub Aida()
    Call SetPlayerVital(Index, Vitals.HP, 5000)
End Sub