MBCC

[Zakara]

Not really a Public Command, but it found its way in there!
 
 

Code: [Select]

'MBCC
 '1.1
 '& Mirage Bot Clan Commands:Zakara; Updated by Sarah
 
 Sub MBCC_Event_Load()
 
   AddChat VBYellow, "[MBCC] ", VBPink, "Zakara and Sarah's ", VBYellow, "Mirage Bot Clan Commands"
   TimerEnabled "MBCC", "Wait", False
   TimeInterval "MBCC", "Wait", 60
 
 End Sub
 
 Sub MBCC_Event_USertalk(USername, Flags, Message, Ping)
 
   GetDBEntry Username, Access, Flags
 
   If LCase(Message) = BotVars.Trigger & LCase("Cpub") Then
     If Access < 90 Then Exit Sub
     If MBCCStop > 0 Then Exit sub
     MBCCStop = MBCCStop + 1
     Command BotVars.Username, "/clan public", True
   End If
 
   If LCase(Message) = BotVars.Trigger & LCase("Cpriv") Then
     If Access < 90 Then Exit Sub
     If MBCCStop > 0 Then Exit sub
     MBCCStop = MBCCStop + 1
     Command BotVars.Username, "/clan private", True
   End If
  
 End Sub
 
 Sub MBCC_Wait_Timer()
 
   MBCCStop = 0
  
 End Sub

[ArticWolve]

Who said I gave you permission to add onto my PCmds series?

(Jking)