apollogod

apollogod

Joined
Jul 27, 2014

Activity Stream

apollogod commented on a Page, Mass slap script  -  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  
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.