TFLN and IFAP Socket

[morbid]

Text from last night

Code: [Select]

on *:input:*:if ($regex($1-,/^\+tfln?\s?(\d+)?$/iS)) $iif($regml(1),$tfln(#,$v1),$tfln(#))
on $*:text:/^~tfln?\s?(\d+)?$/iS:#:$iif($regml(1),$tfln(#,$v1),$tfln(#))
alias -l tfln {
  if (!%f) { inc -u4  %f
    if ($sock(tf)) sockclose tf
    sockopen tf www.textsfromlastnight.com 80
    sockmark tf msg $1 14,1?0,1Text From Last Night14,1?15,1
  }
}
on *:sockopen:tf: {
  sockwrite -n tf GET /Random-Texts-From-Last-Night.html?t= HTTP/1.1
  sockwrite -n tf Host: $+($sock(tf).addr,$str($crlf,2))
}
on *:sockread:tf: {
  var %tf | sockread %tf
  if ($regex(%tf,/<textarea.+>(.+)http:\/\/tfl.+<\/text.+>/)) {
    $sock(tf).mark $regml(1)
    sockclose tf
  }
}

and
I fail at pickup's

Code: [Select]

on *:input:*:if ($regex($1-,/^\+ifap?\s?(\d+)?$/iS)) $iif($regml(1),$ifap(#,$v1),$ifap(#))
on $*:text:/^~ifap$/iS:#:$ifap(#)
alias -l ifap {
  if ($sock(ifap)) sockclose ifap
  sockopen ifap www.ifailatpickups.com 80
  sockmark ifap msg $active 14,1?0,1I Fail at Pickup's14,1?
}
on *:sockopen:ifap: {
  sockwrite -nt $sockname GET /random HTTP/1.1
  sockwrite -nt $sockname Host: $+(www.ifailatpickups.com,$str($crlf,2))
}
on *:sockread:ifap: {
  var %ifap | sockread %ifap
  if ($regex(%ifap,/\t<a href=".+">(.+IFAP)<\/a>/)) { $sock(ifap).mark $replace($regml(1),",",&,&) | sockclose ifap }
}
on *:text:~quote*:*:{
  msg $active 12,1---> 0,1Epim?theus Quote2,1:0,1 $read $mircdir\text\Quote.txt
}
on *:text:~wj*:*:{
  msg $active 12,1---> 0,1Epim?theus Quote2,1:0,1 $read $mircdir\text\wj.txt
}

Again as stated before to do the trigger for you it's + for someone else to trigger it the command is ~

:|: 10:54 :|: |@ morbid |  +tfln
:|: 10:54 :|: |@ morbid | ?Text From Last Night? (313): It wouldn't matter if you are Jesus Christ himself, you are not getting into the bar tonight
:|: 10:54 :|: |@ morbid |  +ifap
:|: 10:54 :|: |@ morbid | ?I Fail at Pickup's? so i was going round the clubs, pubs and on the internet, one girl turned out to be a lesbo even so she smiled when i told her how lucky she would to get with a pervert like me.Tried it again,this one turned out to a bloke come from a party.The last one was a cousin i didn't know about.IFAP
[/qupte]

[King_Hual]

2nd site is win :lol:

[Jane]

Nice Script you got there.