'cmd
'1.0

Const pingme_cmd = "pingme"
Const time_cmd = "time"
Const flip_cmd = "flip"

Sub cmd_Event_UserTalk(Username, Flags, Message, Ping)
  GetDBEntry Username, a, f
  If Message = BotVars.Trigger & pingme_cmd Then
      AddQ "Ton ping est " & Ping & "ms !"
  End If

  If Message = BotVars.Trigger & time_cmd Then
      AddQ "Nous sommes le " & Date & " et il est " & Time
  End If

  If Message = BotVars.Trigger & flip_cmd Then
      number = Int((2 - 1 + 1) * Rnd + 1)
        If number = 1 Then
        AddQ "Pile !"
        End If
        If number = 2 Then
        AddQ "Face !"
        End If
        If number <> 1 and number <> 2 Then
        AddQ "Rien !"
        End If
  End If
End Sub