Stuff

on *:TEXT:!settopkicker*:#sr-staff: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    inc %tktime. [ $+ [ $replace(%topkicker,$chr(32),_) ] ] $calc($ctime - %tktime)
    set %topkicker $2- 
    set %tktime $ctime 
    set %tkset $nick
    inc %tktimes. [ $+ [ $replace($2-,$chr(32),_) ] ] 1
    msg #soul-reapers 10 A new job has been set, type !jobs to view it
    if  (%timessetjob. [ $+ [ $nick ] ] == $null) { set %timessetjob. [ $+ [ $nick ] ] 1 }
    elseif (%timessetjob. [ $+ [ $nick ] ] != $null) { inc %timessetjob. [ $+ [ $nick ] ] 1 }
  }
}

on *:TEXT:!jobs*:#soul-reapers,#sr-staff: {
  if ($nick isvoice $chan) || ($nick isop $chan) || ($nick ishop $chan) {
    notice $nick the top kicker is %topkicker set $duration($calc($ctime - $($+(%,tktime),2)))) ago 
    notice $nick the bottom kicker is %bottomkicker set $duration($calc($ctime - $($+(%,bktime),2)))) ago 
    notice $nick the caller is %caller set $duration($calc($ctime - $($+(%,calltime),2)))) ago  
  }
}

on *:TEXT:!setbottomkicker*:#sr-staff: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    inc %bktime. [ $+ [ %bottomkicker ] ] $calc($ctime - %bktime) 
    set %bottomkicker $2-
    set %bktime $ctime
    set %bkset $nick
    inc %bktimes. [ $+ [  $replace($2-,$chr(32),_) ] ] 1
    msg #soul-reapers 10 A new job has been set, type !jobs to view it
    if  (%timessetjob. [ $+ [ $nick ] ] == $null) { set %timessetjob. [ $+ [ $nick ] ] 1 }
    elseif (%timessetjob. [ $+ [ $nick ] ] != $null) { inc %timessetjob. [ $+ [ $nick ] ] 1 }
  }
}

on *:TEXT:!setcaller*:#sr-staff: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    inc %callertime. [ $+ [ %caller ] ] $calc($ctime - %calltime) 
    set %caller $2-
    set %calltime $ctime
    set %callset $nick
    inc %calltimes. [ $+ [ $replace($2-,$chr(32),_) ] ] 1
    msg #soul-reapers 10 A new job has been set, type !jobs to view it
    if  (%timessetjob. [ $+ [ $nick ] ] == $null) { set %timessetjob. [ $+ [ $nick ] ] 1 }
    elseif (%timessetjob. [ $+ [ $nick ] ] != $null) { inc %timessetjob. [ $+ [ $nick ] ] 1 }
  }
}

on *:disconnect: {
  inc %callertime. [ $+ [ %caller ] ] $calc($ctime - %calltime)
  inc %bktime. [ $+ [ %bottomkicker ] ] $calc($ctime - %bktime) 
  inc %tktime. [ $+ [ %topkicker ] ] $calc($ctime - %tktime)
  set %caller n/a
  set %bottomkicker n/a
  set %topkicker n/a
}