GAY list V2.0

By pwnisher3 on Aug 17, 2008

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 $+ !
  }
}

Comments

Sign in to comment.
pwnisher3   -  Aug 20, 2008

lol

 Respond  
Spanky   -  Aug 20, 2008

:O /me doesnt help pwnisher with scripts again

 Respond  
pwnisher3   -  Aug 20, 2008

lol /me adds spanky to his gay list :P

 Respond  
Eugenio   -  Aug 20, 2008

ROFL agreed
/me adds TropicalMeltdown to teh gay list
^_^

 Respond  
Spanky   -  Aug 20, 2008

/me adds tropicalmeltdown to the gay list.

 Respond  
Eugenio   -  Aug 20, 2008

/me re-re-tests

 Respond  
pwnisher3   -  Aug 19, 2008

it is UPDATED now

 Respond  
Eugenio   -  Aug 19, 2008

lawl
told you you need on init Its so handy....

 Respond  
pwnisher3   -  Aug 19, 2008

i mean it has the menu but when i loaded it it didn't show up lol i feel real stupid riht now

 Respond  
pwnisher3   -  Aug 19, 2008

yeah that works but fora min i thought it didn't because you didn't have the menu i was luaghing because i thought it did't work but oh well lol. i will update it in a minute

 Respond  
napa182   -  Aug 19, 2008

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 $+ !
  }
}
 Respond  
Eugenio   -  Aug 19, 2008

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

 Respond  
pwnisher3   -  Aug 19, 2008

as i said this is a ripp off of a BlackList i just edited it and i don't know how lol i'm still learning with dialog. you are more then welcome to make the cde for me

 Respond  
napa182   -  Aug 19, 2008

why dont you add a list box to show all the people you added to it

 Respond  
pwnisher3   -  Aug 19, 2008

i have updated it but i'm not for sure if it works i want had anyone to try it on. hey ^neptune why don't you use it and try it on eugene

 Respond  
pwnisher3   -  Aug 19, 2008

i know you wern't talking to me dumb dumb

 Respond  
Eugenio   -  Aug 19, 2008

rofl Im not bothered really and wernt refering to you dumb dumb

 Respond  
pwnisher3   -  Aug 19, 2008

no i don't wish i was you :P sounds like you get to much hate haha. will be updated in a min

 Respond  
Eugenio   -  Aug 19, 2008

lies he didnt know how to use /describe rofl
and neptune you fat git get your connexion SORTED, >;[

 Respond  
^Neptune   -  Aug 19, 2008

YEAH YOU MORON!!!!

 Respond  
F*U*R*B*Y*   -  Aug 19, 2008

.... if you notice.... i didn't say what /describe was, you moron.... i was asking for a different way to do /me and /action ...... moron

 Respond  
Eugenio   -  Aug 19, 2008

haha jealous you cant be me ^_^ furbeh is just jealous I pwn him all day long xD didnt even know how to use /describe ROFL
/me rates 6

 Respond  
pwnisher3   -  Aug 19, 2008

thanks for the advice Cheiron i will update it later. but for now i have to go to school

 Respond  
F*U*R*B*Y*   -  Aug 19, 2008

^Neptune said:

If I had this, I'd add eugene

If i was the creator of this script, I'd have him automatically added when dialog is launched :P

 Respond  
Eugenio   -  Aug 19, 2008

ROFL
/me adds EL and Napa182 to teh gay list ;x

and neptune...Im not the fat comp geek who comes on the internet with a nintendo wii and is too embarased to show hes pic. :D why you start on me I dont know but I aint done anything to you part from test your codes.

 Respond  
Cheiron   -  Aug 19, 2008

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

 Respond  
^Neptune   -  Aug 19, 2008

If I had this, i'd add eugene

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.