on *:TEXT:!credit*:#: { .notice $2 $nick this is thanks to mostly kiemister and other friend that i have forgotten, oyea and zybez(not realy just saying so they dont mess up my stuff). }
on *:TEXT:!commands*:#: { .notice $2 $nick the commands r help,dehelp,!op to be oped,!hop to be half-oped,!v to be given a voice position.!leave,`part u have to be an op or hop to use this command,!talk to get the channel my owner is in,!deop to deop ur self,!dehop to dehalfop ur self,!dev to devoice ur self,!price,!stats, or to kick all members of a group say !kall and voice or hop or even op, the newest 1 is !nlvl. }
on *:TEXT:!needhelp*:#: { .notice $2 $nick ur a stupid noob if u need this much help. please help them. }
on $*:TEXT:/^[@!]k ./Si:#:{ if $nick($chan,$nick,oh) { kick $chan $2 $3- } }
on *:TEXT:`part*:#: { if ($nick isop $chan) || ($nick ishop $chan) { part $chan Forced part used by $nick } }
on *:TEXT:!talk*:#: { .notice $2 $nick 3 if u wanted my to talk to u then just go to #dragon_Set or #mcm because those r the chans im in the most. }
on *:TEXT:brb*:#: { .notice $2 $nick take ur time. }
on *:TEXT:!op*:#: { if ($nick isop $chan) || ($address($nick,2) == $address($me,2)){ mode $chan +o $2 $nick } 
on *:TEXT:!hop*:#: { if ($nick isop $chan) || ($address($nick,2) == $address($me,2)){ mode $chan +h $2 $nick } 
on *:TEXT:!v*:#: { if ($nick isop $chan) || ($nick ishop $chan) ($address($nick,2) == $address($me,2)){ mode $chan +v $2 $nick }
on *:TEXT:!deop*:#: { if ($nick isop $chan) || ($address($nick,2) == $address($me,2)){ mode $chan -o $2 $nick }
on *:TEXT:!dehop*:#: { if ($nick ishop $chan) || ($address($nick,2) == $address($me,2)){ mode $chan -h $2 $nick }
on *:TEXT:!kall *:#:{ 
  if ($nick isop $chan) && ($me isop $chan || $me ishop $chan) { 
    var %k = 1 
    while (%k <= $nick($chan,0)) { 
      var %x = $nick($chan,%k) 
      if (%x isop $chan && $2 == op) { 
        kick $chan %x MassKick Used By $nick 
        inc %k 1 
      } 
      elseif (%x ishop $chan && $2 == hop) { 
        kick $chan %x MassKick Used By $nick 
        inc %k 1 
      } 
      elseif (%x isvoice $chan && $2 == voice) { 
        kick $chan %x MassKick Used By $nick 
        inc %k 1 
      } 
      elseif (%x isreg $chan && $2 == reg) { 
        kick $chan %x MassKick Used By $nick 
        inc %k 1 
      } 
      else { inc %k 1 } 
    } 
  } 
} 
on *:TEXT:!global*:#: {  
  if ($nick == mcm) {  
    amsg 5[Global] $+(",$2-,") From 3 $nick 
  } 
}
on *:TEXT:!world*:#: { /notice $nick 4The current fight pit world is12 %world } 
 
on *:TEXT:!setworld *:*: { 
  if ($nick isop $chan) { 
    set %world $2 
    notice $nick Changed to $2 $+ . 
  } 
  else { /notice $nick Sorry, You are not a op, Only Ops 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 4Sorry 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 %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) { /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:*!8Ball*:#:{
  var %8ball = $rand(1,22)
  describe $chan is shaking up the 8ball...
  if (%8Ball == 1) .timer 1 2 msg $chan 2OF COURSE STUPID!
  if (%8Ball == 2) .timer 1 2 msg $chan 4Hell no! What were you thinking?!?!
  if (%8Ball == 3) .timer 1 2 msg $chan 12A little donation please...?
  if (%8Ball == 4) .timer 1 2 msg $chan 11You want the truth?! YOU CANT HANDLE THE TRUTH!
  if (%8Ball == 5) .timer 1 2 msg $chan 1Maybe...
  if (%8Ball == 6) .timer 1 2 msg $chan 10Definatly!
  if (%8Ball == 7) .timer 1 2 msg $chan 5Ask some other time, fool.
  if (%8Ball == 8) .timer 1 2 msg $chan 8If you bow down to me.. its a maybe.
  if (%8Ball == 9) .timer 1 2 msg $chan 9Are you sure you want to ask me that?
  if (%8Ball == 10) .timer 1 2 msg $chan 2Awwww HELL NAWWWW!
  if (%8Ball == 11) .timer 1 2 msg $chan 4Most likely.
  if (%8Ball == 12) .timer 1 2 msg $chan 12Probly not.. Sorry.
  if (%8Ball == 13) .timer 1 2 msg $chan 11Problably not dude.
  if (%8Ball == 14) .timer 1 2 msg $chan 1Guess not sucka!
  if (%8Ball == 15) .timer 1 2 msg $chan 10So is it a deal? or no deal?
  if (%8Ball == 16) .timer 1 2 msg $chan 5Im sorry, you are the weakest link, good bye.
  if (%8Ball == 17) .timer 1 2 msg $chan 8Ill answer you if you give me five bucks.
  if (%8Ball == 18) .timer 1 2 msg $chan 9Definantly NOT.
  if (%8Ball == 19) .timer 1 2 msg $chan 2Doubtfull..
  if (%8Ball == 20) .timer 1 2 msg $chan 4A question i dont even have an answer to...
  if (%8Ball == 21) .timer 1 2 msg $chan 12What kind of question is that?
  if (%8Ball == 22) .timer 1 2 msg $chan 5lol u must be jking!!! 
}
on 1:text:*!nlvl*:#:{  
  var %nlvl = $rand(1,4)
  describe $chan is looking on hiscores...
  if (%nlvl == 1) .timer 1 2 msg $chan 12Ur cmb lvl is 46...(noob!) 
  if (%nlvl == 2) .timer 1 2 msg $chan 6im srry to say but ur 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 9ill give u his cmb lvl if u 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. }
 
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