All pastes #345119 Raw Edit

AutoVoice Script

public text v1 · immutable
·published 2007-02-08 08:21 UTC
rendered paste body
alias avl {
  var %number = 0
  :begin
  if $readini(Control.ini, Voice, n $+ %number) == $null { halt }
  else { 
    did -a AutoVoice 3 $replace($remove($readini(Control.ini, Voice, n $+ %number),!*@*),$chr(44),$chr(32))
    inc %number
    goto begin
    halt
  }
}
alias av { dialog -m AutoVoice AutoVoice }
dialog AutoVoice {
  Title "AutoVoice List By TrusTkill"
  size -1 -1 150 150
  option dbu
  button "Ok",1,1 140 73 10,Ok
  button "Cancel",2, 76 140 73 10,Cancel
  list 3,1 1 147 132,extsel
  button "Autovoice On",4, 1 129 73 10
  button "Autovoice Off",5, 76 129 73 10
}
on *:dialog:AutoVoice:init:0:{
  if $avoice == $true { did -b Autovoice 4 | avl }
  else { did -b Autovoice 5 | avl }
}
on *:dialog:AutoVoice:sclick:5:{ .avoice off | did -b AutoVoice 5 | did -e AutoVoice 4 }
on *:dialog:AutoVoice:sclick:4:{ .avoice on | did -b Autovoice 4 | did -e AutoVoice 5 }
menu nicklist {
  -
  Autovoice
  .Add:.avoice $$1 # $network | echo -a 7,1*** 14Added00 $$1 14To The Auto-Voice List For00 #
  .Del:.avoice -r $$1 # $network | echo -a 7,1*** 14Removed00 $$1 14From The Auto-Voice List For00 #
  .Setup:/av
}