ok i made this with both chatspace and ircd commands although i don't know all the ircd commands so if there are some missin then that means i dont know them i don't use ircd much. it auto detects what kind of server it is when you click on the server in the server window and adjusts controls accordingly ok updates i added a notice keeper on it if its open it adds the notices you get to a list if its closed it writes them to a txt doc for you to pull up and read later also used punktureds idea to keep the raw's from going off unless its open thanks to napa punktured typo and grim for all the help and thanks to punktured for the small suggestions on how to make it better after testin it updated fixed a bug with regging nicks. and now it shows user modes in the nicklist ok for chatspace users i added the .services list command to bring up the list of room aop/sop and room passwords. shows up in the dialog. ok if you are room owner while your looking at the list of mods/owners if you double click on a nick in that list it will remove that person from your mod/sop list
Menu Menubar,Nicklist,Channel {
Venom Controlsystem3
.Venomcontrol3sys: dialog $iif($dialog(Control3.System),-v,-md Control3.System) Control3.System
}
Dialog Control3.System {
Title "Controlsystem3"
Size -1 -1 150 179
Option dbu
text "server list", 1, 05 0 37 8
text "chan list", 2, 55 0 37 8
text "nick list", 6, 115 0 37 8
list 3, 0 10 49 60, hsbar vsbar
list 4, 50 10 49 60, hsbar vsbar
list 5, 100 10 49 60, hsbar vsbar
button "whois ",7, 0 72 37 12 , flat
button "ignore ",8, 37 72 37 12 , flat
button "unignore ",9, 74 72 37 12 , flat
button "regnick ",10, 111 72 37 12 , flat
button "dregnick ",11, 0 84 37 12 , flat
button "ghostnick ",12, 37 84 37 12 , flat
text "General Users Commands", 13, 43 64 77 8
button "kick ",14, 0 72 37 12 , hide
button "bankick ",15, 37 72 37 12 , hide
button "timeban ",16, 74 72 37 12 , hide
button "op ",17, 111 72 37 12 , hide
button "deop ",18, 0 84 37 12 , hide
button "voice ",19, 37 84 37 12 , hide
button "devoice ",20, 74 84 37 12 , hide
button "quiet ",59, 111 84 37 12 , hide
button "unquiet ",60, 0 96 37 12 , hide
text "Mod Commands", 21, 43 64 77 8, hide
button "addaop ",22, 0 72 37 12 , hide
button "delaop ",23, 37 72 37 12 , hide
button "addsop ",24, 74 72 37 12 , hide
button "delsop ",25, 111 72 37 12 , hide
button "soppass ",26, 0 84 37 12 , hide
button "aoppass ",27, 37 84 37 12 , hide
text "Owner Commands", 28, 43 64 77 8, hide
button "secret ",29, 0 72 37 12 , hide
button "de secret ",30, 37 72 37 12 , hide
button "inviteonly ",31, 74 72 37 12 , hide
button "deinvite ",32, 111 72 37 12 , hide
button "memonly ",33, 0 84 37 12 , hide
button "demem ",34, 37 84 37 12 , hide
button "passroom ",35, 74 84 37 12 , hide
button "depass ",36, 111 84 37 12 , hide
button "moderated ",37, 0 96 37 12 , hide
button "demoderate ",38, 37 96 37 12 , hide
text "channel modes", 39, 43 64 77 8, hide
button "kill ",40, 0 72 37 12 , hide
button "kline ",41, 37 72 37 12 , hide
button "akill",42, 74 72 37 12 , hide
button "shun ",43, 111 72 37 12 , hide
button "unshun",44, 0 84 37 12 , hide
button "admim ",45, 37 84 37 12 , hide
button "deadmin ",46, 74 84 37 12 , hide
button "oper ",47, 111 84 37 12 , hide
button "deoper ",48, 0 96 37 12 , hide
text "Admin Commands", 49, 43 64 77 8, hide
button "mod cmds ",50, 37 112 37 12 , flat
button "ownercmds ",51, 74 112 37 12 , flat
button "regusercmds ",52, 0 112 37 12 , disable
button "modes ",53, 111 112 37 12 , flat
button "admincmds ",54, 0 124 37 12 , flat
button "ok ",57, 37 112 37 15 , hide
list 55, 0 10 148 100, hsbar vsbar hide
button "whois ",70, 0 72 37 12 , hide
button "regnick",71, 0 84 37 12 , hide
button "unregnick ",72, 37 84 37 12 , hide
button "regchan ",73, 111 72 37 12 , hide
text "General Users Commands", 74, 43 64 77 8, hide
button "kick ",78, 0 72 37 12 , hide
button "halfop ",79, 37 72 37 12 , hide
button "dehalfop ",80, 74 72 37 12 , hide
button "op ",81, 111 72 37 12 , hide
button "deop ",82, 0 84 37 12 , hide
button "voice ",83, 37 84 37 12 , hide
button "devoice ",84, 74 84 37 12 , hide
button "quiet ",85, 111 84 37 12 , hide
button "unquiet ",86, 0 96 37 12 , hide
text "mod/hop/aop commands", 87, 43 64 77 8, hide
button "ok ",77, 37 112 37 12 , hide
button "addvop ",89, 0 72 37 12 , hide
button "delvop ",90, 37 72 37 12 , hide
button "addhop ",91, 74 72 37 12 , hide
button "delhop ",92, 111 72 37 12 , hide
button "addaop ",93, 0 84 37 12 , hide
button "delaop ",94, 37 84 37 12 , hide
button "addsop ",95, 74 84 37 12 , hide
button "delsop ",96, 111 84 37 12 , hide
text "room owner commands", 97, 43 64 77 8, hide
button "mod cmds ",98, 37 112 37 12 , hide
button "ownercmds ",99, 74 112 37 12 , hide
button "regusercmds ",100, 0 112 37 12 , disable
button "list ",101, 111 96 37 12
list 200, 0 137 111 42, hsbar vsbar
button "read ",201, 113 137 37 12
button "del ",202, 113 152 37 12
button "Clear ",203, 113 167 37 12
}
raw 311 :*: { if ($dialog(Control3.System)) { .timer 1 1 did -az control3.system 55 $$2-
}
else { halt
}
}
raw 319 :*: { if ($dialog(Control3.System)) { .timer 1 1 did -az control3.system 55 $$2-
}
else { halt
}
}
raw 312 :*: { if ($dialog(Control3.System)) { .timer 1 1 did -az control3.system 55 $$2-
}
else { halt
}
}
raw 313 :*: { if ($dialog(Control3.System)) { .timer 1 1 did -az control3.system 55 $$2-
}
else { halt
}
}
raw 318 :*: { if ($dialog(Control3.System)) { .timer 1 1 did -az control3.system 55 $$2-
}
else { halt
}
}
on 1:TEXT:*:?: { if ( $nick == SERVICES ) { .timer 1 1 did -az control3.system 55 $$1-
.timer 1 2 window -c services
}
}
on *:Dialog:Control3.System:sclick:50: {
did -h control3.system 7-13,22-28,29-39,40-49
did -v control3.system 14-21,59,60
did -b control3.system 50
did -e control3.system 51-54
}
on *:Dialog:Control3.System:sclick:51: {
did -h control3.system 7-13,14-21,29-39,40-49,59,60
did -v control3.system 22-28
did -b control3.system 51
did -e control3.system 50,52-54
}
on *:Dialog:Control3.System:sclick:52: {
did -h control3.system 14-21,22-28,29-39,40-49,59,60
did -v control3.system 7-13
did -b control3.system 52
did -e control3.system 50,51,53,54
}
on *:Dialog:Control3.System:sclick:53: {
did -h control3.system 7-13,14-21,22-28,40-49,59,60
did -v control3.system 29-39
did -b control3.system 53
did -e control3.system 50-52,54
}
on *:Dialog:Control3.System:sclick:54: {
did -h control3.system 7-13,14-21,22-28,29-39,59,60
did -v control3.system 40-49
did -b control3.system 54
did -e control3.system 50-53
}
on *:Dialog:Control3.System:sclick:98: {
did -h control3.system 8,9,70-74,89-97
did -v control3.system 78-87
did -b control3.system 98
did -e control3.system 99,100
}
on *:Dialog:Control3.System:sclick:99: {
did -h control3.system 8,9,70-74,78-87
did -v control3.system 89-97
did -b control3.system 99
did -e control3.system 98,100
}
on *:Dialog:Control3.System:sclick:100: {
did -h control3.system 78-87,89-97
did -v control3.system 8,9,70-74
did -b control3.system 100
did -e control3.system 98,99
}
on *:Dialog:Control3.System:init:*: {
nets
}
On *:Connect:{ if ($dialog(Control3.System)) {
nets
}
}
on *:DISCONNECT: { if ($dialog(Control3.System)) {
.timer 1 1 nets
}
}
on *:join:#:{ if ($dialog(Control3.System)) {
if ($nick != $me) { nickz }
else { .timer 1 1 chanz
}
}
}
on *:part:#:{ if ($dialog(Control3.System)) {
if ($nick != $me) { .timer 1 1 nickz }
else { .timer 1 1 chanz
did -r control3.system 5
}
}
}
on *:dialog:Control3.System:dclick:3: {
.set %controlserver $did(Control3.System,3).seltext
$scon($did(3).sel).chanz
did -r Control3.System 5
$scon($did(3).sel).checkversion
}
on *:dialog:Control3.System:dclick:5: {
$scon($did(3).sel).queryn
}
on *:dialog:Control3.System:sclick:7: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Whois,uwo,Error!) } | else {
did -h control3.system 1-54,101
did -v control3.system 55,57
$scon($did(3).sel).whoisn
}
}
on *:dialog:Control3.System:sclick:8: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ignore,uwo,Error!) } | else {
$scon($did(3).sel).ignorn
}
}
on *:dialog:Control3.System:sclick:9: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Unignore,uwo,Error!) } | else {
$scon($did(3).sel).unignorn
}
}
on *:dialog:Control3.System:sclick:10: {
$scon($did(3).sel).regeryn $me
}
on *:dialog:Control3.System:sclick:11: {
$scon($did(3).sel).droperyn
}
on *:dialog:Control3.System:sclick:12: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ghost,uwo,Error!) } | else {
$scon($did(3).sel).ghostn
}
}
on *:dialog:Control3.System:sclick:14: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Kick,uwo,Error!) } | else {
$scon($did(3).sel).kickyn
}
}
on *:dialog:Control3.System:sclick:15: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ban,uwo,Error!) } | else {
$scon($did(3).sel).bankickyn
}
}
on *:dialog:Control3.System:sclick:16: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Ban,uwo,Error!) } | else {
$scon($did(3).sel).timedbankickyn
}
}
on *:dialog:Control3.System:sclick:17: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Mod,uwo,Error!) } | else {
$scon($did(3).sel).opyn
}
}
on *:dialog:Control3.System:sclick:18: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Demod,uwo,Error!) } | else {
$scon($did(3).sel).deopyn
}
}
on *:dialog:Control3.System:sclick:19: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Voice,uwo,Error!) } | else {
$scon($did(3).sel).voiceyn
}
}
on *:dialog:Control3.System:sclick:20: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Devoice,uwo,Error!) } | else {
$scon($did(3).sel).devoiceyn
}
}
on *:dialog:Control3.System:sclick:22: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Add To Mod List,uwo,Error!) } | else {
$scon($did(3).sel).aopyn
}
}
on *:dialog:Control3.System:sclick:23: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Delete From Mod List,uwo,Error!) } | else {
$scon($did(3).sel).deaopyn
}
}
on *:dialog:Control3.System:sclick:24: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Add To Owner List,uwo,Error!) } | else {
$scon($did(3).sel).sopyn
}
}
on *:dialog:Control3.System:sclick:25: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Delete From Owner List,uwo,Error!) } | else {
$scon($did(3).sel).desopyn
}
}
on *:dialog:Control3.System:sclick:26: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Add An Owner Pass To,uwo,Error!) } | else {
$scon($did(3).sel).soppasyn
}
}
on *:dialog:Control3.System:sclick:27: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Add An Mod Pass To,uwo,Error!) } | else {
$scon($did(3).sel).aoppasyn
}
}
on *:dialog:Control3.System:sclick:29: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Secret,uwo,Error!) } | else {
$scon($did(3).sel).secretyn
}
}
on *:dialog:Control3.System:sclick:30: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset As Secret,uwo,Error!) } | else {
$scon($did(3).sel).desecretyn
}
}
on *:dialog:Control3.System:sclick:31: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Invite Only,uwo,Error!) } | else {
$scon($did(3).sel).inviteyn
}
}
on *:dialog:Control3.System:sclick:32: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset As Invite Only,uwo,Error!) } | else {
$scon($did(3).sel).deinviteyn
}
}
on *:dialog:Control3.System:sclick:33: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Member Only,uwo,Error!) } | else {
$scon($did(3).sel).memberyn
}
}
on *:dialog:Control3.System:sclick:34: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset As Member Only,uwo,Error!) } | else {
$scon($did(3).sel).dememberyn
}
}
on *:dialog:Control3.System:sclick:35: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set A Room Pass For,uwo,Error!) } | else {
$scon($did(3).sel).passyn
}
}
on *:dialog:Control3.System:sclick:36: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset A Room Pass From,uwo,Error!) } | else {
$scon($did(3).sel).depassyn
}
}
on *:dialog:Control3.System:sclick:37: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Set As Moderated "Only Voiced Users Can Speak",uwo,Error!) } | else {
$scon($did(3).sel).moderateyn
}
}
on *:dialog:Control3.System:sclick:38: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Unset From Moderated "Anyone In The Room Can Speak",uwo,Error!) } | else {
$scon($did(3).sel).demoderateyn
}
}
on *:dialog:Control3.System:sclick:40: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Kill,uwo,Error!) } | else {
$scon($did(3).sel).killyn
}
}
on *:dialog:Control3.System:sclick:41: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Kline,uwo,Error!) } | else {
$scon($did(3).sel).klineyn
}
}
on *:dialog:Control3.System:sclick:42: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Akill,uwo,Error!) } | else {
$scon($did(3).sel).akillyn
}
}
on *:dialog:Control3.System:sclick:43: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Shun,uwo,Error!) } | else {
$scon($did(3).sel).shunyn
}
}
on *:dialog:Control3.System:sclick:44: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Unshun,uwo,Error!) } | else {
$scon($did(3).sel).unshunyn
}
}
on *:dialog:Control3.System:sclick:45: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Admin,uwo,Error!) } | else {
$scon($did(3).sel).adminyn
}
}
on *:dialog:Control3.System:sclick:46: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Deadmin,uwo,Error!) } | else {
$scon($did(3).sel).deadminyn
}
}
on *:dialog:Control3.System:sclick:47: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Oper,uwo,Error!) } | else {
$scon($did(3).sel).operyn
}
}
on *:dialog:Control3.System:sclick:48: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Deoper,uwo,Error!) } | else {
$scon($did(3).sel).deoperyn
}
}
on *:dialog:Control3.System:sclick:59: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Quiet,uwo,Error!) } | else {
$scon($did(3).sel).Quietyn
}
}
on *:dialog:Control3.System:sclick:60: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Unquiet,uwo,Error!) } | else {
$scon($did(3).sel).Unquietyn
}
}
on *:dialog:Control3.System:sclick:57: {
did -h control3.system 55,57
did -v control3.system 1-13,50-54
}
on *:dialog:Control3.System:sclick:70: {
if (!$did(5).sel) { noop $input(Please Highlite A Nick In Nick List Box To Whois,uwo,Error!) } | else {
.timer 1 1 did -h control3.system 1-54,57,70-74,98-100
.timer 1 2 did -v control3.system 55,77
.timer 1 3 $scon($did(3).sel).whoisn
}
}
on *:dialog:Control3.System:sclick:71: {
$scon($did(3).sel).nickregyn
}
on *:dialog:Control3.System:sclick:72: {
$scon($did(3).sel).nickderegyn
}
on *:dialog:Control3.System:sclick:73: {
if (!$did(4).sel) { noop $input(Please Highlite The Chan In The Chan List Box you Want To Register,uwo,Error!) } | else {
$scon($did(3).sel).regroomyn
}
}
on *:dialog:Control3.System:sclick:77: {
did -h control3.system 1-7,10-54,55,77
.timer 1 1 did -v control3.system 3-5,8,9,70-74,98-100
}
on *:dialog:Control3.System:sclick:78: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Kick,uwo,Error!) } | else {
$scon($did(3).sel).cskikyn
}
}
on *:dialog:Control3.System:sclick:79: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Half Op,uwo,Error!) } | else {
$scon($did(3).sel).halfopyn
}
}
on *:dialog:Control3.System:sclick:80: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To DeHalf Op,uwo,Error!) } | else {
$scon($did(3).sel).dehalfopyn
}
}
on *:dialog:Control3.System:sclick:81: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Op,uwo,Error!) } | else {
$scon($did(3).sel).oopyn
}
}
on *:dialog:Control3.System:sclick:82: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To DeOp,uwo,Error!) } | else {
$scon($did(3).sel).deoopyn
}
}
on *:dialog:Control3.System:sclick:83: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Voice,uwo,Error!) } | else {
$scon($did(3).sel).vooiceyn
}
}
on *:dialog:Control3.System:sclick:84: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To DeVoice,uwo,Error!) } | else {
$scon($did(3).sel).devooiceyn
}
}
on *:dialog:Control3.System:sclick:85: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To quiet,uwo,Error!) } | else {
$scon($did(3).sel).quieetyn
}
}
on *:dialog:Control3.System:sclick:86: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Half Op,uwo,Error!) } | else {
$scon($did(3).sel).dequieetyn
}
}
on *:dialog:Control3.System:sclick:89: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Vop For,uwo,Error!) } | else {
$scon($did(3).sel).addvoppyn
}
}
on *:dialog:Control3.System:sclick:90: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Vop For,uwo,Error!) } | else {
$scon($did(3).sel).delvoppyn
}
}
on *:dialog:Control3.System:sclick:91: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Hop For,uwo,Error!) } | else {
$scon($did(3).sel).addhoppyn
}
}
on *:dialog:Control3.System:sclick:92: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Hop For,uwo,Error!) } | else {
$scon($did(3).sel).delhoppyn
}
}
on *:dialog:Control3.System:sclick:93: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Aop For,uwo,Error!) } | else {
$scon($did(3).sel).addaoppyn
}
}
on *:dialog:Control3.System:sclick:94: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Aop For,uwo,Error!) } | else {
$scon($did(3).sel).deaoppyn
}
}
on *:dialog:Control3.System:sclick:95: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Add Sop For,uwo,Error!) } | else {
$scon($did(3).sel).soppyn
}
}
on *:dialog:Control3.System:sclick:96: {
if (!$did(5).sel) { noop $input(Please Highlite The Nick In The Nick List Box you Want To Del Sop For,uwo,Error!) } | else {
$scon($did(3).sel).desoppyn
}
}
on *:dialog:Control3.System:dclick:4: {
$scon($did(3).sel).nickz
.set %controlroom $did(Control3.System,4).seltext
}
on *:dialog:Control3.System:sclick:101: {
on *:dialog:Control3.System:sclick:101: {
if (!$did(4).sel) { noop $input(Please Highlite A Chan In Chan List Box To Check Room List,uwo,Error!) } | else {
did -h control3.system 1-54,101
did -v control3.system 55,57
did -r control3.system 55
$scon($did(3).sel).listyn
}
}
on *:dialog:Control3.System:dclick:55: { $scon($did(3).sel).listage1 }
alias listage1 { if (aop isin $did(Control3.System,55).seltext ) {
.services aop $did(Control3.System,4).seltext del $remove($did(Control3.System,55).seltext,aop)
.timer 1 1 $scon($did(3).sel).listyn
.timer 1 1 did -r control3.system 55
.timer 1 2 listyn
}
elseif (sop isin $did(Control3.System,55).seltext ) {
.services sop $did(Control3.System,4).seltext del $remove($did(Control3.System,55).seltext,sop)
.timer 1 1 did -r control3.system 55
.timer 1 2 listyn
}
}
alias listyn { .services info $did(Control3.System,4).seltext }
alias queryn { query $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias kickyn { .mode %controlroom -o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | kick %controlroom $did(Control3.System,5).seltext | nickz }
alias whoisn { did -r control3.system 55
whois $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias ignorn { .ignore $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 }
alias unignorn { .ignore -r $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 }
alias ghostn { .services ghost $remove($did(Control3.System,5).seltext,~,&,@,%,+) $$?"whats the pass?" }
alias bankickyn { .mode %controlroom -o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | ban -k %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | nickz }
alias timedbankickyn { .mode %controlroom -o $did(Control3.System,5).seltext | ban -ku $+ $calc($+($$?"How many minutes? ex 5 6 7 8") * 60) %controlroom $did(Control3.System,5).seltext 3 | nickz }
alias opyn { mode %controlroom +o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias deopyn { mode %controlroom -o $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias voiceyn { mode %controlroom +v $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias devoiceyn { mode %controlroom -v $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias aopyn { services aop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias deaopyn { services aop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias sopyn { services sop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias desopyn { services sop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias soppasyn { .services set %controlroom Soppass $$?"enter a pass" }
alias aoppasyn { .services set %controlroom Aoppass $$?"enter a pass" }
alias secretyn { .mode %controlroom +s }
alias desecretyn { .mode %controlroom -s }
alias inviteyn { .mode %controlroom +i }
alias deinviteyn { .mode %controlroom -i }
alias memberyn { .mode %controlroom +j }
alias dememberyn { .mode %controlroom -j }
alias passyn { .mode %controlroom +k $$?"enter a pass" }
alias depassyn { .mode %controlroom -k $$?"whats the room pass" }
alias moderateyn { .mode %controlroom +ml }
alias demoderateyn { .mode %controlroom -m }
alias killyn { .kill $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias klineyn { .Kline $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias akillyn { .Akill $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias shunyn { .shun $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias unshunyn { .shun -r $+ $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias adminyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) +admin | .timer 1 1 nickz }
alias deadminyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) -admin | .timer 1 1 nickz }
alias operyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) +oper | .timer 1 1 nickz }
alias deoperyn { .setoper $remove($did(Control3.System,5).seltext,~,&,@,%,+) -oper | .timer 1 1 nickz }
alias Quietyn { .mode %controlroom +q $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias Unquietyn { .mode %controlroom -q $remove($did(Control3.System,5).seltext,~,&,@,%,+) 3 | .timer 1 1 nickz }
alias regroomyn { .msg chanserv register %controlroom $did(Control3.System,4).seltext $$?"pass then description" }
alias nickregyn { .msg nickserv register $$?"enter password and email" }
alias nickderegyn { .msg nickserv drop $me }
alias cskikyn { .msg chanserv kick %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias halfopyn { .msg chanserv halfop %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias dehalfopyn { .msg chanserv dehalfop %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias oopyn { .msg chanserv op %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias deoopyn { .msg chanserv deop %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias vooiceyn { .msg chanserv voice %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias devooiceyn { .msg chanserv devoice %controlroom $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias quieetyn { .mode %controlroom +q $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias dequieetyn { .mode %controlroom -q $remove($did(Control3.System,5).seltext,~,&,@,%,+) | .timer 1 1 nickz }
alias addvoppyn { .msg chanserv vop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias delvoppyn { .msg chanserv vop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias addhoppyn { .msg chanserv hop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias delhoppyn { .msg chanserv hop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias addaoppyn { .msg chanserv aop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias deaoppyn { .msg chanserv aop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias soppyn { .msg chanserv sop %controlroom add $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias desoppyn { .msg chanserv sop %controlroom del $remove($did(Control3.System,5).seltext,~,&,@,%,+) }
alias regeryn { .services register $me $$?="enter a pass" }
alias droperyn { .services drop $me }
alias nets {
did -r Control3.System 3
var %tot = $scon(0), %curr = 1
while (%curr <= %tot) {
did -az Control3.System 3 $scon(%curr).server
inc %curr
}
}
alias chanz {
var %chans $chan(0), %curr 1
did -r Control3.System 4
while (%curr <= %chans) {
did -az Control3.System 4 $chan(%curr)
inc %curr
}
}
alias nickz {
var -s %curr 1, %nick $nick($did(control3.system,4).seltext,0)
did -r Control3.System 5
while (%curr <= %nick) {
did -az Control3.System 5 $nick($did(control3.system,4).seltext,%curr).pnick
inc %curr
}
}
alias checkversion {
version
}
Raw 351 :*: { if ($dialog(Control3.System)) {
if (Unreal isin $$1- ) {
did -h control3.system 7,10-55,57,59,60,101
did -v control3.system 8,9,70-74,98-100 }
elseif (ircd isin $$1- ) {
did -h control3.system 7,10-55.57,59,60,101
.timer 1 1 did -v control3.system 8,8,70-74,98-100 }
elseif (cs isin $$1- ) {
did -h control3.system 70-74,78-87,89-100
did -v control3.system 7-13,50-54,101
}
}
}
on *:NOTICE:*:?: { if ($dialog(Control3.System)) {
did -az control3.system 200 $nick noticed you at $asctime(hh:nn:ss:tt) and said $1-
}
elseif (!$dialog(Control3.System)) { write mynotices.txt $nick noticed you at $asctime(hh:nn:ss:tt) and said $1-
}
}
on *:dialog:Control3.System:sclick:201: {
did -r control3.system 200
.timer 1 1 myntce
}
on *:dialog:Control3.System:sclick:202: {
if (!$did(200).sel) { noop $input(Please Highlite A Notice In Notice List Box To Delete,uwo,Error!) } | else { write -dl $+ $did(200).sel mynotices.txt
did -r control3.system 200
.timer 1 3 myntce
}
}
on *:dialog:Control3.System:sclick:203: {
did -r control3.system 200
}
alias myntce {
var %a = 0, %b = $lines(mynotices.txt)
while (%a <= %b) {
did -az Control3.System 200 $read(mynotices.txt)
inc %a
}
}
I use $findfile() to locate icons on my custom toolbar.
you dont need to if the icon file is within the script file it will work as I have tested this to see if it did work so I prefer putting the file into the actual folder then you dont need the extra code of $findfile(icon "venom.ico")
just personal preference :D