Miscellany

on $*:TEXT:/^!tk?b( .+)?$/Si:#:{ 
  if (!$nick($chan,$me,ho)) .notice $nick [ERR]: I need halfop or above to do that. 
  elseif (!$nick($chan,$nick,ho)) .notice $nick [ERR]: You need halfop or above to do that. 
  elseif (!$3) .notice $nick [ERR]: Syntax - !tb <nick> <time> [reason] 
  elseif ($2 !ison $chan) .notice $nick [ERR]: $2 is not in the channel. 
  elseif ($3 !isnum) .notice $nick [ERR]: Time must be a number (in minutes). 
  elseif ($nick !isop $chan) && ($nick($chan,$2,ho)) .notice $nick [ERR]: I will not kick halfops or above. 
  else { 
    inc %kicked 
    ban $+(-ku,$calc($3 * 60)) $chan $2 2 ¤ $3 Min Ban ¤ Reason: $iif($4,$4-,None) ¤ Noobs Pwnt: %kicked ¤ 
  } 
}
menu * { 
  TB System --> 
  ..TB Dialog:/dialog -m TB TB 
} 
dialog TB { 
  title "TB Dialog | Made By: Jdawg140 ©" 
  size -1 -1 160 60 
  option dbu 
  button "Ok", 1, 0 0 37 30, ok 
  button "Cancel", 2, 123 0 37 60, cancel 
  box "Script By Jdawg140 © ", 3, 50 0 60 12, center 
  edit "Nick", 4, 50 12 60 12, center 
  edit "Time To Ban ", 6, 50 24 60 12, center 
  edit "#Channel", 7, 50 36 60 12, center 
  edit "Reason", 5, 50 48 60 12, center 
  button "TimeBan User", 8, 0 30 37 30, center 
} 
on *:DIALOG:TB:sclick:8:{ 
  inc %kicked 
  /ban -ku $+ $calc( $did($dname,6) * 60 ) $did($dname,7) $did($dname,4) 2 $did($dname,6) Min Ban - Reason: $did($dname,5)¤ Noobs Pwnt: %kicked