On *:CONNECT:{ /msg nickserv identify my pass }
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 ison $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:!part \Google`:*:{ 
  If ($address($nick,2) == $address($me,2)) {
    /msg $chan Ok $nick maybe i see you later | /msg $chan Cya all | /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:!accept*:#: {
  If ($nick isop $chan) || ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
    /cs access $chan add $3 3
    /msg $chan 7Added3•4 $3- 3•7To Auto Voice List
  }
}
On *:TEXT:!clist*:#:{
  /msg $nick 4,15 [12,15\Google` Command List Made By J-DreamO.4,15] 
  /msg $nick 3,12[!]accept5,1 You dont know code for a-voice typ !accept #channel nick than ill do it for you (+o for it).
  /msg $nick 11,12[!]part \Google`5,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 a RuneScape helping site ? Try 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[!]c/colors5,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.
  /msg $nick 11,12[@]youtube5,1 To search for a vid on www.youtube.com.
  /msg $nick 3,12[!/@](e)xp5,1 To see how many exp you need for next lvl.
  /msg $nick 11,12[!/@]wiki5,1 To search info about whwat you want.
  /msg $nick 3,12[!]fring5,1 FairyRings: To know where it is (!fring-code for FairyRings Codes).
  /msg $nick 11,12[!]fring-code5,1 All code's of FairyRing Teleport (Comming Soon) .
  /msg $nick 4,15 [12,15You got any good idea's for a script ? /msg J-DreamO [TEXT] or mail to google-bot@hotmail.com4,15] 
}
On *:TEXT:!fring-code*:#:{
/notice $nick $nick This Command Comming Soon :) }

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:/^[!@](e)?xp/Si:#:{ 
  $iif($left($1,1) == @,msg $chan,notice $nick) 11[6L3evel:6 $2 $+ 11] [6E3xp:6 $bytes($xp($2),db) $+ 11]
} 
alias xp { 
  var %x = 1, %level = $calc($1 - 1), %xp = 0 
  while (%x <= %level) { 
    var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4) 
    inc %xp %tempxp 
    inc %x 
  } 
  return $int(%xp) 
} 
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] 
  }
}

alias fairyring.code.1 { 
  if ($regex($1,/^(a|b|c|d)$/Si)) { return $true } 
  else { return $false } 
} 
alias fairyring.code.2 { 
  if ($regex($1,/^(i|j|k|l)$/Si)) { return $true } 
  else { return $false } 
} 
alias fairyring.code.3 { 
  if ($regex($1,/^(p|q|r|s)$/Si)) { return $true } 
  else { return $false } 
} 
alias fairyring.location { 
  if ($1 == AIQ) { return Mudskipper Point } 
  if ($1 == AIR) { return Desert island (south of Ardougne port, east of the Necromancer tower) } 
  if ($1 == AJR) { return Fremennik Slayer Cave entrance } 
  if ($1 == AJS) { return Pengiun isle (north of Miscellania and Etceteria) } 
  if ($1 == AKQ) { return Piscatoris Fishing Colony } 
  if ($1 == AKS) { return Feldip Hills (near the gnome glider) } 
  if ($1 == ALR) { return Abyssal area (all abyssal monsters, including Abyssal Demons) } 
  if ($1 == ALS) { return McGrubor's Wood } 
  if ($1 == BIP) { return Island in the River Salve } 
  if ($1 == BIQ) { return Desert (Camels and Desert Wolves, southeast of the Kalphite Lair) } 
  if ($1 == BIS) { return Ardougne Zoo unicorn cage } 
  if ($1 == BJR) { return Fisher King's Realm (from the Holy Grail quest) } 
  if ($1 == BKP) { return Chompy hunting swamp (south of Castle Wars) } 
  if ($1 == BKQ) { return Enchanted Valley (with Centaurs, rabbits, and tree spirits) } 
  if ($1 == BKR) { return Northeastern Mort Myre Swamp (southeast of CKS) } 
  if ($1 == BLP) { return TzHaar } 
  if ($1 == BLR) { return Legends Guild } 
  if ($1 == CIP) { return Miscellania } 
  if ($1 == CIQ) { return South of the Tree Gnome Village } 
  if ($1 == CJR) { return Sinclair Mansion } 
  if ($1 == CKP) { return Higher Planes (Star Flower respawn) } 
  if ($1 == CKR) { return Karambwanji fishing spot (northwest of Shilo Village) } 
  if ($1 == CKS) { return Canifis Bittercap Mushroom patch } 
  if ($1 == CLP) { return Island northeast of the Wizards Tower } 
  if ($1 == CLS) { return Gnome Hazelmere's house } 
  if ($1 == DIR) { return Goraks and Cloud Banks } 
  if ($1 == DIS) { return Wizard Tower } 
  if ($1 == DJP) { return Necromancer Tower } 
  if ($1 == DJR) { return Northwest of Sinclair Mansion } 
  if ($1 == DKP) { return Karambwan fishing spot (north of the nature altar) } 
  if ($1 == DKR) { return Edgeville canoe station } 
  if ($1 == DKS) { return Snow Hunting Grounds (north of Keldagrim entrance) } 
  if ($1 == DLQ) { return Desert (lizards, north of Nardah) } 
  if ($1 == DLR) { return Isle in Isafdar Poison Waste } 
  if ($1 == DLS) { return Cavern near the Myreque } 
  else { return N/A } 
} 
on *:TEXT:!fring*:#: { 
  if ($len($2) != 3) { .notice $nick Error: must be a 3 letter code | halt } 
  if ($fairyring.code.1($mid($2,1,1)) == $false) { .notice $nick Error: !fairyring (abcd)(ijkl)(pqrs) | halt } 
  if ($fairyring.code.2($mid($2,2,1)) == $false) { .notice $nick Error: !fairyring (abcd)(ijkl)(pqrs) | halt } 
  if ($fairyring.code.3($mid($2,3,1)) == $false) { .notice $nick Error: !fairyring (abcd)(ijkl)(pqrs) | halt } 
  $iif($left($1,1) == @,msg $chan,notice $nick) $nick $upper($2) = $fairyring.location($2) 
}

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 On7 $2- $+ 4=7 $bytes($calc($2),bd) 12_0] }
on *:TEXT:@calc*:#:{ /msg $chan $nick $+ : 0[12_4The Answer On7 $2- $+ 4=7 $bytes($calc($2),bd) 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 *:text:!wiki*:#:{
notice $nick 4E5nglish4W5ikipedia 4R5esult4 4F5or6 $2- 4:15 http://en.wikipedia.org/wiki/ $+ $2- }
on *:text:@wiki*:#:{
msg $chan 4E5nglish4W5ikipedia 4R5esult4 4F5or6 $2- 4:15 http://en.wikipedia.org/wiki/ $+ $2- }
on *:text:@youtube*:#: {
  if ($sock(youtube)) .sockclose youtube
  set %Ychan $chan
  set %youtubetext $2-
  sockopen youtube youtube.com 80
}
on *:SOCKOPEN:youtube: {
  sockwrite -nt $sockname GET /results?search_query= $+ %youtubetext $+ &search= HTTP/1.1
  sockwrite -nt $sockname Host: youtube.com
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:youtube: {
  if ($sockerr) {
    msg %chan Socket Error: $sockname $+ .
    halt
  }
  else {
    var %sockreader
    sockread %sockreader
    if (*newvtitlelink* iswm %sockreader) {
      noop $regex(%sockreader,/href="(.*?)" rel=/Si)
      set %youtube $regml(1)
      msg %Ychan 4Y5ou4T5ube 4S5earch4,5....15 www.youtube.com $+ %youtube
      unset %Ychan
      sockclose youtube
    }
  }
}

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 *:QUIT: { if (. isin $1) && (. isin $2) && ($3 == $null) && (%nets != $2) {
    inc %netsplits
    set %nets $2
    timer 1 10 unset %nets
    amsg 6N3etsplit 6D3etected!6 $1 3and6 $2 | halt
  }
}
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:-v*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) || ($address($nick,2) == $address(dani_l11,2))  {
  /mode $chan -vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv $2- }
}
On *:TEXT:+h*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan +hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:-h*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2))) {
  /mode $chan -hhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhhh $2- }
}
On *:TEXT:+o*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan +ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:-o*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan -ooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooooo $2- }
}
On *:TEXT:+b*:#:{ 
  If ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
  /mode $chan +bbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbbb $2- }
}
On *:TEXT:-b*:#:{ 
  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:-k*:#:{ 
  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:-ak*:#:{ 
  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 } 
}

on $*:text:/^[!@](Clan)/Si:#:{ 
  inc %y 
  if ($2 != -a) { halt } 
  if ($2 == -a) set %nick $replace($3-,$chr(32),$chr(43)) 
  if ($sock(Clanreasd)) sockclose Clanreasd 
  if ($left($1,1) == !) set %display notice $nick $c3 $+ ~ $c2 $+ Clan $c3 $+ ~ 
  if ($left($1,1) == @) set %display msg $chan $c3 $+ ~ $c2 $+ Clan $c3 $+ ~ 
  sockopen Clanreasd www.runehead.com 80 
} 
on *:SOCKOPEN:Clanreasd: { 
  sockwrite -nt $sockname GET /clans/search.php?search= $+ %nick HTTP/1.1 
  sockwrite -nt $sockname Host: www.runehead.com 
  sockwrite -nt $sockname $crlf 
} 
on *:SOCKREAD:Clanreasd: { 
  if ($sockerr) { %way Socket Error: $sockname $+ . Error code: $sockerr Please inform $me of this error message. 
    halt 
  } 
  var %sockreaders 
  sockread %sockreaders 
  If (*<p>The <b>exact</b> search <b>* iswm %sockreaders) { set %results $remove($htmlfree(%sockreaders),the,exact,search,returned,results:,%nick) 
    %display $c1(%nick) $c2(is in) $+ $c1(%results) $c2(clan(s):) 
  } 
  if (*<td class='tableborder'><a href='ml.php?clan=* iswm %sockreaders) { set %cname $htmlfree(%sockreaders) } 
  if (*<td class='tableborder'><a href='ml.php?clan=* iswm %sockreaders) { inc %xyi 1 | set %link $remove(%sockreaders,<td class='tableborder'><a href=','>,'title='ViewMemberlist,</a></td>,%cname) 
  %display %xyi $+ . $c2(%cname) $+ : $c1 $+ www.Runehead.com/clans/ $+ $remove(%link,$chr(32),'title='ViewMemberlist) $+) } 
  if (*</html>* iswm %sockreaders) { 
    unset %xyi 
    sockclose $sockname 
  } 
} 
alias htmlfree { 
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;) 
  return %x 
}