Random Slap

Platform: mIRC

Published Sep 24, 2009

Updated Sep 24, 2009

1,768 6

This is a random slap script that I made, when you type /slap (nick) it slaps the nick with random stuff. :D
Command: /slap nick

Post your suggestions and comments.

alias slap {

  var %r $r(1,6)

  if ( %r == 1 ) { describe $chan slaps $1 around a bit with a large trout. }

  if ( %r == 2 ) { describe $chan slaps $1 with a television. }

  if ( %r == 3 ) { describe $chan slaps $1 with a fish. }

  if ( %r == 4 ) { describe $chan slaps $1 with a pair of sunglasses. }

  if ( %r == 5 ) { describe $chan bitch slaps $1 $+ . }

  if ( %r == 6 ) { describe $chan slaps $1 with a birthday cake. }

}

Comments

VinX - Sep 25, 2009

NNS has already got a lot of good slaps ... lol

Respond

Jethro - Sep 24, 2009

You can even shorten the script further by placing those slap messages, including the $1 identifier line by line vertically, in a txt file called, say, 'slap.txt' and then play them to the targeted person on the channel.

		Code 			
alias slap { describe # $read(slap.txt) }	

This way a random line from slap.txt will be played upon the trigger of slap alias. Of course, more messages can be added in the future.

Respond

LeonardoL - Sep 24, 2009

Shorten the script.

Respond

Jethro - Sep 24, 2009

Only one /describe command is needed to randomize the %randmsg

		Code 			
alias slap {
  var %randmsg = slaps $1 around a bit with a large trout.:slaps $1 with a fish.:slaps $1 with a pair of sunglasses.:bitch slaps $1 $+ .:slaps $1 with a birthday cake.
  describe $chan $gettok(%randmsg,$rand(1,$numtok(%randmsg,58)),58)
}	

Respond

Testor - Sep 24, 2009

Changing

		Code 			
  set %randmsg $rand(1,6) ——   unset %randmsg	

		Code 			
 Var %RandMSG $Rand(1,6) 	

Will eliminate a line of the code that'll be un-needed :o.

Respond

gooshie - Sep 24, 2009

No need for a global set variable here.
Use a local variable to avoid harddrive writes and reads.
ANYWHERE $chan works the short form # will work.
The main reason $chan exist is for doing more elaborate
things like $chan(0) $chan(#).topic etc etc
$r(1,6) is short for $rand(1,6)
This should be in a nicklist popup because of $1

		Code 			
menu nicklist {
  Random Slap $$1:slap $1
}
alias slap {
    var %r $r(1,6)
    if %r == 1 { describe # slaps $1 around a bit with a large trout. }
    if %r == 2 { describe # slaps $1 with a television. }
    if %r == 3 { describe # slaps $1 with a fish. }
    if %r == 4 { describe # slaps $1 with a pair of sunglasses. }
    if %r == 5 { describe # bitch slaps $1 $+ . }
    if %r == 6 { describe # slaps $1 with a birthday cake. }
}	

Respond