;Alias Syntax- /tb nick time (in seconds) 
;Remote Trigger Syntax- [!@.]tb nick time (in seconds) 
menu channel { 
  TB:dialog -ma tbd tbd 
} 
menu nicklist { 
  TB 
  .1 Minute:/ban -ku60 $chan $1 4 TempBan- 1 Minute 
  .5 Minutes:/ban -ku300 $chan $1 4 TempBan- 5 Minutes 
  .10 Minutes:/ban -ku600 $chan $1 4 TempBan- 10 Minutes 
  .Custom:dialog -me tbd tbd 
} 
dialog tbd { 
  title \"Temp Ban\" 
  size -1 -1 120 78 
  option dbu 
  list 1, 2 9 50 50, size 
  text , 2, 2 1 50 8 
  combo 3, 58 20 58 10, drop 
  edit \"\", 4, 86 40 30 10 
  text \"Choose a time...\", 5, 76 11 40 8 
  text \"Or enter one in seconds\", 6, 58 32 58 8 
  button \"Cancel\", 9, 23 63 37 12, cancel 
  button \"Ban\", 10, 64 63 37 12 
} 


on *:DIALOG:tbd:init:*:{ 
  did -a tbd 2 $active 
  did -a tbd 3 1 Minute : 60 
  did -a tbd 3 2 Minutes : 120 
  did -a tbd 3 5 Minutes : 300 
  did -a tbd 3 10 Minutes : 600 
  did -a tbd 3 30 Minutes : 1800 
  var %i = 0 
  while (%i < $nick($active,0)) { 
    inc %i 1 
    did -a tbd 1 $nick($active,%i) 
  } 
} 
on *:DIALOG:tbd:sclick:3:{ 
  did -r tbd 4 
} 
on *:DIALOG:tbd:sclick:10:{ 
  if ($did($dname,1).seltext == $null) { .echo -q $input(No user specified,o) | halt } 
  else { if ($did($dname,3).seltext == $null) && (($did($dname,4).text == $null) || ($did($dname,4).text !isnum 1-)) { 
      var %time = 60 
    } 
    elseif  ($did($dname,4).text != $null) { 
      var %time = $did($dname,4).text 
    } 
    elseif ($did($dname,3).seltext != $null) { 
      var %time = $gettok($did($dname,3).seltext,2,58) 
    } 
  } 
  /ban -ku $+ $remove(%time,$chr(32)) $active $did($dname,1).seltext 4 TempBan- $calc( %time / 60) Minutes 
  .timer 1 %time .notice $did($dname,1).seltext You have been unbanned form $active 
  dialog -x tbd 
} 
on $*:TEXT:/^[!@.]tb */si:#:{ 
  if ($address($nick,4) == $address($me,4)) { 
    if (!$3) { halt } 
    if ($3 isnum 1-) { 
      tb1  $2 $3 $chan 
    } 
    else { 
      tb1 $2 60 $chan 
    } 
  } 
} 
alias tb1 { 
  if (!$2) { halt } 
  /ban -ku $+ $2 $3 $1 4 TempBan- $calc( $2 / 60) Minutes 
  .timer 1 $2 .notice $1 You have been unbanned from $3 
} 

alias tb { 
  if (!$2) { halt } 
  /ban -ku $+ $2 $chan $1 4 TempBan- $calc( $2 / 60) Minutes 
  .timer 1 $2 .notice $1 You have been unbanned from $chan 
}
menu channel { 
  Topic Styles 
  .Red & Black Mix: /topic $chan 14,7æ7,4æ5,4æ4,5æ1,5æ5,1æ8,1 7¤(~ 0,1 $?="Enter Topic Text" 7,1~)¤ 4,1 5,1æ1,5æ4,5æ5,4æ7,4æ4,7æ 
  .Red & Black Lines: /topic $chan 8|0,8|8,7|4,7|7,4|5,4|4,5|1,5|5,1|9,1 $?="Enter Topic Text" 5,1|1,5|4,5|5,4|7,4|4,7|8,7|0,8|8,0|  9,12 
  .Blue Shades: /topic $chan 0,15%,11,15`%15,11%,12,11`%11,12%,2,12`%12,2%'1,2`%2,1% 1,2 .: 0,1 $?="Enter Topic Text" 1,2:. 2,1`%1,2%12,2`%2,12%,11,12`%12,11%'15,11`%11,15%,0,15`% 
  .Funky Red & Blue: /topic $chan 4,15æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0 $?="Enter Topic Text" 4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0æ4æ0 
  .Gangster & cool: /topic $chan 8,0•0,8•7,8•8,7•4,7•7,4•5,4•4,5•5,1•1,1•4,1<-0,1 $?="Enter Topic Text" 4,1->1,1•5,1•4,5•5,4•7,4•4,7•8,7•7,8•0,8•8,0• 
  .Fire: /topic $chan 8,0æ0,8æ7,8æ8,7æ4,7æ7,4æ5,4æ4,5æ1,5æ5,1æ8,1 $?="Enter Topic Text" 5,1æ1,5æ4,5æ5,4æ7,4æ4,7æ8,7æ7,8æ0,8æ8,0æ 
  .White-r: /topic $chan 0,12æ¸2,12`æ12,2æ¸1,2`æ2,1æ¸4,0 -= $?="Enter Topic Text" =- 2,1`æ1,2æ¸12,2`æ2,12æ¸0,12`æ 
  .White-b: /topic $chan 0,12æ¸2,12`æ12,2æ¸1,2`æ2,1æ¸12,0 -= $?="Enter Topic Text" =- 2,1`æ1,2æ¸12,2`æ2,12æ¸0,12`æ 
  .Black: /topic $chan 3,1\1,3\9,3\3,9\0,9\9,0\0,0-15,0\0,15\14,15\15,14\1,14\14,1\1,1-0,1 $?="Enter Topic Text" 1,1-14,1/1,14/15,14/14,15/0,15/15,0/0,0-9,0/0,9/3,9/9,3/1,3/3,1/ 
  .Red: /topic $chan 4,0%0,4%4,4 5,4%4,5%5,5 1,5%5,1%1,1 0,1 $?="Enter Topic Text" 5,1%1,5%5,5 4,5%5,4%4,4 0,4%4,0% 
  .Blue: /topic $chan 12%0,12% 2%12,2% 1%2,1%0 $?="Enter Topic Text" 2%1,2% 12%2,12% 0%12,0% 
} 
on *:TEXT:!topic gangster *:#: { topic $chan 8,0•0,8•7,8•8,7•4,7•7,4•5,4•4,5•5,1•1,1•4,1<-0,1 $3- 4,1- 1,1•5,1•4,5•5,4•7,4•4,7•8,7•7,8•0,8•8,0• }
on *:VOICE:#: { if ($nick == $me) { msg $chan Thank you for the Voice } }
on *:HALFOP:#: { if ($nick == $me) { msg $chan Thank you for the Voice } }
on *:OP:#: { if ($nick == $me) { msg $chan Thank you for the Voice } }