rendered paste bodyon $*:NOTICE:/^[!@]set(pcw|world)*/Si:?:{
set %Worldinfo. [ $+ [ $2 ] ] $nick $date $3
msg $2 A new world has been set! Type !world or !pcw to see it!}
}
on $*:TEXT:/^[!@]pcw/Si:#:{
.notice $nick The pc world for $chan is: $gettok(%Worldinfo. [ $+ [ $chan ] ],3,32) set by: $gettok(%Worldinfo. [ $+ [ $chan ] ],1,32) on: $gettok(%Worldinfo. [ $+ [ $chan ] ],2,32)
}
on *:TEXT:!pkw*:#:{
if %Peoplekilling {
notice $nick The pkw is ~~ %Peoplekilling ~~ and the suggested pkw is ~~ %spkw ~~
}
}
on *:TEXT:!pk-suggest*:#:{
set %spkw $2- {
describe $chan $nick has suggested a pk world, please type !pkw to see it!
}
}
on *:TEXT:!delpkw:#:{
if (($nick isop $chan) || ($nick ishop $chan)) {
unset %peoplekilling
unset %spkw
Notice $chan $nick has deleted the pkw.
}
}
on *:TEXT:!op*:#: {
if ($nick isop $chan) {
set %nick4 $2-
/mode $chan +o %nick4
}
}
on *:TEXT:!deop*:#: {
if ($nick isop $chan) {
set %nick5 $2-
/mode $chan -o %nick5
}
}
on *:TEXT:!hop*:#: {
if ($nick isop $chan) {
set %nick6 $2-
/mode $chan +h %nick6
}
}
on *:TEXT:!dehop*:#: {
if ($nick isop $chan) {
set %nick7 $2-
/mode $chan -h %nick7
}
}
on *:TEXT:!voice*:#: {
if ($nick isop $chan) {
set %nick8 $2-
/mode $chan +v %nick8
}
}
on *:TEXT:!devoice*:#: {
if ($nick isop $chan) {
set %nick9 $2-
/mode $chan -v %nick9
}
}
on $*:TEXT:/^[!@.]price */Si:#: {
if (!$2) {
.notice $nick Specify an item!
halt
}
else {
var %x = 1
while ($sock(price. $+ %x)) inc %x
.set $+(%,target.,%x) $iif($left($1,1) == @ && $nick !isreg #,.msg $chan,.notice $nick)
.set $+(%,item.,%x) $replace($2-,$chr(32),+)
sockopen $+(price.,%x) parsers.o-ss.net 80
}
}
on *:SOCKOPEN:price.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
cleanup $sockname
halt
}
sockwrite -nt $sockname GET /oneline/price.php?showmemb=1&item= $+ $eval($+(%,item.,%x),2) HTTP/1.1
sockwrite -nt $sockname Host: parsers.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:price.*: {
var %x = $right($sockname,1)
if ($sockerr > 0) {
$eval($+(%,target.,%x),2) Socket Error: $sockerr
cleanup $sockname
halt
}
var %read | sockread %read
if (END isin %read) {
$eval($+(%,target.,%x),2) $left($replace(%read,M-,{M} -),-6)
cleanup $sockname
}
if (spelling isin %read) {
$eval($+(%,target.,%x),2) %read
cleanup $sockname
}
}
alias cleanup {
unset %target. $+ $right($1,1)
unset %item. $+ $right($1,1)
sockclose $1
}
on *:TEXT:*:#:{
inc -u3 %spam. [ $+ [ $nick ] ]
if (%spam. [ $+ [ $nick ] ] == 4) {
ban $+(-,ku,30) $chan $nick (30 second kick due to: SPAM)
kick $chan $nick (30 second kick due to: SPAM)
}
}
on *:JOIN:#:{
if ($nick == $me) {halt}
set %channy $chan
set %user $nick
set %pc.msg msg $chan
sockopen pestkick www.slushpuppy.silverinterlocution.org 80
}
on *:SOCKOPEN:pestkick*:{
sockwrite -nt $sockname GET /pestcontrol.php?pestcontrol= $+ %user HTTP/1.1
sockwrite -nt $sockname Host: www.slushpuppy.silverinterlocution.org
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:pestkick*:{
var %sockread
sockread %sockread
if (<b> isin %sockread) {
set %attack $gettok($htmlfree(%sockread),4,32)
set %strength $gettok($htmlfree(%sockread),8,32)
set %defence $gettok($htmlfree(%sockread),6,32)
set %hitpoints $gettok($htmlfree(%sockread),10,32)
set %ranged $gettok($htmlfree(%sockread),12,32)
set %magic $gettok($htmlfree(%sockread),16,32)
set %prayer $gettok($htmlfree(%sockread),14,32)
}
if (<br> isin %sockread) {
var %combat = $htmlfree(%sockread)
%pc.msg %user : Combat lvl: %combat
%pc.msg ¤ Strength lvl: %strength ¤ Att lvl: %attack ¤ Def lvl: %defence ¤ Hp lvl: %hitpoints ¤ Range lvl: %ranged ¤ Mage lvl: %magic ¤ Prayer lvl: %prayer ¤
sockclose $sockname | unset %combat.3 | unset %channy | unset %user | unset %attack | unset %strength | unset %defence | unset %hitpoints | unset %ranged | unset %magic | unset %prayer | unset %pc.msg
}
}
on *:Sockclose:pestkick*:{
Sockclose $sockname
unset %combat | unset %channy | unset %user | unset %attack | unset %strength | unset %defence | unset %hitpoints | unset %ranged | unset %magic | unset %prayer | unset %pc.msg
}
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
return %x }
alias -l htmlfree {
var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x, )
on *:text:!setpcw *:*:{
if ($nick isop $chan || $nick ishop $chan) {
set %pcw $2-
msg $chan Pcw Has Been Updated By: $nick
}
}
on *:text:!pcw*:#:{
notice $nick The Current Pcw Is: %pcw
}
on *:text:!delpcw*:*:{
unset %pcw
}
if (!$nick($chan,$me,ho)) .notice $nick [ERR]: I need halfop or above to do that.
elseif (!$nick($chan,$nick,ho)) .notice $nick [ERR]: You need halfop or above to do that.
elseif (!$3) .notice $nick [ERR]: Syntax - !tb <nick> <time> [reason]
elseif ($2 !ison $chan) .notice $nick [ERR]: $2 is not in the channel.
elseif ($3 !isnum) .notice $nick [ERR]: Time must be a number (in minutes).
elseif ($nick !isop $chan) && ($nick($chan,$2,ho)) .notice $nick [ERR]: I will not kick halfops or above.
else {
inc %kicked
ban $+(-ku,$calc($3 * 60)) $chan $2 2 ¤ $3 Min Ban ¤ Reason: $iif($4,$4-,None) ¤ Noobs Pwnt: %kicked ¤
}
}
On *:text:*Zezima*:#: {
if ($eval($+(%,Zezima,$nick),2) == $null) {
notice $nick DOT MENTION ZEZIMA HERE, SAY IT ONCE MORE AND U WILL BE MUTED KAY?
set $+(%,Zezima,$nick) 1
}
if ($eval($+(%,Zezima,$nick),2) == 1) {
inc $+(%,Zezima,$nick)
mode $chan +b ~q: $+ $address($nick,2)
.timer 1 300 mode $chan -b ~q: $+ $address($nick,2)
notice $nick Stop saying "Zezima". Muted for 5 minutes. One more time, and you will be kb'd.
}
elseif ($eval($+(%,Zezima,$nick),2) == 2) {
mode $chan +b $address($nick,2)
kick $chan $nick We warned you. Banned.
}
}
price guide!
on $*:TEXT:/^!price/Si:#:{
if (!$2) {
notice $nick *** [Price Guide]: You must supply a item - !price <item>
halt
}
else {
inc %q
inc %time.price
set %price.item. [ $+ [ %q ] ] $replace($2-,$chr(32),$chr(37) $+ 20)
set %price.style. [ $+ [ %q ] ] $iif($left($1,1) == @,msg $chan,notice $nick) *** [Price Guide]:
set %price.real. [ $+ [ %q ] ] $2-
sockopen price. $+ %q zybez.net 80
}
}
on *:SOCKOPEN:price.*:{
sockwrite -nt $sockname GET /priceguide.php?search_terms= $+ %price.item. [ $+ [ %q ] ] $+ &search_area=1&price_low=&price_high=&member=1 HTTP/1.1
sockwrite -nt $sockname Host: www.zybez.net
sockwrite -nt $sockname $crlf $crlf
}
on *:SOCKREAD:price.*:{
var %style = %price.style. [ $+ [ %q ] ], %item = %price.item. [ $+ [ %q ] ], %real = %price.real. [ $+ [ %q ] ]
if ($sockerr) {
%style An error occured while connecting
clean.up %q
sockclose $sockname
return
halt
}
else {
var %read
sockread %read
if (<td class="tablebottom" colspan="5">Your search did not return any results. Please make sure your spelling is correct and that you are typing full words.</td> isin %read) {
%style No results were found for " $+ %real $+ "
clean.up %q
sockclose $sockname
return
halt
}
elseif (<!--name--><td class='tablebottom'>*</td> iswm %read) {
tokenize 32 $nohtml(%read)
set %price.name. [ $+ [ %q ] ] $1-
}
elseif (<!--price--><td class="tablebottom">*</td> iswm %read) {
tokenize 32 $nohtml(%read)
set %price.price. [ $+ [ %q ] ] $1-
}
elseif (<td class="tablebottom"><a href="/priceguide.php?category=*">*</a></td> iswm %read) {
tokenize 32 $nohtml(%read)
set %price.cat. [ $+ [ %q ] ] $1-
}
if (%price.name. [ $+ [ %q ] ] && %price.price. [ $+ [ %q ] ] && %price.cat. [ $+ [ %q ] ]) {
inc %price.times. [ $+ [ %q ] ]
if (%price.times. [ $+ [ %q ] ] > 5) {
%style Max results of 5 allowed. Try making your search for " $+ %real $+ " more specific.
clean.up %q
sockclose $sockname
return
halt
}
elseif (%price.times. [ $+ [ %q ] ] < 5 || %price.times. [ $+ [ %q ] ] == 5) {
%style Item - %price.name. [ $+ [ %q ] ] $&
Price - %price.price. [ $+ [ %q ] ] $&
Category - %price.cat. [ $+ [ %q ] ] $&
Served - %time.price
unset %price.name. [ $+ [ %q ] ]
unset %price.price. [ $+ [ %q ] ]
unset %price.cat. [ $+ [ %q ] ]
}
}
if (</html> isin %read) {
clean.up %q
sockclose $sockname
return
halt
}
}
}
on *:SOCKCLOSE:price.*:{
unset %price.*
halt
}
alias -l clean.up {
unset %price.*. [ $+ [ $1 ] ]
sockclose price. $+ $1
halt
}
alias -l nohtml {
var %x,%i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x)
%x = $replace(%x, ,$null)
return %x
}