Miscellany

alias mcol return 7
alias icol return 14
alias pcol return 2

on $*:TEXT:/^`p?price */Si:#: {
  if (!$2-) .notice $nick Something to look for would be helpful. I'm not a mind reader tbh
  else {
    var %id = 1,%i = 1
    while ($sock(price. $+ %id)) inc %id
    set %price.disp. [ $+ [ %id ] ] $iif($mid($1,2,2) == pp,msg $chan,notice $nick)
    var %p = $+(i=,$iif($len($icol) == 1,$+(0,$icol),$icol),&c=,$iif($len($pcol) == 1,$+(0,$pcol),$pcol),&oww=yes&m=,$iif($len($mcol) == 1,$+(0,$mcol),$mcol))
    tokenize 44 $2-
    while (%i <= $0) {
      var %lol = $($+($chr(36),%i),2)
      if ($left(%lol,1) == $chr(32)) %lol = $right(%lol,-1)
      if (-* iswm $gettok(%lol,1,32)) {
        if (*e* iswm $gettok(%lol,1,32)) %p = $+(%p,&e,%i,=e)
        if (*s* iswm $gettok(%lol,1,32)) %p = $+(%p,&s,%i,=,$dcon($remove($gettok(%lol,1,32),-,e,s)))
      }
      if (-* iswm $gettok(%lol,1,32)) %lol = $remove(%lol,$left(%lol,$calc($len($gettok(%lol,1,32)) +1)))
      if ($left(%lol,1) isnum) {
        %p = $+(%p,&q,%i,=,$dcon($gettok(%lol,1,32)))
        %lol = $remove(%lol,$left(%lol,$calc($len($gettok(%lol,1,32)) +1)))
      }
      %p = $+(%p,&i,%i,=,$replace(%lol,$chr(32),+))
      inc %i
    }
    set -s %price.sock. [ $+ [ %id ] ] %p
    sockopen price. [ $+ [ %id ] ] oww.altscripts.net 80
  }
}
on *:SOCKOPEN:price.*:{
  var %oid $gettok($sockname,2,46)
  if ($sockerr) %price.disp. $+ %oid SockOpen Error: $sock($sockname).wsmsg
  else {
    sockwrite -n $sockname GET /parsers/price.php? $+ %price.sock. [ $+ [ %oid ] ] HTTP/1.1
    sockwrite -n $sockname Host: oww.altscripts.net $+ $crlf $+ $crlf
  }
}

on *:SOCKREAD:price.*:{
  var %rid $gettok($sockname,2,46)
  if ($sockerr) $($+(%price.disp.,%rid),2) SockRead Error: $sock($sockname).wsmsg
  else {
    var %r
    sockread %r
    $iif(** iswm %r,%price.disp. [ $+ [ %rid ] ] $remove(%r,<br>))
  }
}
on *:SOCKCLOSE:price.*:{
  unset %price.*. [ $+ [ $gettok($sockname,2,46) ] ]
}

alias dcon {
  if (*.* !iswm $1) {
    return $replace($1-,K,000,M,000000,B,000000000)
  }
  if (*.* iswm $1) && (($right($1,1) == K) || ($right($1,1) == M) || ($right($1,1) == B)) {
    var %rdat = $1, %nums = $len($gettok($remove($1,K,M),2,46))
    %rdat = $calc($remove($1,.,K,M,B) * $iif($right($1,1) == K,$+(1,$str(0,$calc(3 - %nums))),$iif($right($1,1) == M,$+(1,$str(0,$calc(6 - %nums))),$+(1,$str(0,$calc(9 - %nums))))))
    return %rdat
  }
  else {
    return $1
  }
}