ALIAS /kerst.dialog {
  /dialog -m Kerst Kerst
}
dialog Kerst {
  title "Kerst's Dialog"
  size -1 -1 106 112
  option dbu
  button "IRC help", 1, 0 0 108 14
  button "LINKS", 2, 0 14 108 14
  button "Runescape", 3, -3 28 111 14
  button "Google", 4, -1 84 109 14
  button "Skill Stats Cmb", 5, 0 42 108 14
  button "Bash.org", 6, 0 56 108 14
  button "Other", 7, 0 70 108 14
  button "Exit", 8, -3 98 111 14, cancel
}
on *:dialog:kerst:sclick:1: {
  /dialog -x Kerst Kerst
  /dialog -m Register Register
}
on *:dialog:kerst:sclick:2: {
  /dialog -x kerst kerst
  /dialog -m Links links
}
on *:dialog:kerst:sclick:5: {
  /dialog -x kerst kerst
  /dialog -m stats stats
}
on *:dialog:kerst:sclick:3: {
  /dialog -x kerst kerst
  /dialog -m RS RS
}
on *:dialog:Links:sclick:9: {
  /dialog -x links links
  /dialog -m kerst kerst
}
on *:dialog:RS:sclick:7: {
  /dialog -x RS RS
  /dialog -m kerst kerst
}
on *:dialog:Register:sclick:10: {
  /dialog -x register register
  /dialog -m kerst kerst
}
on *:dialog:Register:sclick:9: {
  /dialog -x register register
  /join #irchelp
}
dialog Register {
  title "IRC help"
  size -1 -1 125 125
  option dbu
  text "  Register name: SS:Push big R mIRC:          /msg nickserv register pass e-mail ", 1, -2 0 108 14
  text "  Register chan:/msg chanserv #chan              password description", 2, -2 14 108 14
  text "  Secureops: /cs set #chan secureops off", 3, -2 28 108 14
  text "  Ban: /mode #chan +b nick/host", 4, -2 42 108 14
  text "  Personal message: /msg nick", 5, -2 56 108 14
  text "  Notice : /notice person", 6, -2 70 108 14
  text "  Unban :/cs unban #chan nick", 7, -1 84 107 14
  button "IRC help", 9, -2 107 40 10
  button "Back", 10, -2 116 40 10
}
dialog Links {
  title "Links"
  size -1 -1 80 80
  option dbu
  link "www.o-ss.net", 1, 1 24 56 8
  link "www.swiftirc.net", 2, 1 8 56 8
  link "forum.swiftirc.net", 3, 1 16 56 8
  link "www.mirc.ms", 4, 1 0 56 8
  link "http://ircbots.xpt.net", 5, 1 32 56 8
  link "www.google.com", 6, 1 40 56 8
  link "newb0ts.21.forumer.com/index.php", 7, 0 48 56 8
  link "www.altscripts.net", 8, 0 56 56 8
  button "Back", 9, -1 63 58 13
}
dialog RS {
  title "Runescape FTW"
  size -1 -1 75 85
  option dbu
  text "Some links:", 1, 0 0 28 8
  link "www.runescape.com", 2, 1 9 57 8
  link "www.tip.it", 3, 1 17 57 8
  link "www.runehq.com", 4, 1 25 57 8
  link "www.zybez.net", 5, 1 33 57 8
  button "Stats/skill/Cmb", 6, 28 0 47 9
  button "Back", 7, 57 9 18 33
  text "Some rs channels:", 8, 0 40 74 8
  text "#runescape", 9, 0 48 74 8
  text "#rshelp", 10, 0 55 74 8
  text "#rsupdate", 11, 0 62 74 8
  text "#rstalk", 12, -1 70 74 8
  text "#tip.it", 13, -1 78 74 7
}
dialog stats {
  title "Stats"
  size -1 -1 103 54
  option dbu
  text "Stats  combat and skill script", 1, 14 0 79 11
  text "RS nick here:", 2, 0 11 25 8
  text "Stat here:", 3, -1 22 25 8
  button "Get Stats", 4, 0 30 53 13
  button "Get Cmb", 5, 53 30 50 13
  edit "", 6, 24 21 50 9
  edit "", 7, 25 11 50 8
  button "Get skill", 8, 73 22 30 10
  button "Back", 9, -1 42 105 14
}
ON *:DIALOG:sclick:stats:9: {
  /dialog -x stats stats
  /dialog -m kerst kerst
}
on *:SOCKOPEN:kerstskill.*: {
  sockwrite -nt $sockname GET /parsers/skills.php?skill= $+ %skill $+ &user= $+ %user HTTP/1.1
  sockwrite -nt $sockname Host: www.o-ss.net
  sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:kerstskill.*: {
  if ($sockerr) {
    %return error
    halt
  }
  var %read
  sockread %read
  if (*end iswm %read) {
    tokenize 32 $htmlfree(%read)
    if ($remove($2,end) == $null) { %return 7 $+ %user isn't ranked12 for the skill %skill 7in the RS highscores =( | /unset %return | /unset %user | /unset %skill | sockclose $sockname | halt }
    set %skillresult 7[ $+ %skill 12info for7 %user $+ ]: 12Level:7 $remove($2,end) 12Experience:7 $remove($3,end) 12Rank:7 # $+ $remove($1,end) 4 $+($chr(91),$chr(75),$chr(101),$chr(114),$chr(115),$chr(116),$chr(83),$chr(99),$chr(114),$chr(105),$chr(112),$chr(116),$chr(93))
    /unset %return
    /unset %user
    unset %*. [ $+ [ $right($sockname,5) ] ] 
    /unset %skill
    sockclose $sockname
  }
}
alias -l setskill {
  if ($regex($1,/(st|(skill)?total|overall)^/Si)) return Overall
  elseif ($regex($1,/at(t|k|tack)/Si)) return Attack
  elseif ($regex($1,/def(en[cs]e)?/Si)) return Defence
  elseif ($regex($1,/str(ength)?/Si)) return Strength
  elseif ($regex($1,/hp|hit(s|points?)?/Si)) return Hitpoints
  elseif ($regex($1,/range(r|d|ing)?/Si)) return Ranged
  elseif ($regex($1,/Pray(er)?/Si)) return Prayer
  elseif ($regex($1,/mag(e|ic)/Si)) return Magic
  elseif ($regex($1,/cook(ing)?/Si)) return Cooking
  elseif ($regex($1,/wc|wood(cut(ting)?)?/Si)) return Woodcutting
  elseif ($regex($1,/fletch(ing)?/Si)) return Fletching
  elseif ($regex($1,/fish(ing)?/Si)) return Fishing
  elseif ($regex($1,/(fire|fm)(make?(ing)?|ing)?/Si)) return Firemaking
  elseif ($regex($1,/craft(ing)?/Si)) return Crafting
  elseif ($regex($1,/(smith|smelt)(ing)?/Si)) return Smithing
  elseif ($regex($1,/min(e|e?ing)?/Si)) return Mining
  elseif ($regex($1,/herb(law|lore)?/Si)) return Herblore
  elseif ($regex($1,/agil(ity)?/Si)) return Agility
  elseif ($regex($1,/(th(ei|ie)[fv](e|ing)?)/Si)) return Thieving
  elseif ($regex($1,/slay(er|ing)?/Si)) return Slayer
  elseif ($regex($1,/farm(er|ing)?/Si)) return Farming
  elseif ($regex($1,/(rc|runecraft)(er|ing)?/Si)) return Runecraft
  elseif ($regex($1,/hunt(er|ing)?/Si)) return Hunting
  elseif ($regex($1,/c(b|mb|ombat)?/Si)) return Combat
}