menu * { 
  .Useful Tools { c } 
} 
alias c { 
  dialog $iif($dialog(c),-v,-md) c c  
}  
Dialog c { 
  title "Useful Tools" 
  size -1 -1 112 112 
  option dbu 
  Text "Made by Abiotic Soul" 1, 30 103 60 6, tab 2
  Tab "Calculator", 2, 0 0 112 112,
  Edit "", 3, 20 19 76 10, autohs tab 2
  Text "Calc:", 5, 4 20 15 60, center, tab 2
  Button "Exit", 7, 74 32 17 70, Cancel, flat tab 2
  Button "Clear", 8, 32 32 25 14, flat tab 2
  Button "7", 9, 18 46 14 14, flat tab 2
  Button "8", 10, 32 46 14 14, flat tab 2
  Button "9", 11, 46 46 14 14, flat tab 2
  Button "/", 12, 60 46 14 14, flat tab 2
  Button "4", 13, 18 60 14 14, flat tab 2
  Button "5", 14, 32 60 14 14, flat tab 2
  Button "6", 15, 46 60 14 14, flat tab 2
  Button "*", 16, 60 60 14 14, flat tab 2
  Button "1", 17, 18 74 14 14, flat tab 2
  Button "2", 18, 32 74 14 14, flat tab 2
  Button "3", 19, 46 74 14 14, flat tab 2
  Button "-", 20, 60 74 14 14, flat tab 2
  Button "0", 21, 18 88 14 14, flat tab 2
  Button "+", 22, 60 88 14 14, flat tab 2
  Box "", 23, 5 28 102 75, tab 2
  Button ".", 25, 32 88 14 14, flat tab 2
  Button "=", 26, 46 88 14 14,  flat tab 2
  Button "^", 27, 57 32 14 14, flat tab 2
  Button "sq", 28, 18 32 14 14, flat tab 2
  Tab "Away", 29, 0 0 112 112
  Tab "Memoserv", 30, 5 5 112 112
  Button "AFK", 31, 7 25 42 16, flat tab 29
  Button "Food", 32, 7 45 42 16, flat tab 29
  Button "Soccer", 33, 59 25 42 16, flat tab 29
  Button "Other", 34, 59 45 42 16, flat tab 29
  Edit "Away Message Here. Then click Other.", 35, 7 65 100 16, autohs tab 29
  Button "Set Back", 36, 7 84 95 16, flat tab 29
  Edit "User", 38, 7 30 49 10, autohs tab 30
  Box "MemoServ Commands:", 39, 0 17 110 110, tab 30
  Edit "Message", 40, 7 45 49 35, autohs tab 30
  Button "Send Memo", 41, 7 84 49 16, flat tab 30
  Box "Amsg Commands:", 42, 0 17 110 110, tab 29
  Button "List All Memos", 43, 59 30 49 10, flat tab 30
  Button "Read Memo #", 44, 59 45 49 10, flat tab 30
  Edit "#", 45, 77 55 10 10, autohs tab 30
  Button "Delete Memo #", 46, 59 65 49 10, flat tab 30
  Edit "#", 47, 77 75 10 10, autohs tab 30
  Button "Delete All", 48, 59 87 49 10, flat tab 30
  Tab "Join Channel", 50, 10 10 112 112
  Button "#4----o", 51, 7 25 42 10, flat tab 50
  Button "#`Tayl0r", 52, 7 38 42 10, flat tab 50
  Button "#P.C", 53, 7 51 42 10, flat tab 50
  Button "#`Remo", 54, 7 64 42 10, flat tab 50
  Button "#Sanf", 55, 59 25 42 10, flat tab 50
  Button "#Fatal-Death", 56, 59 38 42 10, flat tab 50
  Button "#`w1ld", 57, 59 51 42 10, flat tab 50
  Button "#Imok.", 58, 59 64 42 10, flat tab 50
  Button "#Team-Ice", 59, 7 77 42 10, flat tab 50
  Button "#DarkyWarky", 60, 59 77 42 10, flat tab 50
  Edit "#Channel", 61, 7 90 42 10, autohs tab 50
  Button "Join", 62, 59 90 42 10, flat tab 50
  Box "Channels:", 63, 0 17 110 110, tab 50
  Button "Disconnect", 64, 31 100 42 10, flat tab 50
  Tab "Time Ban", 65, 10 10 112 112
  Edit "", 66, 20 23 57 10, autohs tab 65
  Text "Chan:", 67, 5 25 15 8, tab 65
  Text "Nick:", 68, 7 38 22 8, tab 65
  Edit "", 69, 19 36 38 10, autohs tab 65
  Text "Time:", 70, 7 51 26 9, tab 65
  Edit "", 71, 20 49 19 10, autohs tab 65
  Text "Reason:", 72, 7 64 25 8, tab 65
  Edit "", 73, 27 62 80 10, autohs tab 65
  Button "Time Ban", 74, 28 75 52 27, flat tab 65
  Button "X", 75, 95 23 12 12, cancel, flat tab 65
  Tab "Global Ban", 76, 10 10 112 112
  Text "Nick:", 77, 7 19 13 13, tab 76
  Edit "", 78, 20 19 76 10, autohs tab 76
  Text "Reason:", 79, 2 30 20 20, tab 76
  Edit "", 80, 22 30 76 10, autohs tab 76
  Button "Ban", 81, 20 41 30 13, flat tab 76
  Button "Ban", 82, 20 80 30 13, flat tab 76
  Button "Unban", 83, 50 41 30 13, flat tab 76
  Button "Unban", 84, 50 80 30 13, flat tab 76
  Text "Channel:", 85, 2 60 23 10, tab 76
  Edit "#", 86, 24 58 76 10, autohs tab 76
  Text "Reason:", 87, 2 71 20 10, tab 76
  Edit "", 88, 22 69 76 10, autohs tab 76
}
on *:dialog:c:sclick:31: { 
  /amsg 4[Away] AFK 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away 4AFK 
} 
on *:dialog:c:sclick:32: { 
  /amsg 4[Away] Eating 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away 4Eating 
} 
on *:dialog:c:sclick:33: { 
  /amsg 4[Away] Soccer Game 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away 4Soccer Game
} 
on *:dialog:c:sclick:34: { 
  /amsg 4[Away] $did(35) $2- 3[1 I left at $time(hh:nn:ss) 3] | inc -c %atime
  /away $did(35) $+ 4 $+ $2- 
} 
on *:dialog:c:sclick:36: { 
  /away
  /amsg 3[Back] I'm back. 3[1 I was gone for $duration(%atime) 3] | unset %atime 
} 
on *:dialog:c:sclick:41: { 
  /msg memoserv send $did(38) $did(40)
}
on *:dialog:c:sclick:43: { 
  /msg memoserv list
}
on *:dialog:c:sclick:44: { 
  /msg memoserv read $did(45)
}
on *:dialog:c:sclick:46: { 
  /msg memoserv del $did(47)
}
on *:dialog:c:sclick:48: { 
  /msg memoserv del all
}
on *:dialog:c:sclick:51: { 
  /join #4----o
}
on *:dialog:c:sclick:52: { 
  /join #`Tayl0r
}
on *:dialog:c:sclick:53: { 
  /join #P.C
}
on *:dialog:c:sclick:54: { 
  /join #`Remo
}
on *:dialog:c:sclick:55: { 
  /join #Sanf
}
on *:dialog:c:sclick:56: { 
  /join #Fatal-Death
}
on *:dialog:c:sclick:57: { 
  /join #`w1ld
}
on *:dialog:c:sclick:58: { 
  /join #imok.
}
on *:dialog:c:sclick:59: { 
  /join #Team-Ice
}
on *:dialog:c:sclick:60: { 
  /join #DarkyWarky
}
on *:dialog:c:sclick:62: { 
  /join $did(61)
}
on *:dialog:c:sclick:64: { 
  /quit $nick
}
on *:dialog:c:sclick:74: {
  if ($me !ison $did(66)) {
    /dialog -x timeban.main timeban.main
    /dialog -m noton.chan noton.chan
  halt }
  if ($did(69) !ison $did(66)) {
    /dialog -x timeban.main timeban.main
    /dialog -m nicknot nicknot 
  halt }
  if ($me isvoice $did(66)) || ($me isreg $did(66)) {
    dialog -x timeban.main timeban.main
    dialog -m timeban.no timeban.no
  halt }
  elseif (($me isop $did(66)) || ($me ishop $did(67))) && ($did(70) == !$null) && ($did(72) == !$null) && ($did(68) == !$null) && ($did(67) == !$null)
  { ban -ku $+ $calc($did(71) * 60) $did(66) $did(69) Time Banned For: $did(71) Minute(s) From: $did(66) Reason: $did(73) }
} 
on *:dialog:c:sclick:81: { 
  set %ban.name $did($dname,78) 
  set %ban.reason $did($dname,80) 
  scon -a /gban $did($dname,78) 
  scon -a /amsg 4[Global Banning] %ban.name 4[Reason] %ban.reason 
  unset %ban.* 
} 
on *:dialog:c:sclick:83: { 
  set %unban.name $did($dname,78) 
  set %unban.reason $did($dname,80) 
  scon -a /ungban $did($dname,78) 
  scon -a /amsg 3[Global Unbanning] %unban.name 3[Reason] %unban.reason 
  unset %unban.* 
} 
on *:dialog:c:sclick:82: { 
  set %chanban.name $did($dname,86) 
  set %chanban.reason $did($dname,88) 
  scon -a /chanban $did($dname,86) 
  scon -a /amsg 4[Global Banning] %chanban.name 4[Reason] %chanban.reason 
  unset %chanban.* 
} 
on *:dialog:c:sclick:84: { 
  set %chanunban.name $did($dname,86) 
  set %chanunban.reason $did($dname,88) 
  scon -a /chanunban $did($dname,86) 
  scon -a /amsg 3[Global Unbanning] %chanunban.name 3[Reason] %chanunban.reason 
  unset %chanunban.* 
} 
alias gban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) +b $address($1,2) 
    dec %c 
  } 
} 
alias ungban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) -b $address($1,2) 
    dec %c 
  } 
} 
alias chanban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) +b ~c: $+ $1- 
    dec %c 
  } 
} 
alias chanunban { 
  var %c = $chan(0) 
  while (%c >= 1) { 
    mode $chan(%c) -b ~c: $+ $1- 
    dec %c 
  } 
}
on *:DIALOG:c:sclick:*: {
  if ($did == 26) { set %sum $calc( $did(3) ) | did -r c 3 |  did -a c 3 %sum }
  if ($did == 8) { did -r c 3 | unset %sum }
  if ($did == 9) { did -a c 3 7 }
  if ($did == 10) { did -a c 3 8 }
  if ($did == 11) { did -a c 3 9 }
  if ($did == 12) { did -a c 3 / }
  if ($did == 13) { did -a c 3 4 }
  if ($did == 14) { did -a c 3 5 }
  if ($did == 15) { did -a c 3 6 }
  if ($did == 16) { did -a c 3 * }
  if ($did == 17) { did -a c 3 1 }
  if ($did == 18) { did -a c 3 2 }
  if ($did == 19) { did -a c 3 3 }
  if ($did == 20) { did -a c 3 - }
  if ($did == 21) { did -a c 3 0 }
  if ($did == 22) { did -a c 3 + }
  if ($did == 25) { did -a c 3 . }
  if ($did == 27) { did -a c 3 ^ }
  if ($did == 28) { set %sum $sqrt( $did(3) ) | did -r c 3 | did -a c 3 %sum 
  }