Venom Chanserv System

[chain]

ok so this is my first script for chanserv commands its a dialog box put in remotes access it via menubar nicklist or the channel window let me know if you like it. updated it the first one had to be closed out to be used on each site cause it would only work on the site it was opened on. i fixed that problem though

 

.Venom Chanserv system.
.Coded By.
.Ryan.

Menu Menubar,Nicklist,Channel {
Chanserv System
.VenomChanservSys: dialog $iif($dialog(Chanserv.System),-v,-md Chanserv.System) Chanserv.System
}
Dialog Chanserv.System {
Title "VenomChanservSystem"
Size -1 -1 279 90
Option dbu
;-----Mod Controls Tab 100
Tab "+ Mod " ,100, 02 02 130 22, tab 100
edit "enter nick ", 101, 02 29 41 10, autohs tab 100
Button "voice" 102, 02 40 41 15, flat tab 100
edit "enter nick", 103, 02 62 41 10, autohs tab 100
button "devoice ", 104, 02 74 37 15, flat tab 100
edit "enter nick ", 105, 50 29 41 10, autohs tab 100
Button "op " 106, 49 40 37 15, flat tab 100
edit "enter nick ", 107, 50 62 41 10, autohs tab 100
button "deop ", 108, 49 74 37 15, flat tab 100
edit "enter nick", 109, 97 29 41 10, autohs tab 100
Button "halfop " 110, 96 40 37 15, flat tab 100
edit "enter nick ", 111, 97 62 41 10, autohs tab 100
button "dehalfop ", 112, 96 74 37 15, flat tab 100
edit "enter nick ", 113, 145 29 41 10, autohs tab 100
button "kick ", 114, 145 40 37 15, flat tab 100
edit "enter nick ", 115, 145 62 41 10, autohs tab 100
button "protect ", 116, 145 74 37 15, flat tab 100
edit "enter nick ", 117, 190 29 41 10, autohs tab 100
button "deprotect ", 118, 190 40 37 15, flat tab 100
edit "pass then description ", 119, 190 62 41 10, autohs tab 100
button "reg room ", 120, 190 74 37 15, flat tab 100
edit "pass then email ", 121, 234 29 41 10, autohs tab 100
button "reg nick ", 122, 233 40 37 15, flat tab 100
edit "Drop what nick ", 123, 234 62 41 10, autohs tab 100
button "Drop nick ", 124, 233 74 37 15, flat tab 100
;-----Roomowner Tab 200
Tab "+ Roomowner " ,200, 02 02 130 22, tab 200
edit "enter nick ", 201, 02 29 41 10, autohs tab 200
Button "addvop" 202, 02 40 41 15, flat tab 200
edit "enter nick", 203, 02 62 41 10, autohs tab 200
button "delvop ", 204, 02 74 37 15, flat tab 200
edit "enter nick ", 205, 50 29 41 10, autohs tab 200
Button "addhop " 206, 49 40 37 15, flat tab 200
edit "enter nick ", 207, 50 62 41 10, autohs tab 200
button "delhop ", 208, 49 74 37 15, flat tab 200
edit "enter nick", 209, 97 29 41 10, autohs tab 200
Button "addaop " 210, 96 40 37 15, flat tab 200
edit "enter nick ", 211, 97 62 41 10, autohs tab 200
button "delaop ", 212, 96 74 37 15, flat tab 200
edit "enter nick ", 213, 145 29 41 10, autohs tab 200
button "addsop ", 214, 145 40 37 15, flat tab 200
edit "enter nick ", 215, 145 62 41 10, autohs tab 200
button "delsop ", 216, 145 74 37 15, flat tab 200

}
on *:dialog:Chanserv.system:sclick:102:{
if (!$did(101).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv voice $active $did(101).text }
}
on *:dialog:Chanserv.system:sclick:104:{
if (!$did(103).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv devoice $active $did(103).text }
}
on *:dialog:Chanserv.system:sclick:106:{
if (!$did(105).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv op $active $did(105).text }
}
on *:dialog:Chanserv.system:sclick:108:{
if (!$did(107).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv deop $active $did(107).text }
}
on *:dialog:Chanserv.system:sclick:110:{
if (!$did(109).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv halfop $active $did(109).text }
}
on *:dialog:Chanserv.system:sclick:112:{
if (!$did(111).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv dehalfop $active $did(111).text }
}
on *:dialog:Chanserv.system:sclick:114:{
if (!$did(113).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv kick $active $did(113).text }
}
on *:dialog:Chanserv.system:sclick:116:{
if (!$did(115).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv protect $active $did(115).text }
}
on *:dialog:Chanserv.system:sclick:118:{
if (!$did(117).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv deprotect $active $did(117).text }
}
on *:dialog:Chanserv.system:sclick:120:{
if (!$did(119).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv register $active $did(119).text }
}
on *:dialog:Chanserv.system:sclick:122:{
if (!$did(121).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg nickserv register $did(121).text }
}
on *:dialog:Chanserv.system:sclick:124:{
if (!$did(123).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg nickserv drop $did(123).text }
}
on *:dialog:Chanserv.system:sclick:202:{
if (!$did(201).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv vop $active add $did(201).text }
}
on *:dialog:Chanserv.system:sclick:204:{
if (!$did(203).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv vop $active del $did(203).text }
}
on *:dialog:Chanserv.system:sclick:206:{
if (!$did(205).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv hop $active add $did(205).text }
}
on *:dialog:Chanserv.system:sclick:208:{
if (!$did(207).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv hop $active del $did(207).text }
}
on *:dialog:Chanserv.system:sclick:210:{
if (!$did(209).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv aop $active add $did(209).text }
}
on *:dialog:Chanserv.system:sclick:212:{
if (!$did(211).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv aop $active del $did(211).text }
}
on *:dialog:Chanserv.system:sclick:214:{
if (!$did(213).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv sop $active add $did(213).text }
}
on *:dialog:Chanserv.system:sclick:216:{
if (!$did(215).text) { noop $input(Please enter text in box,udho,Error!) }
else { scid $activecid .msg chanserv sop $active del $did(215).text }
}