Snippet to Slap, Giggle, Poke, Spank, ,Nudge, etc.

By Arch on Nov 11, 2010

Just a Funny Snippet to Slap, Giggle, Poke, Spank, Nudge or etc to people.

Step1: Copy/Paste it into your Remote.ini (Alt+R). Step2: use /slap to use those. for ex: /slap Arch - it will shows randomize.

I`ll be happy if u guys Edit it and post the comments here for another fun things to add into it.

Enjoy..

alias slap {
  var %r $r(1,6)
  if ( %r == 1 ) { describe $chan slaps $1 around a bit with a large trout. }
  if ( %r == 1 ) { describe $chan slaps $1 with a television. }
  if ( %r == 2 ) { describe $chan slaps $1 with room`s door. }
  if ( %r == 3 ) { describe $chan giggles at $1 . }
  if ( %r == 4 ) { describe $chan nudges $1 $+ . }
  if ( %r == 5 ) { describe $chan pokes $1 with a birthday cake. }
  if ( %r == 6 ) { describe $chan spanks $1 . }
  if ( %r == 7 ) { describe $chan burn $1 hard. }
  if ( %r == 8 ) { describe $chan pokes $1 with his leg. }
  if ( %r == 9 ) { describe $chan tickles $1 . }
}

Comments

Sign in to comment.
Jethro   -  Nov 14, 2010

Gummo, I tested it by putting the $regml(1) in the sock mark and it worked for me that way. As for the $1, $2, etc.., from my experience, I never had to use $+ in accordance with the punctuation marks. I however do agree with you about it being the suitable format.

More
 Respond  
Gummo   -  Nov 14, 2010

Jethro_, he can't store it in the original sock mark because it doesn't exist until the sockread. He then executes the sockmark as a partial command, so I don't know where you expect him to use it again.

On another note, whether "$1." is enabled doesn't change a preference to "$1 $+ ." which is a format more often used by a real programming language without a syntax which must be guessed by the compiler.

More
 Respond  
Lucius   -  Nov 14, 2010

goto $r(1,11) :1 | %m $1 around a bit with a large trout. | halt

Thats a good point Jethro_, I think I'll be using that in my RPG script to refine the speed and cpu usage. Does anyone have any figures for the relative usages of the methods?

More
 Respond  
Jethro   -  Nov 13, 2010

Napa, you can store the $regml(1) in the sock().mark property for later reference with the regex:

sockmark slap describe $active slaps $1 around a bit with a $regml(1)
More
 Respond  
Jethro   -  Nov 13, 2010

cupcake, try using the goto command. It saves you the if conditions.

alias slap {
  var %m describe #
  goto $r(1,11)
  :1 | %m $1 around a bit with a large trout. | halt
  :2 | %m slaps $1 with a television. | halt
  :3 | %m slaps $1 with room`s door. | halt
  :4 | %m giggles at $1. | halt
  :5 | %m nudges $1. | halt
  :6 | %m pokes $1 with a birthday cake. | halt
  :7 | %m spanks $1. | halt
  :8 | %m burns $1 hard. | halt
  :9 | %m pokes $1 with his leg. | halt
  :10 | %m tickles $1. | halt
  :11 | %m beats $1 senseless with a wet noodle. | halt
}

And you don't need to use $+ when it comes to placing punctuation marks after the $1 or $2 etc...

More
 Respond  
napa182   -  Nov 13, 2010

cupcake please enclose ur code using the code tags. it makes it ez on the eyes ;x Ex:

code here

More
 Respond  
cupcake   -  Nov 13, 2010

alias slap { var %r $r(1,11) 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 room`s door. } if ( %r == 4 ) { describe $chan giggles at $1 . } if ( %r == 5 ) { describe $chan nudges $1 $+ . } if ( %r == 6 ) { describe $chan pokes $1 with a birthday cake. } if ( %r == 7 ) { describe $chan spanks $1 . } if ( %r == 8 ) { describe $chan burns $1 hard. } if ( %r == 9 ) { describe $chan pokes $1 with his leg. } if ( %r == 10 ) { describe $chan tickles $1 . } if ( %r == 11 ) { describe $chan beats $1 senseless with a wet noodle. } } Just thought that was cute added it, asked for suggestions. Yes, my sense of humor sucks. LOL

More
 Respond  
napa182   -  Nov 13, 2010

heres always a fun way ;x

alias slap {
  if ($1) { 
    if ($sock(slap)) sockclose slap
    sockopen slap www.seventhsanctum.com 80
    sockmark slap describe $active slaps $1 around a bit with a
  }
  else { echo 07 -a Please enter a nick }
}
on *:sockopen:slap: {
  sockwrite -n slap GET /generate.php?Genname=jokegadget HTTP/1.1
  sockwrite -n slap Host: $+($sock(slap).addr,$str($crlf,2))
}
on *:sockread:slap: {
  var %slap | sockread %slap
  if ($regex(%slap,/\t{3}(.+)<BR>/)) { 
    $sock(slap).mark $regml(1) 
    sockclose slap
  }
}
More
 Respond  
cupcake   -  Nov 13, 2010

alias slap { var %r $r(1,10) 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 room`s door. } if ( %r == 4 ) { describe $chan giggles at $1 . } if ( %r == 5 ) { describe $chan nudges $1 $+ . } if ( %r == 6 ) { describe $chan pokes $1 with a birthday cake. } if ( %r == 7 ) { describe $chan spanks $1 . } if ( %r == 8 ) { describe $chan burns $1 hard. } if ( %r == 9 ) { describe $chan pokes $1 with his leg. } if ( %r == 10 ) { describe $chan tickles $1 . } } there it's fixed, always change the variable var %r $r(1,10) you added tickles

More
 Respond  
Jethro   -  Nov 13, 2010

napa, I finally test it with 4 if conditions plus %r == , and they all burst out in one shot. lol

More
 Respond  
napa182   -  Nov 13, 2010

Jethro_ Said:

All right, I should have tested it before my comment. I took napa's word for it.

when I tested it, it only said one of the number 6 ones not all of them so idk...

btw Arch you now have 2 number 1's in the snippet

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

More
 Respond  
Arch   -  Nov 13, 2010

Thanks for fix it ¨cupcake¨ yeap i just find it yesterday and forgot to fix that numbers ;-)

More
 Respond  
cupcake   -  Nov 13, 2010

Yes, saw a lot of 8 balls and similar scripts using the 8 ball format. Have to say it's popular snippet.

More
 Respond  
Jethro   -  Nov 13, 2010

The reason I mention "8 ball" is that this sort of script is largely based off of that or similar to a basic 8-ball snippet. I've seen far too many of them in the past, and snippet as such won't be the last to die nor the first to be submitted over and over again. You just keep your eyes peeled for it.

More
 Respond  
cupcake   -  Nov 13, 2010

Works in my bot tested, before i made a comment. Hey, Jethro no one hasn't made a pin the tail on the Ass (donkey) snippet from 8 ball. LoL

More
 Respond  
WorldDMT   -  Nov 13, 2010

I always get errors on $1. WorldDMT, are you sure it works? In most cases I use $+ like he has

try this

alias test {
  echo -a test result: $1. ; $1, ; $1? ; $1!
}

use /test x

about random words put that words in a file and use $read(file)

More
 Respond  
cupcake   -  Nov 13, 2010

Was using Arch's format he had, just made it to be able to hit all commands.

More
 Respond  
Jethro   -  Nov 13, 2010

All right, I should have tested it before my comment. I took napa's word for it. (Though that's the first time I've ever seen an 8 ball variation coded that way) I see all for of %r = 6 will be triggered at the same time, not just the first one. Still, though, that's not a wise approach, and it simulates spamming. I wouldn't go that route if I were the author of this snippet.

Gummo, I recall you saying that before. Deja vu :P

More
 Respond  
cupcake   -  Nov 13, 2010

Tested the snippet, never make a comment without testing first. alias slap { var %r $r(1,9) 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 room`s door. } if ( %r == 4 ) { describe $chan giggles at $1 . } if ( %r == 5 ) { describe $chan nudges $1 . } if ( %r == 6 ) { describe $chan pokes $1 with a birthday cake. } if ( %r == 7 ) { describe $chan spanks $1 . } if ( %r == 8 ) { describe $chan burn $1 hard. } if ( %r == 9 ) { describe $chan pokes $1 with his leg. } } not a good scriptor admit that, still this is how i would do the snippet...you're snippet it's cute.

More
 Respond  
Gummo   -  Nov 13, 2010

The general hate for the goto command stems from the "goto is now bad programming" once structured programming techniques were developed, even though goto often makes faster, more logical code.

More
 Respond  
_Teen_   -  Nov 13, 2010

The rest will be ignored by the code routine

all them will be sent to channel... i tested it

More
 Respond  
jaytea   -  Nov 13, 2010

on the contrary, all 4 of those if statements will be satisfied; if %r = 6 then he will send all 4 actions (unless there's a custom /describe alias involved which performs a /halt after sending the action). it seems undesirable, but doesn't appear to bother him - if, in fact, he's tested it thoroughly enough to notice this :P

More
 Respond  
Jethro   -  Nov 12, 2010

Arch, even though you've said it "works" for you, and it does work for the most part, there's no denying the fact that only ONE out of your 4 %r == 6 will get triggered. (The first one, that is) The rest will be ignored by the code routine. As napa's mentioned before you, I'm surprised you still acknowledge your snippet as "workable."

More
 Respond  
Jethro   -  Nov 12, 2010

Yes, I like the goto command for the randomization aspect of such snippet, but some folks find it unfavorable...for which reason I have yet to figure out why.

More
 Respond  
jaytea   -  Nov 12, 2010

just something to consider: when you embed data in a function like that, mIRC has to go through the trouble of interpreting the whole series of selections even though you only end up choosing just one. while this is merely a low-level consideration in this case (few choices that only inclue simple identifiers such as $1), you can probably see how it can become more significant as your set of data increases and starts to include more complex code. a solution to this might be to store data elsewhere in the client, or even use the /goto approach one typically sees to replicate switch/case in mIRC:

  goto $r(1, 6)
  :1
  describe # slaps $$1 around a bit with a large trout
  return
  :2
  describe # slaps $1 with a television
  return
  :3
  etc.

also, when wrestling with the question of which character to use as delimiter to separate a list of items, try to first consider those that can never appear as part of a msg on IRC (if applicable), such as $cr or $lf. that, or try to re-work the code in question so it need not use such a list:

  var %1 = slaps $$1 around a bit with a large trout, $&
      %2 = slaps $1 with a television, $&
      %3 = etc.
      ...
      describe # $eval(% $+ $r(1, 6), 2)
More
 Respond  
napa182   -  Nov 12, 2010
alias slap {
  var %r slaps $$1 around a bit with a large trout.slaps $$1 with a television.$&
    slaps $$1 with room`s door.giggle $$1.nudges $1.pokes $$1 with a birthday cake.$&
    spanks $$1.burn $$1 hard.pokes $$1 with his leg.
  describe # $+($gettok(%r,$r(1,$numtok(%r,46)),46),.)
}
More
 Respond  
Arch   -  Nov 12, 2010

Yeaap, Minimum it works for me, Just try that and report it here. Tq

More
 Respond  
Aucun50   -  Nov 12, 2010

I always get errors on $1. WorldDMT, are you sure it works? In most cases I use $+ like he has.

More
 Respond  
WorldDMT   -  Nov 12, 2010

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

u dont need "$+" u can just do $1. without "$+"

More
 Respond  
Jethro   -  Nov 12, 2010

Oh Yeah, you spot the possibility. That was just an example for a workaround. How about using some uncommon characters, such as $chr(172) as a delimiter? That will do it.

More
 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.