CALC SCRIPT

on $*:TEXT:/^[!@]calc */Si:#:{
  $iif($left($1-,1) == @,.msg $chan,.notice $nick) 1[2Calculator1] $2- = $bytes($calc($remove($replace($2-,k,*1000,m,*1000000,b,*1000000000,x,*,pi,3.141592)$2-,$chr(44),$chr(32))) ,bd) 
}

----------------------------------------------------------------------------------------------------
MUTE SCRIPT - INCLUDING UNMUTE

on *:TEXT:!mute*:#:{  
  if ($address($nick,2) != $address($me,2)) { .notice $nick You are not authorized to do that. | halt }
  else { .mode $chan -qaohvee $2 $2 $2 $2 $2 $address($2,2) | .mode $chan +b ~q: $+ $address($2,2) }
}

on *:TEXT:!unmute*:#:{ 
  if ($address($nick,2) != $address($me,2)) { .notice $nick I'm the juggernaut bitch! | halt }
  else { .mode $chan -b ~q: $+ $address($2,2) }
}


-----------------------------------------------------------------------------------------------------
PRICE SCRIPT

On $*:Text:/^[!@.]Price */Si:#:{
  if (!$2) {
    notice $nick No item entered.
  }
  else {
    var %x = 1
    while ($sock($+(Price.,%x))) {
      inc %x
    }
    set $+(%,price.target,.,%x) $iif($left($1,1) == @,msg $chan, notice $nick)
    set $+(%,price.search,.,%x) $replace($2-,$chr(32),+)
    sockopen $+(Price,.,%x) www.slushpuppy.silverinterlocution.org 80
  }
}

On *:SockOpen:Price.*:{
  var %id = $right($sockname,-6)
  sockwrite -nt $sockname GET /price.php?price= $+ $eval($+(%,price.search,.,%id),2) HTTP/1.1
  sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org $+ $crlf $+ $crlf
}

On *:SockRead:Price.*:{
  var %id = $right($sockname,-6)
  var %target = $eval($+(%,price.target,.,%id),2)
  if ($sockerr) {
    %target A socket error has occured, please try again later.
    cleanup %id
  }
  else {
    var %read
    var %matches 
    while (1) {
      sockread %read
      if (!$sockbr) { 
        break
      }
      if (*gp* iswm %read) {
        tokenize 32 %read
        inc %matches  
        var %results = %results $iif(%results,$col1($+($chr(2),$chr(124),$chr(2))),$chr(32)) $col2($deltok($1-,$0,32))
      }
    }

    if (!%matches) {
      %target $col1(No Results found.)
    }

    else { 
      %target $col1(Returning) $col2(%matches) $col1(results:)
      %target $right(%results,-1) 
    }    

    sockclose $sockname
    cleanup %id
  }
}



alias -l col1 {
  return $+($chr(3),2,$1-,$chr(3)) 
}

alias -l col2 {
  return $+($chr(3),10,$1-,$chr(3)) 
}

alias -l cleanup {
  unset $+(%,Price,.,*,.,$1)
}