xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx EyiezINC Scripting Technology xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Addons Name: Auto Voice Timing
alias MyxName return AutoVoiceTiming.txt
Created By: Lestat
Instruction
===========================================
Copy Paste In Your Remote Then "Right Click" At  Channel Screen. 
If No Setting It Will Set As Default 
===========================================
Any Error/Help/Scripts Help Please Visit Us At "Irc.Webchat.Org" Channel "#eyiezinc"
More Addons At  "http://www.eyiezinc.info/" 
You Can Post Your Own Addons At EyiezINC Forum "http://www.eyiezinc.info/" 
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
 
 
menu channel {
  -
  Auto Voice Timing
  .Setting 
  ..$style(2) $+(Detect Text [,%sec,] sec [,%xchatline,] Lines [,$calc(%devoice / 60),] Minute Devoice) $+ : halt
  ..-
  .. Set Detect In Sec: {
    .set %sec $$?"User Type In ?? Sec?"
    if (!%sec) { .set %sec 120 }
  }
  ..-
  ..Set Detect Lines: {
    .set %xchatline $$?"How Many Lines To Voice?"
    if (!%xchatline) { .set %xchatline 10 }
  }
  ..-
  ..Set Timers For Devoices: {
    .set %devoice $$?"Devoice In ?? Minute" 
    if (%devoice) { .set %devoice $calc(%devoice * 60) }
    if (!%devoice) { .set %devoice 300 }
  }
  ..-  
  ..Default:.set %sec 120 | .set %xchatline 10 | .set %devoice 300
  .-
  .$iif($group(#autovoice) == on,$style(3)) ON:.enable #autovoice
  .-
  .$iif($group(#autovoice) == off,$style(3)) OFF:.disable #autovoice | .timervoice* off
  .-
  .Unload Myx Addons:.Unload -rs $script
  -
}
On 1:unload: { .timerdevoice* off | .unset %sec %devoice %xchatline }
On 1:load: { .set %sec 120 | .set %xchatline 10 | .set %devoice 300 } 
#autovoice on
On *:text:*:#: { autovoice }
On *:action:*:#: { autovoice }
On *:notice:*:#: { autovoice }
On *:part:#: if ($timer($+(devoice,$nick))) { $+(.timerdevoice,$nick) off }
On *:join:#: if ($timer($+(devoice,$nick))) { .set -u3 %voicenick $addtok(%voicenick,$nick,32) | .timervoice 1 5 mode $chan +v $nick }
On *:nick: {
  if ($timer($+(devoice,$nick))) {  $+(.timerdevoice,$newnick) 1 $timer($+(devoice,$nick)).secs .mode $gettok($timer($+(devoice,$nick)).com,2,32) -v $newnick | $+(.timerdevoice,$nick) off  }
}
alias autovoice {
  if ($me isop $chan) {
    inc -u $+ %sec $+(%,chat,$nick)
    if ($($+(%,chat,$nick),2) == %xchatline) && ($nick isreg $chan) { .mode $chan +v $nick | $+(.timerdevoice,$nick) 1 %devoice .mode $chan -v $nick }
    if ($($+(%,chat,$nick),2)) && ($nick isvo $chan) && ($nick !isop $chan) { $+(.timerdevoice,$nick) 1 %devoice .mode $chan -v $nick }
  }
}
#autovoice end

Commenting Options