FYL script. Type !fyl to see a fyl message.
on *:TEXT:!fyl:#: { var %fyl = $rand(1,10)
if (%fyl == 1) { msg # You were walking down the street and some girl came up to you. You guys were about to kiss when she stole your wallet. Then she ran away and you never saw her again. FYL. }
if (%fyl == 2) { msg # You just got home from school. You saw your dog laying in the middle of the road crying. You tried to come out and save it but a car ran over the dog. Then the car ran over you and you got put in a body cast. FYL. }
if (%fyl == 3) { msg # You were trying to make a school project when it exploded. The blast was so strong half of the school was gone. You had to pay for all the damage you did. And the school was brand new. FYL. }
if (%fyl == 4) { msg # You died. FYL. }
if (%fyl == 5) { msg # You had to read a book and do a report on it. But then your dog ate the book and you got an F. That isn't the bad part, though. Your dog got some kind of disease from eating the book and he died. That was your favorite dog. FYL. }
if (%fyl == 6) { msg # You saw a poster that said I WANT YOU. So then you went closer to the poster... and then you got sucked into the poster and never came back. FYL. }
if (%fyl == 7) { msg # There was a cow. You tried to push it over but the cow fought back. He took a giant crate of milk and poured it onto you. Them you drowned in the milk. F-Y-L. }
if (%fyl == 8) { msg # My life if waaay better than your life. Your life is just... well... FYL. }
if (%fyl == 9) { msg # You got suspended from your school because you set it on fire. But when your mom found out she took the paddle to your @$$. FYL. }
if (%fyl == 10) { msg # $%#@ your life. That's right, I said it. FYL. } }
nice Jethro but you used the fml site why not the fyl site even thoe they don't have a random page it is int a problem to make one.
I made an old version of the fyl back when I made the mlia = My Life Is Average one
yeah it's crappy needs to be updated but eh
on $*:text:/^@fyl$/iS:#: {
if (!$hget(fyl,count)) {
if ($sock(fyl)) sockclose fyl
sockopen fyl www.fyourlyfe.com 80
sockmark fyl msg # $r(1,10)
}
}
on *:sockopen:fyl: {
sockwrite -nt $sockname GET $+(/?page=,$gettok(00 10 20,$r(1,3),32)) HTTP/1.1
sockwrite -nt $sockname Host: $+(www.fyourlyfe.com,$str($crlf,2))
}
on *:sockread:fyl: {
var %fyl | sockread %fyl
if ($regex(%fyl,/<div class="result" id=.+>(.+)<br \/>/)) { hinc -mu3 fyl count 1 | hadd -mu3 fyl say $regml(1) }
if ($hget(fyl,count) = $gettok($sock(fyl).mark,3,32)) { $gettok($sock(fyl).mark,1-2,32) $hget(fyl,say) | sockclose fyl }
}
Ok, I know you want to stick with your current code, but I was bored and encouraged by napa182's socket suggestion. Here is the product of my boredom:
on *:text:$($strip(!fyl)):*: {
if (!%fp) { inc -u5 %fp
sock $+ $iif($sock(fyl),close fyl,$&
open fyl www.fmylife.com 80)
sockmark fyl .msg $iif(#,#,$nick)
}
}
alias -l x {
return $regsubex($gettok($1,1-,32),/(.)/,$&
$replace($upper(\1),I,You,I'm,You're))
}
on *:sockopen:fyl: {
var %f sockwrite -nt fyl | %f GET /random HTTP/1.1
%f Host: www.fmylife.com | %f $crlf
}
on *:sockread:fyl: {
sockread -fn &fylife | if ($regex($bvar(&fylife,1,$&
$bvar(&fylife,0)).text,/class="\w+">(.*?)</a><a href=.*/)) {
$sock(fyl).mark $x($replace($regsubex($regml(1),$&
/<(.|\n)*?>|"|today\54|&/ig,),my,$&
your,themselves,yourself,was,were)) FYL. | sockclose fyl
}
}
As you can see, I've altered FML to literally FYL by borrowing the body of messages. Also, I use binary variables for experimentation purposes. I know I could have used regular variable to do the same. :p> !fyl
You asked your boyfriend what he thinks about long term relationships. FYL. !fyl Your husband is completely convinced that his taking a massive dump after being constipated is exactly like the time I gave birth to our twins. FYL. !fyl You were sitting in a bar next to this gorgeous guy who kept eyeing me up and after about 30 minutes he finally leaned in to whisper something in your ear. FYL. !fyl You drank a good amount of vodka and cut your own hair. FYL.There are lots and lots more messages, and you could have as many of them as you like. =)What napa182 meant is that you can, if there's a fyl site in existence, pull the random messages from it and output them in channel. Then again, the so called fyl website, be that ends with .com or .net or .org are unavailable but advertising pages.
By the way, you can substitute this global var > set %fyl $rand(1,10)with a local one:
var %fyl = $rand(1,10)
this will get itself unset once the var finishes processing its routine. You save yourself a space in variables.