here is my gay list i made this for someone. it is very much similar to a blacklist and this snippet is made from a black list script it just has different effects to the people on it in stead of a kick/ban it is a notice telling you that you are on it and are now muted and a muted to change the mute time just go to the script and change the ignore time from -u1200 to what you would like.updated now has chan mute instead of ignore and has a list of gaylisted users on the dialog
dialog gl {
title "Gay List"
size -1 -1 69 100
option dbu
box "Add/Rem user", 1, 2 2 65 31
edit "", 2, 4 11 61 9, autohs
button "Add", 3, 4 21 30 10, flat
button "Remove", 4, 35 21 30 10, flat
box "Gay List", 5, 2 34 65 46
list 6, 4 43 61 35, size vsbar
text "made by pwnisher3 | version made by napa182",7, 1 84 60 15
}
alias gl { dialog $iif($dialog(gl),-v,-md) gl gl }
menu menubar,channel {
.Gay List:{ gl }
}
on *:DIALOG:gl:init:0:{
didtok $dname 6 44 %gaylist
}
on *:DIALOG:gl:sclick:*:{
if ($did == 3) {
if (!$did(2).text || $istok(%gaylist,$did(2).text,44)) {
noop $iif(!$did(2).text,$input(No User Was Entered,uwo,Error!),$iif($istok(%gaylist,$did(2).text,44),$input(User Already Exists,uwo,Error!),))
did -r $dname 2
}
else {
set %gaylist $addtok(%gaylist,$did(2).text,44)
did -r $dname 6,2
didtok $dname 6 44 %gaylist
}
}
if ($did == 4) {
if (!$did(2).text && !$did(6).seltext || $did(2).text && !$did(6).seltext && !$istok(%gaylist,$did(2).text,44)) {
noop $iif(!$did(2).text && !$did(6).seltext,$input(No User Was Entered Or Selected,uwo,Error!),$iif($did(2).text && !$did(6).seltext && !$istok(%gaylist,$did(2).text,44),$input(User Does Not Exists,uwo,Error!),)))
did -r $dname 2
}
elseif ($did(2).text && !$did(6).seltext && $istok(%gaylist,$did(2).text,44)) {
set %gaylist $remtok(%gaylist,$did(2).text,1,44)
did -r $dname 6,2
didtok $dname 6 44 %gaylist
}
elseif ($did(6).seltext && !$did(2).text) {
set %gaylist $remtok(%gaylist,$did(6).seltext,1,44)
did -r $dname 6,2
didtok $dname 6 44 %gaylist
}
}
}
on @*:JOIN:#:{
if ($istok(%gaylist,$nick,44)) {
mode # +b ~q: $+ $address($nick,2)
.notice $nick 4,1?14,1Y15ou 14,1H15ave 14,1B15een 14,1G15lAYlisted 14,1B15y14 $me $+ !
}
}
heres to get you started
dialog gl {
title "Gay List"
size -1 -1 69 82
option dbu
box "Add/Rem user", 1, 2 2 65 31
edit "", 2, 4 11 61 9, autohs
button "Add", 3, 4 21 30 10, flat
button "Remove", 4, 35 21 30 10, flat
box "Gay List", 5, 2 34 65 46
list 6, 4 43 61 35, size vsbar
}
alias gl { dialog $iif($dialog(gl),-v,-md) gl gl }
menu menubar,channel {
.Gay List:{ gl }
}
on *:DIALOG:gl:init:0:{
didtok $dname 6 44 %gaylist
}
on *:DIALOG:gl:sclick:*:{
if ($did == 3) {
if (!$did(2).text || $istok(%gaylist,$did(2).text,44)) {
noop $iif(!$did(2).text,$input(No User Was Entered,uwo,Error!),$iif($istok(%gaylist,$did(2).text,44),$input(User Already Exists,uwo,Error!),))
did -r $dname 2
}
else {
set %gaylist $addtok(%gaylist,$did(2).text,44)
did -r $dname 6,2
didtok $dname 6 44 %gaylist
}
}
if ($did == 4) {
if (!$did(2).text && !$did(6).seltext || $did(2).text && !$did(6).seltext && !$istok(%gaylist,$did(2).text,44)) {
noop $iif(!$did(2).text && !$did(6).seltext,$input(No User Was Entered Or Selected,uwo,Error!),$iif($did(2).text && !$did(6).seltext && !$istok(%gaylist,$did(2).text,44),$input(User Does Not Exists,uwo,Error!),)))
did -r $dname 2
}
elseif ($did(2).text && !$did(6).seltext && $istok(%gaylist,$did(2).text,44)) {
set %gaylist $remtok(%gaylist,$did(2).text,1,44)
did -r $dname 6,2
didtok $dname 6 44 %gaylist
}
elseif ($did(6).seltext && !$did(2).text) {
set %gaylist $remtok(%gaylist,$did(6).seltext,1,44)
did -r $dname 6,2
didtok $dname 6 44 %gaylist
}
}
}
on @*:JOIN:#:{
if ($istok(%gaylist,$nick,44)) {
mode # +b ~q: $+ $address($nick,2)
.notice $nick 4,1?14,1Y15ou 14,1H15ave 14,1B15een 14,1G15lAYlisted 14,1B15y14 $me $+ !
}
}
rofl
then why say you dont wanna be like me
dumb dumb
fat boi neps can do as he wishes....he rarely comes on the servers I go to and when he does hes on hes wii, good luck loading this code on that sammie
^_^
to do the list isnt that hard.......just add a list thing obv with a box and use on init and save to a .txt then fark about with a loop ;x or w/e its called :s EL taught me ;p
/me re-tests
oh my..... passes the handbags out
if you wanted another approach on this script... pwnisher3...
instead using the ignore/unignore you could always make it a channel affair and use the "~q:". make it a channel silence rather than a personal ignore. that way they can type to their hearts content but nothing is gonna show till the mode is removed..
also where the ignore is concerned.. i personally recommend using /ignore nick 3 as opposed /ignore nick 2 as 3 is more secure