on *:TEXT:!suggest * *:*: {
if ($me ison *) {
msg #sogpc 4 This Rudeboy suggested an Ownage world:3 $nick $+ ! 2 World: $2 Reason:3 $3- $+ . 7 If this is abuse please type: !abu $nick $+ .
/notice $nick 7 Your world suggestion has been sent to our staff channel, and will be reviewed soon.
}
}
on *:text:!av*:*:{
if ($nick isop $chan) || ($nick ishop $chan) {
set %voicenick $2-
/cs access $chan add %voicenick 3
/notice %voicenick You have been added to the auto-voice list.
/mode $chan +v %voicenick
}
}
on *:TEXT:!gratz *:*:{ msg $chan 8,0•0,8•7,8•8,7•4,7•7,4•5,4•4,5•5,1•1,1•4,1<-4,1 W0000T GRATZ $NICK ON LVL $2-!!!YOU ARE TEH OWNAGE!!! ;) 4,1->1,1•5,1•4,5•5,4•7,4•4,7• }
on *:TEXT:!kb*:*:{
if ($nick ishop $chan || $nick isop $chan || $address($nick,2) == $address($me,2)) {
ban -k $chan $2 Reason: $3-
}
}
on $*:text:/^[!@](k|kick)/Si:*:{
if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
kick $chan $2 Reason: $3-
}
}
On *:Text:!unban*:*: {
if ($nick isop $chan || $nick ishop $chan) {
mode $chan -bb $address($2,2) $2
}
}
on $*:text:/^[!@.`,~^](tb|timeb|timeban|tban)/Si:#sogpc:{
if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
ban -ku $+ $calc($3 * 60) $chan $2 Time banned REASON: $+ $4-
}
}
on $*:text:/^[!@](calc|calculator)/Si:*:{
$iif($left($1,1) == @, msg $chan, notice $nick) $2- = $calc($2-)
}
on *:text:@pcw*:*:{
if ($nick isop $chan) {
/notice $chan 10»14]12[World:4 %world 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 12][Set by4 %nic 12]14[10«
}
}
on *:text:!pcw*:#sogpc:{
if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
/notice $nick 10»14]12[World:4 %world 12][Last updated:4 $duration($calc( $ctime - %pcsettime. [ $+ [ $chan ] ] )) 12][Set by4 %nic 12]14[10«
}
}
on *:text:!newo*:*:{
if ($nick isop $chan) || ($nick ishop $chan) {
/notice $chan $2- $+ 7,1 O Pest-Control World foi Atualizado!!!!PRESS 4,1 !PCW 7,1PARA VER!!!
}
}
on *:text:!setpcw*:*:{
if ($nick isop $chan) || ($nick ishop $chan) {
/set %setpc $calc( $readini( setpcw.ini, $nick, Set ) +1)
/writeini setpcw.ini $nick Set %setpc
set %world $2-
set %nic $nick
set %pcsettime. [ $+ [ $chan ] ] $ctime
/notice $chan 0,1 O Pest-Control World teve Update!! 8,1 PRESS 4,1 !PCW 8,1 Para Ver!!!!
}
}
alias -l c1 return $+($chr(3),12,$1-,)
alias -l c2 return $+($chr(3),07,$1-,)
alias -l c3 return $+($chr(3),04,$1-,)
on $*:TEXT:/^[!@.]cla(ns|n)/Si:*:{
inc %s
set $+(%,return.,%s) $iif($left($1,1) == @, msg $chan, notice $nick)
set $+(%,clan.,%s) $2-
sockopen $+(clan.,%s) www.runehead.com 80
}
on *:SOCKOPEN:clan.*: {
var %s = $gettok($sockname,2,46)
sockwrite -nt $sockname GET /clans/search.php?search= $+ %clan. [ $+ [ %s ] ] $+ &searchtype=exact HTTP/1.1
sockwrite -nt $sockname Host: www.runehead.com
sockwrite -nt $sockname $crlf
}
on *:SOCKREAD:clan.*: {
var %s = $gettok($sockname,2,46)
if ($sockerr) {
%return. [ $+ [ %s ] ] Socket error, please report this to $me $+ .
halt
}
var %read
sockread %read
if ($regex(results,%read,/No results were found for the exact search (.*)The exact<\/b> search (.*)<\/b> returned (\d+)/)) {
%return. [ $+ [ %s ] ] $c1 $+ There were $regml(results,2) $c2 $+ result(s) for: %clan. [ $+ [ %s ] ]
}
if ($regex(clan,%read,/
(.*) | /)) {
inc $+(%,clan.count.,%d)
if ($($+(%,clan.count.,%d),2) >= 4) {
%return. [ $+ [ %s ] ] $c1 $+ There were more as $c3 $+ 4 $c2 results for %clan. [ $+ [ %s ] ] $+ , script halts.
unset $+(%,clan.*)
sockclose $+(clan.,%s)
}
else {
%return. [ $+ [ %s ] ] $c2 $+ %clan. [ $+ [ %s ] ] is $+ $c1 currently in the clan: $c2 $+ $regml(clan,2) $+ ! $c1 Memberlist is found at: $c2 $+ $+(http://runehead.com/clans/,$regml(clan,1))
}
}
if (