rendered paste body
mytime { return $asctime(h:nn:ss) $asctime(tt) }
say {
mmsg $active $1-
}
meeting {
//say $rand(1,10)
}
chanmsg {
if ($isfounder($me,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(founder) $+ ~ $+ $me $+ » $1- | .msg $active $1- | halt }
if ($issop($me,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(sop) $+ & $+ $me $+ » $1- | .msg $active $1- | halt }
if ($isadmin($me,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(admin) $+ ! $+ $me $+ » $1- | .msg $active $1- | halt }
if ($me isop $chan) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(op) $+ @ $+ $me $+ » $1- | .msg $active $1- | halt }
if ($me ishop $chan) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(halfop) $+ $chr(37) $+ $+ $me $+ » $1- | .msg $active $1- | halt }
if ($me isvo $chan) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(voice) $+ + $+ $me $+ » $1- | .msg $active $1- | halt }
if ($isuser($me,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(userop) $+ - $+ $me $+ » $1- | .msg $active $1- | halt }
else { echo $active (14 $+ $mytime $+ ) « $+ $me $+ » $1- | .msg $active $1- | halt }
}
mmsg {
if ($isfounder($me,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(founder) $+ ~ $+ $me $+ » $2- | .msg $1 $2- }
elseif ($issop($me,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(sop) $+ & $+ $me $+ » $2- | .msg $1 $2- }
elseif ($isadmin($me,$chan)) { echo $chan (14 $+ $mytime $+ ) « $+ $+ $nickclr(admin) $+ ! $+ $me $+ » $2- | .msg $1 $2- }
elseif ($me isop $1) { echo $1 (14 $+ $mytime $+ ) « $+ $+ $nickclr(op) $+ @ $+ $me $+ » $2- | .msg $1 $2- }
elseif ($me isop $1) { echo $1 0(14 $+ $mytime $+ 0) « $+ $+ $nickclr(op) $+ @ $+ $me $+ » $2- | .msg $1 $2- }
elseif ($me ishop $1) { echo $1 0(14 $+ $mytime $+ 0) « $+ $+ $nickclr(halfop) $+ $chr(37) $+ $chr(15) $+ $+ $me $+ » $2- | .msg $1 $2- }
elseif ($me isvo $1) { echo $1 0(14 $+ $mytime $+ 0) « $+ $+ $nickclr(voice) $+ + $+ $me $+ » $2- | .msg $1 $2- }
elseif ($isuser($me,$1)) { echo $1 0(14 $+ $mytime $+ 0) « $+ $+ $nickclr(userop) $+ - $+ $me $+ » $2- | .msg $1 $2- }
else { echo $1 0(14 $+ $mytime $+ 0) « $+ $me $+ » $2- | .msg $1 $2- }
}
clrname {
if ($group(#joinwho) == off) {
.enable #joinwho | who $1 | .timer 1 8 .disable #joinwho
}
else {
who $1
;.timer 1 8 .disable #joinwho
}
}
nickclr {
if ($1 == founder) { return %colour.fo }
if ($1 == sop) { return %colour.so }
if ($1 == admin) { return %colour.ad }
if ($1 == op) { return %colour.op }
if ($1 == halfop) { return %colour.ha }
if ($1 == voice) { return %colour.vo }
if ($1 == userop) { return %colour.uo }
if ($1 == norm) { return %colour.no }
if ($1 == serv) { return %colour.serv }
}
say.kcount {
mmsg $active $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ I have kicked %Kcounter Chatterz with SPPScript 1.3 Beta $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
}
say.mirc.uptime {
mmsg $active $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ 12m4IR8C 14Uptime :2 $duration($online) $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
mmsg $active $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ 12m4IR8C 14Version :2 $version ( $+ $bits $+ bit) $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
}
say.asl {
set %age $$?="How old are you?"
set %gender $$?="Are you male or female?"
set %location $$?="Where are you from?"
mmsg $active $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ $me is a %Age year old %Gender from %location $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
unset %age
unset %gender
unset %location
}
say.time {
mmsg $active $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ The time where i live is $mytime $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
}
say.host {
mmsg $active $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ My IP is $Ip $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
}
say.rooms {
if ($chan(0) == 1) { mmsg $active I am in $+ $chan(0) $+ channel }
else { mmsg $active I am in $+ $chan(0) $+ channels }
mmsg $active They are:
set %x 0
:next
inc %x
set %chans $chan(%x)
if (%chans == $null) { goto end }
elseif ($me isop %chans) { mmsg $active 12@ $+ %chans | goto next }
elseif ($me isop %chans) && ($me isvoice %chans) { mmsg $active 12@3+ $+ %chans | goto next }
elseif ($me isop %chans) && ($me isvoice %chans) && ($isuser($me,%chans)) { mmsg $active 12@3+10- $+ %chans | goto next }
elseif ($me isop %chans) && ($isuser($me,%chans)) { mmsg $active 12@10- $+ %chans | goto next }
elseif ($me ishop %chans) { mmsg $active 5% $+ %chans | goto next }
elseif ($me ishop %chans) && ($me isvoice %chans) { mmsg $active 5%3+ $+ %chans | goto next }
elseif ($me isvoice %chans) { mmsg $active 3+ $+ %chans | goto next }
elseif ($me isvoice %chans) && ($isuser($me,$chans)) { mmsg $active 3+10- $+ %chans | goto next }
elseif ($isuser($me,%chans)) { mmsg $active 10- $+ %chans | goto next }
else { mmsg $active %chans | goto next }
:end
halt
}
ovunotice {
set %vmessage $$?="Enter O/V/Unotice Message:"
var %i
%i = 1
while (%i < $nick(#,0,ovu)) {
if ($nick(#,%i,ovu) != $me) {
.notice $nick(#,%i,ovu) $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ O/V/Unotice $+ $clr1 $+ > $+ $clr2 $+ > $+ $clr1 $+ > $+ $clr2 $+ > - %vmessage
}
inc %i
}
echo $chan (14 $+ $mytime $+ ) -> Ops/Voices/Users $chan $+ : %vmessage
}
ovnotice {
set %vmessage $$?="Enter O/Vnotice Message:"
var %i
%i = 1
while (%i < $nick(#,0,ov)) {
if ($nick(#,%i,ov) != $me) {
.notice $nick(#,%i,ov) $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ O/Vnotice $+ $clr1 $+ > $+ $clr2 $+ > $+ $clr1 $+ > $+ $clr2 $+ > - %vmessage
}
inc %i
}
echo $chan (14 $+ $mytime $+ ) -> Ops/Voices $chan $+ : %vmessage
}
ounotice {
set %vmessage $$?="Enter O/Unotice Message:"
var %i
%i = 1
while (%i < $nick(#,0,ou)) {
if ($nick(#,%i,ou) != $me) {
.notice $nick(#,%i,ou) $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ O/Unotice $+ $clr1 $+ > $+ $clr2 $+ > $+ $clr1 $+ > $+ $clr2 $+ > - %vmessage
}
inc %i
}
echo $chan (14 $+ $mytime $+ ) -> Ops/Users $chan $+ : %vmessage
}
vunotice {
set %vmessage $$?="Enter V/Unotice Message:"
var %i
%i = 1
while (%i < $nick(#,0,vu)) {
if ($nick(#,%i,vu) != $me) {
.notice $nick(#,%i,vu) $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ V/Unotice $+ $clr1 $+ > $+ $clr2 $+ > $+ $clr1 $+ > $+ $clr2 $+ > - %vmessage
}
inc %i
}
echo $chan (14 $+ $mytime $+ ) -> Voices/Users $chan $+ : %vmessage
}
onotice {
set %vmessage $$?="Enter Onotice Message:"
.notice @ $+ # $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ Onotice $+ $clr1 $+ > $+ $clr2 $+ > $+ $clr1 $+ > $+ $clr2 $+ > - %vmessage
echo $chan (14 $+ $mytime $+ ) -> @ $+ # $+ : %vmessage
}
vnotice {
set %vmessage $$?="Enter Vnotice Message:"
var %i
%i = 1
while (%i < $nick(#,0,v)) {
if ($nick(#,%i,v) != $me) {
.notice $nick(#,%i,v) $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ Vnotice $+ $clr1 $+ > $+ $clr2 $+ > $+ $clr1 $+ > $+ $clr2 $+ > - %vmessage
}
inc %i
}
echo $chan (14 $+ $mytime $+ ) -> Voices $chan $+ : %vmessage
}
unotice {
set %vmessage $$?="Enter Unotice Message:"
var %i
%i = 1
while (%i < $nick(#,0,u)) {
if ($nick(#,%i,u) != $me) {
.notice $nick(#,%i,u) $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ < $+ $clr2 $+ < $+ $clr1 $+ Unotice $+ $clr1 $+ > $+ $clr2 $+ > $+ $clr1 $+ > $+ $clr2 $+ > - %vmessage
}
inc %i
}
echo $chan (14 $+ $mytime $+ ) -> Users $chan $+ : %vmessage
}
clr1 {
return %clr.1 $+
}
clr2 {
return %clr.2 $+
}
CF1 { mp3 }
CF2 { away }
CF3 { afp }
CF4 { colours }
CF5 { logs }
CF8 { nkeeper }
CF9 { shortcuts }
CF10 { clock }
CF11 { showmirc -t }
CF12 { exit }
F1 { /kick # $$1 }
F2 { /kick # $$1 $$?="Reason for kick:" }
F3 { /ban $$1 3 | /kick # $$1 }
F4 { /ban $$1 3 | /kick # $$1 $$?="Reason for Ban:" }
/op /mode # + $+ $str(o,$nick($chan,0)) $1-
/dop /mode # - $+ $str(o,$nick($chan,0)) $1-
/vo /mode # + $+ $str(v,$nick($chan,0)) $1-
/dvo /mode # - $+ $str(v,$nick($chan,0)) $1-
/uo /mode # + $+ $str(u,$nick($chan,0)) $1-
/duo /mode # - $+ $str(u,$nick($chan,0)) $1-
/cm /mode $chan $1-
/j /join #$$1 $2-
/p /part #
/n /names #$$1
/w /whois $$1
/ww /whowas $$1
/k /kick # $$1 $2-
/kb /ban $chan $$1 3 | /kick # $$1 $2-
/mb /mode # +bbb $address($$1,0) $address($$1,1) $address($$1,2) | /mode # +bbb $address($$1,3) $address($$1,4) $address($$1,5) | /mode # +bbb $address($$1,6) $address($$1,7) $address($$1,8) | /mode # +bb $address($$1,9) $$1
/mbk /mode # +bbb $address($$1,0) $address($$1,1) $address($$1,2) | /mode # +bbb $address($$1,3) $address($$1,4) $address($$1,5) | /mode # +bbb $address($$1,6) $address($$1,7) $address($$1,8) | /mode # +bb $address($$1,9) $$1 | /kick # $$1 $2-
/q /query $$1
/send /dcc send $1 $2
/chat /dcc chat $1
/kick { inc %KCounter | if ($3 != $null) kick $1 $2 $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $3- $+ 2 %Kmessage %KCounter $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » | if ($3 == $null) kick $1 $2 $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « %Kmessage %KCounter $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » }
/cop /cs op $chan $1-
/cdop /cs deop $chan $1-
/cv /cs voice $chan $1-
/cdv /cs devoice $chan $1-
/copme /cs op $chan $me
/cvme /cs voice $chan $me
/ci /cs invite #$$1 $2-
scan {
if (# !isin $active) { echo -a This must be done in a channel | halt }
set %clone.inc 0
set %clones.found 0
$msg.type($1) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 Clone Scan for $chan $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
:clone
inc %clone.inc 1
if ($nick($chan,%clone.inc) == $null) {
if (%clones.found == 0) { $msg.type($1) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 No Clones Found $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » | $msg.type($1) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 End of Clone Scan $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » | halt }
else if (%clones.found != 0) { $msg.type($1) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 End of Clone Scan $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » | halt }
}
if ($nick($chan,%clone.inc) != $null) { set %clone.addy $address($nick($chan,%clone.inc),3) }
if ($ialchan(%clone.addy,$chan,0) > 1) { $msg.type($1) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ < $+ $clr1 $nick($chan,%clone.inc) - %clone.addy $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ » | inc %clones.found 1 | goto clone }
else { goto clone }
}
intro {
linesep -s
echo -s $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 SPPScript™ $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
linesep -s
echo -s $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 Version 4.0 Beta $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
linesep -s
echo -s $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 http://www.serebii.net $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
linesep -s
echo -s $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $chr(160) $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 © 2004 SPP $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
linesep -s
if (%away.status != unaway) {
echo -a You are still in Away Mode
}
}
msg.type {
if ($1 == -e || $1 == e) { return mmsg $active }
else { return echo }
}
oper2 {
if ($server == %Operserver) { oper %Opernick %OperPass }
else { halt }
}
generate {
if ($1 != $null) {
set %length $1
}
else {
set %length 16
}
set %x 1
while (%x <= %length) {
set %case $rand(1, 3)
if (%case == 1) {
set %let $rand(65, 90)
set %pwd %pwd $+ $chr(%let)
}
if (%case == 2) {
set %let $rand(97, 122)
set %pwd %pwd $+ $chr(%let)
}
if (%case == 3) {
set %let $rand(48, 57)
set %pwd %pwd $+ $chr(%let)
}
inc %x
}
echo -a -
echo -a Your Generated Password is:
echo -a %pwd
echo -a -
unset %length
unset %x
unset %let
unset %pwd
halt
}
findout {
var %i
%i = 2147483640
while ($asctime(%i, dddd dd mmmm yyyy @ hh:nn:ss tt) != Thursday 01 January 1970 @ 12:00:00 am) {
%i = %i + 1
msg $active $asctime(%i, dddd dd mmmm yyyy @ hh:nn:ss tt) - %i
}
}
showme {
if (($1 == $null) || ($2 == $null) || ($3 == $null)) { halt }
else {
var %i
var %i2
%i = $2
%i2 = $3
while (%i <= %i2) {
did -v $1 %i
inc %i
}
}
}
hideme {
if (($1 == $null) || ($2 == $null) || ($3 == $null)) { halt }
else {
var %i
var %i2
%i = $2
%i2 = $3
while (%i <= %i2) {
did -h $1 %i
inc %i
}
}
}
rini {
set %i.s $ini(test.ini, 0)
set %i.t 1
while (%i.t <= %i.s) {
set %s.name $ini(test.ini, %i.t)
echo -a %s.name
set %i.s.k $ini(test.ini, %i.t, 0)
set %i.s.t 1
while (%i.s.t <= %i.s.k) {
set %s.key $ini(test.ini, %i.t, %i.s.t)
echo -a $readini(test.ini, %s.name, %s.key)
inc %i.s.t 1
}
inc %i.t 1
}
}
save.quote {
/.remove moo.txt
/.remove moo2.txt
/.savebuf 50 $active moo.txt
set %i 1
while ($read(moo.txt,%i) != $null) {
/tokenize 32 $read(moo.txt, %i)
/.write moo2.txt $strip($3-,burc)
inc %i
}
}
asc.table {
var %i
%i = 1
while (%i <= 255) {
/.write asc.txt %i -- $chr(%i)
inc %i
}
}
dl return " $+ $mircdirbin\mdx.dll $+ "
gdll return " $+ $mircdir $+ ctl_gen.mdx $+ "
ame {
%var i
%i = 1
while (%i <= $chan(0)) {
if ($chan(%i) != #services) && ($chan(%i) != #IRCops) && ($chan(%i) != #NoHacks) {
/.describe $chan(%i) $1-
/.echo $chan(%i) (14 $+ $mytime $+ ) $+ $colour(action text) * $me $1-
}
inc %i 1
}
}
lottery {
var %i, %numbers, %max, %balls
if ($1 == $null) {
%max = 49
}
else {
%max = $1
}
if ($2 == $null) {
%balls = 6
}
else {
%balls = $2
}
%i = 1
while (%i <= %balls) {
:again
%a = $rand(1,%max) $+ ,
if (%a isin %numbers) {
goto again
}
else {
%numbers = %numbers $+ %a
inc %i
}
}
echo -a $replace($sorttok(%numbers,44,n), $chr(44), $chr(32))
unset %a
}
makeupdate {
if ($1 != $null) {
.remove new_ $+ $1
var %i
%i = 1
while ($read($1,%i) != $null) {
.write new_ $+ $1 $remove($read($1,%i),SD: )
inc %i
}
}
}
makeini {
var %i
%i = 1
while ($read(access.db,%i) != $null) {
/tokenize 32 $read(access.db,%i)
/writeini stats.ini $1 name $2
/writeini stats.ini $1 type $3
/writeini stats.ini $1 health $4
/writeini stats.ini $1 attack $5
/writeini stats.ini $1 defense $6
/writeini stats.ini $1 speed $7
/writeini stats.ini $1 specattck $8
/writeini stats.ini $1 specdfnse $9
inc %i
}
}
convert {
var %i,%moo
%i = 1
while ($mid($1, %i, 1) != $null) {
%moo = %moo $+ $chr(36) $+ chr( $+ $asc($mid($1, %i, 1)) $+ ) $chr(36) $+ +
inc %i
}
echo -a %moo
}
amsg {
var %i
%i = 1
while (%i <= $chan(0)) {
mmsg $chan(%i) $1-
inc %i
}
}
cstats2 {
if ($chan == $null) { echo 4 -a ERROR: This command can only be typed from within a Channel Window... }
else {
set %cstats.u $nick($chan,0)
$cstats.parms($1) $chan $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ Scanning Channel $chan $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
$cstats.parms($1) $chan $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ Total Users: %cstats.u $+ $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
$cstats.parms($1) $chan $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ Ops (@): $opnick($chan,0) ( $+ $cstats.percent($opnick($chan,0),%cstats.u) $+ ) $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
$cstats.parms($1) $chan $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ Voiced (+): $vnick($chan,0) ( $+ $cstats.percent($vnick($chan,0),%cstats.u) $+ ) $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
$cstats.parms($1) $chan $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ Normal Users (Slaves): $calc($nick($chan,0) - ($opnick($chan,0)) - ($vnick($chan,0))) $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
$cstats.parms($1) $chan $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ Modes: $chan(#).mode $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
}
}
cstats.parms {
if ($1 == -e || $1 == e) { return mmsg }
else { return echo }
}
cstats.percent {
set %cstats.percent $round($calc($1 / $2),2)
if ($left(%cstats.percent,1) == 0) {
if ($right(%cstats.percent,2) == 00) { return 0% }
elseif ($mid(%cstats.percent,3,1) == 0) { return $mid(%cstats.percent,4,1) $+ $chr(37) }
else { return $right(%cstats.percent,2) $+ $chr(37) }
}
elseif ($mid(%cstats.percent,2,1) == $chr(46)) { return $remove(%cstats.percent,$chr(46)) $+ $chr(37) }
}
credits {
echo -a $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ SerebiiPP, He Created the site and this script for it $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
echo -a $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ « $+ $clr2 $+ « $+ $clr1 $+ Everyone at the Razorville #spp for moral support $+ $clr1 $+ » $+ $clr2 $+ » $+ $clr1 $+ » $+ $clr2 $+ »
}
dolagcheck .ctcpreply $me lagc $ticks
isuser { if ($1 !ishop $2 && $1 !isreg $2 && $1 !isop $2 && $1 !isvoice $2 && $1 ison $2) { return 1 } }
$isuser($nick,$chan)
isadmin { if ($left($nick($chan,$1).pnick,1) == !) { return 1 } }
$isadmin($nick,$chan)
isfounder { if ($left($nick($chan,$1).pnick,1) == ~) { return 1 } }
$isfounder($nick,$chan)
issop { if ($left($nick($chan,$1).pnick,1) == &) { return 1 } }
$issop($nick,$chan)
getgmt {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt),hh:nn:ss TT)
}
}
getcvi {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 3600),hh:nn:ss TT)
}
}
getma {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 7200),hh:nn:ss TT)
}
}
getgl {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 10800),hh:nn:ss TT)
}
}
getgt {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 10800),hh:nn:ss TT)
}
}
getsa {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 14400),hh:nn:ss TT)
}
}
getat {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 14400),hh:nn:ss TT)
}
}
getet {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 18000),hh:nn:ss TT)
}
}
getct {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 21600),hh:nn:ss TT)
}
}
getmt {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 25200),hh:nn:ss TT)
}
}
getpa {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 28800),hh:nn:ss TT)
}
}
gethw {
if ($dialog(time)) {
did -o time 7 1 $asctime($calc($gmt - 36000),hh:nn:ss TT)
}
}
clock { dialog -m time time }