on *:Invite:#: { 
  /join $chan 
  /timer 1 1 /msg $chan 14[7FB14] Invited by:7 $nick .14 Thanks for using 7ForceBot ! 14Bot-admin: 7Deforcer 14- 7#ForceBot.
} 
ON *:TEXT:*!part ForceBot*:#: { 
  msg $chan $+ , 14Thanks for using 7 $me .14 /invite 7ForceBot14 $chan if you want 7 $me 14 back.  
  part $chan 
}



on $*:TEXT:/^[@!.](con)?grat[zs](ulation[zs])?/Si:#: { if ($2 isnum 2-99) { msg $chan 7 @@@@@ 14Woo0oo0t! Congratulations 7 $nick 14with:7 $$2-! 7 @@@@@  } 
  else { notice $nick Error Bad Syntax, Example: !grats 99 def } 
}





on *:TEXT:*youtube.*/watch?v=*:#:{ 
  var %name $wildtok($1-, *youtube.*/watch?v=*, 1, 32) 
  var %link $gettok(%name,2-,61) 
  var %x $ticks 
  while ($sock(YoutubeL. $+ %x)) { inc %c } 
  sockopen $+(YoutubeL.,%x) www.youtube.com 80 
  sockmark $+(YoutubeL.,%x) $+(%link,~,msg $chan,~,$nick,~,$chan) 
} 
on *:SOCKOPEN:YoutubeL.*:{ 
  sockwrite -nt $sockname GET $+(/watch?v=,$gettok($sock($sockname).mark,1,126)) 
  sockwrite -nt $sockname HOST www.youtube.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:YoutubeL.*:{ 
  if ($sockerr) { 
    notice $gettok($sock($sockname).mark,3,126) $colors($gettok($sock($sockname).mark,3,126),Youtube) $c2($gettok($sock($sockname).mark,3,126),Socket $+(error,$chr(44))) $c1($gettok($sock($sockname).mark,3,126),please try again) 
    sockclose $sockname 
  } 
  else { 
    var %read 
    sockread %read 
    if ($regex(%read,/BASE_YT_URL/)) && (!$hget($sockname, Duration)) { 
      var %a $gettok($htmlfree(%read),0,32) 
      while (%a) { 
        if ($remove($gettok($htmlfree(%read),%a,32),$chr(44),$chr(32)) isnum) { hadd -m $sockname Duration $duration($remove($gettok($htmlfree(%read),%a,32),$chr(44),$chr(32))) } 
        dec %a 
      } 
      if (!$hget($sockname, Duration)) { hadd -m $sockname duration Uknown } 
    } 
    if ($regex(%read,/<title>(.*)<\/title>/)) { 
      hadd -m $sockname Title $regml(1) 
    } 
    if ($regex(%read,/<span class="viewCount">(.*)<\/span>/)) { 
      hadd -m $sockname Viewcount $regml(1) 
    } 
    if ($regex(%read,/<span class="lightLabel">Comments:<\/span> <a href="(.*)">(.*)<\/a>/)) { 
      var %commentcount $regml(2) 
      var %name $gettok($sock($sockname).mark,3,126) 
      var %return $colors(%name,Youtube) $iif($hget($sockname, Title),$c2(%name,Title:) $c1(%name,$hget($sockname, Title))) $iif(%commentcount,$c2(%name,| Comments:) $c1(%name,%commentcount)) $& 
        $iif($hget($sockname, Viewcount),$c2(%name,| Views:) $c1(%name,$hget($sockname, Viewcount))) $iif($hget($sockname, Duration),$c2(%name,| Duration:) $c1(%name,$hget($sockname, Duration))) 
      $gettok($sock($sockname).mark,2,126) $iif(c isincs $chan($gettok($sock($sockname).mark,4,126)).mode,$strip(%return),%return) 
      hfree $sockname 
      sockclose $sockname 
    } 
  } 
} 
alias colors { 
  var %c1 $iif($2 || $2 == 0,$iif($hget(c1, $address($1,2)),$v1,07),07) 
  var %c2 $iif($2 || $2 == 0,$iif($hget(c2, $address($1,2)),$v1,14),14) 
  return $+($chr(3),%c1,$chr(2),$chr(40),$chr(2),$chr(3),%c2,$upper($strip($iif($2 || $2 == 0,$2-,$1-))),$chr(2),$chr(3),%c1,$chr(41),$chr(2)) 
} 
alias c1 { 
  var %x = $iif($2 || $2 == 0,$iif($hget(c1, $address($1,2)),$v1,07),07) 
  var %f = $iif($2 || $2 == 0,$2-,$1-) 
  return $+($chr(3),%x,$strip(%f)) 
} 
alias c2 { 
  var %x = $iif($2 || $2 == 0,$iif($hget(c2, $address($1,2)),$v1,14),14) 
  var %f = $iif($2 || $2 == 0,$2-,$1-) 
  return $+($chr(3),%x,$strip(%f)) 
} 









on $*:TEXT:/^[!@.]cmb-calc/Si:#: { 
  if ($2 == $null) || ($3 == $null) || ($4 == $null) || ($5 == $null) || ($6 == $null) || ($7 == $null) || ($8 == $null) || ($9 == $null) { 
    notice $nick Syntax: !cmb-calc A S D H R P M SU 
  } 
  else { 
    set %dispp $iif($left($1,1) == @, msg $chan, notice $nick) 
    Var %Def $calc($4 * 100) 
    Var %Hits $calc($5 * 100) 
    Var %Pray $calc($7 * 50) 
    var %summon $calc($9 * 50) 
    Var %hit.def.pray.summon $calc((%Def + %hits + %Pray + %summon) / 400) 
    Var %hit.def.pray $calc((%Def + %hits + %Pray) / 400) 
    Var %Att $calc($2 * 130) 
    Var %str $calc($3 * 130) 
    if (!$and($6,1)) { Var %range $calc((($6 - 1) + ($6 * 2)) * 65) } 
    Else var %Range $calc($6 * 195) 
    if (!$and($8,1)) { Var %mage $calc((($8 - 1) + ($8 * 2)) * 65) } 
    Else var %Mage $calc($8 * 195) 
    Var %Melee $calc((%att + %str) /400), %Ranger $calc(%range / 400), %mager $calc(%mage / 400) 
    If (%ranger > %melee) && (%ranger > %Mager) { 
      set %return $calc(%hit.def.pray.summon + %ranger) 
      set %f2p $calc(%hit.def.pray + %ranger) 
      set %based Ranged 
    } 
    elseIf (%mager > %melee) && (%mager > %ranger) { 
      set %return $calc(%hit.def.pray.summon + %mager) 
      set %f2p $calc(%hit.def.pray + %mager) 
      set %based magic 
    } 
    elseIf (%Melee > %mager) && (%melee > %ranger) { 
      set %return $calc(%Hit.def.pray.summon + %melee) 
      set %f2p $calc(%Hit.def.pray + %melee) 
      set %based Melee 
    } 
    %dispp 7*** (14COMBAT7) 14with:   7Attack:14 $2 7Strength:14 $3 7Defence:14 $4 7Hitpoints:14 $5 7Ranged:14 $6 7Prayer:14 $7 7Magic:14 $8 7Summon:14 $9 7[14P2P:7 %Return $+ 7] 7[14F2P:7 %f2p $+ 7] 
    unset %based 
    unset %return 
  } 





on $*:text:/^[@!.]sp(ell(check)?)?/Si:#:{ 
  set %data.method $iif(@ isin $1,msg #,notice $nick) 
  if ($2) { 
    spellcheck $2 
  } 
  else { 
    %data.method 7 $+($nick,$chr(44)) 14enter a word to spellcheck! 
    unset %data.method 
  } 
} 

alias spellcheck { 
  if ($1) { 
    sockopen Spellsock rs.facepwn.com 80 
    sockmark Spellsock $1 
  } 
  else echo -atc info * /spellcheck: missing parameters 
} 

on *:SOCKOPEN:Spellsock: { 
  sockwrite -nt $sockname GET /Parsers/wordspell.php?word= $+ $sock($sockname).mark HTTP/1.1 
  sockwrite -nt $sockname Host: rs.facepwn.com 
  sockwrite -nt $sockname $crlf 
} 

on *:SOCKREAD:Spellsock: { 
  var %c $iif(%data.method,$v1,echo -atc info2) 
  if ($sockerr) { %c 14There was an error with the socket. } 
  else { 
    var %sockread, %a $sock($sockname).mark 
    sockread %sockread 
    if (*properly* iswm %sockread) { 
      %c 7 $qt(%a) 14is spelled correctly! 
      set %temp true 
    } 
    elseif (*suggestion* iswm %sockread) { 
      %c 7 $qt(%a) 14is misspelled. 
      %c %sockread 
      set %temp true 
    } 
    if (%temp) { 
      unset %data.method %temp 
      sockclose $sockname 
    } 
  } 
}






on *:TEXT:!greet*:#: { 
  set %greet [ $+ [ $nick ] ] $2- | notice $nick 7[14Greet7]7 Your greet message has been set to:14 $2- 
} 

on *:TEXT:!deletegreet*:#: { 
  unset %greet [ $+ [ $nick ] ] | notice $nick 7[14Greet7]7 Your greet has been deleted.

} 

on *:JOIN:#: { 
  if (%greet [ $+ [ $nick ] ]) msg $chan 14-7[ForceBot]14-7[ $+ 7 $nick  $+ ]: %greet [ $+ [ $nick ] ] 
  else notice $nick To set a greet type !greet -text goes here!- 
} 

on *:text:!changegreet *:#: { 
  if ($nick == NICK1) || ($nick == NICK2) { 
set %greet [ $+ [ $2 ] ] $3- } } 
on *:text:!deletegreet *:#: { 
  if ($nick == NICK1) || ($nick == NICK2) { 
  alias delgreet { unset %greet [ $+ [ $2 ] ]  } }







on *:TEXT:!info*:#: {  
  var %a = 1, %op, %hop, %voice, %reg 
  while (%a <= $chan(0)) { 
    inc $iif($me isop $chan(%a), $(%op,0), $iif($me ishop $chan(%a), $(%hop,0), $iif($me isvoice $chan(%a), $(%voice,0), $(%reg,0)))) 
    inc %a 
  } 
  if ($2 == op) { //var %c 1,%ops | while ($comchan($me,%c)) { if ($me isop $v1) var %ops %ops $v2 | inc %c } | notice $nick 14[7 Info - Op14]: 7--- I am op in these %op channels: %ops } 
  if ($2 == hop) { //var %c 1,%hops | while ($comchan($me,%c)) { if ($me ishop $v1) var %hops %hops $v2 | inc %c } | notice $nick 14[7 Info - Hop14]: 7--- I am hop in these %hop channels: %hops } 
  if ($2 == voice) { //var %c 1,%voices | while ($comchan($me,%c)) { if ($me isvoice $v1) var %voices %voices $v2 | inc %c } | notice $nick 14[7 Info - Voice14]: 7--- I am voice in these %voice channels: %voices } 
  if ($2 == ranks) { /notice $nick 14[7 Info - Ranks14]: --- I am 4Op5 in %op Channels, 7Hop5 in %hop Channels, 2Voice5 in %voice Channels, and I got no rank in %reg Channels | notice $nick 14Type "7!info op14" To see what channels I am op in - Type "7!info hop14" To see what channels I am hop in - Type "7!info voice14" To see what channels I am voice in } 
  if ($2 == $null) { /notice $nick ERROR: "7!info help14" for help } 
  if ($2 == channels) { /notice $nick 14[7 Info - Channels14]: Currently am I in $chan(N) channels, and I have been in $lines(invchans2.txt) different channels } 
  if ($2 == invite) { /notice $nick 14[7 Info - Invite14]: I Have totaly been invited $iif(%invite, $v1, 0) times in $lines(invchans.txt) different channels. In This Channel I have been invited $iif(%invite2. [ $+ [ $chan ] ], $v1, 0) times } 
  if ($2 == other) { /notice $nick 14[7 Info - Other14]: I've been kicked $iif(%kick, $v1, 0) times, and I have been banned $iif(%ban, $v1, 0) times } 
  if ($2 == help) { 
    /notice $nick 14[7 Info - Help14]: Type "7!info ranks14" To see my channel ranks 
    /notice $nick 14[7 Info - Help14]: Type "7!info invite14" To see how many times I have been invited 
    /notice $nick 14[7 Info - Help14]: Type "7!info channels14" To see how many channels I am in 
    /notice $nick 14[7 Info - Help14]: Type "7!info other14" To see some other info 
  } 
} 

on *:INVITE:#:{ if ($isfile(invchans.txt)) { filter -fk invchans.txt $ $chan | if (!$filtered) { write invchans.txt $chan } } | else { write invchans.txt $chan } 
  inc %invite2. [ $+ [ $chan ] ] 
  inc %invite 
} 
on *:JOIN:#:{ if ($nick == $me) { 
    if ($isfile(invchans2.txt)) { filter -fk invchans2.txt $ $chan | if (!$filtered) { write invchans2.txt $chan } } | else { write invchans2.txt $chan } 
  } 
} 
on *:KICK:#:{ 
  if ($knick == $me) { 
    inc %kick 
  } 
} 
on *:BAN:#:{ 
  if ($bnick == $me) { 
    inc %ban 
  } 
} 
on *:TEXT:@info*:#: {    
  var %a = 1, %op, %hop, %voice, %reg 
  while (%a <= $chan(0)) { 
    inc $iif($me isop $chan(%a), $(%op,0), $iif($me ishop $chan(%a), $(%hop,0), $iif($me isvoice $chan(%a), $(%voice,0), $(%reg,0)))) 
    inc %a 
  } 
  if ($2 == op) { //var %c 1,%ops | while ($comchan($me,%c)) { if ($me isop $v1) var %ops %ops $v2 | inc %c } | notice $nick 14[7 Info - Op14]: 7--- I am op in these %op channels: %ops } 
  if ($2 == hop) { //var %c 1,%hops | while ($comchan($me,%c)) { if ($me ishop $v1) var %hops %hops $v2 | inc %c } | notice $nick 14[7 Info - Hop14]: 7--- I am hop in these %hop channels: %hops } 
  if ($2 == voice) { //var %c 1,%voices | while ($comchan($me,%c)) { if ($me isvoice $v1) var %voices %voices $v2 | inc %c } | notice $nick 14[7 Info - Voice14]: 7--- I am voice in these %voice channels: %voices } 
  if ($2 == ranks) { msg $chan 14[7 Info - Ranks14]: --- I am 4Op5 in %op Channels, 7Hop5 in %hop Channels, 2Voice5 in %voice Channels, and I got no rank in %reg Channels | notice $nick 14Type "7!info op14" To see what channels I am op in - Type "7!info hop14" To see what channels I am hop in - Type "7!info voice14" To see what channels I am voice in } 
  if ($2 == $null) { /notice $nick ERROR: "7!info help14" for help } 
  if ($2 == channels) { msg $chan 14[7 Info - Channels14]: Currently am I in $chan(N) channels, and I have been in $lines(invchans2.txt) different channels } 
  if ($2 == invite) { msg $chan 14[7 Info - Invite14]: I Have totaly been invited $iif(%invite, $v1, 0) times in $lines(invchans.txt) different channels. In This Channel I have been invited $iif(%invite2. [ $+ [ $chan ] ], $v1, 0) times } 
  if ($2 == other) { msg $chan 14[7 Info - Other14]: I've been kicked $iif(%kick, $v1, 0) times, and I have been banned $iif(%ban, $v1, 0) times } 
  if ($2 == help) { 
    /notice $nick 14[7 Info - Help14]: Type "7!info ranks14" To see my channel ranks 
    /notice $nick 14[7 Info - Help14]: Type "7!info invite14" To see how many times I have been invited 
    /notice $nick 14[7 Info - Help14]: Type "7!info channels14" To see how many channels I am in 
    /notice $nick 14[7 Info - Help14]: Type "7!info other14" To see some other info 
  } 
} 






on *:RAWMODE:#: { 
  if ($me !isop # && $me !ishop #) { return } 
  var %x 1,%t 1 
  while $mid($1,%x,1) { 
    if ($v1 isin +-) { 
      var %w $v1 
      inc %x 
      continue 
    } 
    if ($v1 !isincs $token($chanmodes,4,44)) { 
      inc %t 
      if (%w = + && $mid($1,%x,1) === b) { 
        var %a $(,$ $+ %t) 
        if ($regex(%a,/^(?:~[nq]:)?(.+)$/) && $regml(1) iswm $address($me,5)) { var %b %b %a } 
        elseif ($regex(%a,/^~r:\Q $+ $replace($fullname,$chr(32),_) $+ \E$/)) { var %b %b %a } 
        elseif ($regex(%a,/^~c:[^#]?(.+)$/) && $me ison $regml(1)) { var %b %b %a } 
      } 
    } 
    inc %x 
  } 
  if (%b) mode # - $+ $str(b,$modespl) %b 
}







ON $*:TEXT:/^[@!.]defname/Si:#: { 
  if ($2-) { 
    if ($len($2-) < 12) { 
      notice $nick Defname for $address($nick,3) set to: $2- 
      writeini defname.ini name $address($nick,3) $2- 
    } 
    else { notice $nick [Defname]: The runescape name can only be 12 letters long! } 
  } 
} 

ON $*:TEXT:/^[@!.]stats/Si:#: { 
  set %o $iif($left($1,1) == @, msg $chan, notice $nick)  
  set %r $iif(!$2,$iif($readini(defname.ini,name,$address($nick,3)),$v1,$nick),$regsubex($replace($2-,$chr(32),$chr(32)),/\b(\w)/g,$upper(\1)))) 
  sockopen stats hiscore.runescape.com 80 
} 
ON *:SOCKOPEN:stats: { 
  sockwrite -nt $sockname GET /index_lite.ws?player= $+ %r HTTP/1.1 
  sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf  $+ $crlf 
} 
ON *:SOCKREAD:stats: { 
  var %stat | sockread %stat 
  if (*404 - Page not found* iswm %stat) { %o User Was not Found | sockclose $sockname } 
  if (*,*,* iswm %stat) set %stats %stats $gettok(%stat,2,44) 
} 
ON *:SOCKCLOSE:stats:{ 
  tokenize 32 %stats 
  %o 1[07 STATS 1][07 %r 1] 14Overall07 $1 $b Att07 $2 $b Def07 $3 $b Str07 $4 $b Hp07 $5 $b Range07 $6 $b Prayer07 $7 $b Magic07 $8 $b Cooking 07 $9 $b Wc07 $10 $b Fletching07 $11 $b Fishing07 $1 $b Fm07 $13 $b Craft07 $14 $b Smith07 $15 $b 
  %o 14 Mining07 $16 $b Herb07 $17 $b Agility07 $18 $b Thieving07 $19 $b Slayer07 $20 $b Farm07 $21 $b Rc07 $22 $b hunt07 $23 $b Con07 $24 $b Summon 07 $25 $26 $27 $28 $29 $30    
  unset %stats 
  unset %o 
  unset %r 
} 
alias b return 1 $+ $chr(124) $+ 14 

on $*:TEXT:/^[!@]/Si:#:{ 
  if ($skill($remove($1,!,@))) { 
    set %o $iif($left($1,1) == @, msg $chan, notice $nick) 
    set %r $iif(!$3,$iif($readini(defname.ini,name,$address($nick,3)),$v1,$nick),$regsubex($replace($3-,$chr(32),$chr(32)),/\b(\w)/g,$upper(\1)))) 
    set %skill $skill($remove($1,!,@))) 
    set %level $xp $2 
    sockopen stats1 hiscore.runescape.com 80 
  } 
} 
ON *:SOCKOPEN:stats1: { 
  sockwrite -nt $sockname GET /index_lite.ws?player= $+ %r HTTP/1.1 
  sockwrite -nt $sockname Host: hiscore.runescape.com $+ $crlf  $+ $crlf 
} 
ON *:SOCKREAD:stats1: { 
  var %stat | sockread %stat 
  if (*404 - Page not found* iswm %stat) { %o 1[7 ERROR 1] User Was not Found | sockclose $sockname } 
  if (*,*,* iswm %stat) set %stats %stats $gettok(%stat,2,44) 
  if (*,*,* iswm %stat) set %rank %rank $gettok(%stat,1,44) 
  if (*,*,* iswm %stat) set %xp %xp $gettok(%stat,3,44) 
} 
ON *:SOCKCLOSE:stats1:{ 
  $id 
  set %aaa N/a 
  set %bbb N/a 
  set %nlvl $calc(%lvl + 1) 
  $xp1 
  $xp 
  if (%level < %lvl) { set %aaa N/a } 
  if (%lvl == 99) && (%level <= 99) { set %nlvl N/a } 
  set %xp1 $+($bytes(%xp1,db)) 
  %o 1 $chr(91) $+  14 $+ %skill $+ 1 $chr(93) 7:1 $chr(91) $+  14 $+ %r 1 $+ $chr(93) 07 %lvl 1[14 Exp1 ]07 %xp1 1[14 Rank1]07 %rank1 1[14 Exp Needed till Next Level07 %nlvl 1]07 %bbb 1[14 Exp Till Target Lvl07 %level 1]07 %aaa  
  unset %o %r %skill %level %stats %rank %xp %lvl %xp1 %rank1 %nlvl %bbb %aaa 
} 

alias skill { 
  if ($regex($1,/^(att|atk|attack)/Si)) { Return Attack } 
  if ($regex($1,/^(str|strenth|strength)/Si)) { Return Strength } 
  if ($regex($1,/^(def|defend|defence)/Si)) { Return Defence } 
  if ($regex($1,/^(hp|hits|hitpoints|hit)/Si)) { Return Hitpoints } 
  if ($regex($1,/^(range|ranging|arch|archery|arching)/Si)) { Return Range } 
  if ($regex($1,/^(pray|prayer|praying)/Si)) { Return Prayer $7 } 
  if ($regex($1,/^(mage|magic)/Si)) { Return Magic $8 } 
  if ($regex($1,/^(cook|cooking)/Si)) { Return Cooking $9 } 
  if ($regex($1,/^(wc|wood|woodcut|woodcutting)/Si)) { Return Woodcutting $10 } 
  if ($regex($1,/^(fletch|fletching)/Si)) { Return Fletching $11 } 
  if ($regex($1,/^(Fishing|fishing|fishcatching)/Si)) { Return Fishing $12 } 
  if ($regex($1,/^(fm|fire|firemaking)/Si)) { Return Firemaking $13 } 
  if ($regex($1,/^(craft|crafting)/Si)) { Return Crafting $14 } 
  if ($regex($1,/^(smithing|metalmaking|smith)/Si)) { Return Smithing $15 } 
  if ($regex($1,/^(Mine|mining)/Si)) { Return Mining $16 } 
  if ($regex($1,/^(Herb|Herblore)/Si)) { Return Herblore $17 } 
  if ($regex($1,/^(Agil|agi|Agility)/Si)) { Return Agility $18 } 
  if ($regex($1,/^(Theif|theiv|thiev|theiving|thieving)/Si)) { return Thieving $19 } 
  if ($regex($1,/^(slay|Slayer)/Si)) { Return Slayer $20 } 
  if ($regex($1,/^(farm|Farming|planting)/Si)) { Return Farming $21 } 
  if ($regex($1,/^(rune|rc|runecrafting|runecraft)/Si)) { Return Runecrafting $22 } 
  if ($regex($1,/^(hunt|hunting|hunter)/Si)) { return Hunter $23 } 
  if ($regex($1,/^(con|construct|construction|poh)/si)) { return Construction $24 } 
  if ($regex($1,/^(sum|summon|summoning)/si)) { return Summoning $25 } 
} 

alias id { 
  if (%skill == Attack || %skill == att) { tokenize 32 %stats | set %lvl $2 | tokenize 32 %xp | set %xp1 $2 | tokenize 32 %rank | set %rank1 $+($bytes($2,db)) } 
  if (%skill == def || %skill == defence || %skill == defense) { tokenize 32 %stats | set %lvl $3 | tokenize 32 %xp | set %xp1 $3 | tokenize 32 %rank | set %rank1 $+($bytes($3,db)) } 
  if (%skill == str || %skill == strength) { tokenize 32 %stats | set %lvl $4 | tokenize 32 %xp | set %xp1 $4 | tokenize 32 %rank | set %rank1 $+($bytes($4,db)) } 
  if (%skill == hp || %skill == hitpoits || %skill == hits) { tokenize 32 %stats | set %lvl $5 | tokenize 32 %xp | set %xp1 $5 | tokenize 32 %rank | set %rank1 $+($bytes($5,db)) } 
  if (%skill == range || %skill == ranged || %skill == ranging) { tokenize 32 %stats | set %lvl $6 | tokenize 32 %xp | set %xp1 $6 | tokenize 32 %rank | set %rank1 $+($bytes($6,db)) } 
  if (%skill == pray || %skill == prayer || %skill == praying) { tokenize 32 %stats | set %lvl $7 | tokenize 32 %xp | set %xp1 $7 | tokenize 32 %rank | set %rank1 $+($bytes($7,db)) } 
  if (%skill == mage || %skill == magic || %skill == magik) { tokenize 32 %stats | set %lvl $8 | tokenize 32 %xp | set %xp1 $8 | tokenize 32 %rank | set %rank1 $+($bytes($8,db)) } 
  if (%skill == cook || %skill == cooking) { tokenize 32 %stats | set %lvl $9 | tokenize 32 %xp | set %xp1 $9 | tokenize 32 %rank | set %rank1 $+($bytes($9,db)) } 
  if (%skill == wc || %skill == woodcut || %skill == woodcutting) { tokenize 32 %stats | set %lvl $10 | tokenize 32 %xp | set %xp1 $10 | tokenize 32 %rank | set %rank1 $+($bytes($10,db)) } 
  if (%skill == fletch || %skill == fletching) { tokenize 32 %stats | set %lvl $11 | tokenize 32 %xp | set %xp1 $11 | tokenize 32 %rank | set %rank1 $+($bytes($11,db)) } 
  if (%skill == fishing || %skill == fish) { tokenize 32 %stats | set %lvl $12 | tokenize 32 %xp | set %xp1 $12 | tokenize 32 %rank | set %rank1 $+($bytes($12,db)) } 
  if (%skill == fm || %skill == firemaking) { tokenize 32 %stats | set %lvl $13 | tokenize 32 %xp | set %xp1 $13 | tokenize 32 %rank | set %rank1 $+($bytes($13,db)) } 
  if (%skill == craft || %skill == crafting) { tokenize 32 %stats | set %lvl $14 | tokenize 32 %xp | set %xp1 $14 | tokenize 32 %rank | set %rank1 $+($bytes($14,db)) } 
  if (%skill == smith || %skill == smithing) { tokenize 32 %stats | set %lvl $15 | tokenize 32 %xp | set %xp1 $15 | tokenize 32 %rank | set %rank1 $+($bytes($15,db)) } 
  if (%skill == mining) { tokenize 32 %stats | set %lvl $16 | tokenize 32 %xp | set %xp1 $16 | tokenize 32 %rank | set %rank1 $+($bytes($16,db)) } 
  if (%skill == herb || %skill == herblore || %skill == harblaw) { tokenize 32 %stats | set %lvl $17 | tokenize 32 %xp | set %xp1 $17 | tokenize 32 %rank | set %rank1 $+($bytes($17,db)) } 
  if (%skill == agility || %skill == agil) { tokenize 32 %stats | set %lvl $18 | tokenize 32 %xp | set %xp1 $18 | tokenize 32 %rank | set %rank1 $+($bytes($18,db)) } 
  if (%skill == thiev || %skill == thieving) { tokenize 32 %stats | set %lvl $19 | tokenize 32 %xp | set %xp1 $19 | tokenize 32 %rank | set %rank1 $+($bytes($19,db)) } 
  if (%skill == slay || %skill == slaying || %skill == slayer) { tokenize 32 %stats | set %lvl $20 | tokenize 32 %xp | set %xp1 $20 | tokenize 32 %rank | set %rank1 $+($bytes($20,db)) } 
  if (%skill == farm || %skill == farming) { tokenize 32 %stats | set %lvl $21 | tokenize 32 %xp | set %xp1 $21 | tokenize 32 %rank | set %rank1 $+($bytes($21,db)) } 
  if (%skill == rc || %skill == runecraft || %skill == runecrafting) { tokenize 32 %stats | set %lvl $22 | tokenize 32 %xp | set %xp1 $22 | tokenize 32 %rank | set %rank1 $+($bytes($22,db)) }    
  if (%skill == poh || %skill == construct || %skill == con || %skill == construction) { tokenize 32 %stats | set %lvl $23 | tokenize 32 %xp | set %xp1 $23 | tokenize 32 %rank | set %rank1 $+($bytes($23,db)) }    
  if (%skill == hunt || %skill == hunter || %skill == hunting) { tokenize 32 %stats | set %lvl $24 | tokenize 32 %xp | set %xp1 $24 | tokenize 32 %rank | set %rank1 $+($bytes($24,db)) } 
  if (%skill == summ || %skill == sum || %skill == summo || %skill == summon || %skill == summoning) { tokenize 32 %stats | set %lvl $25 | tokenize 32 %xp | set %xp1 $25 | tokenize 32 %rank | set %rank1 $+($bytes($25,db)) } 
} 


alias xp { 
  if (%level == 30) { set %aaa $+($bytes($calc(13363 - %xp1),db)) } 
  if (%level == 31) { set %aaa $+($bytes($calc(14833 - %xp1),db)) } 
  if (%level == 32) { set %aaa $+($bytes($calc(16456 - %xp1),db)) } 
  if (%level == 33) { set %aaa $+($bytes($calc(18247 - %xp1),db)) } 
  if (%level == 34) { set %aaa $+($bytes($calc(20224 - %xp1),db)) } 
  if (%level == 35) { set %aaa $+($bytes($calc(22406 - %xp1),db)) } 
  if (%level == 36) { set %aaa $+($bytes($calc(24815 - %xp1),db)) } 
  if (%level == 37) { set %aaa $+($bytes($calc(27473 - %xp1),db)) } 
  if (%level == 38) { set %aaa $+($bytes($calc(30408 - %xp1),db)) } 
  if (%level == 39) { set %aaa $+($bytes($calc(33648 - %xp1),db)) } 
  if (%level == 40) { set %aaa $+($bytes($calc(37224 - %xp1),db)) } 
  if (%level == 41) { set %aaa $+($bytes($calc(41171 - %xp1),db)) } 
  if (%level == 42) { set %aaa $+($bytes($calc(45529 - %xp1),db)) } 
  if (%level == 43) { set %aaa $+($bytes($calc(50339 - %xp1),db)) } 
  if (%level == 44) { set %aaa $+($bytes($calc(55649 - %xp1),db)) } 
  if (%level == 45) { set %aaa $+($bytes($calc(61512 - %xp1),db)) } 
  if (%level == 46) { set %aaa $+($bytes($calc(67983 - %xp1),db)) } 
  if (%level == 47) { set %aaa $+($bytes($calc(75127 - %xp1),db)) } 
  if (%level == 48) { set %aaa $+($bytes($calc(83014 - %xp1),db)) } 
  if (%level == 49) { set %aaa $+($bytes($calc(91721 - %xp1),db)) } 
  if (%level == 50) { set %aaa $+($bytes($calc(101333 - %xp1),db)) } 
  if (%level == 51) { set %aaa $+($bytes($calc(111945 - %xp1),db)) } 
  if (%level == 52) { set %aaa $+($bytes($calc(123660 - %xp1),db)) } 
  if (%level == 53) { set %aaa $+($bytes($calc(136594 - %xp1),db)) } 
  if (%level == 54) { set %aaa $+($bytes($calc(150872 - %xp1),db)) } 
  if (%level == 55) { set %aaa $+($bytes($calc(166636 - %xp1),db)) } 
  if (%level == 56) { set %aaa $+($bytes($calc(184040 - %xp1),db)) } 
  if (%level == 57) { set %aaa $+($bytes($calc(203254 - %xp1),db)) } 
  if (%level == 58) { set %aaa $+($bytes($calc(224466 - %xp1),db)) } 
  if (%level == 59) { set %aaa $+($bytes($calc(247886 - %xp1),db)) } 
  if (%level == 60) { set %aaa $+($bytes($calc(273742 - %xp1),db)) } 
  if (%level == 61) { set %aaa $+($bytes($calc(302288 - %xp1),db)) } 
  if (%level == 62) { set %aaa $+($bytes($calc(333804 - %xp1),db)) } 
  if (%level == 63) { set %aaa $+($bytes($calc(368599 - %xp1),db)) } 
  if (%level == 64) { set %aaa $+($bytes($calc(407015 - %xp1),db)) } 
  if (%level == 65) { set %aaa $+($bytes($calc(449428 - %xp1),db)) } 
  if (%level == 66) { set %aaa $+($bytes($calc(496254 - %xp1),db)) } 
  if (%level == 67) { set %aaa $+($bytes($calc(547953 - %xp1),db)) } 
  if (%level == 68) { set %aaa $+($bytes($calc(605032 - %xp1),db)) } 
  if (%level == 69) { set %aaa $+($bytes($calc(668051 - %xp1),db)) } 
  if (%level == 70) { set %aaa $+($bytes($calc(737627 - %xp1),db)) } 
  if (%level == 71) { set %aaa $+($bytes($calc(814445 - %xp1),db)) } 
  if (%level == 72) { set %aaa $+($bytes($calc(899257 - %xp1),db)) } 
  if (%level == 73) { set %aaa $+($bytes($calc(992895 - %xp1),db)) } 
  if (%level == 74) { set %aaa $+($bytes($calc(1096278 - %xp1),db)) } 
  if (%level == 75) { set %aaa $+($bytes($calc(1210421 - %xp1),db)) } 
  if (%level == 76) { set %aaa $+($bytes($calc(1336443 - %xp1),db)) } 
  if (%level == 77) { set %aaa $+($bytes($calc(1475581 - %xp1),db)) } 
  if (%level == 78) { set %aaa $+($bytes($calc(1629200 - %xp1),db)) } 
  if (%level == 79) { set %aaa $+($bytes($calc(1798808 - %xp1),db)) } 
  if (%level == 80) { set %aaa $+($bytes($calc(1986068 - %xp1),db)) } 
  if (%level == 81) { set %aaa $+($bytes($calc(2192818 - %xp1),db)) } 
  if (%level == 82) { set %aaa $+($bytes($calc(2421087 - %xp1),db)) } 
  if (%level == 83) { set %aaa $+($bytes($calc(2673114 - %xp1),db)) } 
  if (%level == 84) { set %aaa $+($bytes($calc(2951373 - %xp1),db)) } 
  if (%level == 85) { set %aaa $+($bytes($calc(3258594 - %xp1),db)) } 
  if (%level == 86) { set %aaa $+($bytes($calc(3597792 - %xp1),db)) } 
  if (%level == 87) { set %aaa $+($bytes($calc(3972294 - %xp1),db)) } 
  if (%level == 88) { set %aaa $+($bytes($calc(4385776 - %xp1),db)) } 
  if (%level == 89) { set %aaa $+($bytes($calc(4842295 - %xp1),db)) } 
  if (%level == 90) { set %aaa $+($bytes($calc(5346332 - %xp1),db)) } 
  if (%level == 91) { set %aaa $+($bytes($calc(5902831 - %xp1),db)) } 
  if (%level == 92) { set %aaa $+($bytes($calc(6517253 - %xp1),db)) } 
  if (%level == 93) { set %aaa $+($bytes($calc(7195629 - %xp1),db)) } 
  if (%level == 94) { set %aaa $+($bytes($calc(7944614 - %xp1),db)) } 
  if (%level == 95) { set %aaa $+($bytes($calc(8771558 - %xp1),db)) } 
  if (%level == 96) { set %aaa $+($bytes($calc(9684577 - %xp1),db)) } 
  if (%level == 97) { set %aaa $+($bytes($calc(10692629 - %xp1),db)) } 
  if (%level == 98) { set %aaa $+($bytes($calc(11805606 - %xp1),db)) } 
  if (%level == 99) { set %aaa $+($bytes($calc(13034431 - %xp1),db)) } 
} 
alias xp1 { 
  if (%nlvl == 30) { set %bbb $+($bytes($calc(13363 - %xp1),db)) } 
  if (%nlvl == 31) { set %bbb $+($bytes($calc(14833 - %xp1),db)) } 
  if (%nlvl == 32) { set %bbb $+($bytes($calc(16456 - %xp1),db)) } 
  if (%nlvl == 33) { set %bbb $+($bytes($calc(18247 - %xp1),db)) } 
  if (%nlvl == 34) { set %bbb $+($bytes($calc(20224 - %xp1),db)) } 
  if (%nlvl == 35) { set %bbb $+($bytes($calc(22406 - %xp1),db)) } 
  if (%nlvl == 36) { set %bbb $+($bytes($calc(24815 - %xp1),db)) } 
  if (%nlvl == 37) { set %bbb $+($bytes($calc(27473 - %xp1),db)) } 
  if (%nlvl == 38) { set %bbb $+($bytes($calc(30408 - %xp1),db)) } 
  if (%nlvl == 39) { set %bbb $+($bytes($calc(33648 - %xp1),db)) } 
  if (%nlvl == 40) { set %bbb $+($bytes($calc(37224 - %xp1),db)) } 
  if (%nlvl == 41) { set %bbb $+($bytes($calc(41171 - %xp1),db)) } 
  if (%nlvl == 42) { set %bbb $+($bytes($calc(45529 - %xp1),db)) } 
  if (%nlvl == 43) { set %bbb $+($bytes($calc(50339 - %xp1),db)) } 
  if (%nlvl == 44) { set %bbb $+($bytes($calc(55649 - %xp1),db)) } 
  if (%nlvl == 45) { set %bbb $+($bytes($calc(61512 - %xp1),db)) } 
  if (%nlvl == 46) { set %bbb $+($bytes($calc(67983 - %xp1),db)) } 
  if (%nlvl == 47) { set %bbb $+($bytes($calc(75127 - %xp1),db)) } 
  if (%nlvl == 48) { set %bbb $+($bytes($calc(83014 - %xp1),db)) } 
  if (%nlvl == 49) { set %bbb $+($bytes($calc(91721 - %xp1),db)) } 
  if (%nlvl == 50) { set %bbb $+($bytes($calc(101333 - %xp1),db)) } 
  if (%nlvl == 51) { set %bbb $+($bytes($calc(111945 - %xp1),db)) } 
  if (%nlvl == 52) { set %bbb $+($bytes($calc(123660 - %xp1),db)) } 
  if (%nlvl == 53) { set %bbb $+($bytes($calc(136594 - %xp1),db)) } 
  if (%nlvl == 54) { set %bbb $+($bytes($calc(150872 - %xp1),db)) } 
  if (%nlvl == 55) { set %bbb $+($bytes($calc(166636 - %xp1),db)) } 
  if (%nlvl == 56) { set %bbb $+($bytes($calc(184040 - %xp1),db)) } 
  if (%nlvl == 57) { set %bbb $+($bytes($calc(203254 - %xp1),db)) } 
  if (%nlvl == 58) { set %bbb $+($bytes($calc(224466 - %xp1),db)) } 
  if (%nlvl == 59) { set %bbb $+($bytes($calc(247886 - %xp1),db)) } 
  if (%nlvl == 60) { set %bbb $+($bytes($calc(273742 - %xp1),db)) } 
  if (%nlvl == 61) { set %bbb $+($bytes($calc(302288 - %xp1),db)) } 
  if (%nlvl == 62) { set %bbb $+($bytes($calc(333804 - %xp1),db)) } 
  if (%nlvl == 63) { set %bbb $+($bytes($calc(368599 - %xp1),db)) } 
  if (%nlvl == 64) { set %bbb $+($bytes($calc(407015 - %xp1),db)) } 
  if (%nlvl == 65) { set %bbb $+($bytes($calc(449428 - %xp1),db)) } 
  if (%nlvl == 66) { set %bbb $+($bytes($calc(496254 - %xp1),db)) } 
  if (%nlvl == 67) { set %bbb $+($bytes($calc(547953 - %xp1),db)) } 
  if (%nlvl == 68) { set %bbb $+($bytes($calc(605032 - %xp1),db)) } 
  if (%nlvl == 69) { set %bbb $+($bytes($calc(668051 - %xp1),db)) } 
  if (%nlvl == 70) { set %bbb $+($bytes($calc(737627 - %xp1),db)) } 
  if (%nlvl == 71) { set %bbb $+($bytes($calc(814445 - %xp1),db)) } 
  if (%nlvl == 72) { set %bbb $+($bytes($calc(899257 - %xp1),db)) } 
  if (%nlvl == 73) { set %bbb $+($bytes($calc(992895 - %xp1),db)) } 
  if (%nlvl == 74) { set %bbb $+($bytes($calc(1096278 - %xp1),db)) } 
  if (%nlvl == 75) { set %bbb $+($bytes($calc(1210421 - %xp1),db)) } 
  if (%nlvl == 76) { set %bbb $+($bytes($calc(1336443 - %xp1),db)) } 
  if (%nlvl == 77) { set %bbb $+($bytes($calc(1475581 - %xp1),db)) } 
  if (%nlvl == 78) { set %bbb $+($bytes($calc(1629200 - %xp1),db)) } 
  if (%nlvl == 79) { set %bbb $+($bytes($calc(1798808 - %xp1),db)) } 
  if (%nlvl == 80) { set %bbb $+($bytes($calc(1986068 - %xp1),db)) } 
  if (%nlvl == 81) { set %bbb $+($bytes($calc(2192818 - %xp1),db)) } 
  if (%nlvl == 82) { set %bbb $+($bytes($calc(2421087 - %xp1),db)) } 
  if (%nlvl == 83) { set %bbb $+($bytes($calc(2673114 - %xp1),db)) } 
  if (%nlvl == 84) { set %bbb $+($bytes($calc(2951373 - %xp1),db)) } 
  if (%nlvl == 85) { set %bbb $+($bytes($calc(3258594 - %xp1),db)) } 
  if (%nlvl == 86) { set %bbb $+($bytes($calc(3597792 - %xp1),db)) } 
  if (%nlvl == 87) { set %bbb $+($bytes($calc(3972294 - %xp1),db)) } 
  if (%nlvl == 88) { set %bbb $+($bytes($calc(4385776 - %xp1),db)) } 
  if (%nlvl == 89) { set %bbb $+($bytes($calc(4842295 - %xp1),db)) } 
  if (%nlvl == 90) { set %bbb $+($bytes($calc(5346332 - %xp1),db)) } 
  if (%nlvl == 91) { set %bbb $+($bytes($calc(5902831 - %xp1),db)) } 
  if (%nlvl == 92) { set %bbb $+($bytes($calc(6517253 - %xp1),db)) } 
  if (%nlvl == 93) { set %bbb $+($bytes($calc(7195629 - %xp1),db)) } 
  if (%nlvl == 94) { set %bbb $+($bytes($calc(7944614 - %xp1),db)) } 
  if (%nlvl == 95) { set %bbb $+($bytes($calc(8771558 - %xp1),db)) } 
  if (%nlvl == 96) { set %bbb $+($bytes($calc(9684577 - %xp1),db)) } 
  if (%nlvl == 97) { set %bbb $+($bytes($calc(10692629 - %xp1),db)) } 
  if (%nlvl == 98) { set %bbb $+($bytes($calc(11805606 - %xp1),db)) } 
  if (%nlvl == 99) { set %bbb $+($bytes($calc(13034431 - %xp1),db)) } 
}






on $*:TEXT:/^[!@.]count/Si:#:{ 
  $iif($left($1,1) == @, msg $chan, .notice $nick) 14There are currently 7 $nick($chan,0) 14in 7 $chan 14 $str($chr(124),2) 7Ops: 14 $nick($chan,0,o) $str($chr(124),2) 7HalfOps: 14 $nick($chan,0,h) $str($chr(124),2) 7Voiced: 14 $nick($chan,0,v) $str($chr(124),2) 7Regular: 14 $nick($chan,0,r) 
}