Completa parole per mirc

Vi siete trovati anche voi a tentare di completare le parole lunghe con il tasto TAB?
Allora questo mini script fa per voi!

Lo script va inserito nei remote.

Per utillizzarlo vanno aggiungente le parole che più usate ad un file dizionario.txt (che viene creato nella directory di mIRC) semplicemente con CTRL F7 dopo aver scritto la parola nell'editbox di qualunque finestra.

In seguito basterà scrivere le prime lettere della parola e poi premere F7 per averne il completamento.

(Prima versione, fase molto beta)


alias f7 {
set %WRCfraseinput $editbox( $active )
if ((( $left(%WRCPfraseout ,1) == $chr(32) ) && ( %WRCfraseinput != $right( %WRCPfraseout ,-1))) || (( $left(%WRCPfraseout ,1) != $chr(32) ) && ( %WRCfraseinput != %WRCPfraseout ))) {
unset %WRCP*
if ( $len(%WRCfraseinput) < 1 ) halt
else {
set %WRCPspazi $pos(%WRCfraseinput, $chr(32) , 0)
if ( %WRCPspazi != 0 ) {
set %WRCPultimo_spazio $pos(%WRCfraseinput, $chr(32) , %WRCPspazi )
set %WRCPinizioparola $right(%WRCfraseinput,- $+ %WRCPultimo_spazio)
}
else { set %WRCPinizioparola %WRCfraseinput }
set %WRCPiniziofrase $left(%WRCfraseinput,%WRCPultimo_spazio)
}
}
set %WRCPlineadiz %WRCPlineadiz + 1
set %WRCPparolaintera $read( dizionario.txt, w, %WRCPinizioparola $+ *, %WRCPlineadiz )
set %WRCPlineadiz $readn
if ( %WRCPparolaintera != $null ) set %WRCPfraseout %WRCPiniziofrase $+ $chr(32) $+ %WRCPparolaintera
else set %WRCPfraseout %WRCPiniziofrase $+ $chr(32) $+ %WRCPinizioparola
editbox -a %WRCPfraseout
}


alias cf7 {
set %WRCAfraseinput $editbox( $active )
if ( $len(%WRCAfraseinput) < 3 ) halt
else {
set %WRCAspazi $pos(%WRCAfraseinput, $chr(32) , 0)
if ( %WRCAspazi != 0 ) {
set %WRCAultimo_spazio $pos(%WRCAfraseinput, $chr(32)