Sound Event Warn/Kick/Ban

By napa182 on Oct 04, 2007

place in a new remote and set Ur self as Bot owner by typing /owner Urnick On Ur Bots side

It will warn users if they use a sound in Ur channel and kick then ban them if they keep useing sound...

alias owner { auser owner $address($1,2) }
on owner:text:!sound*:#:{
  if (!$3) { msg $chan commands are !sound on #channel / !sound off #channel / !srooms }
  elseif ($2 == on) && ($istok(%eeksound,$3,44)) {
    msg $chan My SOUND Protection Is Already On For $3 
  }
  elseif ($2 == on) {
    set %eeksound $addtok(%eeksound,$3,44)
    msg $chan My SOUND Protection Is Now ON In $3 
  }
  elseif ($2 == off) && (!$istok(%eeksound,$3,44)) {
    msg $chan My SOUND Protection Is Already OFF For $3 
  }
  elseif ($2 == off) {
    set %eeksound $remtok(%eeksound,$3,1,44)
    msg $chan My SOUND Protection Is Now OFF In Room $3  
  }
}
on owner:text:!srooms:#:{ 
  if (!%eeksound) { msg $chan My SOUND Protection Is NOT ON In Any Room's }
  else { msg $chan My SOUND Protection Is On In Room's %eeksound }
}
on *:load: { 
  echo 12 -a You Have Just Loaded Napa182's CTCP Sound Warn/Kick/Ban. 
  echo 12 -a A Script0rs Inc. Production 
  echo -a 14,1(14,1¯15,1¯0,1¯0,1º $+($chr(171),$chr(164),$chr(88),$chr(167),$chr(199),$chr(174),$chr(238),$chr(254),$chr(116),$chr(48),$chr(174),$chr(167),$chr(88),$chr(164),$chr(187)) º0,1¯15,1¯14,1¯) $+ $chr(153)
}
CTCP *:SOUND:%eeksound:{
  if ($nick isreg #) {
    inc -u900 $+(%,sound,.,$chan,.,$nick) 
    if ($($+(%,sound,.,$chan,.,$nick),2) == 1) { msg $chan $nick Dont Do SOUND EVENTS In This Room. }
    if ($($+(%,sound,.,$chan,.,$nick),2) == 2) { kick $chan $nick You Were Told Not To Do SOUND EVENTS In This Room Do It Again And Be Banned! }
    if ($($+(%,sound,.,$chan,.,$nick),2) >= 3) { Ban -ku600 $chan $nick 2 you were warned not to do SOUND EVENTS In This Room. | unset $+(%,sound,.,$chan,.,$nick) }
  }
}

Comments

Sign in to comment.
alimak96   -  Sep 06, 2012

ididnt get the boint .... [b]what does this code do ?
[/b]

 Respond  
fordy945   -  Sep 06, 2009

What does it Do?

 Respond  
bps19882006   -  Oct 15, 2007

looks very effective to me napa nice work. kudos

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.