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) }
}


-----------------------------------------------------------------------------------------------------
SETGREET SCRIPT

on *:Start:{
  if (!$hget(greet)) {
    hmake Greet
  }
  if ($exists(greet.txt)) {
    hload greet greet.txt
  }
}

on *:Exit:{
  hsave greet greet.txt
}

on *:text:!setgreet*:#:{
  if ($len($2-) > 200) { .notice $nick That greet is too long. Your greet must be under 200 characters. | Halt }
  else {
    if (!$2) { 
      .notice $nick No greet set. 
      halt 
    }
    if ($2 == off) && (!$3) {
      .hadd greet $nick off
      .notice $nick Greets turned off for the nick $+($nick,.)
    } 
    else { 
      .notice $nick Your greet has been set to $+($2-,.) 
      .hadd greet $nick $2-
      .hsave greet greet.txt
    }
  }
}

on *:TEXT:!Greets*:#:{
  if ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
    if (!$2) {
      if ($hget(greet,$chan)) {
        .notice $nick Greets are currently off in $+($chan,.)
      }
      else {
        .notice $nick Greets are currently on in $+($chan,.)
      }
    }
    if ($2 == off) { 
      .notice $nick Greets are now off in channel $+($chan,.) 
      .hadd greet $chan on 
      .hsave greet greet.txt 
    }
    elseif ($2 == on) { 
      .notice $nick Greets are now on in channel $+($chan,.) 
      .hdel greet $chan 
      .hsave greet greet.txt
    }
  }
  else { .notice $nick You must be an op to alter this channel's greet settings. | halt }
}

on *:Text:!viewgreet:*:{
  if (!$hget(greet,$nick)) {
    notice $nick No Greet Found, please type !greethelp to get help with greets.
  }
  else {
    notice $nick Your greet is set to $hget(greet,$nick))
  }
} 

on *:TEXT:!Delgreet*:#:{
  if ($hget(greet,$nick)) {
    .hdel greet $nick 
    .notice $nick Your greet has been deleted.
  }
  else { .notice $nick You have no greet set. Type !setgreet greet here to set one. | halt }
}

on *:Join:#:{
  if (($hget(Greet,$chan)) || ($hget(greet,$nick) == off) || ($nick == $me)) {
    Halt
  } 
  if ((!$hget(greet,$nick)) && (!$hget(greet,$chan))) { 
    .notice $nick You have no greet set. To set a greet, type !setgreet greet here.
    halt 
  }
  elseif (($hget(greet,$nick)) && (!$hget(Greet,$chan))) {
    .msg $chan [2 $+ $nick $+ ] $hget(greet,$nick) 
  }
}
----------------------------------------------------------------------------------------------
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)
}