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