Anonymous

alias zs.reload {
  reload -rs " $+ $scriptdirbase.txt $+ "
  load -rs " $+ $scriptdircompare.txt $+ "
  load -rs " $+ $scriptdirdeathmatch.txt $+ "
  load -rs " $+ $scriptdiridle.txt $+ "
  load -rs " $+ $scriptdirsimple-scripts.txt $+ "
  load -rs " $+ $scriptdirstats.txt $+ "
  load -rs " $+ $scriptdirtrivia.txt $+ "
  load -rs " $+ $scriptdirmaxhit.txt $+ "
  load -rs " $+ $scriptdirworlds.txt $+ "
  msg $iif($1,$1,#zetaadmins) Code updated.
}
alias c1 { return 10 $+ $1- }
alias c2 { return 12 $+ $1- }
alias c3 { Return 2 $+ $1-  }
alias c4 { Return 11 $+ $1- }
alias chankill {
  set %channum 1
  set %channum1 0
  unset %channumn
  while ($chan(%channum) != $null) {
    if (($chan(%channum) == #zetasecure) || ($chan(%channum) == #zetaadmins) || ($chan(%channum) == #zetascript) || ($readini(WhiteList.ini,$network,$chan(%channum)))) {
      inc %channum
    }
    elseif ($nick($chan(%channum),0) < 3) {
      part $chan(%channum)
      set %channumn %channumn $chan(%channum)
      inc %channum
      inc %channum1
    }
    else {
      inc %channum
    }
  }
  msg $1 Chankill reported %channum1 channels below 3 users ( $+ %channumn $+ ).
}
alias zetacheck {
  set %nicknum 1
  while ($nick($1,%nicknum) != $null) {
    echo -a checking $nick($1,%nicknum)
    if (($nick($1,%nicknum) != $me) && (*zetascript* iswm $nick($1,%nicknum)) && ($nick($1,%nicknum) ison #zetasecure)) {
      echo -a checking2 $nick($1,%nicknum)
      if (($1 != #zetasecure) && ($1 != #zetaadmins) && ($1 != #zetascript) && (!$readini(WhiteList.ini,$network,$1))) { 
        echo -a checking3 $nick($1,%nicknum)
        part $1 Sorry it seems you already have a ZetaScript
        msg #ZetaSecure Parting $1 - Found another zetascript
        msg $$2 Zetacheck found another zeta.
        halt
      }
    }
    inc %nicknum
  }
  msg $$2 Zetacheck found no other zeta.
}
alias zetacheckall {
  set %channum 1
  set %channum1 0
  unset %channumn
  while ($chan(%channum) != $null) {
    set %nicknum 1
    while ($nick($chan(%channum),%nicknum) != $null) {
      if (($nick($chan(%channum),%nicknum) != $me) && (*zetascript* iswm $nick($chan(%channum),%nicknum)) && ($nick($chan(%channum),%nicknum) ison #zetasecure)) {
        if (($chan(%channum) != #zetasecure) && ($chan(%channum) != #zetaadmins) && ($chan(%channum) != #zetascript) && (!$readini(WhiteList.ini,$network,$chan(%channum)))) { 
          $iif(!$2,part $chan(%channum) Sorry it seems you already have a ZetaScript)
          $iif(!$2,msg #ZetaSecure Parting $chan(%channum) - Found another zetascript)

          inc %channum1
          set %channumn %channumn $chan(%channum)
          break
        }
      }
      inc %nicknum
    }
    inc %channum
  }
  msg $1 Zetacheck reports %channum1 channels with more than one zeta ( $+ %channumn $+ ).
}
alias clearall {
  set %clearall 1
  while ($chan(%clearall) != $null) {
    clear $chan(%clearall)
    inc %clearall
  }
}
alias Recover {
  set %recover 2
  while ($read(ChannelDB.ini,%recover)) {
    if ((*#* iswm $gettok($read(ChannelDB.ini,%recover),1,61))) {
      join $v2
    }
    inc %recover
  }
}
alias resave {
  remove ChannelDB.ini
  if ($chan(0) < 1) { return 0 }
  var %i = 1
  while (%i <= $chan(0)) {
    writeini -n ChannelDB.ini $zs(name) $chan(%i) Resave Command
    inc %i
  }
}
alias clearvars { unset %* }
alias showes {
  if ($1 == 0) { return $1 $2 $+ $3 }
  elseif ($1 == 1) { return $1 $2 }
  else { return $1 $2 $+ $3 }
}
alias chanlist {
  if ($chan(0) < 1) { return 0 }
  var %chanlist $chan(1)
  var %i = 2
  while (%i <= $chan(0)) {
    var %chanlist %chanlist $+ , $+ $chan(%i)
    inc %i
  }
  return %chanlist
}
alias blist { writeini -n blacklist.ini users $$1 $iif($2- == $null,No Reason Specified,$2-) | Echo 4 $+ $$1 has been blacklisted }
alias unblist { remini blacklist.ini users $$1 | Echo 4 $+ $$1 has been unblacklisted }
alias htmlfree {
  var %x, %i = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%x), %x = $remove(%x,&nbsp;), %x = $replace(%x,&quot;,"), %x = $replace(%x,&amp;,&)
  return %x
}
alias setmelee { if ($1 == Attack) || ($1 == Defence) || ($1 == Strength) { return true } }
alias sethp { if ($1 == Hitpoints) { return true } }
alias xp {
  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)
}
alias xp2Next { var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1)) | return $calc(%nextxp - %xp) }
alias pest {
  var %exp $iif($2 != Prayer,$calc(($1 ^2)/6),$calc(($1 ^2)/12)), %xp.nxtlvl $exp($3), %xp.diff $4, %point $calc(%xp.diff / %exp)
  if (%point >= 100) { var %point $calc(%xp.diff / ((%exp * 0.1) + %exp)) }
  if ($1 == 99) { return 0 }
  else { return $bytes($gettok(%point,1,46),b) }
}
alias setpc {
  if ($1 == 0) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack
  elseif ($1 == 1) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence
  elseif ($1 == 2) || ($regex($1,/^str(ength)?$/Si)) return Strength
  elseif ($1 == 3) || ($regex($1,/^hp|hit(s|points?)?$/Si)) return Hitpoints
  elseif ($1 == 4) || ($regex($1,/^range(r|d|ing)?$/Si)) return Ranged
  elseif ($1 == 5) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer
  elseif ($1 == 6) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic
}
alias xp2Next { var %xp = $remove($2,$chr(44)), %nextxp = $xp($calc($1 + 1)) | return $calc(%nextxp - %xp) }

alias setskill {
  return $gettok($setskill0($1),1,32)
}
alias setskill2 {
  return $gettok($setskill0($1),2,32)
}
alias setskill0 {
  if ($1 == 0) || ($regex($1,/^(st|(skill)?total|overall)$/Si)) return Overall 0
  elseif ($1 == 1) || ($regex($1,/^at(t|k|tack)$/Si)) return Attack 2
  elseif ($1 == 2) || ($regex($1,/^def(en[cs]e)?$$/Si)) return Defence 2
  elseif ($1 == 3) || ($regex($1,/^str(ength)?$/Si)) return Strength 3
  elseif ($1 == 4) || ($regex($1,/^(hp|hit)(s|points?)?$/Si)) return Hitpoints 4
  elseif ($1 == 5) || ($regex($1,/^r(ng|ange|anged|angeing|anger)?$/Si)) return Ranged 5
  elseif ($1 == 6) || ($regex($1,/^Pray(er)?$$/Si)) return Prayer 6
  elseif ($1 == 7) || ($regex($1,/^mag(e|ic)$$/Si)) return Magic 7
  elseif ($1 == 8) || ($regex($1,/^cook(ing)?$/Si)) return Cooking 8
  elseif ($1 == 9) || ($regex($1,/^wc|wood(cut(ting)?)?$/Si)) return Woodcutting 9
  elseif ($1 == 10) || ($regex($1,/^fletch(ing)?$/Si)) return Fletching 10
  elseif ($1 == 11) || ($regex($1,/^fish(ing)?$/Si)) return Fishing 11
  elseif ($1 == 12) || ($regex($1,/^(fire|fm)(make?(ing)?|ing)?$/Si)) return Firemaking 12
  elseif ($1 == 13) || ($regex($1,/^craft(ing)?$/Si)) return Crafting 13
  elseif ($1 == 14) || ($regex($1,/^(smith|smelt)(ing)?$/Si)) return Smithing 14
  elseif ($1 == 15) || ($regex($1,/^min(e|eing|ing)?$/Si)) return Mining 15
  elseif ($1 == 16) || ($regex($1,/^herb(law|lore)?$/Si)) return Herblore 16
  elseif ($1 == 17) || ($regex($1,/^agil(ity)?$/Si)) return Agility 17
  elseif ($1 == 18) || ($regex($1,/^(th(ei|ie)[fv](e|ing)?)$/Si)) return Thieving 18
  elseif ($1 == 19) || ($regex($1,/^slay(er|ing)?$/Si)) return Slayer 19
  elseif ($1 == 20) || ($regex($1,/^farm(er|ing)?$/Si)) return Farming 20
  elseif ($1 == 21) || ($regex($1,/^(rc|runecraft)(er|ing)?$/Si)) return Runecraft 21
  elseif ($1 == 22) || ($regex($1,/^(con|construct)(ion|ing)?$/si)) return Construction 22
  elseif ($1 == 23) || ($regex($1,/^(hunt)(er|ing)?$/si)) return Hunter 23
  elseif ($1 == 24) || ($regex($1,/^c(mb|ombat)?$/si)) return Combat
}
alias striptags { var %x,%y = $regsub($1-,/(<[^>]+>)/g,$null,%x) | return %x }
alias HPLevel {
  if ($1 > 95) return 9,9...................
  elseif ($1 > 90) return 9,9...................
  elseif ($1 > 85) return 9,9..................4,4.
  elseif ($1 > 80) return 9,9.................4,4..
  elseif ($1 > 75) return 9,9................4,4...
  elseif ($1 > 70) return 9,9...............4,4....
  elseif ($1 > 65) return 9,9..............4,4.....
  elseif ($1 > 60) return 9,9.............4,4......
  elseif ($1 > 55) return 9,9............4,4.......
  elseif ($1 > 50) return 9,9...........4,4........
  elseif ($1 > 45) return 9,9..........4,4.........
  elseif ($1 > 40) return 9,9.........4,4..........
  elseif ($1 > 35) return 9,9........4,4...........
  elseif ($1 > 30) return 9,9.......4,4............
  elseif ($1 > 25) return 9,9......4,4.............
  elseif ($1 > 20) return 9,9.....4,4..............
  elseif ($1 > 15) return 9,9....4,4...............
  elseif ($1 > 10) return 9,9...4,4................
  elseif ($1 > 5) return 9,9..4,4.................
  elseif ($1 > 0) return 9,9.4,4..................
  elseif ($1 == 0) return 4,4...................
}
alias Idlestyle {
  if ($regex($1,/^g(en|eneral)$/Si)) return General
  elseif ($regex($1,/^v(erb|erbrose)$/Si)) return Verbrose
}