Mass slap script

By Lindrian on Apr 23, 2007

A simple mass slap script, with a delay to prevent spam (If someone would like to use it that way).

Simple usage, paste it into remotes by pressing alt+r and go to any channel window, type /slapall and it'll slap everyone in the room, except yourslelf ofcourse :P

Also added a simple warning, incase you changed ur mind, or if there were tons of people in the channel ;p.

Edit:

Added a lil menu ontop of it, for thoose who love em :P..
It was a lil too small imo to be a snippet =P

menu channel {
  Mass slap!
  .$iif($group(#slap) == on,Slap off,Slap on) : $iif($group(#slap) == on,.disable,.enable) #slap
  .$iif($group(#slap) == off,$style(2) Slap all,Slap all) : slapall
}
#slap on
alias slapall {
  if $($+(%,sent,.,$chan),2) { return }
  beep 2 | var %warn $input(There are $nick($active,0) user(s) in the channel $+ $chr(44) are you sure you wish to continue?,yv,Warning!)
  if (%warn == $yes) {
    var %x = 1, %y = $nick($active,0)
    while (%x <= %y) {
      if (!$istok($me,$nick($active,%x),32)) {
        $+(.timer,.,$chan,.,%x) 1 %x describe # slaps $nick($active,%x) around a bit with a large trout
      }
      inc %x
    }
    set -u10 $+(%,sent,.,$chan) 1
  }
}
#slap end

Comments

Sign in to comment.
apollogod   -  Jul 27, 2014

I took your script and made it use a random slap off a .txt file.

menu channel {
Mass slap!
.$iif($group(#slap) == on,Slap off,Slap on) : $iif($group(#slap) == on,.disable,.enable) #slap
.$iif($group(#slap) == off,$style(2) Slap all,Slap all) : slapall
}

slap on

alias slapall {
if $($+(%,sent,.,$chan),2) { return }
beep 2 | var %warn $input(There are $nick($active,0) user(s) in the channel $+ $chr(44) are you sure you wish to continue?,yv,Warning!)
if (%warn == $yes) {
var %x = 1, %y = $nick($active,0)
while (%x <= %y) {
if (!$istok($me,$nick($active,%x),32)) {
$+(.timer,.,$chan,.,%x) 1 %x describe # slaps $nick($active,%x) around a bit with $read(C:\Users\slap.txt)
}
inc %x
}
set -u10 $+(%,sent,.,$chan) 1
}
}

slap end

 Respond  
Lindrian   -  May 24, 2007
alias slap {
  if ($active ischan) && ($nick($active,0) > 1) {
    get.nicks
    if (%nicks) {
      var %nicks = $remove(%nicks,$me $+ $chr(44))
      .timer -m 1 100 describe # slaps %nicks around with a nachos. 
    }
  }
}

alias get.nicks {
  var %a = 1
  while %a <= $nick($active,0) {
    set %nicks $addtok(%nicks,$nick($chan,%a) $+ $chr(44),32)
    inc %a
    .timer -m 1 1 unset %nicks
  }
}

Does just what U want, Erma.

 Respond  
|MELIORITE|   -  May 23, 2007

ermansanidhya, this is a good question to ask in the Forum in the Snippets section.

 Respond  
ermansanidhya   -  May 23, 2007

would be good if you could slapp all without one by one.This one could make flood.

Or like this one :

  • duduts throw out a garbages to face [S]murf_borneo CheonSa[[[B0B0]] duduts eMuNaThO[A] FrancescoTotti KasihSetia[A] KaTReSNaN[A] kurcacikecilimut supern0va are you still alive?

i just use popups

and this is the popups code :
.Multi slap:/me throw out a garbages to face $nick(#,1) $nick(#,2) $nick(#,3) $nick(#,4) $nick(#,5) $nick(#,6) $nick(#,7) $nick(#,8) $nick(#,9) $nick(#,10) $nick(#,11) $nick(#,12) $nick(#,13) $nick(#,14) $nick(#,15) $nick(#,16) $nick(#,17) are you still alive?

Do anyone could making this code right?, because when i use this one my nick show to.
oke thanks

 Respond  
Lindrian   -  Apr 27, 2007

Ouch, I thought I made it with the %x in there, which was what I wanted to do. However, your correct and its fixed.

 Respond  
xDaeMoN   -  Apr 26, 2007

With your current timer (using a name), each loop, it will overwrite the last timer so it would end up sending just 1 slap.

You can simply remove the name & have mIRC name the timer with a number.

OR still use a name but make it unique for each. ( i.e. $+(timer,$chan,$nick) or $+(timer,$chan,%x) )

 Respond  
Lindrian   -  Apr 26, 2007

Timer added.

 Respond  
xDaeMoN   -  Apr 26, 2007
if (!$istok($me,$nick($active,%x),32))

can simply be changed to

if ($me != $nick($active,%x),32))

(Unless you are going to add an exclude list.)

Also you might want to add a timer so there would be a delay on each slap.

 Respond  
Lindrian   -  Apr 26, 2007

I totally dont get ur code, it looks like a mess.

That will slap ALL users in the channel in 1 slap, which is not what I want to do in mine. Secondly, u need inc %a in yours, or it\'ll spam as f*ck lol.

So its not a matter of making it shorter, infact, mine is sorter then yours, measuring its size when totally stripped into doing what ur does.

 Respond  
F*U*R*B*Y*   -  Apr 26, 2007

can be alot shorter like

alias massslap {
var %a = 1, %nicks
while ($nick(#,%a)) var %a = %a + 1, %nicks = %nicks $iif($v1 == $me,$null,$v1)
describe # slaps %nicks with a mouldy trout
}
 Respond  
Lindrian   -  Apr 26, 2007

Yeah, well, I saw this script posted yesterday, 2 lines of pointless slap revenge, and it got like 5, 6? Crazy...
Imo, u shoudnt be allowed to vote before you got atleast 100/150 posts on the forums.
When you reached that ammount of posts, u prolly know that the ban revenge on 2 lines which can be found in the help file, doesnt deserve more then a rating of 2.

 Respond  
|MELIORITE|   -  Apr 26, 2007

Well... you\'re climbing the rating ladder now... :)

 Respond  
Lindrian   -  Apr 25, 2007

A rating of three, lets see, \"Not usful\".

I should stop posting scripts here, as no one seems to appreciate my work. >_>

(Just pissin\' me off how acually a script which is more then 2 lines get a 3, when a script who is 5 lines and does nothing gets a 5 or sum shit, annoying.)

 Respond  
Lindrian   -  Apr 24, 2007

hehe thanks :)

I made it for a mate quick, so i thought i might aswell release it here.
But as we have a rule against mass flood scripts, i added a 10 second delay, which will prevent the script from being flooded ;)

 Respond  
|MELIORITE|   -  Apr 23, 2007

I like the code. I like the warning and active chan users part. Its a nice job :)

While I don\'t like slaps, a personal thing, I do like your coding.

 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.