mass modes and kick

By sicks on Jun 20, 2004

i realized you can make seven mode changes in one command and four kicks in one command on DALnet so i made this group of aliases
just paste it into an alias file or make a new one
for a mass kick /mk
mass op /m o
mass voice /m v
mass deop /md o
mass devoice /md v
ENJOY!

;mass and related shit
listnicks {
  set %totalnicks $nick($chan,0)
  if ($nick($chan,%totalnicks) != $me) { set %nicklist $nick($chan,%totalnicks) $+ $chr(44) | dec %totalnicks | goto nicking }
  elseif ($nick($chan,%totalnicks) == $me) { dec %totalnicks | set %nicklist $nick($chan,%totalnicks) $+ $chr(44) | dec %totalnicks | goto nicking }
  :nicking
  if ($nick($chan,%totalnicks) != $me) && (%totalnicks > 1) { set %nicklist %nicklist $+ $nick($chan,%totalnicks) $+ $chr(44) }
  elseif ($nick($chan,%totalnicks) != $me) && (%totalnicks == 1) { set %nicklist %nicklist $+ $nick($chan,%totalnicks) }
  dec %totalnicks
  while (%totalnicks > 0) { goto nicking }
  unset %totalnicks 
  ;echo 12 -a Nicklist is SET! %nicklist
}
mk {
  unset %nicklist
  listnicks
  set %kickloops $ceil($calc($calc($count(%nicklist,$chr(44))+1)/4))
  :kickloop
  set %kicknicks $gettok(%nicklist,1,44) $+ $chr(44) $+ $gettok(%nicklist,2,44) $+ $chr(44) $+ $gettok(%nicklist,3,44) $+ $chr(44) $+ $gettok(%nicklist,4,44)
  kick $chan %kicknicks massive
  dec %kickloops
  set %nicklist $remove(%nicklist,%kicknicks)
  while (%kickloops > 0) { goto kickloop }
  unset %nicklist %kickloops %kicknicks
}

m {
  if ($1 == $null) { echo 12 -a Improper usage of /m SPECIFY o or v }
  unset %nicklist
  listnicks
  set %optimes $ceil($calc($nick($chan,0)/6))
  set %onicklist $replace(%nicklist,$chr(44),$chr(32))
  .timerM 1 2 { if ($1 == o) { mo } | elseif ($1 == v) { mv } }
}
mo { 
  :oploop
  set %opnicks $gettok(%onicklist,1,32) $gettok(%onicklist,2,32) $gettok(%onicklist,3,32) $gettok(%onicklist,4,32) $gettok(%onicklist,5,32) $gettok(%onicklist,6,32)
  mode $chan +oooooo %opnicks
  dec %optimes
  set %onicklist $remove(%onicklist,%opnicks)
  while (%optimes > 0) { goto oploop }
  unset %nicklist %optimes %opnicks %onicklist
}
mv { 
  :oploop
  set %opnicks $gettok(%onicklist,1,32) $gettok(%onicklist,2,32) $gettok(%onicklist,3,32) $gettok(%onicklist,4,32) $gettok(%onicklist,5,32) $gettok(%onicklist,6,32)
  mode $chan +vvvvvv %opnicks
  dec %optimes
  set %onicklist $remove(%onicklist,%opnicks)
  while (%optimes > 0) { goto oploop }
  unset %nicklist %optimes %opnicks %onicklist
}
md {
  if ($1 == $null) { echo 12 -a Improper usage of /md SPECIFY o or v }
  unset %nicklist
  listnicks
  set %deoptimes $ceil($calc($nick($chan,0)/6))
  set %dnicklist $replace(%nicklist,$chr(44),$chr(32))
  .timerMD 1 2 { if ($1 == o) { mdo } | elseif ($1 == v) { mdv } }
}

mdo { 
  :doploop
  set %dopnicks $gettok(%dnicklist,1,32) $gettok(%dnicklist,2,32) $gettok(%dnicklist,3,32) $gettok(%dnicklist,4,32) $gettok(%dnicklist,5,32) $gettok(%dnicklist,6,32)
  mode $chan -oooooo %dopnicks
  dec %deoptimes
  set %dnicklist $remove(%dnicklist,%dopnicks)
  while (%deoptimes > 0) { goto doploop }
  unset %nicklist %deoptimes %dopnicks %dnicklist
}

mdv { 
  :doploop
  set %dopnicks $gettok(%dnicklist,1,32) $gettok(%dnicklist,2,32) $gettok(%dnicklist,3,32) $gettok(%dnicklist,4,32) $gettok(%dnicklist,5,32) $gettok(%dnicklist,6,32)
  mode $chan -vvvvvv %dopnicks
  dec %deoptimes
  set %dnicklist $remove(%dnicklist,%dopnicks)
  while (%deoptimes > 0) { goto doploop }
  unset %nicklist %deoptimes %dopnicks %dnicklist
}
SICKS mk | ban $chan *!*@* | mk | mode $chan +sick s

Comments

Sign in to comment.
sicks   -  Jun 24, 2004

my listnicks alias was a good idea it can be used for a lot of things but i doubt any of this is the most efficient scripting and it almost makes me upset it sounds like X-FILE is saying it is a rip

 Respond  
sicks   -  Jun 24, 2004

X-FILE i dont know what you are saying but this is original i have been using mirc for years and played around with scripting and this is the first way i was able to understand making mass modes i have shown it to ppl on dalnet and another poster on hawkee snippets

 Respond  
X-FILE   -  Jun 23, 2004

i have seen this in mIRC.com msg board..

 Respond  
sicks   -  Jun 20, 2004

i just saw $modespl in another snippet i might refine this and repost but its still cool for dalnet

 Respond  
sicks   -  Jun 20, 2004

i meant six mode changes in one line /command

 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.