alias novoice {
  set %list 
  set %i 1
  :next
  set %nick $nick(#,%i)
  if %nick == $null goto done
  if %nick isreg $chan set %list %list
  inc %i
  goto next
  /msg $chan The current unvoiced users are: %list
  :done
}
on *:text:!novoice:#pc-addict{
if ($nick isop $chan) || ($nick ishop $chan) {
  /novoice
}
else { halt }
}

on *:TEXT:!setpcw*:#pc-addict:{
if ($nick isop $chan)
{
  set  %pcw $2
  msg $nick The world has been changed!
  notice $chan The Pest Control world has been updated by an op, type in either !pcw or !world to view it!
}
elseif ($nick ishop $chan) {
  set  %pcw $2
  msg $nick The world has been changed!
  notice $chan The Pest Control world has been updated by a halfop, type in either !pcw or !world to view it!
}
elseif ($nick isvoice $chan) && ($nick !ishop $chan) && ($nick !isop $chan) {
  /notice $nick Sorry, but a voiced user maynot change the world.
}
else { /notice $nick Sorry, but a regular user may not see nor set the world. }
}
on $*:TEXT:/[!@]pcw|world?/Si:#pc-addict: {
if ($nick isreg #pc-addict) {
  notice $nick Sorry, but a regular user maynot view the world.
}
else {notice $nick The curent Pest Control world is %pcw }
} 
on 1:join:#pc-addict: {
  msg #pc-addict @cmb $nick 
  notice $nick type !pcw or !world to get the pc world for #pc-addict
  notice $nick you need to be 12voiced to see the world. also we have a !suggest world feature:example !suggest 78
} 
on *:TEXT:!suggest *:#pc-addict: {
  if ($nick !isreg #pc-addict) {
    notice $nick your suggestion has been forwarded to Pc Addict operaters.
    notice #pc-addict $nick suggests $2
  }
}
on *:text:!say *:#pc-addict: {
  if ($address($nick,2) == *!*@Swift-A2C225DC.ph.ph.cox.net) { /timersay 1 0 /msg $chan $2- }
  else {
    if ($nick ishop $chan) || ($nick ishop $chan) {
      if ($2 == $null) { /notice $nick Sorry, but there was no input }
      else { /msg $chan $2- }
    }
  }
}
on *:text:!ban *:*: {
  if (Pest-Control ison $chan) { halt }
  else {
    if ($nick isop $chan) {
      if ($2 isop $chan) { /notice $nick You may not ban another operator. }
      else {
        if ($2 == $null) { /notice $nick Sorry, but there was no specified target. }
        else {
          if ($3 == $null) { /mode $chan +b $address($nick,2) | /kick $chan $2 Requested by an op. }
          else { /mode $chan +b $address($nick,2) | /kick $chan $2 $3- }
        }
      }
    }
  }
  if ($nick ishop $chan) {
    if ($2 isop $chan) { /notice $nick You may not ban an operator. }
    elseif ($2 ishop $chan) { /notice $nick You may not ban another half-operator. }
    else {
      if ($2 == $null) { /notice $nick Sorry, but there was no specified target. }
      else {
        if ($3 == $null) { /mode $chan +b $address($nick,2) | /kick $chan $2 Requested by an op. }
        else { /mode $chan +b $address($nick,2) | /kick $chan $2 $3- }
      }
    }
  }
  elseif ($address($nick,2) == *!*@System.support.SwiftIRC.net) { 
    if ($2 == $me) { /notice $nick Can't do that }
    elseif ($2 == $nick) { /notice $nick Can't do that }
    elseif ($2 == ban) { $3-  | haltdef }
    else { /mode $chan b $address($2,2) { /kick $chan $2 Kicked for a good reason! }
    }
  }
  else { /notice $nick You do not have access to use that command. }
}
on *:invite:*:{
  set %invitation 0
  set %chanin $chan
  set %nickin $nick
  /msg #PC-Addict $nick invited me to $chan do you want me to join? (!yes or !no)
}

on *:text:!yes:#pc-addict:{
  if (%invitation < 1) { /halt }
  else {
    if ($nick isop $chan) { 
      /join %chanin
      /notice $chan Op $nick allows me to join %chanin
    }
    elseif ($nick ishop $chan) {
      /join %chanin
      /notice $chan HalfOp $nick allows me to join %chanin
    }
    else { /notice $nick You have no access to do so }
  }
}

on *:text:!no:#pc-addict:{
  if (%invitation < 1) { /halt }
  else { 
    if ($nick isop $chan) { 
      /unset %nickin
      /notice $chan Op $nick doesn't allow me to join %chanin
      /unset %chanin
    }
    elseif ($nick ishop $chan) { 
      /unset %nickin
      /notice $chan HalfOp $nick doesn't allow me to join %chanin
      /unset %chanin
    }
  }
}

on *:join:%chanin:{
  if ($nick != $me) { /halt }
  else {
    /unset %chanin
    /msg %chanin I was invited here by %nickin
  }
}
alias regs {
  set %list 
  set %i 1
  :next
  set %nick $nick(#,%i)
  if %nick == $null goto done
  if %nick isreg $chan set %list %list 
  inc %i
  goto next
  /msg $chan The current regular users are %list
  :done
}
on *:text:!regs:#pc-addict:{
  if ($nick isop $chan) || ($nick ishop $chan)  {
    /regs
  }
  else { halt }
}