Anonymous

on $*:TEXT:/^[!.@]setevent*/Si:#demon: {
  if ($nick isop $chan || $nick ishop $chan) {
    set %event $2
    set %eetime $calc($3 * 60)
    set %etime $3
    set %etimer $3
    set %stime $gmt(HH:nn:ss)
    set %date $date
    set %plnr $nick
    /timeretime $3 60 /dec %etimer
    /timer1 1 $calc(%eetime - 1200) /msg #demon 14Clan event11::.14 Will be starting in12 $calc(%etime - %etimer) 14Minutes! Join12 #XP-EVENT 14to come!
    /timer2 1 $calc(%eetime - 900) /msg #demon 14Clan event11::.14 Will be starting in12 $calc(%etime - %etimer) 14Minutes! Join12 #XP-EVENT 14to come!
    /timer3 1 $calc(%eetime - 600) /msg #demon 14Clan event11::.14 Will be starting in12 $calc(%etime - %etimer) 14Minutes! Join12 #XP-EVENT 14to come!
    /timer4 1 $calc(%eetime - 300) /msg #demon 14Clan event11::.14 Will be starting in12 $calc(%etime - %etimer) 14Minutes! Join12 #XP-EVENT 14to come!
    /timer5 1 %eetime /msg #demon 14Clan event11::.14 IS STARTING!! 11::.14 Join12 #XP-EVENT 14to come!
    notice $nick Clan event set to::. %event ::. Set by::. %plnr ::. Set at::. %stime ::. Held in::. %etime Minutes::. On::. %date ::.
    msg $chan New Clan event set! To check it, hit !event.
  }
}