;; ----- Pub Set Commands | Access Level 200 ----- ;;

on 200:TEXT:.set *:#: {
  if ($2 == dod) {
    set %dod $3-
    notice $nick Complete
  }
  elseif ($2 == cz) {
    set %cz $3-
    notice $nick Complete
  }
  elseif ($2 == bf) {
    set %bf $3-
    notice $nick Complete
  }
  elseif ($2 == cod2) {
    set %cod2 $3-
    notice $nick Complete
  }
  elseif ($2 == cs) {
    set %cs $3-
    notice $nick Complete
  }
  elseif ($2 == css) {
    set %css $3-
    notice $nick Complete
  }
}

;; ----- Ban Set Commands | Access Level 400 ----- ;;

on 400:TEXT:.set *:#: {
  if ($2 == bantime) {
    set %bantime $3-
    notice $nick Complete
  }
  elseif ($2 == banmsg) {
    set %banmsg $3-
    notice $nick Complete
  }
}

;; ----- Server Location Set Commands | Access Level 300 ----- ;;

on 300:TEXT:.set *:#: {
  if ($2 == chi) {
    set %chi $3-
    notice $nick Complete
  }
  elseif ($2 == sd) {
    set %sd $3-
    notice $nick Complete
  }
  elseif ($2 == ny) {
    set %ny $3-
    notice $nick Complete
  }
  elseif ($2 == dal) {
    set %dal $3-
    notice $nick Complete
  }
  elseif ($2 == atl) {
    set %atl $3-
    notice $nick Complete
  }
  elseif ($2 == sf) {
    set %sf $3-
    notice $nick Complete
  }
}

;; ----- Server Info Set Commands | Access Level 400 ----- ;;

on 400:TEXT:.set *:#: {
  if ($2 == website) {
    set %website $3-
    notice $nick Complete
  }
  elseif ($2 == staff) {
    set %staff $3-
    notice $nick Complete
  }
  elseif ($2 == specials) {
    set %specials $3-
    notice $nick Complete
  }
  elseif ($2 == news) {
    set %news $3-
    notice $nick Complete
  }
}

;; ----- User Commands | Access Level 500 ----- ;;

on 500:TEXT:.auser*:#:{ auser $3 $2 | notice $nick USERLIST has been updated | notice $nick $2 has been added to the userlist with $3 access }
on 500:TEXT:.ruser*:#:{ ruser $3 $2 | notice $nick USERLIST has been updated | notice $nick $2 has been removed from the userlist }
on 500:TEXT:.clvl*:#:{ ruser $3 $2 } | { auser $3 $2 | notice $nick USERLIST has been updated | notice $nick $2 now has $3 access }
on 500:TEXT:.lusers*:#:{ var %x = 1,%users | while ($ulist(*,%x)) { %users = %users $v1 | inc %x } | notice $nick %users }

;; ----- Timer Commands | Access Level 400 ----- ;;

on 400:TEXT:.set *:#: {
  if ($2 == timer1) {
    set %timer1 $3-
    notice $nick Complete
  }
  elseif ($2 == timer2) {
    set %timer2 $3-
    notice $nick Complete
  }
  elseif ($2 == timer3) {
    set %timer3 $3-
    notice $nick Complete
  }
  elseif ($2 == timer1int) {
    set %timer1int $3-
    notice $nick Complete
  }
  elseif ($2 == timer2int) {
    set %timer1int $3-
    notice $nick Complete
  }
  elseif ($2 == timer3int) {
    set %timer3int $3-
    notice $nick Complete
  }
}

on 400:TEXT:.timer1 *:#: {
  if ($2 == on) {
    /timer1 0 %timer1int msg $chan %timer1
    notice $nick Complete
  }
  elseif ($2 == off) {
    /timer1 off
    notice $nick Complete
  }
  elseif ($2 == view) {
    notice $nick %timer1
  }
}

on 400:TEXT:.timer2 *:#: {
  if ($2 == on) {
    /timer2 0 %timer2int msg $chan %timer2
    notice $nick Complete
  }
  elseif ($2 == off) {
    /timer2 off
    notice $nick Complete
  }
  elseif ($2 == view) {
    notice $nick %timer2
  }
}

on 400:TEXT:.timer3 *:#: {
  if ($2 == on) {
    /timer3 0 %timer3int msg $chan %timer3
    notice $nick Complete
  }
  elseif ($2 == off) {
    /timer3 off
    notice $nick Complete
  }
  elseif ($2 == view) {
    notice $nick %timer3
  }
}

;; PUB IPS ;;
on *:TEXT:*.pub:#:{ msg $chan 4,1x .0Pubs 0,1- 4.0cs - 4.0dod - 4.0cz - 4.0css - 4.0bf - 4.0cod2 4,1x }
on *:TEXT:*.cs:#:{ msg $chan 4,1x .0CS 0,1- %cs 4,1x }
on *:TEXT:*.dod:#:{ msg $chan 4,1x .0dod 0,1- %dod 4,1x }
on *:TEXT:*.cz:#:{ msg $chan 4,1x .0cz 0,1- %cz 4,1x }
on *:TEXT:*.css:#:{ msg $chan 4,1x .0css 0,1- %css 4,1x }
on *:TEXT:*.bf:#:{ msg $chan 4,1x .0BF 0,1- %bf 4,1x }
on *:TEXT:*.cod2:#:{ msg $chan 4,1x .0Cod2 0,1- %cod2 4,1x }

;; ----- Anti-Advertising ----- ;;

on *:TEXT:*#*:#:{
  var %x = 1
  while (%x <= $numtok($1-,32)) {
    if ($left($strip($gettok($1-,%x,32)),1) == $chr(35)) {
      ban -u [ $+ [ %bantime ] ] $chan $wildsite
      kick $chan $nick %banmsg
    }
    inc %x
  }
}

on *:TEXT:*www.*:#:{
  if (*www.*.* iswm $1-) {
    ban -u [ $+ [ %bantime ] ] $chan $wildsite
    kick $chan $nick %banmsg
  }
}
on *:NOTICE:*#*:#:{
  var %x = 1
  while (%x <= $numtok($1-,32)) {
    if ($left($strip($gettok($1-,%x,32)),1) == $chr(35)) {
      ban -u [ $+ [ %bantime ] ] $chan $wildsite
      kick $chan $nick %banmsg
    }
    inc %x
  }
}

on *:NOTICE:*www.*:#:{
  if (*www.*.* iswm $1-) {
    ban -u [ $+ [ %bantime ] ] $chan $wildsite
    kick $chan $nick %banmsg
  }
}
on *:ACTION:*#*:#:{
  var %x = 1
  while (%x <= $numtok($1-,32)) {
    if ($left($strip($gettok($1-,%x,32)),1) == $chr(35)) {
      ban -u [ $+ [ %bantime ] ] $chan $wildsite
      kick $chan $nick %banmsg
    }
    inc %x
  }
}

on *:ACTION:*www.*:#:{
  if (*www.*.* iswm $1-) {
    ban -u [ $+ [ %bantime ] ] $chan $wildsite
    kick $chan $nick %banmsg
  }
}