on *:TEXT:!setpcw*:#zips-pc,#Allies,#Zips-staff: {
if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) { set %world $2- | set %worldsettime $ctime | set %worldsetnick $nick | msg #zips-pc,#Allies 12The 4PC12 world has been changed 12by7 $nick $+ . } }
on *:TEXT:!change*:#: { if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) { set %world $2- | set %worldsettime $ctime | set %worldsetnick $nick | msg $chan 12The 4PC12 world has been changed to7 [14 $2- 7] 12by7 $nick $+ . } }
on *:TEXT:!update*:#: { if ($nick isop $chan || $nick ishop $chan) && ($2 isnum 2-138) { set %world $2- | set %worldsettime $ctime | set %worldsetnick $nick | msg $chan 12The 4PC12 world has been changed to7 [14 $2- 7] 12by7 $nick $+ . } }
on *:TEXT:!pcw:#zips-pc,#Allies: { notice $nick 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. }
on *:TEXT:!world:#: { notice $nick 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. }
on *:TEXT:@pcw:#zips-pc,#Allies: { msg $chan 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. }
on *:TEXT:@world:#: { msg $chan 12 The current 4PC12 world is7 [14 %world 7] 12set by7 [14 %worldsetnick 7] 7 $duration($calc($ctime - %worldsettime)) 12ago. }
on *:Text:!newo*:#: {msg #zips-pc 12 4,1 New World Has Been Set Type 8,1!pcw 4,1To View
on *:text:!tb*:#:{
if ($nick isop $chan) || ($nick ishop $chan) {
/ban -ku $+ $calc( $3 * 60 ) $chan $2 2 Reason - $4- - $3 Minute Ban.
}
}
on *:text:*:#Aqua_Eyes,#zips-scouts,#zips-pc,#Allies:{
if ($1 == !bad) {
set %scoutworlds %scoutworlds $+ $chr(32) $+ $$2 |
msg $chan 13,1 World 0,1 $$2 13,1 added to scouted list
msg $chan 8,1 Scouted worlds are : 0,1 $sorttok(%scoutworlds,32,n)
}
if ($1 == !setpcw) { set %scoutworlds - | msg $chan 9,1 Scouted World list has been reset
}
if ($1 == !badcheck) { msg $chan 8,1 Scouted worlds are : 0,1 $sorttok(%scoutworlds,32,n)
}
}
on $*:TEXT:!setm*:#:{
if ($nick isop $chan || $nick ishop $chan) && ($2 isnum) {
set $+(%,m.world.,$chan) $2
set $+(%,m.time.,$chan) $ctime
set $+(%,m.nick.,$chan) $nick
msg $chan 4,15meet 1 $nick 4,15 in world 1 $2 4,15 at the pc entrance or in the pc bank , when u are there pm me then here in irc that u are there , then i will come to you , when i have meet you there i will send u an pm in here with the channel name and the key thx!
}
}
on $*:TEXT:!vb*:#:{
if ($nick isop $chan || $nick ishop $chan) && ($2 isnum) {
set $+(%,m.world.,$chan) $2
set $+(%,m.time.,$chan) $ctime
set $+(%,m.nick.,$chan) $nick
msg $chan 4,15 COME TO WORLD 1 $2 4,15 PC ENTRANCE TO GET YOUR VOICE BACK IF U DONT SHOW UP U GET A 24hr BAN And I Also Will GIVE U A PERM BAN IF U LOGOUT IN HERE Whille WE ARE DOING THE HEADCHECK.
}
}
on $*:TEXT:/^[!@]mass(d|u)?[vhobkm]/Si:#:{
if ($right($1,1) == m) {
var %msg = $iif($right($1,1) == !,.notice $nick,msg $chan)
massm
halt
}
if ($me isop $chan) || ($me ishop $chan) {
if ($address($me,4) == $address($nick,4)) || ($nick isop $chan) {
var %massf = 0
goto massm
}
elseif ($nick !ishop $chan) && ($right($1,1) == v) {
var %massf = 0
goto massm
}
halt
:massm
var %repeat = 0
var %massm = 0
if ($mid($1,6,2) == $mid($1,6,1) $+ b) {
while (%massf <= $ibl($chan,0)) {
inc %massm
inc %massf
var %massc = %massc $ibl($chan,%massf)
if (%massm == 12) {
var %repeat = 1
break
}
}
}
else {
while (%massf < $nick($chan,0)) {
inc %massm
inc %massf
if ($nick($chan,%massf) != $me) {
if ($right($1,1) == k) {
kick $chan $nick($chan,%massf) $iif($2 != $null, $2-, Masskick.)
}
else {
var %massc = %massc $iif($right($1,1) == b,$address($nick($chan,%massf),1),$nick($chan,%massf))
if (%massm == 12) {
var %repeat = 1
break
}
}
}
}
}
if ($right($1,1) != k) {
mode $chan $iif($mid($1,6,1) isin ud,-,+) $+ $str($right($1,1),%massm) %massc
if (%repeat) {
unset %massc
goto massm
}
}
}
else {
.notice $nick I need halfop or op to preform these commands.
}
}
alias massm {
%msg !Mass[v|h|o] will set [voice|halfop|op] on every person in the channel.
%msg !Mass[d|u][v|h|o] will unset [voice|halfop|op] on every person in the channel.
%msg !Massk will kick every person off the channel.
%msg !Massb will ban every person in the channel.
%msg !Mass[d|u]b will clear your channel's ban list.
}
on *:join:#:{
/set %chanjoined $chan
/whois $nick
}
raw 319:*:{
if (!%chanjoined) { halt }
else { /msg %chanjoined 7,1 $2 is currently on 4,1 $3-
/unset %chanjoined
}
}
}
alias co1 { return $+(,$1-) }
alias co2 { return $+(,$1-) }
on $*:TEXT:/^[!@.](pc|pest) */Si:#: {
;;; Check if it's a valid skill, sockopen, and set vars. ;;;
if ($getskill($2)) {
/var %x = 1
/while ($sock(pc. $+ %x)) {
/inc %x
}
if (#* iswm $4) {
/notice $nick Syntax: !Pest <Skill> <RSN> - Alternative: !Pest <Skill> <Level To Get> <RSN>
/halt
}
if (#* iswm $3) {
/set %level. $+ %x $right($3,-1)
}
;;; Set Vars ;;;
/set %target. $+ %x $iif($left($1,1) == @,msg $chan,.notice $nick)
/set %rsn. $+ %x $iif(*#* !iswm $3,$replace($3-,$chr(32),+),$replace($4-,$chr(32),+))
/set %skill. $+ %x $getskill($2)
/sockopen pc. $+ %x www.o-ss.net 80
/halt
}
/notice $nick Specify a valid skill to look up. EX: !pest <Skill> <RSN>
}
alias -l cleanup {
;;; Clean up the socket, unset vars, close it ;;;
/sockclose $1
/unset %level. $+ $right($1,1)
/unset %target. $+ $right($1,1)
/unset %rsn. $+ $right($1,1)
/unset %skill. $+ $right($1,1)
}
on *:sockopen:pc.*: {
;;; Go to the file ;;;
/var %x = $right($sockname,1)
if ($sockerr > 0) /return
/sockwrite -nt $sockname GET $+(/parsers/skills.php?user=,%rsn. [ $+ [ %x ] ],&skill=,%skill. [ $+ [ %x ] ]) HTTP/1.1
/sockwrite -nt $sockname Host: www.o-ss.net
/sockwrite -nt $sockname $crlf $crlf
}
on *:sockread:pc.*: {
;;; Get the data, tokenize, and do checks to output. ;;;
if ($sockerr) /return
/var %x = $right($sockname,1)
/var %read | /sockread %read
/tokenize 32 %read
if (*</TITLE>* iswm $1-) { %target. [ $+ [ %x ] ] $replace(%rsn. [ $+ [ %x ] ],+,$chr(32)) Does Not Feature in the Hi-Scores for %skill. [ $+ [ %x ] ] $+ . | /cleanup $sockname | /halt }
if ($3 == does) { %target. [ $+ [ %x ] ] $replace(%rsn. [ $+ [ %x ] ],+,$chr(32)) Does Not feature in the Hi-Scores. | /cleanup $sockname | /halt }
if ($0 == 4) { %target. [ $+ [ %x ] ] 4,1 Pest control points needed to get level7,1 $iif(%level. [ $+ [ %x ] ],%level. [ $+ [ %x ] ],$calc(($2)+1))4,1in 7,1 %skill. [ $+ [ %x ] ] $+ : $iif(%level. [ $+ [ %x ] ],$pestget(%skill. [ $+ [ %x ] ],%level. [ $+ [ %x ] ],$calc($xp(%level. [ $+ [ %x ] ])-($remove($3,$chr(44))))),$pestget(%skill. [ $+ [ %x ] ],$calc(($2)+1),$calc($xp($calc($2 + 1))- $remove($3,$chr(44))))) | /cleanup $sockname }
}
alias -l /getskill {
;;; Regex to return skills ;;;
if ($regex($1,/^over(all)?/Si)) return overall
elseif ($regex($1,/^at(t|k|tack)?/Si)) return attack
elseif ($regex($1,/^def(en[cs]e)?/Si)) return defence
elseif ($regex($1,/^hp|hit(s|points?)?/Si)) return hitpoints
elseif ($regex($1,/^range(r|d|ing)?/Si)) return ranged
elseif ($regex($1,/^Pray(er)?/Si)) return prayer
elseif ($regex($1,/^mag(e|ic)?/Si)) return magic
elseif ($regex($1,/^str(ength)?/Si)) return strength
}
alias /pest {
;;; Pest alias to retrive skill points per ticket ;;;
/var %type = $iif($1 == prayer,12,6)
/return $ceil($calc(($2)*($2)/(%type)))
}
alias /pestget {
;;; Gets amount of tickets. ;;;
/var %skill = $1
/var %exp = $remove($3,$chr(44))
/var %level = $2
/var %gstring = $pest(%skill,%level)
/return $bytes($ceil($calc((%exp)/(%gstring))),b)
}
alias /xp {
;;; Calculates XP to level ;;;
/var %x = 1, %level = $calc($1 - 1), %xp = 0
/while (%x <= %level) {
/var %tempxp = $calc($floor($calc(%x + 300 * 2 ^ (%x / 7))) / 4)
/inc %xp %tempxp
/inc %x
}
/return $int(%xp)
}