IRChainScriptz[Auto_V] Addon

[chain]

>;--- Credits To Chain. 



dialog Auto_V { 

 title "Auto Voice [/Auto_V]" 

 size -1 -1 108 72 

 option dbu notheme 

 box "", 9, 4 48 101 22 

 edit "", 1, 8 9 94 10 

 combo 2, 8 21 93 48, drop 

 button "&Add", 3, 8 34 32 12 

 button "&Rem", 4, 44 34 32 12 

 check "All", 5, 80 36 16 8 

 button "&Ok", 6, 46 55 26 10, ok 

 button "&Cancel", 7, 75 55 26 10, cancel 

 box "Auto Voice", 8, 4 1 101 51 

 link "IRChainScriptz", 10, 8 57 36 8 

} 



on *:dialog:Auto_V:*:*:{ 

 if ($devent = init) { 

   $List() 

   $_Check2 

 } 

 elseif ($devent = sclick) { 

   if ($did = 3) { $_Add } 

   elseif ($did = 4) { $_Rem } 

   elseif ($did = 5) { $_Check } 

 } 

} 

alias List { 

 var %x = 1 

 did -r Auto_V 02 

 while (%x 
   did -a Auto_V 02 $ini(Channels.ini,Entrys,%x) 

   inc %x 

 } 

} 

alias _A2B return $readini(Channels.ini,$gettok($1,1,33),$gettok($1,2,33)) 

alias _Add { 

 var %x = $did(01) 

 if (%x) { writeini -n Channels.ini Entrys $_Chan(%x) $_Chan(%x) | did -r Auto_V 01 | $List() } 

 else { did -ra Auto_V 01 *No Channel Entered* } 

} 

alias _Rem { 

 remini Channels.ini Entrys $ini(Channels.ini,Recent,$did(02).sel) | $List() 

} 

alias _Chan { 

 var %_Chan = $$1 

 %_Chan = $remove(%_Chan,$chr(35),$chr(37)) 

 %_Chan = $replace(%_Chan,$chr(32),\b,$chr(44),\c) 

 %_Chan = $+($chr(37),$chr(35),%_Chan) 

 return %_Chan 

} 

alias _Check { 

 if ($_A2B(Setting!Type) = All) { writeini Channels.ini Setting Type Chan } 

 elseif ($_A2B(Setting!Type) = Chan) { writeini Channels.ini Setting Type All } 

 $_Check2 

} 

alias _Check2 { 

 did $iif($_A2B(Setting!Type) = Chan,-u,-c) Auto_V 05 

} 

alias Auto_V { dialog $iif(!$dialog(Auto_V),-m,-x) Auto_V Auto_V } 

on ^*@:JOIN:*:{ 

 if ($ini(Channels.ini,Entrys,$mid($chan,-2)) && ($_A2B(Setting!Type) = Chan) { 

   //mode # +v $nick 

 } 

 elseif ($_A2B(Setting!Type) = All) { 

   //mode # +v $nick 

 } 

} 

on *:LOAD:{ 

 if (!$exists(Channels.ini)) { writeini Channels.ini Setting Type Chan } 

}