Unnamed

ON *:TEXT:!AV*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) && (%av [ $+ [ $chan ] ] == on) { 
    writeini AVLIST [ $+ [ $chan ] ] $+ .ini ADRESSES $address($2,2) $2
    notice $nick 4  $+ $2 12Has been added to the AV list as4 $address($2,2) 12(11 $+ $2 $+ 12)
    notice $2 12You have been added to the AV List as4 $address($2,2) 12(11 $+ $2 $+ 12)
    mode $chan +v $2
    inc %av [ $+ [ $nick ] ]
  } 
} 
on *:join:#:{ 
  if ($readini(AVLIST [ $+ [ $chan ] ] $+ .ini,ADRESSES,$address($nick,2))) {
    mode $chan +v $nick
  } 
} 
ON *:TEXT:!DelAV*:#:{ 
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) { 
    .remini AVLIST [ $+ [ $chan ] ] $+ .ini ADRESSES $address($2,2) $2 
    writeini DAVLIST [ $+ [ $chan ] ] $+ .ini ADRESSES $address($2,2) $2 
    notice $nick 4 $+ $2 12Has been deleted From the AV list.
    notice $2 12You Have been deleted From the AV list by4 $nick $+ .

  } 
} 
on *:TEXT:!pc *:#: {
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    if ($2 == on ) {
      if (%pc != on) {
        set %pc on 
        /notice $nick 12Pest-Control is now7 Enabled  
      }
      else {
        /notice $nick 12Pest-Control is already 13Enabled | halt
      }
    }
    elseif ($2 == off) {
      if (%pc == on) {
        set %pc off
        /notice $nick 12Pest-Control is now 13Disabled
      }
      else {
        /notice $nick 12Pest-Control is already 13Disabled
      }
    }
  }
}
on *:TEXT:!pc *:#: {
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    if ($2 == on ) {
      if (%pc != on) {
        set %pc on 
        /notice $nick 12Pest-Control is now7 Enabled  
      }
      else {
        /notice $nick 12Pest-Control is already 13Enabled | halt
      }
    }
    elseif ($2 == off) {
      if (%pc == on) {
        set %pc off
        /notice $nick 12Pest-Control is now 13Disabled
      }
      else {
        /notice $nick 12Pest-Control is already 13Disabled
      }
    }
  }
}
on $*:TEXT:/^[!](p|w|pcw|world)$/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) && (%pc  == on) {
    notice $nick 7| 10Current World:4 %world 7| 10Suggested:4 %suggest 7| 10Last World:4 %lastworld 7| 
    notice $nick 7| 10Updated:4 $duration($calc( $ctime - %pcsettime )) 10ago. 7| 10Set by:4 %nick $+ 7 |
  }
}
on $*:TEXT:/^[@](p|w|pcw|world)$/Si:#:{
  if ($nick isop $chan) && (%pc == on) {
    notice [+] $+ $chan 7| 10Current World:4 %world 7| 10Suggest:4 %suggest [ $+ [ $chan ] ] 7| 10Last World:4 %lastworld  7| 
    notice [+] $+ $chan 7| 10Updated:4 $duration($calc( $ctime - %pcsettime)) 10ago. 7| 10Set by:4 %nick $+ 7 |
  }
}
on *:text:!suggest*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick isvoice $chan) {
    if ( $2 == %suggest ) {
    notice $nick 10That 4world 10has already been4 suggested10. | halt }
    if ( $2 == %world ) {
    notice $nick 10That 4world 10has already been set. | halt }
    if ($2 isnum 2-140) {
      set %suggest $2
      set %suggestnick $nick
      notice $nick 10Thankyou, your 4suggestion 10has been noticed.3 Our Staff will check it ASAP!
      msg $chan $+ .staff 12The world4 %suggest 12Has been suggested by4 %suggestnick
    }
    else { 
    notice $nick 10That is not a 4valid 10world. }
  }
}
on *:text:@suggest:*:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2))  {
    msg $chan 0,1 If you find a good 11Pest-Control0 world, 9SUGGEST IT0!!! 0,0
    msg $chan 0,1 Type 9!suggest 8WORLD 0,0
  }
}
on $*:TEXT:/^[!](change|setpcw|setworld) [0-9]+$/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) && (%pc == on) {
    if ( $2 == %world ) {
    notice $nick 10The world is already4 $2 $+ 10. | halt }
    if ($2 isnum 2-140) {
      set %lastworld %world
      set %world $2 
      set %nick $nick
      set %pcsettime $ctime 
      inc %setpcw [ $+ [ $nick ] ]
      msg #pest-time 7 $+ $chr(124) 10The World has been Updated! by4 %nick 7| {
        msg $#pest-time 7 $+ $chr(124)       10Type 4!pcw 10to see it 7| 
      }
    }
    else {
      notice $nick 1Only 4Ops 1and 7Half-Ops 1can set the 10Pest-Control 1world. 
      notice $nick 1If you have a world you would like to suggest, type
      notice $nick 4!suggest 12WORLD 1(eg. 4 !suggest12 691)
    }
  }
}
on *:TEXT:@pm:#:{
  if ($nick ishop $chan) || ($nick isop $chan) || ($address($nick,2) == $address($me,2)) && (%pc == on) {
    var %Users.Total = $nick($chan,0), %Users.Current = 1 
    while (%Users.Total >= %Users.Current) { 
      if ($nick($chan,%Users.Current) isreg $chan) {
        notice $Nick($chan,%users.current) 12For Voice Please PM4 %pmnick  12InGame
      notice $nick 12Message sent to All unvoiced.      } 
      inc %Users.Current
    } 
  }
}
on *:TEXT:!setpm *:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) && (%pc == on) {
    set %pmnick $2-
    notice $nick 12The people avaible to PM has been changed to4 $2-
  }
} 
on *:TEXT:!rsn *:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2))  {
    /kick $chan $2 12Please come back using your4 Runescape Name!
  }
}
on *:TEXT:!check*:#: {
  if ($2 == $null) {
    set %avname %av [ $+ [ $nick ] ]
    notice $nick 4You 12have 7A12uto-7V12oiced13 %avname 12people
    notice $nick 4You 12have Set13 %setpcw [ $+ [ $nick ] ] 7P12est 7C12ontrol Worlds 
  }
  else {
    set %avname %av [ $+ [ $2 ] ] 
    set %setpcw %setpcw [ $+ [ $2 ] ]
    notice $nick 4 $2 12has 7A12uto-7V12oiced13 %avname 12people
    notice $nick 4 $2 12have Set13 %setpcw 7P12est 7C12ontrol Worlds
  }
}
}
on *:TEXT:@check*:#: {
if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
  if ($2 == $null) {
    set %avname %av [ $+ [ $nick ] ]
    notice $nick 4You 12have 7A12uto-7V12oiced13 %avname 12people
    notice $nick 4You 12have Set13 %setpcw [ $+ [ $nick ] ] 7P12est 7C12ontrol Worlds 
  }
  else {
    if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
      set %avname %av [ $+ [ $2 ] ] 
      set %setpcw %setpcw [ $+ [ $2 ] ]
      notice $nick 4 $2 12has 7A12uto-7V12oiced13 %avname 12people
      notice $nick 4You 12have Set13 %setpcw 7P12est 7C12ontrol Worlds
    }
  }
}

on *:TEXT:!decline *:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
    ban -ku300 $chan $2 12You do NOT meet the reqs for $chan , Reqs:4 %reqs [ $+ [ $chan ] ]
  }
}
on *:TEXT:@ad:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
    msg $chan 9,1 If you like this channel, Please Invite your Friends!
    msg $chan 9,1 The more people we have the Better our Worlds!!
  }
}
on *:TEXT:!count:#: {
  notice $nick 2[4 $+ $chan $+ 2]4  4Currently has 2[4 $+ $nick($chan,0) $+ 2]4 4Users
}
on *:TEXT:!setreqs *:#: {
  if ($nick isop $chan) || ($nick ishop $chan) || ($address($nick,2) == $address($me,2)) {
    set %reqs [ $+ [ $chan ] ] $2-
  }
}
on *:TEXT:@pcw:#: {
  if ($nick ishop $chan) || ($nick isop $chan) || ($address($nick,2) == $address($me,2)) {
    /notice [+] $+ $chan 7| 10Current World:4 %world 7| 10Suggested:4 %suggest 7| 10Last World:4 %lastworld 7| 
    /notice [+] $+ $chan 7| 10Updated:4 $duration($calc( $ctime - %pcsettime )) 10ago. 7| 10Set by:4 %nick $+ 7 |
  }
}
on *:TEXT:!turn stats *:#: { 
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) { 
    if ($3 == on) { 
      if (%stats [ $+ [ $chan ] ] != on) { 
        set %stats [ $+ [ $chan ] ] on 
        notice $nick 3Stats Lookup12 has been 13Enabled 
      } 
      else { 
        notice $nick 3Stats Lookup 12is already13 Enabled  | halt 
      } 
    } 
    elseif ($3 == off) { 
      if (%stats [ $+ [ $chan ] ] == on) { 
        set %stats  [ $+ [ $chan ] ] off 
        notice $nick 3Stats Lookup 12is now 13Disabled 
      } 
      else { 
        notice $nick 3Stats Lookup 12is Already 13Disabled 
      } 
    } 
  } 
} 
on *:TEXT:!turn av *:#: {
  if ($nick isop $chan || $nick ishop $chan || $address($nick,2) == $address($me,2)) {
    if ($3 == on ) {
      if (%pc != on) {
        set %av [ $+ [ $chan ] ] on 
        /notice $nick 12Autovoice is now7 Enabled  
      }
      else {
        /notice $nick 12Autovoice is already 13Enabled | halt
      }
    }
    elseif ($3 == off) {
      if (%pc == on) {
        set %av [ $+ [ $chan ] ] off
        /notice $nick 12Autovoice is now 13Disabled
      }
      else {
        /notice $nick 12Autovoice is already 13Disabled
      }
    }
  }
}