QuizMania's PC Script

on $*:TEXT:/^[!@](setworld|setpcw|change).*/i:#pc: {
  if ($nick !isreg $chan) {
    if ($2 == 40+) || ($2 == 70+) || ($2 == 100+) {
      if ($3 != %pc [ $+ [ $2 ] ]) {
        if ($3 isnum 1-159) && ($3 !isin $read(freeworlds.txt, w, $3)) {
          if (%pconoff == on) { msg #pc 15***3 [14 $2 world update3: 14 $+ %pc [ $+ [ $2 ] ] 3--> 14 $+ $3 3] }
          set %pc [ $+ [ $2 ] ] $3
        }
        else {
          if (%pconoff == on) { .notice $nick 15***3 [14 Invalid world3. (14Doesn't exist or is F2P3) ] }
        }
      }
      else {
        if (%pconoff == on) { .notice $nick 15***3 [14 World $3 is already set for $2 $+ 3. ] }
      }
    }
    else {
      if (%pconoff == on) { .notice $nick 15***3 [14 Use $1 40+/70+/100+ world3. ] }
    }
  }
}
on $*:TEXT:/^[!@](world|pcw|pcworld).*/i:#pc: { 
  if ($nick isop #pc) && ($2 != $null) && ($2 isreg #pc) {
    inc %pcuses
    .notice $2 15***3 $chr(91) 1440+3: 14 $+ %pc40+ $+ 3 $chr(93) $+ 15 $chr(124) $+ 3 $chr(91) $+ 14 70+3: 14 $+ %pc70+ 3]15 $chr(124) $+ 3 $chr(91) $+ 14 100+3: 14 $+ %pc100+ 3]15 $chr(124) $+ 3 $chr(91) 15¤14 $+ $bytes(%pcuses,bd) $+ 15¤3 $chr(93) $+ 
    .notice $nick 15***3 [14 Worlds sent to3:14 $2 3]
    halt
  }
  if (%pconoff == on) && ($nick ison $chan) && (!%pcwuse. [ $+ [ $nick ] ]) {
    inc %pcuses
    .notice $nick 15***3 $chr(91) 1440+3: 14 $+ %pc40+ $+ 3 $chr(93) $+ 15 $chr(124) $+ 3 $chr(91) $+ 14 70+3: 14 $+ %pc70+ 3]15 $chr(124) $+ 3 $chr(91) $+ 14 100+3: 14 $+ %pc100+ 3]15 $chr(124) $+ 3 $chr(91) 15¤14 $+ $bytes(%pcuses,bd) $+ 15¤3 $chr(93) $+ 
    if ($nick !isop #pc) { inc -z %pcwuse. [ $+ [ $nick ] ] 120 }
  }
}
on *:TEXT:!QMon*:#pc: {
  if ($nick !isreg #pc) && (%pconoff == off) {
    set %pconoff on
    msg #pc 15***3 [14 PC commands are now on3. ]
    .timersayworld -o 0 $iif($2 isnum,$2,120) //msg #pc $!sayworld
  }
}
on *:TEXT:!QMoff:#pc: {
  if ($nick !isreg #pc) && (%pconoff == on) {
    set %pconoff off
    msg #pc 15***3 [14 PC commands are now off3. ]
    .timersayworld off
  }
}
alias sayworld {
  return 15***3 $chr(91) 1440+3: 14 $+ %pc40+ $+ 3 $chr(93) $+ 15 $chr(124) $+ 3 $chr(91) $+ 14 70+3: 14 $+ %pc70+ 3]15 $chr(124) $+ 3 $chr(91) $+ 14 100+3: 14 $+ %pc100+ 3]
}
raw 439:*: {
  haltdef
  quit Restarting.
  server $serverip $+ :+6697
}