Basically a menu list I took and made it into one of those random things for your bot.I know its useless...maybe but it will ... might wake up a dead room :D
Trigger is !slines.
Enjoy!
on *:TEXT:!slines:#:{
set %chance $rand(1,41)
if (%chance == 1) { msg # Yeah ... Fuck You <.< }
if (%chance == 2) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #1 14]4-14[4 Oh Shyt Your Just Like Your Father 14] }
if (%chance == 3) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #2 14]4-14[4 Oh Shyt Your Just Like Your MoM 14] }
if (%chance == 4) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #3 14]4-14[4 Is It In There Yet ? 14] }
if (%chance == 5) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #4 14]4-14[4 Damn You Gained Weight 14] }
if (%chance == 6) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #5 14]4-14[4 What The Fuck Is That Smell 14] }
if (%chance == 7) { msg #14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #6 14]4-14[4 Your Brother Is Better 14] }
if (%chance == 8) { msg #14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #7 14]4-14[4 Call Your Wifey Her Sisters Name 14] }
if (%chance == 9) { msg #14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #8 14]4-14[4 Wow Your Lose 14] }
if (%chance == 10) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #9 14]4-14[4 Beat Bitch 14] }
if (%chance == 11) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #10 14]4-14[4 Is That A Herpie? 14] }
if (%chance == 12) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #11 14]4-14[4 What The Fuck Happen To Your Lips 14] }
if (%chance == 13) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #12 14]4-14[4 It Looks Like Your Pussy Was Kicked Then Set On Fire 14] }
if (%chance == 14) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #13 14]4-14[4 Wheres The Remote? 14] }
if (%chance == 15) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #14 14]4-14[4 Honey Can You Stop And Fix The Light 14] }
if (%chance == 16) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #15 14]4-14[4 We Need Cable 14] }
if (%chance == 17) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #16 14]4-14[4 Im Moving Out 14] }
if (%chance == 18) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #17 14]4-14[4 Hmm Is It In Yet? 14] }
if (%chance == 19) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #18 14]4-14[4 I Cant Feel It 14] }
if (%chance == 20) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #19 14]4-14[4 I Gotta Shyt 14] }
if (%chance == 21) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #20 14]4-14[4 Honey You Sure Your Not Gay? 14] }
if (%chance == 22) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #22 14]4-14[4 You Taste Like Spoiled Milk 14] }
if (%chance == 23) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #21 14]4-14[4 I Love You Slut 14] }
if (%chance == 24) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #23 14]4-14[4 Lose Weight Bitch 14] }
if (%chance == 25) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #24 14]4-14[4 Why Are You Barking? 14] }
if (%chance == 26) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #25 14]4-14[4 I Miss The Cable Guy 14] }
if (%chance == 27) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #26 14]4-14[4 I Wish I Had A PlayBoy 14] }
if (%chance == 28) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #27 14]4-14[4 I'v Had Better CyberSex 14] }
if (%chance == 29) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #28 14]4-14[4 You're Disgusting 14] }
if (%chance == 30) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #29 14]4-14[4 Eww What Are Those ? Warts? 14] }
if (%chance == 31) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #30 14]4-14[4 Well That Was A Great 2 Minutes 14] }
if (%chance == 32) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #31 14]4-14[4 Why Cant You Make Me Hard 14] }
if (%chance == 33) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #32 14]4-14[4 Eww It Sags 14] }
if (%chance == 34) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #33 14]4-14[4 Wow Your Nipples Are Huge 14] }
if (%chance == 35) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #34 14]4-14[4 Swallow It Like Your Sister 14] }
if (%chance == 36) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #35 14]4-14[4 I Want To Fuck Your Best Friend 14] }
if (%chance == 37) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #36 14]4-14[4 Bark Bitch Bark 14] }
if (%chance == 38) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #37 14]4-14[4 I Fuckin Hate You 14] }
if (%chance == 39) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #38 14]4-14[4 Whats The Skin Covering Your Penis Head 14] }
if (%chance == 40) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #39 14]4-14[4 When Was The Last Time You Took A Shower 14] }
if (%chance == 41) { msg # 14,1[ 4,1Things Not To Say During Sex14 ]4-14[4 #40 14]4-14[4 KILL YOURSELF 14] }
}
um b0sse i used a diff site for the Reasons It's Great to be a Guy. also i couldn't think of a trigger for it so you can replace @trigger_here with what ever you want.
on $*:text:/^@trigger_here$/iS:#: {
if (!$hget(guy,c)) {
if ($sock(guy)) sockclose guy
sockopen guy www.joke-archives.com 80
sockmark guy msg # Reasons It's Great to be a Guy $+($chr(35),$r(1,100))
}
}
on *:sockopen:guy: {
sockwrite -nt $sockname GET /dating/100reasonsman.html HTTP/1.1
sockwrite -nt $sockname Host: $+($sock(guy).addr,$str($crlf,2))
}
on *:sockread:guy: {
var %guy | sockread %guy
if ($regex(%guy,/<P><LI>(.+)/)) {
hinc -mu5 guy c 1
if ($hget(guy,c) = $gettok($sock(guy).mark,3,35)) {
$gettok($sock(guy).mark,1-,32) -- $regml(1)
sockclose guy
}
}
}
Hey napa182, it would be cool if you used that and implemented this as well:
http://www.fiction.net/tidbits/sex/100_great_guy.html
some funny stuff there ^^
The above snippet is brought to you the courtesy of napa182 Sockets Production Inc. Napa182 is always on the lookout for potential socket orders, along with free 2-day shipping (sometimes it's immediate; same day shipping). If you're not completely satisfied, please send it back. We will refund your code at absolutely no cost to you. lol
yeah prob the best way is a socket
here is a fast mock-up of it as a socket
on $*:text:/^!tnt$/iS:#: {
if (!$hget(tnt,c)) {
if ($sock(tnt)) sockclose tnt
sockopen tnt www.fiction.net 80
sockmark tnt msg # Things Not To Say During Sex $chr(35) $r(1,125) --
}
}
on *:sockopen:tnt: {
sockwrite -nt $sockname GET /tidbits/sex/125_not_to_say.html HTTP/1.1
sockwrite -nt $sockname Host: $+($sock(tnt).addr,$str($crlf,2))
}
on *:sockread:tnt: {
var %tnt | sockread %tnt
if ($regex(%tnt,/<LI>(.+)/)) {
hinc -mu5 tnt c 1
if ($hget(tnt,c) = $gettok($sock(tnt).mark,10,32)) {
$gettok($sock(tnt).mark,1-,32) $regml(1)
sockclose tnt
}
}
}
lol @ I'm out of condoms, can I use a sock?
I've said it before, and I'll say it again. This sort of code will likely be a victim of spam or flood. (There is no flood trigger delay nor control)
One best method to go about this 8-ball type of script is, and in this case, is put all msg # blah blah in a text file, and then use the /play (witch comes a default delay of one second) -cr file.txt to have it output in the channel randomly. The -r swithc makes mIRC select a line at random and the -c switch will make the line of message as a command. Or you can omit the use of -c switch and simply use the /play -r to have them output at random.
Another way is to make a socket script out of a website that has these messages used.
P.S. Sure, you can also use $read(file.txt) to have those messages sent random, but you'd have to implement a flood delay too.