Anonymous

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:/^[@!]Start/Si:#: {
  if ($readini(defname.ini,name,$address($nick,3)) != $null) && ($skill($2)) {
    var %start yes
    var %skill [ $+ [ $nick ] ] $2
    var %rsn [ $+ [ $nick ] ] $readini(defname.ini,name,$address($nick,3))
    var %time [ $+ [ $nick ] ] $ctime
    sockopen start. [ $+ [ $nick ] ] nou.stirk.org 80
  }
  else {
    notice $nick Make sure U did !start <Skill> Also make sure you have a RSN set by typing !defname <NAME>.
  }
}
on *:SOCKOPEN:start.*:{
  sockwrite -nt $sockname GET /parsers/skill.php?user= $+ %rsn [ $+ [ $nick ] ] $+ &skill= $+ %skill [ $+ [ $nick ] ] HTTP/1.1
  sockwrite -nt $sockname Host: nou.stirk.org
  sockwrite -nt $sockname $crlf
} 
on *:SOCKREAD:start.*:{
  if ($sockerr) {
    Halt
  } 
  else {
    var %st [ $+ [ $nick ] ]
    sockread %st [ $+ [ $nick ] ]
    if (Exp: isin %st [ $+ [ $nick ] ]) {
      tokenize 32 %st [ $+ [ $nick ] ]
      var %exp [ $+ [ $nick ] ] $5
      var %exp2 [ $+ [ $nick ] ] $remove($5,$chr(44))
      notice $nick [START]: Your starting exp of %exp [ $+ [ $nick ] ] in %skill [ $+ [ $nick ] ] has been recorded.
    }
  }
}
ON $*:TEXT:/^[@!]Stop/Si:#: {
  if (%start [ $+ [ $nick ] ] == $null) {
    notice $nick [ERROR]: You must start something first! Make sure you do that before you use !Stop.
  }
  else {
    sockopen stop. [ $+ [ $nick ] ] nou.stirk.org 80
  }
}
on *:SOCKOPEN:stop.*:{
  sockwrite -nt $sockname GET /parsers/skill.php?user= $+ %rsn [ $+ [ $nick ] ] $+ &skill= $+ %skill [ $+ [ $nick ] ] HTTP/1.1
  sockwrite -nt $sockname Host: nou.stirk.org
  sockwrite -nt $sockname $crlf
} 
on *:SOCKREAD:stop.*:{
  if ($sockerr) {
    Halt
  } 
  else {
    var %sto [ $+ [ $nick ] ]
    sockread %sto [ $+ [ $nick ] ]
    if (Exp: isin %sto [ $+ [ $nick ] ]) {
      tokenize 32 %sto [ $+ [ $nick ] ]
      var %end [ $+ [ $nick ] ] $remove($5,$chr(44))
      notice $nick [END]: You gained $bytes($calc(%end [ $+ [ $nick ] ] - %exp2 [ $+ [ $nick ] ]),bd) %skill [ $+ [ $nick ] ] in $duration($calc($ctime - %time [ $+ [ $nick ] ])) $+ . Thats $bytes($round($calc((3600/($ctime - %time [ $+ [ $nick ] ]))*(%end [ $+ [ $nick ] ] - %exp2 [ $+ [ $nick ] ])),0),bd) exp/h. 
    }
  }
}
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 }
  if ($regex($1,/^(mage|magic)/Si)) { Return Magic }
  if ($regex($1,/^(cook|cooking)/Si)) { Return Cooking }
  if ($regex($1,/^(wc|wood|woodcut|woodcutting)/Si)) { Return Woodcutting }
  if ($regex($1,/^(fletch|fletching)/Si)) { Return Fletching }
  if ($regex($1,/^(Fishing|fishing|fishcatching)/Si)) { Return Fishing }
  if ($regex($1,/^(fm|fire|firemaking)/Si)) { Return Firemaking }
  if ($regex($1,/^(craft|crafting)/Si)) { Return Crafting }
  if ($regex($1,/^(smithing|metalmaking|smith)/Si)) { Return Smithing }
  if ($regex($1,/^(Mine|mining)/Si)) { Return Mining }
  if ($regex($1,/^(Herb|Herblore)/Si)) { Return Herblore }
  if ($regex($1,/^(Agil|agi|Agility)/Si)) { Return Agility }
  if ($regex($1,/^(Theif|theiv|thiev|theiving|thieving)/Si)) { return Thieving }
  if ($regex($1,/^(slay|Slayer)/Si)) { Return Slayer }
  if ($regex($1,/^(farm|Farming|planting)/Si)) { Return Farming }
  if ($regex($1,/^(rune|rc|runecrafting|runecraft)/Si)) { Return Runecrafting }
  if ($regex($1,/^(hunt|hunting|hunter)/Si)) { return Hunter }
}