on *:TEXT:!event*:#: { .notice $nick We are now holding a monthly Dueling Arena Event, this is your one chance to own an OP now doesn't that sound good? All you have to do is behave and bring people into the channel. Sounds easy right? Then get to it! } 
on *:TEXT:!kq*:#: { msg $chan KQ trip today, we need about 3-4 people with veracs, donations of sharks and P Pots are appreciated . }

on *:TEXT:!tb*:#: { 
  if ($nick isop $chan) || ($nick ishop $chan) {
    if (!$nick($chan,$2)) { 
      .notice $nick $2 isn't on $chan 
    } 
    elseif ($3 !isnum) { 
      .notice $nick The time for the ban is invalid, it must be a number.
    } 
    elseif (!$4) { 
      .notice $nick Please put a reason.
    } 
    elseif ($nick($chan,$2,oh)) { 
      notice $nick I will not use this command on Ops and Halfops
    } 
    elseif ($nick($chan,$nick,oh)) { 
      inc %kcount 
      ban $+(-,ku,$calc($3 * 60)) $chan $2 3 4 $2 is thrown inside a volcano! BURN IN HELL - 5Noobs burnt:4 ( $+ %kcount $+ ) 
      .notice $2 You have been banned from $chan for $3 minutes Reason: $4- - $3
    } 
  } 
  on *:unban:#:{ 
    if $bnick { .notice $bnick You have been unbanned from $chan } 
  }
}

on *:JOIN:#:{ 
  if ($nick != Sefirosu|Sephiroth) { 
    /notice $nick 12Hello5 $nick 12Require a voice within3 $chan  ?  
    /notice $nick 12Then please use your Runescape Nick and also Pm a H-Op or an OP in Runescape
  }
}

on *:TEXT:!commands*:#: { /msg $nick $2 the commands are !pm, !cmb, !price, !stats, !wsuggest, !pcw, !Requirements, !Rules, !World, !Worldinfo, !calc, !clan. }
on $*:TEXT:/^[@!]k ./Si:#:{ if $nick($chan,$nick,oh) { kick $chan $2 $3- } }
on *:TEXT: brb*:#: { msg $chan $2 $nick Remember to check the PCW when you come back. }
on *:TEXT:!Requirements*:#* { .notice $nick The Requirements with #Sacred-PC are 90+ combat and /or 80 Magic/Ranged. }
on *:TEXT: !pm*:#: { msg $chan $2 1DON'T GOT A 12VOICE?1 THEN PM A 7 H-OP1 OR AN 4 OP 1 IN RUNESCAPE FOR 12VOICE. }
on *:TEXT: back*:#: { msg $chan $2 $nick Type !PCW incase the world may have changed while you were away. }
on *:TEXT: !wsuggest*:#: { .notice $nick Thank you for suggesting a world our admin are checking it out now. }
on *:TEXT:!Rules*:#: { .notice $nick $2 Please Type !Rule 1 To !Rule 6 For Rules 1 though to 6. }
on *:TEXT:!World*:#:{ msg $chan If you wish to help us out by finding worlds please type /join #Sacred-Worlds or simply double click #Sacred-Worlds , MAKE SURE you read the Topic . }
on *:TEXT:!info*:#: { msg $chan Remember that NO access is given in #Sacred-Worlds, so even if your an H-OP in here, you won't have it in #Sacred-Worlds. }
on *:TEXT:!Rule 1*:#: { /msg $nick Do not Multi PC. }
on *:TEXT:!Rule 2*:#: { /msg $nick Do not use @ signs. }
on *:TEXT:!Rule 3*:#* { /msg $nick NEVER say world in room }
on *:TEXT:!Rule 4*:#* { /msg $nick To gain Autovoice within #Sacred-PC you must stay active and also bring new people into the chanel, that also goes for H-op's. }
on *:TEXT:!Rule 5*:#* { /msg $nick You must ALWAYS use your RSN within #Sacred-PC so we know who you are. }
on *:TEXT:!Rule 6*:#* { /msg $nick No swearing of anykind is permitted within #Sacred-PC. }
Coded By Pc_Dark
OSS Team - Admin@O-SS.Net
http://o-ss.net
!calc | @calc
*/
on $*:text:/^[!@.>]calc */Si:#: {
  ;;; If there is a equation;;;;
  if ($2) {
    $iif($left($1,1) == @ && ($nick !isreg $chan),msg $chan,.notice $nick) 02 $2- is:02 10 $bytes($calc($replace($remove($2-,$chr(32)),K,000,M,000000)),b) 10
    /halt
  }
  /notice $nick Specify an Equation!
}
on *:text:!clan*:#:{
  /set %csearch.chan $chan
  /set %csearch.nick $2
  if ($sock(clansearch)) { /sockclose search }
  /sockopen clansearch runehead.com 80
}

on *:sockopen:clansearch:{
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %csearch.nick $+ &searchtype=exact HTTP/1.1
  sockwrite -nt $sockname Host: runehead.com
  sockwrite -nt $sockname $crlf $crlf
}

on *:sockread:clansearch:{
  /var %cstatus  
  sockread %cstatus
  if ($SockErr) { /msg %csearch.chan Sorry an error occured. }
  else {
    if ( *'ml.php?clan=*'>*</a></td> iswm %cstatus ) { /msg %csearch.chan %csearch.nick is in $htmlfree(%cstatus) }
  }
}
alias -l htmlfree {
  ; Cleans all html from a file
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
}
alias c1 { return $+(07,$1-) }
alias c2 { return $+(04,$1-) }
alias c3 { return $+(10,$1-) }
alias c4 { return $+(02,$1-) }
alias c5 { return $+(04,$1-) }
alias c6 { return $+(03,$1-) }

on *:TEXT:!kb*:*:{ if ($nick isop $chan) {
    .mode # -o $2
    .mode $chan +b $address($2,3) $2 $address($2,4) $address($2,6) )
    .kick $chan $2  $3-  $+ [ $+ $nick $+ ]
.msg $chan $2 <---= N00b got owned!! } }

on *:TEXT:!setpcw*:*: {
  if ($nick isop $chan) || ($nick ishop $chan) {
    set %world $2
    notice $nick Changed Pest control World to $2 $+ .
  }
  else { /notice $nick Sorry, You are not a Half-Op or an Op, Only Half-Ops and Op's can set world. }
}
on *:VOICE:#:{ if ($vnick == $me) { inc %vo 1 | msg $chan Thanks For The Voice $nick 2 (I've been Voiced4 %vo 2Times) }
}
on *:devoice:#:{ if ($vnick == $me) { inc %dv 1 | msg $chan There goes my voice thanks alot $nick 4 (I've lost voice4 %dv 7times) }
}
on *:op:#:{ if ($opnick == $me) { inc %op 1 | msg $chan YaY! i get OP Thank you $nick 5(I've had12 %op 4ops) }
}
on *:deop:#:{ if ($opnick == $me) { inc %do 1 | msg $chan Noo! not my op status Evil Bitch....was not me, Please OP me again $nick 3(I've had14 %do 5Deops) }
}
on *:help:#:{ if ($hnick == $me) { inc %ho 1 | msg $chan Thanks For The half op $nick 2(I've been halfopd4 %ho 7Times) }
}
on *:dehelp:#:{ if ($hnick == $me) { inc %dho 1 | msg $chan Aww Please give me my half op back $nick 15(I've lost halfop4 %dho 5Times) }
}
}
on $*:text:/^[!@]price(s|check)*/Si:#: {
if ( !$2 ) { notice $nick Sorry you must specify what to search for - !price <item> }
else {
  /var %number 1
  while ($sock(price.socket. $+ %number)) { /inc %number }
  if (!* iswm $1) { /set %price.displaystyle. [ $+ [ %number ] ] private }
  /set %price.item. [ $+ [ %number ] ] $2-
  /set %price.nick. [ $+ [ %number ] ] $nick
  /set %price.chan. [ $+ [ %number ] ] $chan
  /sockopen $+(price.socket.,%number) zybez.net 80
} ;Closes Else
} ;Ends the !pricecheck section

on *:sockopen:price.socket.*:{
  sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ $replace(%price.item. [ $+ [ $right($SockName,-13) ] ] ,$chr(32),$chr(43)) $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
  sockwrite -nt $sockname Host: zybez.net
  sockwrite -nt $sockname $crlf $crlf
}

on *:sockread:price.socket.*:{
  var %i $right($sockname,-13)
  if ($sockerr) { /notice %price.nick. [ $+ [ %i ] ] Sorry but an error occured while searching for %price.item. [ $+ [ %i ] ] | halt }
  else {
    var %temptext
    sockread %temptext
    ;Once bot gets the Item + Price which is represented my %readnextline == 2, it runs this to display the results for the user then restarts the whole proccess.

    if (%readnextline == 2) {
      /inc %price.displayed. [ $+ [ %i ] ]
      /var %price.displayprice $htmlfree(%temptext)
      /var %message 12,15 %price.displayitem. [ $+ [ %i ] ] - %price.displayprice
      /unset %readnextline

      ; Limits how many items are displayed before it stops reading. Prevents the bot from flooding.
      if ( %price.displayed. [ $+ [ %i ] ] < 6 ) {
        if ( %price.displaystyle. [ $+ [ %i ] ] == private ) { /notice %price.nick. [ $+ [ %i ] ] %message }
        else { /msg %price.chan. [ $+ [ %i ] ] %message }
      } ; Closes if statement - if ( %price.displayed. [ $+ [ %i ] ] < 6 )
      else { /notice %price.nick. [ $+ [ %i ] ] Sorry but your search for " $+ %price.item. [ $+ [ %i ] ] $+ " was not specific enough. Please narrow your searh down, ie: Rune --> Rune Platelegs | /sockclose $+(price.socket.,%i) | /unset %price.*. [ $+ [ %i ] ] }
    } ; Closes if statement - if (%readnextline == 2)

    if (%readnextline == 1) { /set %price.displayitem. [ $+ [ %i ] ] $htmlfree(%temptext) | /set %readnextline 2 }
    if ( *<img src="/img/member.gif"* iswm %temptext || <td class="tablebottom"><!-- Blank --></td> isin %temptext || <!-- <td class="tablebottom">Zybez is screwing up our parser because we don't credit them. ^_^</td> isin %temptext || <td class="tablebottom">http://www.zybez.net</td> --> isin %temptext) { /set %readnextline 1 }
    if (*Your search did not * iswm %temptext) { /notice %price.nick. [ $+ [ %i ] ] Sorry I did not find " $+ %price.item. [ $+ [ %i ] ] $+ " in the Zybez database. Please make sure you spelled everything correctly and the item you are searching for exists in Runescape. }
  } ; Closes else
} ;Ends the sockread section

on *:sockclose:price.socket.*:{ /unset %price.*. [ $+ [ $right($SockName,-13) ] ] }


alias -l htmlfree {
  ; Cleans all html from a file
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x
} ;Ends the html cleaner alias   

on 1:text:*!nlvl*:#:{ 
  var %nlvl = $rand(1,4)
  describe $chan is looking on hiscores...
  if (%nlvl == 1) .timer 1 2 msg $chan 12Your combat lvl is 46...(noob!)
  if (%nlvl == 2) .timer 1 2 msg $chan 6I'm sorry to say but you'r a noob...
  if (%nlvl == 3) .timer 1 2 msg $chan 12What to lazy to look say !stats? 6(noob)
  if (%nlvl == 4) .timer 1 2 msg $chan 9I'll give you his combat lvl if you give me 5 bucks.
}
on $*:TEXT:/^[@!]thebigredbutton ./Si:#:{ if $nick($chan,$nick,oh) { kick $chan $2 $3- } }
on *:TEXT:`game*:#: { .notice $2 $nick i have a fun game i think u will like but u have to say `2. }
on *:TEXT:`2*:#: { .notice $2 $nick the game is realy realy funny just say `3. }
on *:text:`3*:#: { .notice $@ $nick to start just say bigredbutton. }

alias c1 { return $+(12,$1-) }
alias c2 { return $+(04,$1-) }
on *:text:*:#: { 
  tokenize 32 $strip($1-)
  if ($left($1,1) !isin @!.) halt
  if ($right($1,-1) == stats) {
    var %style = astats
    if ($2 == zezima) {
      hadd -u10 zezima.flood $+($nick,.,$ticks) 1
      if ($hget(zezima.flood,0).item > 6) halt
    }
  }
  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) == setname) && ($2) {
    writeini DefRSN.ini RSNs $mask($fulladdress,3) $replace($2-,$chr(32),-)
    .notice $nick You're default RSN for the host $mask($fulladdress,3) has been set to $2-
    halt
  }
  else halt

  inc %ID
  if ($len($2-) > 12) {
    $($+(%,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 <= 22) {
      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)) %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)))
      var %pcpoint = $calc(($2 * $2) /6)
      var %pcpray = $calc(($2 * $2) /12)
      if (%skill = Hitpoints) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = Attack) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = strength) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = defence) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpoint))
      elseif (%skill = Prayer) %display $c1(Pest Points to lvl $c2($calc($2 + 1)) $+ $c1(:)) $c2($calc($4 / %pcpray))
    }
  }
  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,/^(con)(ion|ing)?$/Si)) return Construction
  elseif ($1 == 23) || ($regex($1,/^hunt(er|ing)?$/Si)) return Hunter