Random Slap Script

By Rath on Dec 22, 2007

Just paste this script into your remotes section (alt +r). To activate it, right click someone's name and click On Slap RAND!

Credits: Mrjos for the script - Me for the insults

Big thanks to Mrjos

menu nicklist { 
Slap RAND!:describe $chan slaps $$1 with $read(slaps.txt)
$iif(!$exists(slaps.txt),Install Slap RAND!):window @slaps.install | loadbuf $calc($lines($qt($script)) - 5) @slaps.install $qt($script) | savebuf $+(1-,$calc($line(@slaps.install, 0) - 1)) @slaps.install slaps.txt 
}
/*
Windows 95
a KFC mega bucket
a Jew
a penis
a shoe
an asian prostitue
aids
a dildo
Simpsons creator Matt Groening
meatspin.com
gay porn
coca-cola
1GB of RAM
an ethiopian
a cock
boobs
himself
his portable DVD player
an ACER T180 MODEL Computer
jesus
sex
a ban stick
a Smorgasbord
Tarantism
A Case of the Mondays
a Barracuda
a space monkey
his Random Slap Script
a mexican midget
the Mexican border
a rubber chicken
teh ban hammah
Bill Gates
microsoft
HIV
STD'S
Butt sex
Anal
king leonidas
a Jewish rabbi. Double prawned.
teh Jew claw
Feudalism
the modern world
slaps.txt
a black penis
a he/she
-h
+q
teh 1930's
a trojan
a trojan condom
teh virus
teh internetz
johnny quest
gay love
hearts
the queen of England
crumpets
biscuits
tea
/*

Like Page Follow Author

Comments

samuehoffman2@gmail.com - May 20, 2009

I'm getting $me slaps nick around with n=75 buscuits....

Respond

Lord-Harlot - May 20, 2009

on *:load:{
if (!$exists(slaps.txt) {
var %x = 1
while (%x <= $numtok(item1|item2|item3|andsoon,124)) {
write slaps.txt $gettok(item1|item2|item3|andson,%x,124)
inc %x
}
}
Something like that could work to do the txt file

Respond

Rath - Dec 22, 2007

well I went with mrjos way, found it more complex. :P

Respond

napa182 - Dec 22, 2007

just do

on *:load:{
    write slaps.txt Windows 95
    write slaps.txt a KFC mega bucket
}

and so on to auto load the txt file

Respond

mrjos - Dec 22, 2007

Well I tested it before I posted... it seemed ok. Although it makes a huge assumption that the user makes a new script file... and that there\'s 5 lines (loadbuf) before the first word.

Welcome to use it though. May want to add a \"| window -c @slaps.install\" onto it though I guess.

Respond

Rath - Dec 22, 2007

If you would test that out for me, i\'ll be glad to put it up there and give you full 100% credit.

Respond

mrjos - Dec 22, 2007

I was thinking something like (lazy solution):


menu nicklist { 
  Slap RAND!:describe $chan slaps $$1 with $read(slaps.txt)
  $iif(!$exists(slaps.txt),Install Slap RAND!):window @slaps.install | loadbuf $calc($lines($qt($script)) - 5) @slaps.install $qt($script) | savebuf $+(1-,$calc($line(@slaps.install, 0) - 1)) @slaps.install slaps.txt 
}
/*
word 1
word 2
word 3
*/

Respond

Rath - Dec 22, 2007

Well I tried to make it install the text file but it failed. I made the directions easier to understand though.

Respond

mrjos - Dec 22, 2007

:) I\'ll look forward to seeing a new version then. Good luck.

Respond

Rath - Dec 22, 2007

No it\'s not. Remember i leeched it, I\'m going to have to edit it, your idea is good, i\'ll see what i can do.

Respond

mrjos - Dec 22, 2007

\"a trojan condom\"

I must admit... that I do like that brand name.

Anyway, just a suggestion / request ?

Perhaps make a install alias that creates the text file? Then have an alias to add user-selected words to it. May make it easier for people to use (if they can\'t be bothered with your instruction). :)

Also seeing as you have a slap count (%slapc) is it worth including that on the message?

Respond