rendered paste bodymenu * {
.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
}