Something

Private Function HandleBerserker(index As Integer, command As String)

    If command = "start" Then
        fData = "060022310000" & PlayerData(index).CharID & "0401"
        For i = 1 To UBound(PlayerData)
            If PlayerData(i).Ingame = True Then
                If frmMain.GameSocket(i).State = 7 Then frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
            End If
        Next i
    End If
    
    If command = "end" Then
        fData = "060022310000" & PlayerData(index).CharID & "0400"
        For i = 1 To UBound(PlayerData)
            If PlayerData(i).Ingame = True Then
                If frmMain.GameSocket(i).State = 7 Then frmMain.GameSocket(i).SendData cv_StringFromHex(fData)
            End If
        Next i
    End If
End Function



zz gm command

                    Case ".berserker"
                        HandleBerserker index, CInt(sCommands(1))