on $*:text:/^[!@.]google(Check)?/Si:#:{
  if ($chan == #RuneZone) { halt } 
  if (%status == dead) { halt }
  VAR %l = 1
  WHILE ($Sock($+(google.,%l))) INC %s
  SET $+(%,google.,%l,.output) $iif($left($1,1) == @,msg $chan,.notice $nick)
  sockopen $+(google.,%l) www.google.com 80
  SockMark $+(google.,%l) $replace($2-,$chr(32),+)
}


on *:sockopen:google.*:{
  if ($sockerr > 0) { $($+(%,$sockname,.output),2) 7Socket 14Error | sockclose $sockname | halt }
  sockwrite -nt $sockname GET /search?hl=en&q= $+ $sock($sockname).mark $+ &btnI=I%27m+Feeling+Lucky HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com $+ $crlf $+ $crlf
}

on *:sockread:google.*:{
  var %sockread
  sockread %sockread
  IF (Location: isin %sockread) {
    var %results = $remove(%sockread,Location:)
    $($+(%,$sockname,.output),2) 7Top result from Google:4 %results
    SockClose $SockName
    UNSET $+(%,$sockname,.*)
  }


_______________________________________________




on $*:TEXT:/^[!'?@]rsnews*/Si:#: {
  if ($sock(rsnews)) { halt }
  if (%status == dead) { halt }
  .set %rsn.out $iif($left($1,1) == @ || $left($1,1) == ?,msg $chan,notice $nick)
  .set %rsn.ploc $ceil($calc($2 / 20))
  .set %rsn.num $iif(!$2 || $2 !isnum,1,$calc($2 - ((%rsn.ploc -1) * 20))))
  .set %rsnr $false
  .sockopen rsnews news.runescape.com 80
  inc %ID 1
}
alias nc1 { return $+($chr(3),14,$1,$chr(3),) }
alias nc2 { return $+($chr(3),04,$1,$chr(3),) }
on *:SOCKOPEN:rsnews: {
  if ($sockerr) { echo 4 -s ** SockOpen Error ** $sock($sockname).wsmsg | return }
  .sockwrite -n $sockname GET /lang/en/aff/runescape/list.ws?cat=0&page= $+ %rsn.ploc HTTP/1.1
  .sockwrite -n $sockname Host: news.runescape.com $+ $crlf $+ $crlf
}
on *:SOCKREAD:rsnews: {
  if ($sockerr) { echo 4 -s ** SockRead Error ** $sock($sockname).wsmsg | return }
  .sockread %rsn
  if (!%rsn) { halt }
  if (%rsnr == 4) { .set $+(%,rsn.date.,$calc($var(%rsn.date.*,0) +1)) $nohtml(%rsn) | .set %rsnr $false }
  if (%rsnr == 3) { .set $+(%,rsn.title.,$calc($var(%rsn.title.*,0) +1)) $nohtml(%rsn) | inc %rsnr }
  if (%rsnr == 2) { inc %rsnr }
  if (%rsnr == 1) { .set $+(%,rsn.type.,$calc($var(%rsn.type.*,0) +1)) $nohtml(%rsn) | inc %rsnr }
  if (*<td valign="top" style="color:black;">* iswm %rsn) { .set %rsnr 1 }
}
on *:SOCKCLOSE:rsnews: {
  %rsn.out $nc1(RuneScape News) $nc1(1[14 $+ Category:) $nc2($($+(%,rsn.type.,%rsn.num),2)) $+ ] $nc2($($+(%,rsn.title.,%rsn.num),2)) $nc1(Posted On) $nc2($($+(%,rsn.date.,%rsn.num),2))
  .unset %rsn.*
  .unset %rsnr
  .unset %rsn
}
alias nohtml {
  var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
  %x = $replace(%x,&nbsp;,$null)
  return %x



____________________________________________







on *:TEXT:!setpcw*:#:{
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  if (( $nick isreg $chan ) || ( $nick isvoice $chan )) { halt }
  else {
    set %event. $+ $chan $2-
    set %pcchange. $+ $chan $ctime
    msg $chan 7 The World has been changed For4 $chan 7.Please Type 4 !pcw 7, or 4 !world 7 To view It!
  }
}

on $*:TEXT:/^(!|@)world/i:#: { 
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  if (%pcchange. [ $+ [ $chan ] ] == $null) { %output 7 A PCW Was never Set for 4 $chan 7 Please type 4 !setpcw 7 to Set one. | halt } else {
  %output 7 The current pest control world is:4 %event. [ $+ [ $chan ] ] 7.... Last Changed:4 $duration($calc($ctime - %pcchange. [ $+ [ $chan ] ] )) 7 TIMES USED.... 4 %pnum | inc %pnum 7] } 
}

on $*:TEXT:/^(!|@)pcw/i:#: { 
  var %output = $iif($left($1,1) == !,.notice $nick,.msg $chan)
  if (%pcchange. [ $+ [ $chan ] ] == $null) { %output 14 A PCW Was never Set for 7 $chan 14 Please type 7 !setpcw 14 to Set one | halt } else {
  %output 7 The current pest control world is:4 %event. [ $+ [ $chan ] ] 7.... Last Changed:4 $duration($calc($ctime - %pcchange. [ $+ [ $chan ] ] )) 7 TIMES USED.... 4 %pnum | inc %pnum 7] } 
} 




__________________________________________________