Nicklist Mouse Modes

By rhasttaff on Aug 26, 2008

Hello There!!
this is another options popups in menu nicklist
whit this snippet you can set mass modes +|- vhoaqIe and kick more than one nick by click. like a mass mode on nicklist, you can set modes in all peoples from the channel or kick then all in one
click.
can sets mass Modes +e,+I,+b by address or nick.

copy the code paste in Alt+R (Remote section. NOT popup) file/new
and select more of one nick in the nicklist a go to sModes in the righclick mouse
if you select +b or kick and your nick is seletcted too,
you will not be kicked/banned!

Jah Bless´´

;##### Nicklist mouse modes||||By rhasttaff ########
menu nicklist {
  sModes
  .Modes by nick
  ..+Mode
  ...voice:/snmode + v
  ...Halfop:/snmode + h
  ...Op:/snmode + o
  ...Protect:/snmode + a
  ...owner:/snmode + q
  ...-
  ...+i:/snmode + I
  ...+e:/snmode + e
  ...-
  ...+b:/snmode + b
  ..-Mode
  ...voice:/snmode - v
  ...Halfop:/snmode - h
  ...Op:/snmode - o
  ...Protect:/snmode - a
  ...owner:/snmode - q
  ...-
  ...-i:/snmode - I
  ...-e:/snmode - e
  ...-
  ...-b:/snmode - b
  .Modes by address
  ..+Mode
  ...+i:/snmodeb + I
  ...+e:/snmodeb + e
  ...-
  ...+b:/snmodeb + b
  ..-Mode
  ...-
  ...-i:/snmodeb - I
  ...-e:/snmodeb - e
  ...-
  ...-b:/snmodeb - b
  .-
  .Kick all:/set %mdnicksk $$?="Enter a reason to the Kicks:" | /snmodek
  .-
  .Slaps
  ..small Banana:/snmodes With a Small Banana 
  ..shit bag:/snmodes With full bag of cow shit
  ..Onw:/snmodes $$?="Slaps -Nick-:"
}
alias snmodes {
  var %mdnicks  $replace($snicks,$chr(44),$chr(32))
  if ($istok(%mdnicks,$me,32)) { 
    set %md-me $findtok(%mdnicks,$me,32)
    set %mdnicks $deltok(%mdnicks,%md-me,32)
  }
  while ($numtok(%mdnicks,32) >= 1) {
    /describe $chan Slaps $gettok(%mdnicks,1,32) $1-
    set %mdnicks $deltok(%mdnicks,1,32)
  }
  /unset %mdnicks %mdnicksk
  halt
}

alias snmode {
  var %mdnicks = $replace($snicks,$chr(44),$chr(32))
  if ($istok(%mdnicks,$me,32)) && ($2 == b) { 
    var %md-me = $findtok(%mdnicks,$me,32)
    set %mdnicks $deltok(%mdnicks,%md-me,32)
  }
  if ($numtok(%mdnicks,32) <= 6) { /mode $active $1 $+ $str($2,$numtok(%mdnicks,32)) %mdnicks | halt }
  if ($numtok(%mdnicks,32) > 6) {
    while ($numtok(%mdnicks,32) >= 1) {
   /mode $active $1 $+ $str($2,6) $gettok(%mdnicks,1,32) $gettok(%mdnicks,2,32) $gettok(%mdnicks,3,32) $gettok(%mdnicks,4,32) $gettok(%mdnicks,5,32) $gettok(%mdnicks,6,32)
      set %mdnicks $deltok(%mdnicks,1-6,32)
    }
  }
halt
}
alias snmodeb {
  set %mdnicks  $replace($snicks,$chr(44),$chr(32))
  if ($istok(%mdnicks,$me,32)) { 
    var %md-me = $findtok(%mdnicks,$me,32)
    set %mdnicks $deltok(%mdnicks,%md-me,32)
  }
  while ($numtok(%mdnicks,32) >= 1) {
    set %mdnicksb %mdnicksb $address($gettok(%mdnicks,1,32),2)
    set %mdnicks $deltok(%mdnicks,1,32)
  }
  if ($numtok(%mdnicksb,32) <= 6) { /mode $active $1 $+ $str($2,$numtok(%mdnicksb,32)) %mdnicksb | halt }
  if ($numtok(%mdnicksb,32) > 6) {
    while ($numtok(%mdnicksb,32) >= 1) {
   /mode $active $1 $+ $str($2,6) $gettok(%mdnicksb,1,32) $gettok(%mdnicksb,2,32) $gettok(%mdnicksb,3,32) $gettok(%mdnicksb,4,32) $gettok(%mdnicksb,5,32) $gettok(%mdnicksb,6,32)
      set %mdnicksb $deltok(%mdnicksb,1-6,32)
    }
  }
  /unset %mdnicksb %mdnicks
  halt
}
alias snmodek {
  var %mdnicks  $replace($snicks,$chr(44),$chr(32))
  if ($istok(%mdnicks,$me,32)) { 
    set %md-me $findtok(%mdnicks,$me,32)
    set %mdnicks $deltok(%mdnicks,%md-me,32)
  }
  while ($numtok(%mdnicks,32) >= 1) {
   /kick $active $gettok(%mdnicks,1,32) %mdnicksk
    set %mdnicks $deltok(%mdnicks,1,32)
  }
  /unset %mdnicks %mdnicksk
  halt
}
;###### The EnD ;)~ #######

Comments

Sign in to comment.
rhasttaff   -  Sep 05, 2008

lol ok i did!!
But i WARN you will be banned | or | disconnected by flood
have a fun!

Jah Bless´´´

 Respond  
jakobLUVSpizza   -  Sep 02, 2008

nice....now add a slap all to it
i would appreciate it if you did

 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.