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 }