Untitled

on $5:TEXT:/^[!@.]loss/Si:#:{
  if ($2 == $null) {
    Notice $nick 1Enter Item.
  }
  else {
    set %alch.return $iif(@ isin $1,msg $chan,notice $nick)
    set %alch.item $replace($2-,$chr(32),$chr(43))
    sockopen AlchPrice. [ $+ [ $ticks ] ] josh.stirk.org 80
    .timer 1 2 sockopen NaturePrice. [ $+ [ $ticks ] ] services.runescape.com 80
    .timer 1 2 sockopen ge [ $ [ $ticks ] ] services.runescape.com 80 | %alch.return socket opened to the ge; test
  }
}


on *:Sockopen:AlchPrice.*:{
  sockwrite -nt $sockname GET /parsers/iinfo.php?item= $+ %alch.item HTTP/1.1
  sockwrite -nt $sockname HOST: josh.stirk.org
  sockwrite -nt $sockname $crlf
}
on *:Sockopen:NaturePrice.*:{
  sockwrite -nt $sockname GET /m=itemdb_rs/Nature_rune/viewitem.ws?obj=561 HTTP/1.1
  sockwrite -nt $sockname Host: services.runescape.com
  sockwrite -nt $sockname $crlf
}


on *:Sockread:AlchPrice.*:{
  if ($sockerr) { echo -a Error in socket. | halt }
  else {
    var %alch
    sockread %alch
    if (*Error: No matches found for* iswm %alch) {
      %alch.return 1No Matches Found.
    }
    elseif (*High Level Alchemy Reward: * iswm %alch) {
      tokenize 32 %alch
      if (Mil == $6) {
        set %alchprice $remove($5,.00) $+ M
      }
      elseif (K == $6) {
        set %alchprice $remove($5,.00) $+ K
      }
      else {
        set %alchprice $remove($5,.00)
      }
      %alch.return High alch price found : %alchprice
      unset %alchprice
      sockclose $sockname
    }
  }
}

on *:Sockread:NaturePrice.*:{
  if ($sockerr) { echo -a Error in socket. | halt }
  else {
    var %NatureRead
    sockread %NatureRead
    if (*<b>Market price:</b>* iswm %NatureRead) {
      tokenize 32 %NatureRead
      set %NaturePrice $3
      %alch.return Nature rune price recieved, $3 $+ .
      sockclose $sockname
    }
  }
}