All pastes #462395 Raw Edit

Anonymous

public text v1 · immutable
#462395 ·published 2007-04-28 08:00 UTC
rendered paste body
;; ----- Set Commands | Access Level Varies ----- ;;

on *:TEXT:.set*:#:{
  if ($ulevel >= 200) { 
    if ($2 == dods) {
      set %dods $3-
      notice $nick DoD:S Has Been UPDATED
    }
    elseif ($2 == cz) {
      set %cz $3-
      notice $nick CZ Has Been UPDATED
    }
    elseif ($2 == cod2) {
      set %cod2 $3-
      notice $nick CoD2 Has Been UPDATED
    }
    elseif ($2 == cs) {
      set %cs $3-
      notice $nick CS1.6 Has Been UPDATED
    }
    elseif ($2 == css) {
      set %css $3-
      notice $nick CS:S Has Been UPDATED
    }
    elseif ($2 == help) {
      timer98 1 0 /notice $nick .set Basic - .greeting .website .news .staff .specials .sponsorships
      timer99 1 2 /notice $nick  .set Pub - .cs .css .cz .dods .cod2
      timer100 1 4 /notice $nick .set TestIP - .chi .ny .dal .atl .sf
      timer101 1 6 /notice $nick Anti Advertisment .set - bantime banmsg .viewban
      timer102 1 8 /notice $nick Users - .users .auser (name) (access) .ruser (name) .clvl (name) (access)
      timer103 1 10 /notice $nick Timers .set - timer1/2/3 (content) int (interval) chan (#chan,#chan,etc) timer1/2/3 on timer1/2/3 off timer1/2/3 view
    }
  }
  if ($ulevel >= 300) {
    if ($2 == chi) {
      set %chi $3-
      notice $nick Chicago Has Been UPDATED
    }
    elseif ($2 == ny) {
      set %ny $3-
      notice $nick New York Has Been UPDATED
    }
    elseif ($2 == dal) {
      set %dal $3-
      notice $nick Dallas Has Been UPDATED
    }
    elseif ($2 == atl) {
      set %atl $3-
      notice $nick Atlanta Has Been UPDATED
    }
    elseif ($2 == greeting) {
      set %greeting $3-
      notice $nick Greeting Has Been UPDATED
    }
    elseif ($2 == sf) {
      set %sf $3-
      notice $nick San Francisco Has Been UPDATED
    }
  }
  if ($ulevel >= 400) { 
    if ($2 == website) {
      set %website $3-
      notice $nick Website Has Been UPDATED
    }
    elseif ($2 == staff) {
      set %staff $3-
      notice $nick Staff Has Been UPDATED
    }
    elseif ($2 == sponsorships) {
      set %sponsorships $3-
      notice $nick Sponsorships Has Been UPDATED
    }
    elseif ($2 == commands) {
      set %commands $3-
      notice $nick Commands Has Been UPDATED
    }
    elseif ($2 == specials) {
      set %specials $3-
      notice $nick Specials Has Been UPDATED
    }
    elseif ($2 == news) {
      set %news $3-
      notice $nick News Has Been UPDATED
    }
    if ($2 == timer1) {
      set %timer1 $3-
      notice $nick Timer 1 Msg Has Been UPDATED
    }
    elseif ($2 == timer2) {
      set %timer2 $3-
      notice $nick Timer 2 Msg Has Been UPDATED
    }
    elseif ($2 == timer3) {
      set %timer3 $3-
      notice $nick Timer 3 Msg Has Been UPDATED
    }
    elseif ($2 == timer1int) {
      set %timer1int $3-
      notice $nick Timer 1 Interval Has Been UPDATED
    }
    elseif ($2 == timer2int) {
      set %timer2int $3-
      notice $nick Time 2 Interval Has Been UPDATED
    }
    elseif ($2 == timer3int) {
      set %timer3int $3-
      notice $nick Timer 3 Interval Has Been UPDATED
    }
    elseif ($2 == timer1chan) {
      set %timer1chan $3-
      notice $nick Timer 1 Channels Has Been UPDATED
    }
    elseif ($2 == timer2chan) {
      set %timer2chan $3-
      notice $nick Timer 2 Channels Has Been UPDATED
    }
    elseif ($2 == timer3chan) {
      set %timer3chan $3-
      notice $nick Timer 3 Channels Has Been UPDATED
    }
    if ($2 == bantime) {
      set %bantime $3-
      notice $nick Advertising Ban Time Has Been UPDATED
    }
    elseif ($2 == banmsg) {
      set %banmsg $3-
      notice $nick Advertising Ban Msg Has Been UPDATED
    }
  }
}
on *:TEXT:.viewban*:#: {
  if ($ulevel >= 400) {
    notice $nick Ban Time(Seconds): %bantime Ban Msg: %banmsg
  }
}

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

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

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

on *:TEXT:.timer1*:#: {
  if ($ulevel >= 400) {
    if ($2 == on) {
      timer1 0 %timer1int msg %timer1chan %timer1
      notice $nick Timer 1 Has Been Turned ON
    }
    elseif ($2 == off) {
      timer1 off
      notice $nick Timer 1 Has Been Turned OFF
    }
    elseif ($2 == view) {
      notice $nick Interval: %timer1int Channels: %timer1chan Content: %timer1
    }
  }
}

on *:TEXT:.timer2*:#: {
  if ($ulevel >= 400) {
    if ($2 == on) {
      timer2 0 %timer2int msg %timer2chan %timer2
      notice $nick Timer 2 Has Been Turned ON
    }
    elseif ($2 == off) {
      timer2 off
      notice $nick Timer 2 Has Been Turned OFF
    }
    elseif ($2 == view) {
      notice $nick Interval: %timer2int Channels: %timer2chan Content: %timer2
    }
  }
}

on *:TEXT:.timer3*:#: {
  if ($ulevel >= 400) {
    if ($2 == on) {
      timer3 0 %timer3int msg %timer3chan %timer3
      notice $nick Timer 3 Has Been Turned ON
    }
    elseif ($2 == off) {
      timer3 off
      notice $nick Timer 3 Has Been Turned OFF
    }
    elseif ($2 == view) {
      notice $nick Interval: %timer3int Channels: %timer3chan Content: %timer3
    }
  }
}

;; ----- PUB IPS ----- ;;

on *:TEXT:*.pub:#:{ notice $nick 4,1[0 Pubs 4«14.4»0 14.0cs 14.0css 14.0dods 14.0cod2 14.0cz 4] }
on *:TEXT:*.cs:#:{ notice $nick 4,1[0 CS1.6 4«14.4»0 %cs 4] }
on *:TEXT:*.dods:#:{ notice $nick 4,1[0 DoD:S 4«14.4»0 %dods 4] }
on *:TEXT:*.cz:#:{ notice $nick 4,1[0 CZ 4«14.4»0 %cz 4] }
on *:TEXT:*.css:#:{ notice $nick 4,1[0 CS:S 4«14.4»0 %css 4] }
on *:TEXT:*.cod2:#:{ notice $nick 4,1[0 CoD2 4«14.4»0 %cod2 4] }

;; ----- Test IPS ----- ;;

on *:TEXT:*.testip:#:{ notice $nick 4,1[0 Test IPs 4«14.4»0 14.0Chi 14.0NY 14.0Dal 14.0Atl 14.0Sf 4] }
on *:TEXT:*.chi:#:{ notice $nick 4,1[0 Chicago, IL 4«14.4»0 %chi 4] }
on *:TEXT:*.ny:#:{ notice $nick 4,1[0 New York, NY 4«14.4»0 %ny 4] }
on *:TEXT:*.dal:#:{ notice $nick 4,1[0 Dallas, TX 4«14.4»0 %dal 4] }
on *:TEXT:*.atl:#:{ notice $nick 4,1[0 Atlanta, GA 4«14.4»0 %atl 4] }
on *:TEXT:*.sf:#:{ notice $nick 4,1[0 San Francisco, CA 4«14.4»0 %sf 4] }

;; ----- Basic Info ----- ;;

on *:TEXT:*.commands:#:{ notice $nick 4,1[0 Commands 4«14.4»0 14.0Website 14.0News 14.0Pub 14.0Testip 14.0Specials 14.0Sponsorships 14.0Staff 14.0Help 4] }
on *:TEXT:*.website:#:{ notice $nick 4,1[0 Website 4«14.4»0 %website 4] }
on *:TEXT:*.staff:#:{ notice $nick 4,1[0 Staff 4«14.4»0 %staff 4] }
on *:TEXT:*.news:#:{ notice $nick 4,1[0 News 4«14.4»0 %news 4] }
on *:TEXT:*.specials:#:{ notice $nick 4,1[0 Specials 4«14.4»0 %specials 4] }
on *:TEXT:*.sponsorships:#:{ notice $nick 4,1[0 Sponsorships 4«14.4»0 %sponsorships 4] }
on *:TEXT:.help:#:{ notice $nick X-Def Staff has been notified. | notice #emgstaff  $nick has requested help in $chan ( $2- $date - $time ) }
on *:JOIN:#:{ notice $nick %greeting }

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

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

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

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

on *:ACTION:*www.*:#:{
  if ($nick isreg $chan) {
    ban -u [ $+ [ %bantime ] ] $chan $wildsite
    kick $chan $nick %banmsg
  }
}
on *:OPEN:?: {   
  msg $nick Hello, $nick Thank you for messaging me the bot. I can only give you information that I am programed with. So please message someone else or call 1-888-419-9455 x2 sales x3 support
}