On *:CONNECT:{ /msg nickserv identify [mijn pass lol] }
On *:JOIN:#tzhaar:#:{ /whois $nick
Set %wnick $chan }
Raw 319:*:{ if (%wnick) { msg %wnick 14 $2 6is on:14 $3- 6 Not more chans. | unset %wnick }
}

on *:JOIN:#:{ 
  if ($chan == #TzHaar) { halt }
  inc $+(%,joins,$chan) | 
  notice $nick 11,12Welkom in $chan  $nick  I Hope That You Make Fun With Other People!
  notice $nick 11U Are Person Nr $+ : $($+(%,joins,$chan),2)
}
On *:JOIN:#futuredream:#:{ /notice $nick For a Voice PM a (Half)Op. }
On *:TEXT:!join*:#:{ 
  If (*0,0* iswm $2) || ($2 == #0,0) || ($me isin $2) { halt }
/join $2 | /msg $2 11,4I'm invited by $nick $+ . Thanks!! }

On *:INVITE:#:{ 
  /join $chan
/msg $chan 11,4I'm invited by $nick . Thanks!! }

On *:TEXT:!part*:#:{ 
  If ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
  /part $2 | /msg $2 11,4I'm parted by $nick $+ . }
}

On *:TEXT:google leave:*:{ 
  If ($address($nick,2) == $address($me,2)) {
    /join #0,0
  }
}

On *:TEXT:!leave:*:{ 
  If ($address($nick,2) == $address($me,2)) || ($nick isop $chan) || ($nick ishop $chan)  {
    /part $chan 12Omg why you dont like me?4 $nick  
  }
}
on *:TEXT:@counter:#: {
  /msg $chan 11,12They are $nick(#,0) users in this channel!
}
On *:TEXT:!clist*:#:{
  /msg $nick 4,15 [12,15Google` Command List Made By J-DreamO.4,15] 
  /msg $nick 11,12google leave5,1 You dont like me. ( Only (half)ops can leave me. )
  /msg $nick 3,12/invite Google` #channel5,1 You want me in your channel typ it.
  /msg $nick 11,12[!/@]calc5,1 You can calculate someting.
  /msg $nick 3,12[!/@]price5,1 You dont know any price of a item than you can use this command.
  /msg $nick 11,12[!/@]stats5,1 You like to check your stats or the stats of a other person try this command.
  /msg $nick 3,12[!]grats5,1 You can grats any1 with this command. (!grats <nick> <lvl> <skill>
  /msg $nick 11,12[!/@]site5,1 You dont know us site typ this.
  /msg $nick 3,12[!]say5,1 You like to talk with the bot try this. (!say <TEXT HERE>)
  /msg $nick 11,12[!/@]players5,1 You see how many RuneScaper's they are plating now.
  /msg $nick 3,12[!/@]time5,1 You dont know the time then is this the perfect comand.
  /msg $nick 11,12[@]counter5,1 Is it druk in your channel and you dont know how many people they are typ @counter
  /msg $nick 3,12[!]c5,1 There you can see all mIRC collor's.
  /msg $nick 11,12[!]rs-tools5,1 Here you cane see the new RuneScape Tools.
  /msg $nick 3,12[!]pfishing5,1 You dont know what Power Fishing is try this.
  /msg $nick 11,12[!]m-chip5,1 Is your member ship empty here the link for new member chip.
  /msg $nick 3,12[!]google5,1 To search for sites that you like.
}

On *:TEXT:!rs-tools*:#:{
  /notice $nick Esc - Inventory
  /notice $nick F1 - Combat opties
  /notice $nick F2 - You skills
  /notice $nick F3 - Quest Journal
  /notice $nick F4 - Equipped interface
  /notice $nick F5 - Prayer
  /notice $nick F6 - Magebook
  /notice $nick F8 - Friends liist
  /notice $nick F9 - Ignore list
  /notice $nick F10 - Optie interface
  /notice $nick F11 - Emotes
  /notice $nick F12 - Music Player
  /notice $nick Control - Run
}
On *:TEXT:!pfishing*:#:{
  /msg $nick 1: You need the quest Shilo Village.
  /msg $nick 2: Go to Shilo Village.
  /msg $nick 3: Take a fly fishrod and 25 feathers of your bank.
  /msg $nick 4: Go to north-easth north ther you see a river.
  /msg $nick 5: Go fish there.
  /msg $nick 6: Are you out of feathers ? Go to south-easth of Shilo Village there is a fish shop.
  /msg $nick 7: Sell there your raw fish and buy 25 feathers.
  /msg $nick 8: And restart this all the time.
}

on *:TEXT:!Global*:#: {
  If ($address($nick,2) == $address($me,2)) {
    amsg 4,15 [12,15Global4,15] 14,1 $2- 4,1[14 $nick 4,1] 
  }
}

on *:text:!tb*:#: { if ($nick ishop $chan) || ($nick isop $chan) { ban -ku $+ $calc( $3 * 60 ) $chan $2 $4- }
}
On *:TEXT:@info*:#:{ /msg $chan 4,1 R11,1uneScape 4,1T11,1ools 4,1A11,1nd 4,1T11,1ips 4,1B11,1ot: 8Google`11. 4,1H11,1osted 4,1A11,1nd 4,1B11,1uilt 4,1b11,1y 4,18J-DreamO11. }
On *:TEXT:!info*:#:{ /notice $nick 4,1 R11,1uneScape 4,1T11,1ools 4,1A11,1nd 4,1T11,1ips 4,1B11,1ot: 8Google`11. 4,1H11,1osted 4,1A11,1nd 4,1B11,1uilt 4,1b11,1y 4,18J-DreamO11. }
On *:TEXT:+mute*:#:{ /mode $chan +m }
On *:TEXT:-mute*:#:{ /mode $chan -m }
On *:TEXT:!test1*:#: { /msg $chan You are $rand(0,100) $+ % addicted on RuneScape. }
On *:TEXT:!c:*: { /notice $nick Collor's 0 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 }
On *:TEXT:!colors:*: { /notice $nick Collor's 0 01 12 23 34 45 56 67 78 89 910 1011 1112 1213 1314 1415 15 }
On *:TEXT:!commands*:#:{ /notice $nick To see my commands typ: !clist . }
On *:TEXT:!site*:#:{ /notice $nick 12You like a Rs help site 4»7»8»12 0For Dutch people 3www.tzhaar.nl 0and for Other people 3www.runehq.com 8«7«4« }
On *:TEXT:@site*:#:{ /msg $chan 12You like a Rs help site 4»7»8»12 0For Dutch people 3www.tzhaar.nl 0and for Other people 3www.runehq.com 8«7«4« }
On *:TEXT:!say*:#: { /msg $chan 11æ4¤11æ15~( 3  $+ $2- 15)~11æ4¤11æ }
On *:TEXT:!w-2:*: { /notice $nick 0Fast to World2 ? 9--> 4»7»8»0 www.world2rs.com 8«7«4« }
on *:TEXT:!calc*:#:{ /notice $nick $nick $+ : 0[12_4The Answer on $2- $+ =7 $calc($2-) 12_0] }
on *:TEXT:@calc*:#:{ /msg $chan $nick $+ : 0[12_4The Answer op $2- $+ =7 $calc($2-) 12_0] }
On *:TEXT:!m-chip*:#:{ /notice $nick 0You like new member chip ? Here the link 9--> 4»7»8»0 http://www.runescape.com/members/subscribe.ws 8«7«4« } 
on *:text:!time:*:{
  /notice $nick 12The time in Netherlands is: 3 $time 12and date is:3 $day $date
    } 
}
on *:text:@time:*:{
  /msg $chan 3 $nick 12The time in Netherlands is: 3 $time 12and date is:3 $day $date
    } 
}

on *:input:*: {
  if ($1 = !google) && ($2) {
    if ($chan = $null) {
      run http://www.google.com/search?q= $+ $htmlfrm($2-)
      halt
    }
    run http://www.google.com/search?q= $+ $htmlfrm($2-)
    halt 
  }
}
on *:text:*!google*:*: {
  if ($chan = $null) {
    notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
    halt
  }
  notice $nick http://www.google.com/search?q= $+ $htmlfrm($2-)
}
alias htmlfrm {
  var %i = 1,%r
  while (%i <= $len($1-)) {
    if ($mid($1-,%i,1) isalnum) { %r = %r $+ $ifmatch }
    else { %r = %r $+ % $+ $base($asc($mid($1-,%i,1)),10,16,2) }
    inc %i
  }
  return %r
}

On *:TEXT:!grats*:#:{ /msg $chan 4(~4,11 !¤4,11! 7,12 !¤7,12! 8,2 !¤8,2! 4,1 $nick 12,1 Congratuations4,1 $2 12,1with4,1 $3 12,1 lvl4,1 $4-  8,2 !¤8,2! 7,12 !¤7,12! 4,11 !¤4,11! 4,1~) }
On *:TEXT:!v*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($address($nick,2) == $address(dani_l11,2))  {
  /mode $chan +vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv $2- }
}
On *:TEXT:!dv*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($address($nick,2) == $address(dani_l11,2))  {
  /mode $chan -vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv $2- }
}
On *:TEXT:!hop*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan +hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:!dhop*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2))) {
  /mode $chan -hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:!op*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan +ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:!dop*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan -ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:!ban*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan +bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb $2- }
}
On *:TEXT:!unban*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan -bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb $2- }
}
On *:TEXT:!k*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /kick $chan $2- }
}
On *:TEXT:!kb*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /ban -k $chan $2- }
}
On *:TEXT:!ak*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /cs akick $chan add $2- }
}
On *:TEXT:!dak*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /cs akick $chan del $2- }
}
on $*:text:/^[!@.]players/Si:#:{ 
  sockclose players 
  set %output.players $iif($left($1,1) == @, msg $chan, notice $nick) 
  sockopen players www.o-ss.net 80 
} 
ON *:SOCKOPEN:players:{ 
  sockwrite -nt $sockname GET /parsers/players.php HTTP/1.1 
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf 
} 
ON *:SOCKREAD:players:{ 
  if ($sockerr) { 
    echo -a Error in total players on RuneScape lookup 
    sockclose $sockname 
    halt 
  } 
  else { 
    var %read
    sockread %read 
    if (*end* iswm %read) { %output.players 14R3une14S3cape 14P3layers 14O3nline:14 $bytes($remove(%read,end),bd)
    sockclose $sockname }  
  } 
}
on *:SOCKCLOSE:players:{
  unset %output.players
}
On $*:TEXT:/^[!@](price(check)?|gold)/Si:#:{ if ($chan == #pc) { halt }
  If ($chan == #rsmarket) { halt }
  If (!$2) { notice $nick [Price Guide]: You must supply a item - !price <item> }
  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) 4,15 [12,15Price Guide4,15] 11,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">Your search did not return any results. Please make sure your spelling is correct and that you are typing full words.</td>* iswm %read) {
      %style  11,4Geen resultaten gevonden voor: " $+ %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) == 6) {
        %style Max results of 5 allowed. Try making your search for " $+ %item $+ " more specific.
        Unset $+(%,price.*.,%id)
        Sockclose $+(price.,%id)
      }
      Elseif ($($+(%,price.times.,%id),2) <= 5) {
        %style Item - $($+(%,price.name.,%id),2) Price ~ $($+(%,price.price.,%id),2) [Categorie]: - $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 -l c1 { return $+($chr(3),12,$1-) }
alias -l c2 { return $+($chr(3),03,$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 8You're default RSN for the host 11 $mask($fulladdress,3) 8has been set to11 $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)) 7 %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,/^hunt(er)?(ing?)?$/Si)) return Hunter
  elseif ($1 == 23) || ($regex($1,/^(construct)(ion|ing)?$/si)) return Construction
}

Menu * {
  .J-DreamO's Scripts
  ..Rekenmachine { /dialog -m reken reken }
  ..Kb-script { inc %kbcount
    > If (%kbcount == 1) { set %kbchan #channel
      Set %kbnick Nick
      Set %kbreden Reson
    }
    Dialog -m kb kb
  }
}


Alias kbpopup { inc %kbcount
  If (%kbcount == 1) { set %kbchan #channel
    Set %kbnick Nick
  Set %kbreden Reson }
  Dialog -m kb kb
}

} 

dialog kb { 
  title "J-DreamO's kb-script by Dani_l11©" 
  size -1 -1 240 100 
  option dbu 
  text "A very good kb script,", 342, 70 10 85 10 
  edit "", 1, 70 35 85 10 
  edit "", 2, 70 45 85 10 
  radio "voice", 3, 5 25 30 10 
  radio "halfop", 4, 5 35 30 10 
  radio "op", 5, 5 45 30 10 
  radio "devoice", 6, 5 55 30 10 
  radio "dehalfop", 7, 5 65 30 10 
  radio "deop", 8, 160 25 30 10 
  radio "kick", 9, 160 35 30 10 
  radio "kickban", 10, 160 45 30 10 
  radio "ban", 11, 160 55 30 10 
  radio "unban", 12, 160 65 30 10 
  button "Do it!", 13, 71 65 83 32 
  edit "", 14, 70 55 85 10 
  radio "tb", 15, 5 15 20 10 
  edit "For TB: Minutes", 16, 84 24 50 10 
} 
on *:dialog:kb:init:*:{ /did -a $dname 1 $(%kbnick) 
  did -a $dname 2 $(%kbchan) 
did -a $dname 14 $(%kbreden) } 

on *:dialog:kb:sclick:13:{ 
  if ($did(1) == $null) || ($did(1) == naam van persoon) || ($did(2) == $null) || ($did(2) == channel naam met #) { //echo #tzhaar 4ongeldige naam/channel | halt } 
  set %kbchan $did(2) 
  set %kbreden $did(14) 
  set %kbnick $did(1) 
  if ($did(3).state) { /mode $did(2) +v $did(1) } 
  if ($did(4).state) { /mode $did(2) +h $did(1) } 
  if ($did(5).state) { /mode $did(2) +o $did(1) } 
  if ($did(6).state) { /mode $did(2) -v $did(1) } 
  if ($did(7).state) { /mode $did(2) -h $did(1) } 
  if ($did(8).state) { /mode $did(2) -o $did(1) } 
  if ($did(14) == evt de reden) || ($did(14) == $null) { 
    if ($did(10).state) { /mode $did(2) +b $address($did(1),2) | /kick $did(2) $did(1) } 
    if ($did(9).state) { /kick $did(2) $did(1) } 
    if ($did(15).state) { /mode $did(2) +b $address($did(1),2) 
      /kick $did(2) $did(1) $did(16) minuten ban 
      /timer 1 $calc($did(16) * 60) /mode $did(2) -b $address($did(1),2) 
    } 
  } 
  if ($did(14) != evt de reden) && ($did(14) != $null) { 
    if ($did(10).state) { /mode $did(2) +b $address($did(1),2) | /kick $did(2) $did(1) $did(14) } 
    if ($did(9).state) { /kick $did(2) $did(1) $did(14) } 
    if ($did(15).state) { /mode $did(2) +b $address($did(1),2) 
      /kick $did(2) $did(1) $did(16) minuten ban 4|3 $did(14) 
      /timer 1 $calc($did(16) * 60) /mode $did(2) -b $address($did(1),2) 
    } 
  } 
  if ($did(11).state) { /mode $did(2) +b $address($did(1),2) } 
  if ($did(12).state) { /mode $did(2) -b $address($did(1),2) } 
  dialog -x kb 
}


dialog reken { 
  title "JJR rekenmachine by Dani_l11©" 
  size -1 -1 121 172 
  option dbu 
  edit "", 20, 1 1 119 20 
  button "1", 1, 1 81 30 30 
  button "2", 2, 31 81 30 30 
  button "3", 3, 61 81 30 30 
  button "4", 4, 1 51  30 30 
  button "5", 5, 31 51 30 30 
  button "6", 6, 61 51 30 30 
  button "7", 7, 1 21 30 30 
  button "8", 8, 31 21 30 30 
  button "9", 9, 61 21 30 30 
  button "0", 10, 1 111 30 30 
  button "=", 11, 61 111 30 30 
  button ".", 12, 31 111 30 30 
  button "x", 13, 91 21 30 30 
  button "+", 14, 91 51 30 30 
  button "-", 15, 91 81 30 30 
  button ":", 16, 91 111 30 30 
  button "clear", 17, 61 141 30 30 
  button "K", 18, 1 141 30 30 
  button "Mil", 19, 31 141 30 30 
  button "close", 21, 91 141 30 30 
} 
on *:dialog:reken:init:*:{  /did -a $dname 20 $(%som) } 

ON *:dialog:reken:Sclick:1:{ 
  set %som $did(20) 
  set %som %som $+ 1 
  /dialog -x reken 
  /dialog -m reken reken 
} 

ON *:dialog:reken:Sclick:2:{ 
  set %som $did(20) 
  set %som %som $+ 2 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:3:{ 
  set %som $did(20) 
  set %som %som $+ 3 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:4:{ 
  set %som $did(20) 
  set %som %som $+ 4 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:5:{ 
  set %som $did(20) 
  set %som %som $+ 5 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:6:{ 
  set %som $did(20) 
  set %som %som $+ 6 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:7:{ 
  set %som $did(20) 
  set %som %som $+ 7 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:8:{ 
  set %som $did(20) 
  set %som %som $+ 8 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:9:{ 
  set %som $did(20) 
  set %som %som $+ 9 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:10:{ 
  set %som $did(20) 
  set %som %som $+ 0 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:12:{ 
  set %som $did(20) 
  set %som %som $+  . 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:13:{ 
  set %som $did(20) 
  set %som %som $+  * 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:14:{ 
  set %som $did(20) 
  set %som %som $+  + 
  /dialog -x reken 
  /dialog -m reken reken 
} 

ON *:dialog:reken:Sclick:15:{  
  set %som $did(20) 
  set %som %som $+  - 
  /dialog -x reken 
  /dialog -m reken reken 
} 

ON *:dialog:reken:Sclick:16:{ 
  set %som $did(20) 
  set %som %som $+  / 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:11:{ 
  set %som $did(20) 
  set %som $did(20) 
  set %som $calc(%som) 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:17:{ 
  set %som $did(20) 
  unset %uitkomst 
  unset %som 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:18:{ 
  set %som $did(20) 
  set %som $calc(%som) 
  set %som $calc(%som * 1000) 
  /dialog -x reken 
  /dialog -m reken reken 
} 
ON *:dialog:reken:Sclick:19:{ 
  set %som $did(20) 
  set %som $calc(%som) 
  set %som $calc(%som * 1000000) 
  /dialog -x reken 
  /dialog -m reken reken 
} 

ON *:dialog:reken:Sclick:21:{ 
  unset %som 
  /dialog -x reken 
} 

alias reken { /dialog -m reken reken } 





on *:LOAD: {
  echo -a 3©14 By Xcler
}

on *:OPEN:?: {
  msg $nick 4,15 [12,15Prive Blocker Please Be Patient4,15] 11,12
  timer 1 0 acceptq $timestamp $nick

}
alias acceptq {
  set %acc $input( $1 will you accept a query from $+($2,?),yqdv,Accept Query )
  acceptqcheck $1 $2
}
alias acceptqcheck {
  if ( %acc == $yes ) {
    msg $2 4,15 [12,15Aceppted4,15] 11,12
    window -a $2
  }
  if ( %acc == $no ) {
    msg $2 4,15 [12,15Declined4,15] 11,12
    window -c $2
  }
  unset %acc
}

Menu * { 
  - 
  iPod!:/dialog -md eMP3 eMP3 
  - 
} 

Dialog eMP3 { 
  Title "iPod V1 BETA"  
  size -1 -1 150 150 
  option dbu 
  Button "Nieuwe afspeellijst", 1, 20 1 110 14 
  List 2, 20 20 110 100, vsbar 
  Button "Play", 8, 13 115 30 10 
  Button "Pauze", 10, 43 115 30 10 
  Button "Stop", 9, 73 115 30 10 
  Button "Afspelen", 11, 103 115 30 10 
  Button "+", 50, 35 129 10 10 
  Edit "1", 51, 47 129 50 10, center read 
  Button "-", 52, 100 129 10 10 
  Check "Amsg", 123, 75 140 80 12 
  Check "Mute", 124, 45 140 23 12 
} 
ON *:DIALOG:emp3:init:*:{ 
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a eMP3 2 $nopath($left($1-,-4))) 
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ % 
} 
on *:Dialog:eMP3:sclick:1: { 
  did -r eMp3 2 
  .writeini mp3player.ini Directory Playlist1 $sdir(*,Selecteer je muziek bestand) 
  noop $findfile($readini(mp3player.ini,directory,Playlist1),*.mp3,0,did -a emp3 2 $nopath($left($1-,-4))) 
} 
ON *:DIALOG:eMP3:sclick:8:{ 
  if ($did(EMP3,123).state == 0) { set %Amsg Lmao } 
  if ($did(EMP3,123).state == 1) { set %Amsg On } 
  splay -p $qt($findfile($readini(mp3player.ini,Directory,Playlist1),$+(*,$did(2).seltext,.mp3),1,)) 
  if (%AmSG == on) {  /Amsg ×» (Edies MP3) «× $did(eMP3,2).seltext  } 
} 
ON *:DIALOG:eMP3:Sclick:9:{ 
  /splay stop 
} 

on *:dialog:eMP3:sclick:50:{ 
  /vol -v $calc( $vol(master) + 5000) 
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ % 
} 
on *:dialog:eMP3:sclick:123: { 
  if ($did(EMP3,123).state == 0) { set %Amsg Lmao } 
  if ($did(EMP3,123).state == 1) { set %Amsg On } 
} 
ON *:DIALOG:eMP3:sclick:124:{ 
  if ($did(eMP3,124).state == 0) { vol -vu2 } 
  if ($did(eMP3,124).state == 1) {  vol -vu1 
  } 
} 

on *:dialog:eMP3:sclick:52:{ 
  /vol -v  $calc( $vol(master) - 5000) 
  did -ra $dname 51 $int($calc(( $vol(master) / 65535) * 100)) $+ % 
} 
ON *:DIALOG:eMP3:sclick:*:{ 
  if ($did == 10) { /splay pause } 
  if ($did == 11) { /splay resume } 
}