newfml

on *:sockopen:fml-:{
  tokenize 94 $sock(fml-).mark
  if $sockerr { $5 Connection Error has Persisted! | return }
  $1-2 | $1 $3 | $1 $4 | $1
}
on *:sockread:fml-:{
  tokenize 94 $sock(fml-).mark
  if $sockerr { $5 Reading Error has Persisted! | return }
  var %fml | sockread %fml
  if $regex(%fml,/(Today.*?)FML<\/a>/i) {
    $5 $regsubex($regml(1),/<[^>]*>|&quot;/g,) 14[4 $+ FML $+ 14]
    sockclose fml-
  }
}
on *:text:$($iif(!fml = $strip($1),$1)):*:{
  if !%ffml { inc -u3 %ffml | set -u3 %fml- $+(fml,.,$ticks,.)
    if $sock(fml-) { sockclose $v1 }
    sockopen fml- www.fmylife.com 80
    sockmark fml- $+(sockwrite -nt fml-,^,$&
      GET /random HTTP/1.0,^,Host: $sock(fml-).addr,$&
      ^,Connection: close,^,.msg $iif(#,#,$nick)) 14,1[4Fuck My Life14]15
  }
}

alias timerfml {
  if !%ffml { inc -u3 %ffml | set -u3 %fml- $+(fml,.,$ticks,.)
    if $sock(fml-) { sockclose $v1 }
    sockopen fml- www.fmylife.com 80
    sockmark fml- $+(sockwrite -nt fml-,^,$&
      GET /random HTTP/1.0,^,Host: $sock(fml-).addr,$&
      ^,Connection: close,^,.msg $iif(#,#,$nick)) #FML 14,1[4Fuck My Life14]15
  }
}

on *:TEXT:!CFML*:#:{
  if ($2 == $null) {
    if ($($+(%,FMLTimer,$network),2) == on) { msg $Chan FML Timer is already on! If you want to clear the timer and variables type: !CFML Clear | halt }
    if ($($+(%,FMLTimer,$network),2) == $null) { set %FMLTimer $+ $network on | timer $+ $network 0 120 timerfml | msg $Chan 4,1Auto-FML Quotes every0 2 4Minutes0. 4Enjoy them hosted by 0H0LLYWOOD4. | halt }
  }
  if ($2 == Clear) { timers off | unset %FMLTimer $+ $network | msg $Chan All timers and variables are now cleared. Please Type !cfml again to Start Auto-FML | halt }
}

ON *:JOIN:#fml:{ if ($nick == $me) { .timer $+ $network $+ fml 0 120 timerfml } }