on *:TEXT:!setpcw*:#pcelites,#pcelites-staff: {
  set %temp.pcw1 $2
  set %temp.pcw2 $3
  set %nick.pcw.pcw $nick
  if (($nick isop #pcelites) || ($nick ishop #pcelites) || ($nick isvoice #pcelites)) {
    /unset %pcwuser.*
  }
  else {
    notice $nick 14Sorry but only4 voices+ 14can set the 4pest-control14 world.
    halt
  }
  if ($2 == %pcw) && ($3 == %pcw2) {
    notice $nick 14World4 $214 +4 %pcw2 14are already set. No need to set them 4again14.
    halt
  }
  if ($2) && (!$3) {
    /pcw1
    inc %pcw
  }
  else {
    /pcw2
  }
}
alias pcw1 {
  if (%temp.pcw1 == %pcw) {
    notice %nick.pcw.pcw 14World4 %temp.pcw1 14is already set. No need to set it 4again14. 
    halt
  }
  if (%temp.pcw1 isnum) {
    if ((%temp.pcw1 <= 138) && (%temp.pcw1 > 0)) {
      /unset %pcwuser.*
      set %ht $ctime
      set %pcw $calc(%temp.pcw1 -1)
      set %pcw2 and not set
      set %nickker %nick.pcw.pcw
      /msg #pcelites 14The 4pest-control 14worlds have been 4updated14 by4 %nickker 14- To view them, type: 4!pcw 14or 4!world14 -
    }
    else {
      notice $nick 14Sorry but '4 $+ $2 $+ 14' is not a 4Runescape14 world.
    }
  }
  else {
    notice $nick 14Sorry but '4 $+ %temp.pcw1 $+ 14' is not a number.
  } 
  if (%pcw. [ $+ [ $nick ] ]) {
    inc %pcwg. [ $+ [ $nick ] ] 1
  }
  else {
    set %pcwg. [ $+ [ $nick ] ] 1
    write pcwgetters.txt 4 $+ $nick
  }
}


alias pcw2 {
  if (%temp.pcw2 == %pcw2) {
    notice %nick.pcw.pcw 14World4 %temp.pcw2 14is already set. No need to set it 4again14. 
    halt
  }
  if (%temp.pcw2 isnum) {
    if ((%temp.pcw2 <= 138) && (%temp.pcw2 > 0)) {
      /unset %pcwuser.*
      set %ht $ctime
      set %pcw %temp.pcw1
      set %pcw2 and %temp.pcw2
      set %nickker %nick.pcw.pcw
      /msg #pcelites 14The 4pest-control 14worlds have been 4updated14 by4 %nickker 14- To view them, type: 4!pcw 14or 4!world14 -
    }
    else {
      notice $nick 14Sorry but '4 $+ $2 $+ 14' is not a 4Runescape14 world.
    }
  }
  else {
    notice $nick 14Sorry but '4 $+ $2 $+ 14' is not a number.
  } 
  if (%pcwg. [ $+ [ $nick ] ]) {
    inc %pcwg. [ $+ [ $nick ] ] 1
  }
  else {
    set %pcw. [ $+ [ $nick ] ] 1
    write pcwgetters.txt 4 $+ $nick
  }
}


on *:TEXT:!pcw:#pcelites: {
  inc %times 1
  notice $nick 14The pest-control worlds are:4 %pcw %pcw2 14- Used4 %times 14times - Set by4 %nickker 14- Set4 $duration($calc($ctime - %ht)) 14ago %logo
}

on *:TEXT:!gpcw:#pcelites: {
  if (($nick isvoice $chan) || ($nick isop #pcelites) || ($nick ishop #pcelites)) {
    notice #pcelites 14The pest-control worlds are:4 %pcw %pcw2 14- Used4 %times 14times - Set by4 %nickker 14- Set4 $duration($calc($ctime - %ht)) 14ago %logo
  }
  else {
    notice $nick 14Sorry but only4 voices+ 14can global the 4pest-control14 world.
  }
}

on *:TEXT:!world:#pcelites: {
  inc %times 1
  notice $nick 14The pest-control worlds are:4 %pcw %pcw2 14- Used4 %times 14times - Set by4 %nickker 14- Set4 $duration($calc($ctime - %ht)) 14ago %logo
}

on *:TEXT:@pcw:#pcelites: {
  if ($nick isop #pcelites) {
    msg #pcelites 14The pest-control world is:4 %pcw 14- Used4 %times 14times - Set by4 %nickker 14- Set4 $duration($calc($ctime - %ht)) 14ago %logo
  }
  else {
    /notice $nick 4Sorry14, you need to be4 Op14 to use this command.
  }
}

on *:TEXT:@world:#pcelites: {
  if ($nick isop #pcelites) {
    msg #pcelites 14The pest-control world is:4 %pcw 14- Used4 %times 14times - Set by4 %nickker 14- Set4 $duration($calc($ctime - %ht)) 14ago %logo
  }
  else {
    /notice $nick 4Sorry14, you need to be4 Op14 to use this command.
  }
}

on *:TEXT:!pcwg*:#pcelites,?,#pcelites-staff: {
  if (($nick isop #pcelites) || ($nick ishop #pcelites) || ($nick isvoice #pcelites)) {
    if (%pcwg. [ $+ [ $2 ] ] == 1) {
      set %worldsss world
    }
    else {
      set %worldsss worlds
    }
    if (%pcwg. [ $+ [ $2 ] ]) {
      notice $nick 4 $+ $2 14has set4 %pcw. [ $+ [ $2 ] ] 14 $+ %worldsss
    }
    else {
      notice $nick 14This person hasn't set any worlds since4 while4 I have been online (04/01/2007). %logo
    }
  }
  else {
    notice $nick 14Sorry, you need to be4 Halfop+ 14to use this command.
  }
}