;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;  Basic Runescape Utility and Fun IRC Scripts designed for Gosu Stizz.                                ;;
;;  Most scripts desgined and put together by Max Hearts. Respective credit goes to repesctive owners.  ;;
;;  Availible commands in this packages are !list, [!@]leet text, [!@]calc text, !global text,          ;;    
;;  	[!@]gaysensor text, [!@]emosensor text, [!@]lovesensor text, [!@]noobsensor text,               ;;
;;  	action slap reaction, action huggle reaction, !spy text, !endspy, [!@]google text,              ;;
;;   	standard stats script commands                                                                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

on *:TEXT:!list:#:{
  notice $nick Availible commands on $me is as following:
  notice $nick RuneScape Stats(With Defname Feature!) ----- !defname nick, <@ or !><stats or cmb or skill> RSN
  notice $nick Google Search ----- <@ or !>google topic
  notice $nick Calculator ----- <@ or !>calc number<+ or - or * or />number
  notice $nick Fun "Sensors" ----- !emosensor nick, !gaysensor nick, !noobsensor nick, !lovesensor nick1 nick2
  notice $nick English-to-Leet(Hardcore) Translator ----- <@ or !>leet text1

}
on *:INVITE:#: {    
  if ($chan == #Channel) { halt } {
    join $chan
    msg $chan Hello chatters of12 $chan and thanks for inviting me! I was invited by12 $nick $+ . If you would like to Part me, type 12!Part $me $+  (I can only be parted by Ops). To view my command list, type: 12!List.
    notice $me 1I was invited to $chan by $nick $+ .
  }
}

on *:TEXT:!part $me:#: {
  if ($chan == #Channel) { halt } {
    if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
      /msg $chan 12 $+ $nick has Parted me. To invite me again some other time, type: 12/invite $me #channelname
      notice $me 1I was parted by $nick from $chan $+ .
    part $chan }
  }  
}

on $*:TEXT:/^[!@]leet */Si:#:{
  var %send $iif(!* iswm $1,notice $nick,msg $chan)
  %send English:  $+ $2- $+  Leet(1337):  $+ $replace($2-,a,/\,b,|3,c,[,d,|],e,3,f,|=,g,6,h,|-|,i,|,j,_],k,|{,l,1,m,|\/|,n,|\|,o,0,p,|*,q,O_,r,|2,s,5,t,7,u,(_),v,\/,w,\/\/,x,><,y,`/,z,2) $+  
}


on $*:TEXT:/^[!@]calc */Si:#: { 
  var %send $iif(!* iswm $1,notice $nick,msg $chan) 
  %send 12Calculator:12 $$2-  = 12 $calc($replace($2-,k,000,m,000000,pi,3.14159265,leet,1337) $2- $+  ))  
}

on *:TEXT:!global *:#:{  
  if $address($nick,2) == $address($me,2) { 
    /amsg [12 $+ $Me GLOBAL1] $2- 
  } 
}

on $*:TEXT:/^[!@]gaysensor */Si:#:{
  var %send $iif(!* iswm $1,notice $nick,msg $chan)
  %send Gay sensors indicate that $2 is...  $+ $rand(1,100) $+ $chr(37) gay $+ . 
}

on $*:TEXT:/^[!@]emosensor */Si:#:{
  var %send $iif(!* iswm $1,notice $nick,msg $chan)
  %send Emo sensors indicate that $2 is...  $+ $rand(1,100) $+ $chr(37) emo $+ . $2 has...  $+ $rand(1,100) wrist-cuts $+ . 
}

on $*:TEXT:/^[!@]lovesensor */Si:#:{
  var %send $iif(!* iswm $1,notice $nick,msg $chan)
  %send Love sensors indicate indicate that $2 and $3- have a love compatabillity rate of $rand(1,100) $+ $chr(37) $+ . 
}

on $*:TEXT:/^[!@]noobsensor */Si:#:{
  var %send $iif(!* iswm $1,notice $nick,msg $chan)
  %send Noob sensors indicate that $2 is...  $+ $rand(1,100) $+ $chr(37) noob on the internet and  $+ $rand(1,100) $+ $chr(37) noob at life.
}

on *:ACTION:slaps * around a bit with a large trout:#:{ 
  inc %tcount 
  describe $chan snatches the trout from1 $nick 6and eats it! 1[Trouts Eaten:12 %tcount $+ 1] 
}

on *:ACTION:*huggles *:#:{  
  describe $chan huggles1 $2- 6and1 $nick 6
  msg $chan Room for one more? <3
}

on *:TEXT:!spy *:#: { 
  if $address($nick,2) == $address($me,2) {
    if (!$2) { msg $chan No channel specified. } 
    else { set %spy.target $chan | join $2 | set %spy.source $2- | msg $chan Now spying on  $+ %spy.source $+ . } 
  }
}
on *:TEXT:!endspy:#: {
  if $address($nick,2) == $address($me,2) {
  part %spy.source | msg $chan Spying on  $+ %spy.source  $+ has ended. | unset %spy.* }
} 
on *:TEXT:*:%spy.source: { msg %spy.target $chr(91) $+ $time $+ ] $+(,<,,$spy.rank($nick),$nick,,>) $1- } 
on *:ACTION:*:%spy.source: { msg %spy.target $chr(91) $+ $time $+ ] * $+(,$spy.rank($nick)) $+ $nick $1- $+  } 
on *:JOIN:%spy.source: { msg %spy.target $chr(91) $+ $time $+ ] * $nick has joined %spy.source $+  } 
on *:PART:%spy.source: { msg %spy.target $chr(91) $+ $time $+ ] * $nick has left %spy.source $+  } 
on *:KICK:%spy.source: { msg %spy.target $chr(91) $+ $time $+ ] * $1 was kicked by $nick $+  } 
on *:QUIT:%spy.source: { msg %spy.target $chr(91) $+ $time $+ ] * $nick has quit IRC. $+  } 
on *:RAWMODE:%spy.source: { msg %spy.target $chr(91) $+ $time $+ ] * $nick set mode $1- $+  } 
alias spy.rank { 
  if ($1 isop %spy.source) { return $chr(64) } 
  elseif ($1 ishop %spy.source) { return $chr(37) } 
  elseif ($1 isvoice %spy.source) { return $chr(43) } 
  else { return $chr(45) } 
}

on $*:text:/^[!@]google */Si:*:{  
  inc %ID 1
  set %google.search $2-  
  set %googlechan $chan
  set $+(%,search.,%ID) $replace($2-,$chr(32),+) $iif($left($1-,1) == @,.msg $chan,.notice $nick)
  sockopen $+(google.,%ID) www.google.com 80
}
on *:SOCKOPEN:google.*: {
  sockwrite -nt $sockname GET /search?hl=en&q= $+ $gettok($($+(%,search.,%ID),2),1,32) $+ &btnI HTTP/1.1
  sockwrite -nt $sockname Host: www.google.com
  sockwrite -t $sockname $str($crlf,2)
}
on *:SOCKREAD:google.*: {
  var %IDt = $right($sockname,-7)
  var %target = $gettok($($+(%,search.,%IDt),2),2-,32)
  if ($sockerr) {
    %target $chr(91) $col(ERROR) $chr(93) Socket error
    unset %search. $+ $right($sockname,-7)
    sockclose $sockname
  }
  else {
    var %read | sockread %read
    if (Location:* iswm %read) {
      %target 12G4o8o12g3l4e 4Result1:  $remove($htmlfree(%read),Location:)
      unset %search. $+ $right($sockname,-7)
      sockclose $sockname
    }
    if (*did not match any documents* iswm %read) {
      %target 12G4o8o12g3l4e 1Result1: No results were found for 4" $+ %google.search $+ ". Please make sure you spelled the topic you are looking for correctly and try again.
      unset %search. $+ $right($sockname,-7)
      sockclose $sockname
    }
  }

  /close -m $nick
}
alias -l col { return $+($chr(3),$iif($len(%col) == 2,%col,$+(0,%col)), $1-, $chr(3)) }
alias -l htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;)
  return %x 
}

alias c1 { return $+(, $1-,) } 
alias c2 { return $+(12, $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 4 $+ $2 $+  is now the Default RuneScape Username for the following Hostmask: $+ 4 $mask($fulladdress,3) $+  $+ .
    halt 
  } 
  else halt 
  inc %ID 
  if ($len($2-) > 12) { 
    $($+(%,stats.display.,%ID),2) %display $c1( $+ The user) $c2($2-) $c1(is more than 12 letters long. Please search for a valid user.) 
    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(was not found in the RuneScape HighScores. If you do not have a Default RuneScape Username set yet, type !defname nick. ) 
    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)  
  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 $c2(Stats LookUp) $+ $c1(:) $$c1(Stats for) $c2(%rsn) $+ $c1(:) 
    %display %statline 
  } 
  elseif (%style == istat) { 
    if (!$hget(%table,%skill)) %display $c1(The nick) $c2(%rsn) $c1(was not found in the RuneScape HighScores for) $c2(%skill) $+ $c1(.) $c1(If you do not have a Default RuneScape Username set yet, type !defname nick. )
    else { 
      tokenize 32 $hget(%table,%skill) 
      %display $c2(Skill LookUp) $+ $c1(:) $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.  If you do not have a Default RuneScape Username set yet, type !defname nick. ) 
      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(Combat LookUp) $+ $c1(:) $c2(Combat) $c1(stats for) $c2(%rsn) $+ $c1(:) $c1(Combat Level) $c2(%combat) $c1( $+ ( $+ $c2(%cmbstyle based) $+ $c1() $+ ) $+  )  
    %display $c1(A) $+ $c1(S) $+ $c1(D) $+ $c1(H) $+ $c1(R) $+ $c1(P) $+ $c1(M) $+ $c1(:) $c2(%a) $c2(%s) $c2(%d) $c2(%h) $& 
      $c2(%r) $c2(%p) $c2(%m) $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|mining?$/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|ering)?$/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,/^hunt(a|er|ing|ering)?$/si)) return Hunter
  elseif ($1 == 23) || ($regex($1,/^(con|construct)(ion|ing)?$/si)) return Construction
}