Anonymous

on *:TEXT:*!congrats*:#: {
  msg $chan Congratz $2 !!!!
  msg $chan Here ya go...Have a phat for no reason!!!!
  msg $chan |\/\/\/|
  msg $chan |____|
} 
on *:TEXT:*!Bday*:#: {
  msg $chan HAPPY B-DAY $2 !!!!
  msg $chan HOPE YOU HAVE A GREAT B-DAY!!!!!
  msg $chan Here ya go...Have a phat! =P
  msg $chan |\/\/\/|
  msg $chan |____|
} 
ON $*:TEXT:/^[!@](whois|chans)/Si:#:{ 
  set %chan2whois $chan
  whois $2
}
raw 319:*:{
  if (%chan2whois) {
    msg %chan2whois $2 Is On: $remove($3-,$chr(37),@,+)
    unset %chan2whois
  }
} 
on *:TEXT:!warn*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    msg $chan $nick has been warned.
    .inc $+(%,warn.ban.,$nick)
    if $($+(%,warn.ban.,$nick),2) == 3 {
      msg $chan *** $nick has been warned 3 out of 3 times!
      .timer 1 5 .ban -ku600 $chan $nick Banned for warnings. - 10 minute ban -
      unset $+(%,warn.ban.,$nick)
    }
  }
} 
on *:text:*!Support*:#:{
  if ($readini(ips.ini,support,$address($nick,2))) { notice $nick Sorry, but you are already my supporter } 
  else {
    inc %Supportlist
    writeini ips.ini support $address($nick,2) true
    notice $nick Jyou are now a Supporter of Namehere in a road to goalhere.
    notice $nick Namehere has  now got %Supportlist Supporters.
  }
}
on $*:TEXT:/^[!@]fans/Si:#:{
  msg $chan $nick has got now %Supportlist Supporters For on his road to goalhere.
}
on $*:TEXT:/^[!@.](global|amsg)/Si:#:{
  if ($address($nick,2) == $address($me,2)) {
    var %x = 1
    while (%x <= $chan(0)) {
      if (*c* iswm $chan(%x).mode) { msg $chan(%x) [AMSG from $nick $+ ] $strip($2-) }
      else { msg $chan(%x) [AMSG from $nick $+ ] $2- }
      inc %x
    }
  }
  else { notice $nick Access Denied }
}
on $*:text:/^[!@](stats|rsstats)/Si:#: {
  set %sway $iif($left($1,1) == @,msg $chan,notice $nick)
  if ($sock(stats)) %sway Please hold, bot is busy
  elseif ($2 == $null) %sway You must supply a user, Syntax: !stats runescapename
  else {
    set %statuser $2
    sockopen stats o-ss.net 80
  }
}
on *:sockopen:stats: {
  sockwrite -nt $sockname GET /parsers/oneline/stats.php?user= $+ %statuser HTTP/1.1
  sockwrite -nt $sockname Host: o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:sockread:stats: {
  var %stattext
  sockread %stattext
  tokenize 32 %stattext
  if (*compare* iswm %stattext) {
    %sway $+ %statuser was not featured in the highscores for any skill | { halt }
  }
  elseif (*end* iswm %stattext) {   
    %sway Stats for %statuser $+ :
    %sway $replace(%stattext,|,|,END,|,Overall,Overall,Attack,Attack,Defence,Defence,Strength,Strength,Hitpoints,Hitpoints,Ranged,Ranged,Prayer,Prayer,Magic,Magic,Cooking,Cooking,Woodcutting,Woodcutting,Fletching,Fletching,Fishing,Fishing,Firemaking,Firemaking,Crafting,Crafting,Smithing,Smithing,Mining,Mining,Herblore,Herblore,Agility,Agility,Thieving,Thieving,Slayer,Slayer,Farming,Farming,Runecraft,Runecraft,Hunter,Hunter,Construction,Construction)   
    unset %sway
    unset %stattext
    sockclose stats
  }
}
ON *:TEXT:!status:#:{
  var %i 1,%t $chan(0),%opchan 0,%hopchan 0,%vchan 0,%rchan 0
  while (%i <= %t) {
    if ($me isop $chan(%i)) inc %opchan
    elseif ($me ishop $chan(%i)) inc %hopchan
    elseif ($me isvoice $chan(%i)) inc %vchan
    else inc %rchan
    inc %i
  }
  msg $chan I Am, Op In: %opchan Chans, Halfop In: %hopchan Chans, Voiced In: %vchan Chans And Reg In: %rchan Chans. I Am In A Total Of $calc(%opchan + %vchan + %hopchan + %rchan) Channels
} 
On *:text:!ucount*:#:{
  Notice $nick <@ $+ $nick($chan,0,o) $+ > + <% $+ $nick($chan,0,h) $+ > + <+ $+ $nick($chan,0,v) $+ > < $+ $nick($chan,0,r)  $+ > = $nick($chan,0) Users
}

On *:text:@ucount*:#:{
  if ($nick ishop $chan) || ($nick isop $chan) {
    Notice $chan <@ $+ $nick($chan,0,o) $+ > + <% $+ $nick($chan,0,h) $+ > + <+ $+ $nick($chan,0,v) $+ >  < $+ $nick($chan,0,r) $+ > = $nick($chan,0) Users
  }
} 
on *:text:!favletter*:#:{
  msg $chan $rand(a,z) $+ .
}
on $*:Text:/^[.!@]except/Si:#:{
  if ($nick isop $chan || $nick ishop $chan ) {
    .mode $chan +e $2
  }
}

on $*:Text:/^[.!@]deexcept/Si:#:{
  if ($nick isop $chan || $nick ishop $chan) {
    .mode $chan -e $2
  }
}
on $*:TEXT:/^[!@]time/Si:#:{ $iif(@* iswm $strip($1),msg $chan,notice $nick) Melbourne - $asctime($calc( $gmt + ( +10 * 3600)), dddd dd mmmm yyyy HH:nn:ss)
  $iif(@* iswm $strip($1),msg $chan,notice $nick) London - $asctime(dddd dd mmmm yyyy HH:nn:ss)
  $iif(@* iswm $strip($1),msg $chan,notice $nick) Amsterdam - $asctime($calc( $gmt + ( +1 * 3600)), dddd dd mmmm yyyy HH:nn:ss)
$iif(@* iswm $strip($1),msg $chan,notice $nick) New York - $asctime($calc( $gmt + ( -5 * 3600)), dddd dd mmmm yyyy HH:nn:ss) }
on $*:text:/^[!@]search/Si:#: {
  inc %x
  sockopen $+(google.,%x) www.google.com 80
  sockmark $+(google.,%x) $+($iif($left($1,1) == @,msg $chan,.notice $nick),¦,$iif($2 isnum 1-3,$replace($3-,$chr(32),+),$replace($2-,$chr(32),+)),¦,$iif($2 isnum 1-3,$2,1),¦)
  if ($2 == $null) {
    $gettok($sock($+(google.,%x)).mark,1,166) Specify a query to search !google <query>
    sockclose $+(google.,%x)
    halt
  }
}
on *:sockopen:google.*: {
  .remove testin
  sockwrite -nt $sockname GET $+(/search?hl=en&q=,$gettok($sock($sockname).mark,2,166)) HTTP/1.0
  sockwrite -nt $sockname Host: www.google.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:google.*: {
  if ($sockerr) halt
  else {
    while ($sock($sockname).rq) {
      sockread &sockreader
      bwrite testin -1 -1 &sockreader
    }
    bread testin 0 $file(testin).size &goog
    if ($bfind(&goog,1,</html>)) {
      if ($bfind(&goog,1,did not match any documents)) {
        $gettok($sock($sockname).mark,1,166) No results found for $replace($gettok($sock($sockname).mark,2,166),+,$chr(32))
      }
      else {
        if ($gettok($sock($sockname).mark,3,166) == 1) {
          var %link = $bvar(&goog,$calc($bfind(&goog,1,<h2 class=r><a href=") +21),$calc($bfind(&goog,1," class=l>) - $calc($bfind(&goog,1,<h2 class=r><a href=") +21))).text
          var %title = $htmlfree($bvar(&goog,$calc($bfind(&goog,1,class=l>) + 8),$calc($bfind(&goog,1,</a></h2>) - $calc($bfind(&goog,1,class=l>) + 8))).text)
          $gettok($sock($sockname).mark,1,166) 1st result for $replace($gettok($sock($sockname).mark,2,166),+,$chr(32)) is %title found at %link
        }
        elseif ($gettok($sock($sockname).mark,3,166) == 2) {
          var %link = $bvar(&goog,$calc($bfind(&goog,1,<h2 class=r><a href=") +21),$calc($bfind(&goog,1," class=l>) - $calc($bfind(&goog,1,<h2 class=r><a href=") +21))).text
          var %link2 = $bvar(&goog,$calc($bfind(&goog,$bfind(&goog,1," class=l>),<h2 class=r><a href=") +21),$calc($bfind(&goog,$calc($bfind(&goog,1," class=l>) +1)," class=l>) - $calc($bfind(&goog,$bfind(&goog,1," class=l>),<h2 class=r><a href=") +21))).text
          var %title = $htmlfree($bvar(&goog,$calc($bfind(&goog,1,class=l>) + 8),$calc($bfind(&goog,1,</a></h2>) - $calc($bfind(&goog,1,class=l>) + 8))).text)
          var %title2 = $htmlfree($bvar(&goog,$calc($bfind(&goog,$bfind(&goog,1,</a></h2>),class=l>) + 8),$calc($bfind(&goog,$calc($bfind(&goog,1,</a></h2>) +1),</a></h2>) - $calc($bfind(&goog,$bfind(&goog,1,</a></h2>),class=l>) + 8))).text)

          $gettok($sock($sockname).mark,1,166) 1st result for $replace($gettok($sock($sockname).mark,2,166),+,$chr(32)) is %title found at %link
          $gettok($sock($sockname).mark,1,166) 2nd result for $replace($gettok($sock($sockname).mark,2,166),+,$chr(32)) is %title2 found at %link2
        }
        elseif ($gettok($sock($sockname).mark,3,166) == 3) {
          var %link = $bvar(&goog,$calc($bfind(&goog,1,<h2 class=r><a href=") +21),$calc($bfind(&goog,1," class=l>) - $calc($bfind(&goog,1,<h2 class=r><a href=") +21))).text
          var %link2 = $bvar(&goog,$calc($bfind(&goog,$bfind(&goog,1," class=l>),<h2 class=r><a href=") +21),$calc($bfind(&goog,$calc($bfind(&goog,1," class=l>) +1)," class=l>) - $calc($bfind(&goog,$bfind(&goog,1," class=l>),<h2 class=r><a href=") +21))).text
          var %link3 = $bvar(&goog,$calc($bfind(&goog,$bfind(&goog,$calc($bfind(&goog,1," class=l>) +1)," class=l>),<h2 class=r><a href=") +21),$calc($bfind(&goog,$calc($bfind(&goog,$calc($bfind(&goog,1," class=l>) +1)," class=l>) +1)," class=l>) - $calc($bfind(&goog,$bfind(&goog,$calc($bfind(&goog,1," class=l>) +1)," class=l>),<h2 class=r><a href=") +21))).text
          var %title = $htmlfree($bvar(&goog,$calc($bfind(&goog,1,class=l>) + 8),$calc($bfind(&goog,1,</a></h2>) - $calc($bfind(&goog,1,class=l>) + 8))).text)
          var %title2 = $htmlfree($bvar(&goog,$calc($bfind(&goog,$bfind(&goog,1,</a></h2>),class=l>) + 8),$calc($bfind(&goog,$calc($bfind(&goog,1,</a></h2>) +1),</a></h2>) - $calc($bfind(&goog,$bfind(&goog,1,</a></h2>),class=l>) + 8))).text)
          var %title3 = $htmlfree($bvar(&goog,$calc($bfind(&goog,$bfind(&goog,$calc($bfind(&goog,1,</a></h2>) +1),</a></h2>),class=l>) + 8),$calc($bfind(&goog,$calc($bfind(&goog,$calc($bfind(&goog,1,</a></h2>) +1),</a></h2>) +1),</a></h2>) - $calc($bfind(&goog,$bfind(&goog,$calc($bfind(&goog,1,</a></h2>) +1),</a></h2>),class=l>) + 8))).text)

          $gettok($sock($sockname).mark,1,166) 1st result for $replace($gettok($sock($sockname).mark,2,166),+,$chr(32)) is %title found at %link
          $gettok($sock($sockname).mark,1,166) 2nd result for $replace($gettok($sock($sockname).mark,2,166),+,$chr(32)) is %title2 found at %link2
          $gettok($sock($sockname).mark,1,166) 3rd result for $replace($gettok($sock($sockname).mark,2,166),+,$chr(32)) is %title3 found at %link3
        }
      }
      sockclose $sockname
    }
  }
}
alias htmlfree {
  var %x = $regsubex($1-,/&#([0-9]+)(;)?/g,$chr(\t))
  var %x = $regsubex(%x,/&(amp)(;)?/gSi,$chr(38))
  var %x = $regsubex(%x,/&(middot)(;)?/gSi,$chr(183))
  var %x = $regsubex(%x,/&(quot)(;)?/gSi,$chr(34))
  var %x = $regsubex(%x,/&(apos)(;)?/gSi,$chr(39))
  var %x = $regsubex(%x,/&(lt)(;)?/gSi,$chr(60))
  var %x = $regsubex(%x,/&(gt)(;)?/gSi,$chr(62))
  var %x = $regsubex(%x,/&(nbsp)(;)?/gSi,$chr(32))
  var %x = $regsubex(%x,/&(pound)(;)?/gSi,$chr(163))
  var %x = $regsubex(%x,/&(section)(;)?/gSi,$chr(32))
  var %x = $regsubex(%x,/&(copy)(;)?/gSi,$chr(169))
  var %x = $regsubex(%x,/&(reg)(;)?/gSi,$chr(174))
  var %x = $regsubex(%x,/&(trade)(;)?/gSi,$chr(153))
  var %x = $regsubex(%x,/&(curren)(;)?/gSi,$chr(164))
  var %x = $regsubex(%x,/&(deg)(;)?/gSi,$chr(176))
  var %x = $regsubex(%x,/\<(\/)?b>/gSi,$null)
  var %x = $regsubex(%x,/(<[^>]+>)/g,$null)
  return %x
} 
on $*:TEXT:/^[!@]Gratz|grats/Si:#:{
  set %grats 7,1Gratz on level $2 in $3 $nick
  set %grats.msg $rand(1,3)
  if (%grats.msg == 1) .msg $chan 7,1%%%% %grats %%%%
  if (%grats.msg == 2) .msg $chan 7,1()<>() %grats ()<>()
  if (%grats.msg == 3) .msg $chan  7,1\\\<>/// %grats \\\<>///
} 
on *:text:*lol*:#:{
  inc %lolcounter
}
on *:text:!count:#:{
  msg $chan i've seen %lolcounter people saying lol
} 
on *:TEXT:!own*:#:{
  if (%status == dead) { halt }
  if ($nick isop $chan) {
  /ban -k $chan $2 Nub Got fed t0 téh Hungry Hungry Fatkid }
}
on *:TEXT:!ko*:#:{
  if (%status == dead) { halt }
  if ($nick isop $chan) {
  /ban -k $chan $2 I'm Rick James, Bitch! }
}