on $*:TEXT:/^[@!.]calc.*$/Si:#:{ 
  if (!$2) { notice $nick Please specify an equation and try again! 
  } 
  else { 
    /var %target $iif($left($1,1) = @,msg $chan,notice $nick) 
    %target The answer to $+(",$2-,") is: $comma($calc($replace($2-,k,*1000,m,*1000000,b,*1000000000,t,*1000000000000))) 
  } 
} 
alias -l comma { 
  var %a, %b = $regsub($ticks,$$1,/\G([+-]?\d+?)(?=(?:\d{3})++(?=\.\d++$|$))/g,\1 $+ $chr(44),%a) 
  return %a 
}
---------------
on *:TEXT:!cmb *:#: { 
  inc %iddddd 1 | set %combat.user [ $+ [ %iddddd ] ] $2 | set %combat.display. [ $+ [ %iddddd ] ] notice $nick | sockopen $+(combat.,%iddddd) slushpuppy.silverinterlocution.org 80 
} 
on *:SOCKOPEN:combat.*:{ 
  sockwrite -n $sockname GET /pestcontrol.php?pestcontrol= $+ %combat.user [ $+ [ %iddddd ] ] HTTP/1.1 
  sockwrite -n $sockname Host: slushpuppy.silverinterlocution.org 
  sockwrite -n $sockname $crlf 
} 

on *:SOCKREAD:combat.*:{ 
  var %combat.read | sockread %combat.read 
  if (*0<br>* iswm %combat.read) { %combat.display. [ $+ [ %iddddd ] ] $replace(%combat.user [ $+ [ %iddddd ] ],_,$chr(32))) $+ , was not found in the hiscores for any combat skills. | /unset %combat.* | halt } 
  if (<b> isin %combat.read) { /set %combat.stats [ $+ [ %iddddd ] ] ASDHRPM: $+(,$gettok($htmlfree(%combat.read),4,32),)  $+(,$gettok($htmlfree(%combat.read),8,32),)  $+(,$gettok($htmlfree(%combat.read),6,32),)  $+(,$gettok($htmlfree(%combat.read),10,32),)  $+(,$gettok($htmlfree(%combat.read),12,32),)  $+(,$gettok($htmlfree(%combat.read),14,32),)  $+(,$gettok($htmlfree(%combat.read),16,32),) } 
  if (<i> isin %combat.read) { /set %combat.2 [ $+ [ %iddddd ] ] $+ *** [ $replace(%combat.user [ $+ [ %iddddd ] ] ]:,_,$chr(32)) $+(,Cmb-lvl) $+(,$htmlfree(%combat.read),:) } 
  if (<br> isin %combat.read) { /set %combat.3 [ $+ [ %iddddd ] ] $+(,$htmlfree(%combat.read)) $+ 
    %combat.topline [ $+ [ %iddddd ] ] = %combat.2 [ $+ [ %iddddd ] ] %combat.3 [ $+ [ %iddddd ] ] 
    %combat.display. [ $+ [ %iddddd ] ] %combat.topline [ $+ [ %iddddd ] ] 
    %combat.display. [ $+ [ %iddddd ] ] %combat.stats [ $+ [ %iddddd ] ] 
    /unset %combat.* 
  } 
} 
alias -l htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
return %x } 
------------------------
ON *:TEXT:!dm*:#:{
  if ($readini(pdm.ini,$chan,Player1) == $nick || $readini(pdm.ini,$chan,Player2) == $nick) {
    notice $nick 12Your already in the game.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2) {
    notice $nick 12There is already a DM.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    writeini pdm.ini $chan Player2 $nick
    writeini dm.ini $chan Status ON2
    writeini hp.ini $chan Player2 99
    writeini turn.ini $chan Turn 1
    writeini shark.ini $chan Player2 20
    writeini spec.ini $chan Player2 100
    writeini spec.ini $chan Player1 100
    msg $chan 12The Fight is.4 $readini(pdm.ini,$chan,Player1) 12Vs.4 $readini(pdm.ini,$chan,Player2)
    msg $chan 12`dmcommands For DM4 Commands12.
    notice $readini(pdm.ini,$chan,Player2) 12You have4 99 12Hit Points and4 20 12Shark that heal4 20 12Health each.
    halt
  }  
  if ($readini(dm.ini,$chan,Status) == $null) {
    writeini pdm.ini $chan Player1 $nick
    writeini dm.ini $chan Status ON
    writeini hp.ini $chan Player1 99
    writeini shark.ini $chan Player1 20
    msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) has initiated the DM Command. Type 4!dm12 to fight $readini(pdm.ini,$chan,Player1) $+ .
    notice $readini(pdm.ini,$chan,Player1) 12You have4 99 12Hit Points and4 20 12Shark that heal4 20 12Health each.
    halt
  }
}
ON *:TEXT:!whip*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 0 12Hitpoints.
      timer 1 3 msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan 12 $+ $readini(pdm.ini,$chan,Player1) swings at $readini(pdm.ini,$chan,Player2) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 $readini(hp.ini,$chan,Player2) 12Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,35)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 12 $+ $readini(pdm.ini,$chan,Player2) 12swings at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 0 12Hitpoints.
      timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total    
      halt
    }
    else {
      msg $chan 12 $+ $readini(pdm.ini,$chan,Player2) swings at $readini(pdm.ini,$chan,Player1) hitting a $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 $readini(hp.ini,$chan,Player1) 12Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!dh*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(hp.ini,$chan,Player2) <= 30 ) {
    notice $nick 12You cant use the4 !dh12 attack when your Opponent has less than4 30 12Hit Points.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(hp.ini,$chan,Player1) <= 30 ) {
    notice $nick 12You cant use the4 !dh12 attack when your Opponent has less than4 30 12Hit Points.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,75)
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12hacks at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 0 12Hitpoints.
      timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player1)12 has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini dds.ini $chan Total    
      remini pdm.ini $chan Player2
      halt
    }
    else {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12hacks at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 $readini(hp.ini,$chan,Player2) 12Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,75)
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(hit.ini,$chan,hit) )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12hacks at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . Leaving him with4 0 12Hitpoints.
      timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12hacks at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,Hit) $+ . 12Leaving him with4 $readini(hp.ini,$chan,Player1) 12Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!eat*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(shark.ini,$chan,Player2) <= 0 ) {
    Notice $nick 12You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(shark.ini,$chan,Player1) <= 0 ) {
    Notice $nick 12You dont have any shark left....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no 4DM12 on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You can't eat yet.....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) + 20 )
    writeini shark.ini $chan Player1 $calc( $readini(shark.ini,$chan,Player1) - 1)
    notice $readini(pdm.ini,$chan,Player1) 12You now have4 $readini(shark.ini,$chan,Player1) 12Shark left.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12eats a shark giving him4 $readini(hp.ini,$chan,Player1) 12Hit Points.
    writeini turn.ini $chan Turn 2
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) + 20 )
    writeini shark.ini $chan Player2 $calc( $readini(shark.ini,$chan,Player2) - 1)
    notice $readini(pdm.ini,$chan,Player2) 12You now have4 $readini(shark.ini,$chan,Player2) 12Shark left.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12eats a shark giving him4 $readini(hp.ini,$chan,Player2) 12Hit Points.
    writeini turn.ini $chan Turn 1
    halt
  }  
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!dds*:#:{
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick && $readini(spec.ini,$chan,Player1) <= 0 ) {
    notice $nick 12You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick && $readini(spec.ini,$chan,Player2) <= 0 ) {
    notice $nick 12You dont have any special Left.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You need someone to attack....
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player2 $calc( $readini(hp.ini,$chan,Player2) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player1 $calc( $readini(spec.ini,$chan,Player1) - 25 )
    if ($readini(hp.ini,$chan,Player2) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12Specials at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2) $+ . 12Leaving him with4 0 12Hitpoints.
      timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick 12You have4 $readini(spec.ini,$chan,Player1) $+ 12% of your Special Bar left.  
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12specials at4 $readini(pdm.ini,$chan,Player2) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2)$+ . 12Leaving him with4 $readini(hp.ini,$chan,Player2) 12Hitpoints.
      writeini turn.ini $chan Turn 2
      halt
    }
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    writeini hit.ini $chan Hit $rand(0,25)
    writeini hit.ini $chan Hit2 $rand(0,25)
    writeini dds.ini $chan Total $calc( $readini(hit.ini,$chan,hit) + $readini(hit.ini,$chan,hit2) )
    writeini hp.ini $chan Player1 $calc( $readini(hp.ini,$chan,Player1) - $readini(dds.ini,$chan,total) )
    writeini spec.ini $chan Player2 $calc( $readini(spec.ini,$chan,Player2) - 25 )
    if ($readini(hp.ini,$chan,Player1) <= 0 ) {
      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12Specials at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2) $+ . 12Leaving him with4 0 12Hitpoints.
      timer 1 3 msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has won!
      remini dm.ini $chan Status
      remini shark.ini $chan Player1
      remini shark.ini $chan Player2
      remini Hit.ini $chan Hit
      remini Hit.ini $chan Hit2
      remini hp.ini $chan Player1
      remini hp.ini $chan Player2
      remini pdm.ini $chan Player1
      remini pdm.ini $chan Player2
      remini dds.ini $chan Total
      halt
    }
    else {
      notice $nick 12You have4 $readini(spec.ini,$chan,Player2) $+ 12% of your Special Bar left.  

      msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12specials at4 $readini(pdm.ini,$chan,Player1) 12hitting a4 $readini(hit.ini,$chan,hit) 12and4 $readini(hit.ini,$chan,hit2)$+ . 12Leaving him with4 $readini(hp.ini,$chan,Player1) 12Hitpoints.
      writeini turn.ini $chan Turn 1
      halt
    }
  }
  else {
    notice $nick 12Its not your turn or your not in this round.
  }
}
ON *:TEXT:!stopDM*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 13There is no DM for this channel
    halt
  }
  if ($nick isop $chan || $nick ishop $chan) {
    msg $chan 12DM Halted by $nick $+ .
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total
  }
  else {
    notice $nick 12You need halfop+
  }
}
ON *:TEXT:`dmcommands*:#:{
  msg $nick 4---Tony Script---
  msg $nick 12!StopDM
  msg $nick 12!DM
  msg $nick 12!Whip
  msg $nick 12!DDS
  msg $nick 12!DH
  msg $nick 12!Eat
  msg $nick 12!tele
  msg $nick 4---Tony Script---
}
ON *:TEXT:!tele*:#:{
  if ($readini(dm.ini,$chan,Status) == $null) {
    notice $nick 12There is no DM on. Type4 !DM 12To start one.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON) {
    notice $nick 12You cant Tele yet rofl.
    halt
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 1 && $readini(pdm.ini,$chan,Player1) == $nick) {
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12has just teled.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12wins!
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total  
  }
  if ($readini(dm.ini,$chan,Status) == ON2 && $readini(turn.ini,$chan,turn) == 2 && $readini(pdm.ini,$chan,Player2) == $nick) {
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player2) 12has just teled.
    msg $chan 4 $+ $readini(pdm.ini,$chan,Player1) 12wins!
    remini dm.ini $chan Status
    remini shark.ini $chan Player1
    remini shark.ini $chan Player2
    remini Hit.ini $chan Hit
    remini Hit.ini $chan Hit2
    remini hp.ini $chan Player1
    remini hp.ini $chan Player2
    remini pdm.ini $chan Player1
    remini pdm.ini $chan Player2
    remini dds.ini $chan Total  
  }
}
----------------------
on *:text:!event*:#chan:{ 
  if (%date) { 
    msg # $duration($calc($ctime(%date) - $ctime)) 
  } 
} 
on *:text:!countdown & & &:#yourchan:{ 

  ; !countdown dd mm yyyy 
  ; eg. !countdown 16 03 2007 

  var %date = $+($2/,$3/,$4) 
  if ($ctime < $ctime(%date)) { 
    msg # now counting down till %date 
    set %date %date 
  } 
  else { 
    msg # invalid date format, or date has passed, or is out of range 
  } 
} 

on *:text:*:#yourchan:{ 
  if (%date == $date) { 
    msg # countdown stopped! it's now %date ! 
    unset %date 
  } 
}
------------------------
on $*:text:/^[!@.]google$/Si:#:{ 
  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) Socket Error | 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) Im Feeling Lucky results: %results 
    SockClose $SockName 
    UNSET $+(%,$sockname,.*) 
  } 
} 
-------------------
on $*:TEXT:/^[!@.]item/Si:#:{ 
  if (!$2) { 
    notice $nick 12[4 Item 12]: You must supply a item keywork to lookup 
  } 
  else { 
    inc %n 
    set $+(%,tip.item.,%n) $replace($2-,$chr(32),+) 
    set $+(%,tip.style.,%n) $iif($left($1,1) == @,msg $chan,notice $nick) 12[4 Item 12]: 
    set $+(%,tip.nick.,%n) $nick 
    sockopen $+(tip.,%n) tip.it 80 
  } 
} 
on *:SOCKOPEN:tip.*:{ 
  var %id = $gettok($sockname,2,46) 
  sockwrite -n $sockname GET /runescape/index.php?rs2item=&orderby=0&keywords= $+ $($+(%,tip.item.,%id),2) $+ &Players=all&category=0&subcategory=0&cmd=8&action=Manage_Items&search=1 HTTP/1.1 
  sockwrite -n $sockname Host: tip.it 
  sockwrite -n $sockname $+($crlf,$crlf) 
} 
on *:SOCKREAD:tip.*:{ 
  var %id = $gettok($sockname,2,46) 
  var %nick = $($+(%,tip.nick.,%id),2) 
  var %item = $replace($($+(%,tip.item.,%id),2),+,$chr(32)) 
  var %style = $($+(%,tip.style.,%id),2) 
  if ($sockerr) { 
    %style An error occured while connecting 
    unset $+(%,tip.*) 
    sockclose $+(tip.,%id) 
  } 
  else { 
    var %read 
    sockread %read 
    if (*No items matched your search* iswm %read) { 
      %style No results were found for " $+ %item $+ " 
      unset $+(%,tip.*) 
      sockclose $+(tip.,%id) 
    } 
    if ($regex(%read,/<td><a href="(.*)">(.*)</a></td>/Si)) { 
      set $+(%,tip.name.,%id) $regml(2) 
      set $+(%,tip.link.,%id) $regml(1) 
      sockopen $+(item.,%id) tip.it 80 
      sockclose $+(tip.,%id) 
    } 
  } 
} 
on *:SOCKOPEN:item.*:{ 
  var %id = $gettok($sockname,2,46) 
  sockwrite -n $sockname GET /runescape/ $+ $($+(%,tip.link.,%id),2) 
  sockwrite -n $sockname Host: tip.it 
  sockwrite -n $sockname $+($crlf,$crlf) 
} 
on *:SOCKREAD:item.*:{ 
  var %id = $gettok($sockname,2,46) 
  var %nick = $($+(%,tip.nick.,%id),2) 
  var %item = $replace($($+(%,tip.item.,%id),2),+,$chr(32)) 
  var %style = $($+(%,tip.style.,%id),2) 
  if ($sockerr) { 
    %style An error occured while connecting 
    unset $+(%,tip.*) 
    sockclose $+(item.,%id) 
  } 
  else { 
    var %read 
    sockread %read 
    if (*<b>Members?</b>*</td>* iswm %read) { 
      tokenize 32 $nohtml(%read) 
      set $+(%,tip.members.,%id) $remove($1-,Members?,$chr(6),$chr(32)) 
    } 
    if (*<b>Quest?</b>*</td>* iswm %read) { 
      tokenize 32 $nohtml(%read) 
      set $+(%,tip.quest.,%id) $remove($1-,Quest?,$chr(6),$chr(32)) 
    } 
    if (*<b>Tradeable?</b>*</td>* iswm %read) { 
      tokenize 32 $nohtml(%read) 
      set $+(%,tip.trade.,%id) $remove($1-,Tradeable?,$chr(6),$chr(32)) 
    } 
    if ($($+(%,tip.found.note.,%id),2)) { 
      inc $+(%,tip.time7.,%id) 
      if ($($+(%,tip.time7.,%id),2) == 2) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.note.,%id) $remove($1-,$chr(6)) 
        unset $+(%,tip.found.note.,%id) 
      } 
    } 
    if ($($+(%,tip.found.use.,%id),2)) { 
      inc $+(%,tip.time6.,%id) 
      if ($($+(%,tip.time6.,%id),2) == 2) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.use.,%id) $remove($1-,$chr(6)) 
        unset $+(%,tip.found.use.,%id) 
      } 
    } 
    if ($($+(%,tip.found.loc.,%id),2)) { 
      inc $+(%,tip.time5.,%id) 
      if ($($+(%,tip.time5.,%id),2) == 2) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.loc.,%id) $remove($1-,$chr(6)) 
        unset $+(%,tip.found.loc.,%id) 
      } 
    } 
    if ($($+(%,tip.found.lalch.,%id),2)) { 
      inc $+(%,tip.time4.,%id) 
      if ($($+(%,tip.time4.,%id),2) == 2) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.lalch.,%id) $remove($1-,$chr(6)) 
        unset $+(%,tip.found.lalch.,%id) 
      } 
    } 
    if ($($+(%,tip.found.gen.,%id),2)) { 
      inc $+(%,tip.time3.,%id) 
      if ($($+(%,tip.time3.,%id),2) == 2) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.gen.,%id) $remove($1-,$chr(6)) 
        unset $+(%,tip.found.gen.,%id) 
      } 
    } 
    if ($($+(%,tip.found.halch.,%id),2)) { 
      inc $+(%,tip.time1.,%id) 
      if ($($+(%,tip.time1.,%id),2) == 2) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.halch.,%id) $remove($1-,$chr(6)) 
        unset $+(%,tip.found.halch.,%id) 
      } 
    } 
    if ($($+(%,tip.found.cat.,%id),2)) { 
      inc $+(%,tip.time.,%id) 
      if ($($+(%,tip.time.,%id),2) == 3) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.cat.,%id) $remove($1-,$chr(6)) 
        unset $+(%,tip.found.cat.,%id) 
      } 
    } 
    if ($($+(%,tip.found.ex.,%id),2) && !$($+(%,tip.examine.,%id),2)) { 
      tokenize 32 $nohtml(%read) 
      set $+(%,tip.examine.,%id) $remove($1-,$chr(6)) 
      unset $+(%,tip.found.ex.,%id) 
    } 
    if ($($+(%,tip.found.spec.,%id),2)) { 
      inc $+(%,tip.times2.,%id) 
      if ($($+(%,tip.times2.,%id),2) == 2) { 
        tokenize 32 $nohtml(%read) 
        set $+(%,tip.spec.,%id) $remove($1-,$chr(6)) 
      } 
    } 
    if (*<td colspan="3"> <b>Examine:</b>* iswm %read) { 
      set $+(%,tip.found.ex.,%id) true 
    } 
    if (*Category* iswm %read) { 
      set $+(%,tip.found.cat.,%id) true 
    } 
    if (*<td class="header" width="25%">High Alchemy</td>* iswm %read) { 
      set $+(%,tip.found.halch.,%id) true 
    } 
    if (*<td class="header" width="25%">Specialty shop sells for</td>* iswm %read) { 
      set $+(%,tip.found.spec.,%id) true 
    } 
    if (*<td class="header" width="25%"> General sells</td>* iswm %read) { 
      set $+(%,tip.found.gen.,%id) true 
    } 
    if (*<td class="header" width="25%"> General buys/low alch</td>* iswm %read) { 
      set $+(%,tip.found.lalch.,%id) true 
    } 
    if (*<td class="header" width="139"> Location</td>* iswm %read) { 
      set $+(%,tip.found.loc.,%id) true 
    } 
    if (*<td class="header"> Uses</td>* iswm %read) { 
      set $+(%,tip.found.use.,%id) true 
    } 
    if (*<td class="header"> Notes</td>* iswm %read) { 
      set $+(%,tip.found.note.,%id) true 
    } 
    if (*<!-- Page Content End -->* iswm %read) { 
      %style Item: $($+(%,tip.name.,%id),2) URL: http://tip.it/runescape/ $+ $($+(%,tip.link.,%id),2) 
      %style Members? $rem.bt($($+(%,tip.members.,%id),2)) Tradable? $rem.bt($($+(%,tip.trade.,%id),2)) Quest? $rem.bt($($+(%,tip.quest.,%id),2)) 
      %style High Alch: $rem.ft($($+(%,tip.halch.,%id),2)) Low Alch: $rem.ft($($+(%,tip.lalch.,%id),2)) Location: $rem.bt($($+(%,tip.loc.,%id),2)) Uses: $rem.bt($($+(%,tip.use.,%id),2)) General Sells: $rem.ft($($+(%,tip.gen.,%id),2)) 
      %style Examine: $rem.b4($($+(%,tip.examine.,%id),2)) Category: $rem.bt($($+(%,tip.cat.,%id),2)) Specialty Shop Sells: $rem.ft($($+(%,tip.spec.,%id),2)) Notes: $rem.bt($($+(%,tip.note.,%id),2)) 
      unset $+(%,tip.*) 
      sockclose $+(item.,%id) 
    } 
  } 
} 
alias -l rem.b4 { 
  var %x = $remove($1-,$right($1-,3),$left($1-,4)) 
  var %x = $remove(%x,$left(%x,1)) 
  return %x 
} 
alias -l rem.bt { 
  var %x = $remove($1-,$right($1-,3),$left($1-,3)) 
  return %x 
} 
alias -l rem.ft { 
  var %x = $remove($1-,$left($1-,3)) 
  return %x 
} 
alias nohtml { 
  var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x) 
  %x = $replace(%x,&nbsp;,$null) 
  return %x 
}
-------------------------
ON *:TEXT:!part*:#:{
  if ($2 == $me && $nick isop $chan || $nick ishop $chan) {
    part $chan 12Requested by:4 $nick
    halt
  }
  if ($2 == $null) {
    notice $nick 12!Part4 $me
    halt
  }
  else {
    notice $nick 12Halfop4 +
  }
}
-------------------------
on *:TEXT:!setpits*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) { 
    set %pits [ $+ [ $chan ] ] $2 
    set %leader [ $+ [ $chan ] ] $3 
  msg $chan 12The Fight pits World has been Updated! 4Type 12!pits4 or 12!fightpits4 to see the new world! } 
} 

on $*:TEXT:/[!]pits|fightpits?/Si:#:{ 
  if ($nick isvoice $chan) || ($nick ishop $chan) || ($nick isop $chan) { 
    set %homer notice $nick 
  inc %pits | %homer 12The Current 4Fight Pits World12 is: %pits [ $+ [ $chan ] ] $+ .4Current Team leader is12: %leader [ $+ [ $chan ] ] $+ .The Fight pits world has been viewed %pits Times. } 
}
--------------------
alias c1 { return $+( $1-,) }
alias c2 { return $+( $1-,) }

on *:text:*:#: {
  tokenize 32 $strip($1-)
  if ($left($1,1) !isin @!.) halt
  if ($right($1,-1) == stats) var %style = astats
  elseif ($regex($1,/co?mb(at)?/Si)) var %style = combat
  elseif ($setskill($remove($1,@,!,.))) var %style = istat, %skill = $setskill($remove($1,@,!,.))
  elseif ($right($1,-1) == defname) && ($2) {
    writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
    .notice $nick 12You're default RSN for the host 4 $mask($fulladdress,3) 12has been set to $2-
    halt
  }
  else halt

  inc %ID
  if ($len($2-) > 12) {
    4 $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($2-) $c1(is too long)
    cleanup %ID
    halt
  }
  elseif ($2) set $+(%,stats.rsn.,%ID) $replace($2-,$chr(32),-)
  elseif ($readini(DefRSN.ini,RSNs,$mask($fulladdress,3))) set $+(%,stats.rsn.,%ID) $ifmatch
  elseif ($readini(DefRSN.ini,RSNs,$nick)) set $+(%,stats.rsn.,%ID) $ifmatch
  else set $+(%,stats.rsn.,%ID) $nick

  set $+(%,stats.style.,%ID) %style
  set $+(%,stats.skill.,%ID) %skill
  set $+(%,stats.display.,%ID) $iif($left($1,1) == @,msg $chan,notice $nick)
  sockopen $+(stats.,%ID) hiscore.runescape.com 80
}

on *:sockopen:stats.*: {
  var %id = $gettok($sockname,2,46)
  sockwrite -n $sockname GET /lang/en/aff/runescape/hiscorepersonal.ws?user1= $+ $($+(%,stats.rsn.,%ID),2) HTTP/1.1
  sockwrite -n $sockname Host: hiscore.runescape.com $+ $crlf $+ $crlf
}
on *:sockread:stats.*: {
  sockread &Incoming
  bwrite $sockname -1 -1 &Incoming
  if ($bfind(&Incoming, 1, </html>).text) makehash $sockname
  elseif ($bfind(&Incoming, 1, does not feature in the hiscores.).text) {
    $($+(%,stats.display.,%ID),2) $c1(The nick) $c2($($+(%,stats.rsn.,%ID),2)) $c1(Does not appear in the hiscores)
    cleanup $gettok($sockname,2,46)
  }
}
alias -l makehash {
  var %file = $1
  bread %file 1 $file(%file).size &stats
  var %currentstat, %x = 1
  while (%x) {
    var %x = $bfind(&stats,$calc(%x + 1),<a href="overall.ws?table=)
    var %currentstat = $striptags($bvar(&stats,%x,200).text)
    tokenize 10 %currentstat
    hadd -m %file $1 $2 $3 $4 $xp2next($3,$4)
  }
  process %file
}
alias process {
  var %table = $1, %id = $gettok($1,2,46), %x = 0, $&
    %display = $($+(%,stats.display.,%ID),2), $&
    %rsn = $($+(%,stats.rsn.,%ID),2), $&
    %skill = $($+(%,stats.skill.,%ID),2), $&
    %style = $($+(%,stats.style.,%ID),2)
  ;shoot;
  if (%style == astats) {
    while (%x <= 23) {
      tokenize 32 $hget(%table,$setskill(%x))
      if ($2) var %statline = %statline $c1($setskill(%x)) $c2($2)
      inc %x
    }
    %display $c1(Stats for) $c2(%rsn) $+ $c1(:)
    %display %statline
  }
  elseif (%style == istat) {
    if (!$hget(%table,%skill)) 12 %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for) $c2(%skill)
    else {
      tokenize 32 $hget(%table,%skill)
      %display $c2(%skill) $c1(stats for) $c2(%rsn) $+ $c1(:)
      %display $c1(Rank:) $c2($1) $c1(Level:) $c2($bytes($2,b)) $c1(Exp:) $c2($3) $&
        $iif(%skill != Overall,$c1(Exp to lvl) $c2($calc($2 + 1)) $+ $c1(:) $c2($bytes($4,b)))
    }
  }
  elseif (%style == combat) {
    var %a.mult = .32707, %s.mult = .324, %d.mult = .25, %h.mult = .25, %p.mult = .124, %r.mult = .487, %m.mult = .487
    var %a = $iif($gettok($hget(%table,attack),2,32),$v1,-), $&
      %s = $iif($gettok($hget(%table,strength),2,32),$v1,-), $&
      %d = $iif($gettok($hget(%table,defence),2,32),$v1,-), $&
      %h = $iif($gettok($hget(%table,hitpoints),2,32),$v1,-), $&
      %r = $iif($gettok($hget(%table,ranged),2,32),$v1,-), $&
      %m = $iif($gettok($hget(%table,magic),2,32),$v1,-), $&
      %p = $iif($gettok($hget(%table,prayer),2,32),$v1,-)

    var %meleecombat  = $calc(%a * %a.mult + %s * %s.mult + %d * %d.mult + %h * %h.mult + %p * %p.mult), $&
      %RangedCombat = $calc(%r * %r.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult), $&
      %MagicCombat  = $calc(%m * %m.mult + %p * %p.mult + %d * %d.mult + %h * %h.mult)

    if (%MagicCombat == %RangedCombat) && (%MagicCombat == %RangedCombat) {
      %display $c1(The nick) $c2(%rsn) $c1(does not appear in the hiscores for any combat skills)
      cleanup %id
      halt
    }
    elseif (%MagicCombat > %RangedCombat) && (%MagicCombat > %MeleeCombat) var %cmbstyle = Magic, %Combat = %MagicCombat
    elseif (%RangedCombat > %MeleeCombat) var %cmbstyle = Ranged, %Combat = %RangedCombat
    else var %cmbstyle = melee, %combat = %MeleeCombat

    var %cmb.temp = $abs($calc($int($calc(%combat +1)) - %combat)), $&
      %a.2lvl = $ceil($calc(%cmb.temp / %a.mult)), %s.2lvl = $ceil($calc(%cmb.temp / %s.mult)), $&
      %d.2lvl = $ceil($calc(%cmb.temp / %d.mult)), %m.2lvl = $ceil($calc(%cmb.temp / %m.mult)), $&
      %r.2lvl = $ceil($calc(%cmb.temp / %r.mult)), %p.2lvl = $ceil($calc(%cmb.temp / %p.mult))

    if (%cmbstyle == magic) var %dynamic.2lvl = $c1(Magic:) $c2(%m.2lvl)
    elseif (%cmbstyle == Ranged) var %dynamic.2lvl = $c1(Ranged:) $c2(%r.2lvl)
    else var %dynamic.2lvl = $c1(Att:) $c2(%a.2lvl) $c1(Str:) $c2(%s.2lvl)
    var %combat = $round(%combat,2), %next = $ceil(%combat)

    %display $c2(%rsn) $c1(is) $c2(%combat) $c1(%cmbstyle style combat)
    %display $c1(Attack:) $c2(%a) $c1(Defence:) $c2(%d) $c1(Strength:) $c2(%s) $c1(Hits:) $c2(%h) $&
      $c1(Mage:) $c2(%m) $c1(Range:) $c2(%r) $c1(Pray:) $c2(%p)
    %display $c1(Levels for) $c2(%next) $+ $c1(:) %dynamic.2lvl $&
      $c1(Def/Hp:) $c2(%d.2lvl) $c1(Prayer:) $c2(%p.2lvl)
  }
  cleanup %id
}

alias -l cleanup {
  unset $+(%,stats.*.,$1)
  sockclose $+(Stats.,$1)
  .remove $+(Stats.,$1)
}

alias -l xp {
  var %x = 1, %level = $calc($1 - 1), %xp = 0
  while (%x <= %level) {
    var %TempXp = $calc((%x + 300 * 2^(%x / 7)) /4)
    inc %xp %TempXp
    inc %x
  }
  return $int(%xp)
}

alias -l xp2Next {
  var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1))
  return $calc(%nextxp - %xp)
}

alias -l striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
alias -l setskill {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
  elseif ($1 == 23) || ($regex($1,/^(hunt|hun)(er|ing)?$/si)) return Hunter
} 
----------------------
on *:text:!time*:#:{ 
  msg $chan The time is $time(hh:nn TT) and the date is $date(ddd) $date(mmmm) $date(dd) 
} 
} 
----------------------
ON *:TEXT:!avoiceon*:#:{ if ($nick ishop $chan || $nick isop $chan) { 
    set %av $+ $chan ON 
    msg $chan Auto Voice is now on! 
  } 
} 
ON *:JOIN:#:{ if (%av [ $+ [ $chan ] ] == ON) { /mode $chan +v $nick } 
} 
ON *:TEXT:!avoiceoff*:#:{ if ($nick ishop $chan || $nick isop $chan) { 
    unset %av $+ $chan 
    msg $chan Auto Voice is now off =( 
  } 
} 
on *:JOIN:#:{ 
  if (%scriptstop == on) && (%avswitch == on) { 
  if ($readini(av.ini,$chan,$nick)) /mode $chan +v $nick } 
}
---------------
on *:TEXT:!Cigarette:#:{ 
  msg $chan Hands $nick a Nice 1,8()¯¯¯¯)¯¯¯¯¯¯¯¯¯¯¯¯¯¯4}))15~`~`~`~`~
  msg $chan $nick Smokes the nice 1,8()¯¯¯¯)¯4}))15~`~`~`~`~
}
---------------
on $*:TEXT:/^[@!]set ?co?m?b((a)?(t))? ?(.+)$/Si:#: {
  if ($nick isop $chan) {
    writeini -n pccheck.ini $chan cmb $regml($regml(0))
    msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The required combat level for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
  }
}
on $*:TEXT:/^[@!]set ?(at[kt]|str) ?(.+)$/Si:#: {
  if ($nick isop $chan) {
    writeini -n pccheck.ini $chan attstr $regml($regml(0))
    msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The required combined attack and strength level for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
  }
}
on $*:TEXT:/^[@!]ban ?(time)? ?(.+)$/Si:#: {
  if ($nick isop $chan) {
    writeini -n pccheck.ini $chan ban $regml($regml(0))
    msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The amount of minutes a user will be banned when not meeting the requirements for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
  }
}
on $*:TEXT:/^[@!]color1 ?(.+)$/Si:#: {
  if ($nick isop $chan) {
    writeini -n pccheck.ini $chan color1 $regml($regml(0))
    msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The first color for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
  }
}
on $*:TEXT:/^[@!]color2 ?(.+)$/Si:#: {
  if ($nick isop $chan) {
    writeini -n pccheck.ini $chan color2 $regml($regml(0))
    msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The second color for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ has been set to $+($chr(3),$iif(? iswm $readini(pccheck.ini,$chan,color2),0 $+ $v2,$v2)) $+ $regml($regml(0))
  }
}
on $*:TEXT:/^[@!]enable$/:#: {
  if ($nick isop $chan) {
    if ($istok($readini(pccheck.ini,achan,achan),$chan,44)) { msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has already been enabled $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan }
    else {
      writeini -n pccheck.ini achan achan $addtok($readini(pccheck.ini,achan,achan),$chan,44)
      set %pccheck.chans $readini(pccheck.ini,achan,achan)
      if (!$readini(pccheck.ini,$chan,cmb)) { writeini -n pccheck.ini $chan cmb 100 }
      if (!$readini(pccheck.ini,$chan,attstr)) { writeini -n pccheck.ini $chan attstr 180 }
      if (!$readini(pccheck.ini,$chan,color1)) { writeini -n pccheck.ini $chan color1 14 }
      if (!$readini(pccheck.ini,$chan,color2)) { writeini -n pccheck.ini $chan color2 04 }
      if (!$readini(pccheck.ini,$chan,ban)) { writeini -n pccheck.ini $chan ban 600 }
      msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has been enabled for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan $+ $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ $iif($me isop $chan,$chr(46),$iif($me ishop $chan,$chr(46),$chr(44) but I do not have the power to kick users if they do not meet the requirements.))
    }
  }
}
on $*:TEXT:/^[@!]disable$/:#: {
  if ($nick isop $chan) {
    if (!$istok($readini(pccheck.ini,achan,achan),$chan,44)) { msg $chan $+($chr(3),$iif($readini(pccheck.ini,$chan,color1),$v1,14)) $+ The combat checking function has already been disabled $+($chr(3),$iif($readini(pccheck.ini,$chan,color2),$v1,14)) $+ $chan }
    else {
      writeini -n pccheck.ini achan achan $iif($deltok($readini(pccheck.ini,achan,achan),$findtok($readini(pccheck.ini,achan,achan),$chan,1,44),44),$v1,#&null)
      set %pccheck.chans $readini(pccheck.ini,achan,achan)
      msg $chan $+($chr(3),$readini(pccheck.ini,$chan,color1)) $+ The combat checking function has been disabled for $+($chr(3),$readini(pccheck.ini,$chan,color2)) $+ $chan
    }
  }
}
on *:JOIN:%pccheck.chans: {
  pccheck $chan $nick
}
alias pccheck {
  if ($2) {
    var %i 1
    while ($sock(pccheck. $+ %i)) {
      inc %i
    }
    set %pccheck. $+ %i $+ .chan $1
    set %pccheck. $+ %i $+ .user $2
    sockopen pccheck. $+ %i www.o-ss.net 80
  }
}
on *:SOCKOPEN:pccheck.*:{
  /sockwrite -t $sockname GET /parsers/stats.php?user= $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) HTTP/1.1 $+ $crlf
  /sockwrite -t $sockname Host: www.o-ss.net $+ $crlf
  /sockwrite -t $sockname $crlf
}
on *:SOCKREAD:pccheck.*:{
  if ($sockerr) {
    $($+(%,pccheck.,$gettok($sockname,2,46),.self),2) Socket error while looking up $(% $+ $sockname $+ .user,2) $+ : $sockerr
    unset %pccheck. $+
  }
  else {
    sockread %read
    while ($sockbr > 0) {
      sockread %read
      tokenize 32 %read
      if ($1 == <b>Warning</b>:) { msg $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color1)) $+ Unable to connect to highscores for user $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color2)) $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) | sockclose $sockname }
      else {
        if ($1 == Attack) { var %att = $replace($3,Ranked,1) }
        if ($1 == Defence) { var %def = $replace($3,Ranked,1) }
        if ($1 == Strength) { var %str = $replace($3,Ranked,1) }
        if ($1 == Hitpoints) { var %hp = $replace($3,Ranked,10) }
        if ($1 == Ranged) { var %range = $replace($3,Ranked,1) }
        if ($1 == Prayer) { var %pray = $replace($3,Ranked,1) }
        if ($1 == Magic) { var %mage = $replace($3,Ranked,1) }
        if ($1 == END) {
          var %cmb = $meleecmb(%att,%str,%def,%hp,%range,%mage,%pray) Melee
          if ($rangecmb(%att,%str,%def,%hp,%range,%mage,%pray) > $gettok(%cmb,1,32)) { var %cmb = $v1 Ranged }
          if ($magecmb(%att,%str,%def,%hp,%range,%mage,%pray) > $gettok(%cmb,1,32)) { var %cmb = $v1 Magic }
          msg $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) 14[12RSN: 04 $+ $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) 14× 12Cmb: 04 $+ $gettok(%cmb,1,32) 14× 12Class: 04 $+ $gettok(%cmb,2,32) $+ 14] × [12Att: 04 $+ %att 14× 12Str: 04 $+ %str 14× 12Def: 04 $+ %def 14× 12HP: 04 $+ %hp 14× 12Mage: 04 $+ %mage 14× 12Range: 04 $+ %range 14× 12Prayer: 04 $+ %pray $+ 14]
          if ($gettok(%cmb,1,32) < $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),cmb)) {
            if ($calc(%att + %str) >= $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),attstr)) {
              mode $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) +v $($+(%,pccheck.,$gettok($sockname,2,46),.user),2)
            }
            else {
              ban -u $+ $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),ban) $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) 2
              kick $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) $+($chr(3),$readini(pccheck.ini,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),color1)) $+ You do not meet the minimum requirements (Combat Level $readini(pccheck.ini,n,$($+(%,pccheck.,$gettok($sockname,2,46),.chan),2),cmb) or att+str lvl $v2 $+ ) for this channel.
            }
          }
          else { mode $($+(%,pccheck.,$gettok($sockname,2,46),.chan),2) +v $($+(%,pccheck.,$gettok($sockname,2,46),.user),2) }
        }
      }
    }
  }
}
alias meleecmb {
  if ($0 == 7) { return $calc((($1 + $2) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
  elseif ($0 == 5) { return $calc((($1 + $2) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($5 * 0.125)) }
}

alias rangecmb {
  if ($0 == 7) { return $calc((($5 * 1.5) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
  elseif ($0 == 4) { return $calc((($1 * 1.5) * 0.325) + ($2 * 0.25) + ($3 * 0.25) + ($4 * 0.125)) }
}

alias magecmb {
  if ($0 == 7) { return $calc((($6 * 1.5) * 0.325) + ($3 * 0.25) + ($4 * 0.25) + ($7 * 0.125)) }
  elseif ($0 == 4) { return $calc((($1 * 1.5) * 0.325) + ($2 * 0.25) + ($3 * 0.25) + ($4 * 0.125)) }
}
----------------------
ON *:TEXT:?DefName*:#:{
  if ($ isin $2-) { halt }
  if ($2) {
    writeini Name.ini $address($nick,2) Name $replace($2-,$chr(32),_)
    notice $nick 12Name for4 $address($nick,2) 12saved.)
  }
}
on $*:text:/^[!@.](Compare|Com)/Si:#: {
  set %lalalalaalalal. $iif($left($1,1) == @, msg $chan, notice $nick)
  if (!$3) {
    notice $nick 12Please use the Format below.
    notice $nick 12 $+ $1 <Skill> <Nick1> <Nick2>
    halt
  }
  if ($3 != $null && $4 == $null) {
    if ($readini(Name.ini,$address($nick,2),name) != $null) {
      set %user1 $3
      set %user2 $readini(Name.ini,$address($nick,2),name)
      set %skill $Skillo($remove($2,@,!,.))
      sockopen ComOSS. parsers.o-ss.net 80
      halt
    }
    else {
      set %user1 $3
      set %user2 $nick
      set %skill $Skillo($remove($2,@,!,.))
      sockopen ComOSS. parsers.o-ss.net 80
      halt
    }
  }
  if ($ != $null) {
    set %user1 $3
    set %user2 $4
    set %skill $Skillo($remove($2,@,!,.))
    sockopen ComOSS. parsers.o-ss.net 80
    halt
  }
  else {
    notice $nick 12Please use the Format below.
    notice $nick 12 $+ $1 <Skill> <Nick1> <Nick2>
    halt
  }
}
on *:SOCKOPEN:ComOSS.*: {
  sockwrite -nt $sockname GET /compare.php?user1= $+ %user1 $+ &user2= $+ %user2 $+ &skill= $+ %skill HTTP/1.1
  sockwrite -nt $sockname Host: parsers.o-ss.net
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:ComOSS.*: {
  if (%fdhfdasdfafsfasd == ON) {
    unset %fdhfdasdfafsfasd
    sockclose $sockname
    halt
  }
  if (%skill == $null) {
    set %skill Overall
  }
  if ($sockerr) { halt }
  else {
    var %sgagafdgf
    sockread %sgagafdgf
    tokenize 32 %sgagafdgf
    if (is not in the hi-scores for isin %sgagafdgf) {
      %lalalalaalalal. 12 $+ $1 is not in HiScores for4 %skill )
      sockclose $sockname
      halt
    }
    if (are not in the hi-scores for isin %sgagafdgf) {
      %lalalalaalalal. 12 $+ $1 and $3 are not in HiScores for4 %skill)
      sockclose $sockname
      halt
    }
    if (END isin $1-) {
      %lalalalaalalal. 2[12Compare2]4:12 %user1 $+ :4 $1 12 $+ %User2 $+ :4 $2)
      if ($2 == $1) {
        %lalalalaalalal. 12 $+ %user1 and %user2 have the same4 %skill 12level.
        sockclose $sockname
        halt
      }
      if ($1 < $2) {
        %lalalalaalalal. 12 $+ %user2 has4 $calc($remove($2,$chr(44),) - $remove($1,$chr(44),)) 12more %skill levels than %user1 $+ .
        sockclose $sockname
        halt
      }
      if ($1 > $2) {
        %lalalalaalalal. 12 $+ %user1 has4 $calc($remove($1,$chr(44),) - $remove($2,$chr(44),)) 12more %skill levels than %user2 $+ .
        sockclose $sockname
        halt
      }
    }
  }
}
alias -l Skillo {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 4) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 5) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing
  elseif ($1 == 15) || ($regex($1,/^mine(ing)?$/Si)) return Mining
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft
  elseif ($1 == 22) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
  elseif ($1 == 22) sockclose ComOss. | %lalalalaalalal. 12 $+ $1 is not a skill) | set %fdhfdasdfafsfasd OFF
}
----------------------------
on $*:TEXT:/^[!@](grats|level|lvl)/Si:#:{ 
  if (!$3) notice $nick Syntax: $1 level skill 
  elseif ($2 > 99 || $2 < 1) && ($skill($3) != Overall) notice $nick Error: The level must be between 1-99. Syntax: $1 level skill 
  elseif (!$skill($3)) notice $nick Error: $+(",$3,") is not a valid skill. Syntax: $1 level skill 
  elseif ($skill($3) == Overall && $2 !isnum 32-2277) notice $nick Overall levels must be 32-2277 
  elseif ($skill($3) == Combat && $2 !isnum 3-126) notice $nick Combat levels must be 3-126 
  set %clvl $rand(1,3) 
  if (%clvl == 1) msg # 0,12æ¸2,12`æ12,2æ¸1,2`æ2,1æ¸0,1-=-Congrats on level $- $2 $skill($3) $+ , $nick !-=- 2,1`æ1,2æ¸12,2`æ2,12æ¸0,12`æ12
  if (%clvl == 2) msg # 4,1X1,4x4,1X1,4x4,1- Congrats on level $- $2 $skill($3) $+ , $nick !-1,4x4,1X1,4x4,1X 
  if (%clvl == 3) msg # 8|0,8|8,7|4,7|7,4|5,4|4,5|1,5|5,1|4,1 4,1-Congrats on level  $- $2 $skill($3) $+ , $nick !- 5,1|1,5|4,5|5,4|7,4|4,7|8,7|0,8|8,0| 
} 
alias -l skill { 
  if ($regex($1,/^c(o)?mb(at)?$/Si)) return Combat 
  elseif ($regex($1,/^((skill)?total|overall)$/Si)) return Overall 
  elseif ($regex($1,/^at(t|k|tack)$/Si)) return Attack 
  elseif ($regex($1,/^def(en[cs]e)?$/Si)) return Defence 
  elseif ($regex($1,/^str(ength)?$/Si)) return Strength 
  elseif ($regex($1,/^(hp|hit(s|points)?)$/Si)) return Hitpoints 
  elseif ($regex($1,/^rang(e|er|ed|ing)$/Si)) return Ranged 
  elseif ($regex($1,/^Pray(er)?$/Si)) return Prayer 
  elseif ($regex($1,/^mag(e|ic)$/Si)) return Magic 
  elseif ($regex($1,/^cook(ing)?$/Si)) return Cooking 
  elseif ($regex($1,/^(wc(ing)?|woodcut(ting)?)$/Si)) return Woodcutting 
  elseif ($regex($1,/^fletch(ing)?$/Si)) return Fletching 
  elseif ($regex($1,/^fish(ing)?$/Si)) return Fishing 
  elseif ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking 
  elseif ($regex($1,/^craft(ing)?$/Si)) return Crafting 
  elseif ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing 
  elseif ($regex($1,/^min(e|e?ing)$/Si)) return Mining 
  elseif ($regex($1,/^herb(law|lore)?$/Si)) return Herblore 
  elseif ($regex($1,/^agil(ity)?$/Si)) return Agility 
  elseif ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving 
  elseif ($regex($1,/^slay(er|ing)?$/Si)) return Slayer 
  elseif ($regex($1,/^farm(er|ing)?$/Si)) return Farming 
  elseif ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft 
  elseif ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter 
} 
--------------------------
on *:TEXT:Xuck, Getout:#:{if  ($nick == Tony) { 
  Part $chan Owner Told Me To Leave 
} 
on *:TEXT:Xuck, hop:#: { if ($nick == Tony) { hop $chan } } 

on *:TEXT:Xuck, Quit:#: { if ($nick == Tony) { /quit }
----------------------------
on *:TEXT:!setpcw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    writeini PestControl.ini WORLD $chan $2. Set by: $nick At:  $date $time  (+2 GMT)
    msg $chan 4Pc world 12has been updated in4 $chan $- 12, Type 4!world12.
  }
}
on *:TEXT:!world:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ($readini PestControl.ini WORLD $chan == $null) /notice $nick World for $chan not set. type !setpcw to set world.  
    else {
      /notice $nick 4[12PC World4]12 The current 4Pest Control12 world is4 $readini PestControl.ini WORLD $chan
    }
  }
}
on *:TEXT:!pcw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ($readini PestControl.ini WORLD $chan == $null) /notice $nick World for $chan not set. type !setpcw to set world.  
    else {
      /notice $nick 4[12PC World4]12 The current 4Pest Control12 world is4 $readini PestControl.ini WORLD $chan
    }
  }
}
on *:TEXT:!setpcw*:?:{
  if ($2 == $null || $3 == $null) {
    /msg $nick 12To set 4PC World12 type 4!setpcw12 #channel 4world
  halt }
  else {
    if ($nick isop $2 || $nick ishop $2) {
      .writeini PestControl.ini WORLD $2 $3 Set by: $nick At:  $date $time (+2 GMT)
      msg $2 12world has been updated in4 $chan $- 12, Type 4!world12.
    }
  }
}
on *:TEXT:!suggest**:#:{
  /set %suggestedworld $nick suggested world $2
  .msg $chan 4$nick 12suggested new world.. type 4!sw12 to see it
}
on *:TEXT:!sw*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /notice $nick %suggestedworld
  }
}
on *:TEXT:!aov**:#:{
  if ($nick isop $chan) || ($nick ishop $chan) {
    /writeini avoice.ini ADRESSES $address($2,2) $2
    /msg $chan 12added4 $2 12to 4auto voice12 list
    /mode $chan +v $2
  }
}
on *:join:#:{
  if ($readini(avoice.ini,ADRESSES,$address($nick,2))) {
    /mode $chan +v $nick
} }
--------------------------------
ON *:TEXT:!SetPoll*:#:{
  if (!$2) {
    notice $nick Error: !SetPoll Poll Here
    halt
  }
  if ($readini(Poll.ini,$chan,Status) == ON) {
    notice $nick 12Please wait,4 there is a poll still active.
    halt
  }
  if ($readini(Poll.ini,$chan,Status) == $null) {
    writeini Poll.ini $chan Status ON
    writeini Poll.ini $chan Starter $address($nick,2)
    writeini Poll.ini $chan Poll $2-
    writeini Poll.ini $chan Yes 0
    writeini Poll.ini $chan No 0
    msg $chan 4 $- $nick 12has just set a poll. The poll is:4 " $+ $2- $+ "
    msg $chan 12Type 4!Yes12 to vote Yes - Type 4!No12 to vote No.
    halt
  }
}
ON *:TEXT:!Poll*:#:{
  if ($readini(Poll.ini,$chan,Status) == ON) {
    notice $nick 12The poll is:4 $readini(Poll.ini,$chan,Poll)
    halt
  }
  else {
    notice $nick 12There is 4NO12 poll set for4 $chan
  }
}
ON *:TEXT:!Yes*:#:{
  if ($readini(Poll.ini,$chan,Status) == ON && $readini(Poll.ini,$chan,$address($nick,2)) == Voted) {
    notice $nick 4BITCH!12 you can only vote 4ONCE!
    halt
  }
  if ($readini(Poll.ini,$chan,Status) == ON) {
    writeini Poll.ini $chan Yes $calc( $readini(Poll.ini,$chan,Yes) + 1)
    writeini Poll.ini $chan $address($nick,2) Voted
    notice $nick 12Thanks for Voting. There is now4 $readini(Poll.ini,$chan,Yes) 12votes.
    halt
  }
  else {
    notice $nick 12There is 4NO12 poll in4 $chan $- .
  }
}
ON *:TEXT:!No*:#:{
  if ($readini(Poll.ini,$chan,Status) == ON && $readini(Poll.ini,$chan,$address($nick,2)) == Voted) {
    notice $nick 4BITCH!12 you can only vote 4ONCE!
    halt
  }
  if ($readini(Poll.ini,$chan,Status) == ON) {
    writeini Poll.ini $chan No $calc( $readini(Poll.ini,$chan,No) + 1)
    writeini Poll.ini $chan $address($nick,2) Voted
    notice $nick 12Thanks for Voting. There is now4 $readini(Poll.ini,$chan,No) 12votes.
    halt
  }
  else {
    notice $nick 12There is 4NO12 poll.
  }
}
ON *:TEXT:!EndPoll*:#:{
  if (($readini(Poll.ini,$chan,Status) == ON) && ($readini(Poll.ini,$chan,Starter) == $address($nick,2) || $nick isop $chan || $nick ishop $chan)) {
    msg $chan 12The poll for4 $chan $+ 12, started by4 $nick 12is now over.
    msg $chan 12The results are:4 $readini(Poll.ini,$chan,No) 12No votes -4 $readini(Poll.ini,$chan,Yes) 12Yes votes
    remini Poll.ini $chan
    halt
  }
  if ($readini(Poll.ini,$chan,Status) == $null) {
    notice $nick 12There is 4NO12 poll set for4 $chan
    halt
  }
  else {
    notice $nick 12You must have 4STARTED12 the poll to 4END12 the poll.
  }
}
ON *:TEXT:!Votes*:#:{
  if ($readini(Poll.ini,$chan,Status) == ON) {
    notice $nick 12The results are:4 $readini(Poll.ini,$chan,No) 4No12 votes -4 $readini(Poll.ini,$chan,Yes) 4Yes12 votes
    halt
  }
  else {
    notice $nick 12There is 4NO12 poll for4 $chan
  }
}
----------------------
on $*:TEXT:/^[!@](cash|price(check)?|gold)/Si:#:{
  if (!$2) { notice $nick 12[4>>>12Price Guide4<<<12]4:12 You must supply a item - 4!price 12<4item12> }
  else {
    inc %id
    set $+(%,price.item.,%id) $replace($2-,$chr(32),$chr(37) $+ 20)
    set $+(%,price.style.,%id) $iif($left($1,1) == @,msg $chan,notice $nick) 12[4>>>12Price Guide4<<<12]4:12
    sockopen $+(price.,%id) zybez.net 80
  }
}
on *:SOCKOPEN:price.*:{
  var %id = $gettok($sockname,2,46)
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $($+(%,price.item.,%id),2) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
  sockwrite -nt $sockname Host: www.zybez.net
  sockwrite -nt $sockname $+($crlf,$crlf)
}
on *:SOCKREAD:price.*:{
  var %id = $gettok($sockname,2,46)
  var %style = $($+(%,price.style.,%id),2), $&
    %item = $replace($($+(%,price.item.,%id),2),$chr(37) $+ 20,$chr(32))
  if ($sockerr) {
    %style An error occured while connecting
    unset $+(%,price.*)
    sockclose $+(price.,%id)
  }
  else {
    var %read
    sockread %read

    if (*<td class="tablebottom" colspan="5">12Your search did 4not12 return any results. 4Please12 make sure your spelling is correct and that you are typing full words.</td>* iswm %read) {
      %style No results were found for " $+ %item $+ "
      unset $+(%,price.*.,%id)
      sockclose $+(price.,%id)
    }
    if (*<!--name--><td class='tablebottom'>*</td>* iswm %read) {
      tokenize 32 $nohtml(%read)
      set $+(%,price.name.,%id) $1-
    }
    if (*<!--price--><td class="tablebottom">*</td>* iswm %read) {
      tokenize 32 $nohtml(%read)
      set $+(%,price.price.,%id) $1-
    }
    if (*<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td>* iswm %read) {
      tokenize 32 $nohtml(%read)
      inc $+(%,price.times.,%id)
      if ($($+(%,price.times.,%id),2) > 5 && !$($+(%,price.stop.,%id),2)) {
        %style 12Max results of4 512 allowed. Try making your search for "4 $+ %item $+ 12" more specific.
        unset $+(%,price.*.,%id)
        set $+(%,price.stop.,%id) true
        sockclose $+(price.,%id)
      }
      elseif ($($+(%,price.times.,%id),2) <= 5) {
        %style 12-4Item12 -4 $($+(%,price.name.,%id),2) $&
          12-4Price12 -4 $($+(%,price.price.,%id),2) $&
          12-4Category12 -4 $1-
        unset $+(%,price.name.,%id)
        unset $+(%,price.price.,%id)
      }
    }
    if (*</html>* iswm %read) {
      unset $+(%,price.*.,%id)
      sockclose $+(price.,%id)
    }
  }
}
alias -l nohtml {
  var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
  %x = $replace(%x,&nbsp;,$null)
  return %x
}
----------------------------
alias c1 { return $+($chr(3),6,$1-) }
alias c2 { return $+($chr(3),04,$1-) }
alias c3 { return $+($chr(3),12,$1-) }

alias -l repmist {
  if ($regex($1-,/bbc( )?(1|one)/Si)) return bbc1
  elseif ($regex($1-,/bbc( )?(2|two)/Si)) return bbc2
  elseif ($regex($1-,/bbc( )?(3|three)/Si)) return bbc3
  elseif ($regex($1-,/bbc( )?(4|four)/Si)) return bbc4
  elseif ($regex($1-,/chan(nel)?( )?(4|four)/Si)) return channel 4
  elseif ($regex($1-,/chan(nel)?( )?(5|five)/Si)) return five
  else return $1-
}
on $*:text:/^[!@](tv|whatson)/Si:#:{
  if (!$2) {
    notice $nick Syntax: $1 CHANNEL [TIME]. Time is optional. If left blank will display what is playing at the moment. For a list of channels, type !tv chans
    halt
  }
  var %sckid = $+($rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9),$rand(0,9))
  set %way. [ $+ [ %sckid ] ] $iif($left($1,1) == !,notice $nick,msg $chan)
  if ($2 == chans) {
    %way. [ $+ [ %sckid ] ] $c1(For a list of accepted channels, see) $c3($chr(31) $+ http://www.guardian.co.uk/TV/ $+ $chr(31))
    halt
  }
  set %tvwntdtime. [ $+ [ %sckid ] ] $regsubex($1-,/ ([0-9]+)(?: )?(p(?:m)?|a(?:m)?)/Si,$chr(32) $+ \1 $+ :00 $+ \2)
  set %tvwntdtime. [ $+ [ %sckid ] ] $iif($regex(%tvwntdtime. [ $+ [ %sckid ] ],/([0-9]+)([:\.])([0-9]+)(a(?:m)?|p(?:m)?)?/),$regml(1) $+ $regml(2) $+ $regml(3) $+ $regml(4) $+ $regml(5),$asctime(h:nntt))
  set %tvchan. [ $+ [ %sckid ] ] $repmist($remove($2-,%tvwntdtime. [ $+ [ %sckid ] ]))
  set %tvwntdtime. [ $+ [ %sckid ] ] $replace(%tvwntdtime. [ $+ [ %sckid ] ],.,:)
  sockopen tvlist. [ $+ [ %sckid ] ] www.guardian.co.uk 80

}

on *:SOCKOPEN:tvlist.*: {
  sockwrite -nt $sockname GET /TV/bbc1_carlton.html HTTP/1.1
  sockwrite -nt $sockname Host: www.guardian.co.uk
  sockwrite -nt $sockname $crlf
}

on *:SOCKREAD:tvlist.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if ($regex(%sockreader,/<A HREF="(.*?)">((?:.*?) $+ %tvchan. [ $+ [ $right($sockname,5) ] ] $+ (?:.*?))</A><BR>$/Si)) {
      set %tvchanpage. [ $+ [ $right($sockname,5) ] ] $regml(1)
      set %tvchanname. [ $+ [ $right($sockname,5) ] ] $regml(2)
      %way. [ $+ [ $right($sockname,5) ] ])
      sockopen tvchan. [ $+ [ $right($sockname,5) ] ] www.guardian.co.uk 80
      sockclose $sockname
    }
    if (*<!-- END SIDEBAR -->* iswm %sockreader) {
      %way. [ $+ [ $right($sockname,5) ] ] $c3(No such channel as:) $c2(%tvchan. [ $+ [ $right($sockname,5) ] ]) $+ $c3(. Type $chr(3) $+ !tv chans $+ $chr(3) $to see a list of accepted channels.)
      %way. [ $+ [ $right($sockname,5) ] ])
    }
  }
}

on *:SOCKOPEN:tvchan.*: {
  sockwrite -nt $sockname GET $+(/TV/,%tvchanpage. [ $+ [ $right($sockname,5) ] ]) HTTP/1.1
  sockwrite -nt $sockname Host: www.guardian.co.uk
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:tvchan.*: {
  if ($sockerr) {
    %way. [ $+ [ $right($sockname,5) ] ] Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message.
    halt
  }
  else {
    var %sockreader0
    sockread %sockreader0
    if (*<FONT FACE="Geneva,Arial,sans-serif" SIZE="2">* iswm %sockreader1 && *<!-- start of TV* style -->* iswm %sockreader9 && $regex(%sockreader5,/<B>(.*?)<\/B>/)) {

      set %tvlasttime. [ $+ [ $right($sockname,5) ] ] %tvtime. [ $+ [ $right($sockname,5) ] ]
      set %tvtime. [ $+ [ $right($sockname,5) ] ] $replace($regml(1),.,:)

      if ($calc($ctime($date %tvwntdtime. [ $+ [ $right($sockname,5) ] ]) - $ctime($date %tvlasttime. [ $+ [ $right($sockname,5) ] ])) >= 0) && ($calc($ctime($date %tvtime. [ $+ [ $right($sockname,5) ] ]) - $ctime($date %tvwntdtime. [ $+ [ $right($sockname,5) ] ])) > 0) {

        %way. [ $+ [ $right($sockname,5) ] ] $c3(At) $c2(%tvwntdtime. [ $+ [ $right($sockname,5) ] ]) $+ $c3(, on channel:) $c2(%tvchanname. [ $+ [ $right($sockname,5) ] ])
        %way. [ $+ [ $right($sockname,5) ] ] $c3(Title:) $c2(%tvtitle. [ $+ [ $right($sockname,5) ] ]) $c3($chr(40) $+ %tvlasttime. [ $+ [ $right($sockname,5) ] ] - %tvtime. [ $+ [ $right($sockname,5) ] ] $+ $chr(41))
        %way. [ $+ [ $right($sockname,5) ] ] $c3(Description:) $c2($iif(!%tvdesc. [ $+ [ $right($sockname,5) ] ],~ None ~,$replace(%tvdesc. [ $+ [ $right($sockname,5) ] ],$chr(32) $+ <I>,$chr(2),</I>,$chr(2))))

        unset %*. [ $+ [ $right($sockname,5) ] ]
        unset %sockreader*
        sockclose $sockname
        halt
      }
      noop $regex(%sockreader0,/<B>(.*?)<\/B>(.*?)$/)
      set %tvtitle. [ $+ [ $right($sockname,5) ] ] $regml(1)
      set %tvdesc. [ $+ [ $right($sockname,5) ] ] $regml(2)
    }
    if (*</HTML> iswm %sockreader0) {
      %way. [ $+ [ $right($sockname,5) ] ] $c3(There are no shows on) $c2(%tvchanname. [ $+ [ $right($sockname,5) ] ]) $c3(at) $c2(%tvwntdtime. [ $+ [ $right($sockname,5) ] ]) $+ $c1(.)

    }
    if (%sockreader0) {
      var %x = 9
      while (%x > -1) {
        if ($len(%sockreader [ $+ [ %x ] ]) <= 850) set %sockreader [ $+ [ $calc(%x + 1) ] ] %sockreader [ $+ [ %x ] ]
        dec %x
      }
    }
  }
}
---------------------
on $*:TEXT:/^[!@.]shop/Si:#:{ 
  if (!$2) { 
    notice $nick *** [ Shop ]: You must supply a shop item 
  } 
  else { 
    inc %n 
    set $+(%,shop.style.,%n) $iif($left($1,1) == @,msg $chan,notice $nick) *** [ Shop ]: 
    set $+(%,shop.word.,%n) $replace($2-,$chr(32),+) 
    set $+(%,shop.nick.,%n) $nick 
    sockopen $+(shop.,%n) www.zybez.net 80 
  } 
} 
on *:SOCKOPEN:shop.*:{ 
  var %id = $gettok($sockname,2,46) 
  sockwrite -n $sockname GET /shops.php?search_area=itemsearch&search_term= $+ $($+(%,shop.word.,%id),2) HTTP/1.1 
  sockwrite -n $sockname Host: www.zybez.net 
  sockwrite -n $sockname $+($crlf,$crlf) 
} 
on *:SOCKREAD:shop.*:{ 
  var %id = $gettok($sockname,2,46) 
  var %style = $($+(%,shop.style.,%id),2), $& 
    %word = $($+(%,shop.word.,%id),2), $& 
    %nick = $($+(%,shop.nick.,%id),2) 
  if ($sockerr) { 
    %style An error occured while connecting 
    unset $+(%,shop.*) 
    sockclose $+(shop.,%id) 
  } 
  else { 
    var %read 
    sockread %read 

    if (*Sorry, no entries match your search criteria* iswm %read) { 
      %style No results found for " $+ %word $+ " 
      unset $+(%,shop.*) 
      sockclose $+(shop.,%id) 
    } 
    if (*<td class="tablebottom">*</td>* iswm %read) { 
      tokenize 32 $nohtml(%read) 
      if (!$($+(%,shop.item.,%id),2)) { 
        set $+(%,shop.item.,%id) $1- 
        halt 
      } 
      elseif (!$($+(%,shop.price.,%id),2)) { 
        set $+(%,shop.price.,%id) $1- 
        halt 
      } 
      elseif (!$($+(%,shop.stock.,%id),2)) { 
        set $+(%,shop.stock.,%id) $1- 
        halt 
      } 
      elseif (!$($+(%,shop.shop.,%id),2)) { 
        set $+(%,shop.shop.,%id) $1- 
        %style Item: $($+(%,shop.item.,%id),2) Price: $($+(%,shop.price.,%id),2) Stock: $($+(%,shop.stock.,%id),2) Shop: $($+(%,shop.shop.,%id),2) 
        unset $+(%,shop.*) 
        sockclose $+(shop.,%id) 
      } 
    } 
    if (</html> isin %read) { 
      unset $+(%,shop.*) 
      sockclose $+(shop.,%id) 
    } 
  } 
}
---------------------
on $*:TEXT:/^[!.]check (on|off)/Si:#:{
  if ($address($nick,2) == $address($me,2)) {
    if ($2 == on) { set %check on | notice $nick I will message you the channels now. }
    elseif ($2 == off) { unset %check | notice $nick I will no longer message you the channels now. }
  }
}
alias -l c1 { return $+(,$1-,) }
alias -l c2 { return $+(,$1-,) }
on *:JOIN:#:{
  if (%check == on) {
    enable #GroupRaw
    whois $nick
    set %whois.nick $nick
    set %whois.dest $chan
  }
  else { halt }
}
#GroupRaw off
raw 319:*:{
  if (!%whois.dest) { halt }
  var %chans $3-
  msg %whois.dest $+($c1(**[),$c2(Channels),$c1(]:)) $c2(%whois.nick) $c1(is on:) $c2(%chans)
  unset %whois.*
  disable #GroupRaw
}
#GroupRaw END
-------------------
ON *:INVITE:#:{
  if ($me == [TH]Xuck) {
    set %bot.choice $rand(1,4)
    if (%bot.choice == 1) {
      Join $chan
      halt
    }
    if (%bot.choice == 2) {
      msg [RS]Xuck Join $chan
      halt
    }
    if (%bot.choice == 3) {
      msg [PK]Xuck Join $chan
      halt
    }
  }
  if (%bot.choice == 4) {
    msg [ER]Xuck Join $chan
    halt
  }
}
else {
  notice $nick Please invite [TH]Xuck First 
}

ON *:TEXT:join*:?:{
  if ($nick == [TH]Xuck && $chR(35) isin $2) {
    join $2
    close -m $nick
    halt
  }
}
--------------------------
On *:JOIN:#: {
  if ($nick isop $chan) {
    inc %opusers [ $+ [ $chan ] ]
    /notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %opusers $+ -12 Operator that joined4 $chan $+ .
    halt
  }
  if ($nick ishop $chan) {
    inc %hopusers [ $+ [ $chan ] ]
    /notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %hopusers $+ - 12Halfop that joined4 $chan $+ .
    halt
  }
  if ($nick isvoice $chan) {
    inc %vousers [ $+ [ $chan ] ]
    /notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %vousers $+ - 12Voice that joined4 $chan $+ .
    halt
  }
  if ($nick isreg $chan) {
    inc %regusers [ $+ [ $chan ] ]
    /notice $nick 12Hello,4 $nick $+ 12. You're the4 - $+ %regusers $+ - 12User that joined4 $chan $+ .
    halt
  }
}
-------------------------------
ON *:INVITE:#:{
  if ($me == [TH]Xuck) {
    set %bot.choice $rand(1,7)
    if (%bot.choice == 1) {
      Join $chan
      halt
    }
    if (%bot.choice == 2) {
      msg [RS]Xuck Join $chan
      halt
    }
    if (%bot.choice == 3) {
      msg [PK]Xuck Join $chan
      halt
    }
  }
  if (%bot.choice == 4) {
    msg [ER]Xuck Join $chan
    halt
  }
}
if (%bot.choice == 5) {
  msg [IP]Xuck Join $chan
  halt
}
if (%bot.choice == 6) {
  msg [FI]Xuck Join $chan
  halt
}
if (%bot.choice == 7) {
  msg [DP]Xuck Join $chan
  halt
}
else {
  notice $nick Please invite [TH]Xuck First 
}
ON *:TEXT:join*:?:{
  if ($nick == [TH]Xuck && $chR(35) isin $2) {
    join $2
    close -m $nick
    halt
  }
}
----------------------
on *:TEXT:!count:#: {
  msg $chan 12There are4 $nick($chan,0) 12nicks in4 $chan
}
---------------------