on *:text:!av*:#:{
if ($Nick isop $chan) {
/cs access $chan add $2 3
/msg $chan -ChanServ- $2 added to $chan access list at level 3.
}
}
on *:text:!ah*:#:{
if ($nick isop $chan) {
/cs access $chan add $2 4
/msg $chan -ChanServ- $2 added to $chan access list at level 4.
}
}
on *:text:!ao*:#:{
if ($nick isop $chan) {
/cs access $chan add $2 5
/msg $chan -ChanServ- $2 added to $chan access list at level 5.
}
}
on $*:text:/^[!@.]urban/Si:#:{
sockclose urban
set %word $2
set %output.urban $iif($left($1,1) == @, msg $chan, notice $nick)
sockopen urban www.o-ss.net 80
}
ON *:SOCKOPEN:urban:{
sockwrite -nt $sockname GET /parsers/urban.php?word= $+ %word HTTP/1.1
sockwrite -nt $sockname Host: www.o-ss.net
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:urban:{
if ($sockerr) {
echo -a Error in word lookup
sockclose $sockname
halt
}
else {
var %read
sockread %read
if (*end* iswm %read || *"* iswm %read || *;* iswm %read) { %output.urban *** $chr(91) Urban $chr(93) : %word - $remove(%read,end,",;) }
}
}
on *SOCKCLOSE:urban:{
unset %word
unset %output.urban
socklose $sockname
}
on $*:TEXT:/^[!~@'](alch)/Si:#: {
if (!$2) { $iif(@ isin $1,msg $chan,notice $nick) Please Search For Something | halt }
var %rand = $right($ticks,6)
set %display. [ $+ [ %rand ] ] $iif(@ isin $1,msg $chan,notice $nick)
set %item. [ $+ [ %rand ] ] $replace($2-,$chr(32),$chr(43))
sockopen alch. $+ %rand tip.it 80
}
on *:sockopen:alch.*:{
sockwrite -nt $sockname GET /runescape/index.php?rs2item_tools=1&advanced_search=1&orderby=0&keywords= $+ %item. [ $+ [ $right($sockname,6) ] ] $+ &category=0&subcategory=0&weightnum=&location=&use=¬es=&link=&credits=&search=search HTTP/1.1
sockwrite -nt $sockname Host: tip.it
sockwrite -nt $sockname $crlf
}
on *:sockread:alch.*:{
If ($sockerr) {
halt
}
else {
sockread %read
if (*no items* iswm %read) { %display. [ $+ [ $right($sockname,6) ] ] $c1(No Items Found For Your Search) | halt }
if (*,,%remover,$chr(9))
sockopen alchinfo. [ $+ [ $right($sockname,6) ] ] tip.it 80
}
}
}
on *:SOCKOPEN:alchinfo.*:{
sockwrite -nt $sockname GET /runescape/ $+ %searchinfo HTTP/1.1
sockwrite -nt $sockname Host: tip.it
sockwrite -nt $sockname $crlf
}
on *:sockread:alchinfo.*:{
if ($sockerr) { halt }
else {
sockread %read2
if (*