alias

[Freezed]

aqwzsx, imi poti da un exemplu cum as putea sa fac alias ? ca vreau sa incerc :)

[lsn]

sa revenim la alias
sa presupunem ca am in felul urmator la comanda voice facem alias v
si in momentul asta am salvat aliasul de forma

alias(#chan,v) voice|v

in parser am pus ceva de genu

if {[info exists alias($chan,$comm)]} {.....}

aici e problema am incercat mai multe variante nici nu mai stiu exact care si in momentul cand dadeam v in dcc imi aparea invalid command "voice"
apoi am incercat sa adaug comanda cu

command -add [lindex [split $alias($chan,$comm) |] 1] $com([lindex [split $alias($chan,$comm)] 0],$proc) .....

in momentul cand ii dadeam info despre v imi zicea corect despre voice dar cand dadeam comanda v imi aparea in dcc invalid command "1"
.......... poate imi dai alta idee ?

PS: folosesc procese din a&a light in scriptul vechi de aceea apar asa setarile la mine

[UniversaliA]

data viitoare, cand ai asa gen de intrebari, te rog mult

1. sa dai codul complet, fara puncte puncte
2. sa eviti fraze de genul "am incercat mai multe variante nici nu mai stiu exact care" si sa dai varianta concreta care corespunde erorii/problemei specificate.

revenind la alias :) ai putea sa fii putin mai creativ si ai rezolva problema sigur :P deci salvam alias in forma

alias(#chan,v) voice

in parser adaugam un singur rand

set command check:alias $chan $command

si procesul check:alias ar arata asa

proc check:alias {chan command} { 
global alias
 
if { [info exists alias($chan,$command)]} {return $alias($chan,$command)]} else {return $command}
}

Cam e simplu codul dar lucreaza :P sper sa propui o alta varianta sau sa improvizezi pe seama acestei care am dat numai ce, mi-ar fi interesant sa vad ce rezultate ai. In cazul specificat mai sus, realizezi ca si help, usage etc etc, totul va lucra automat fara nici o modificare, nu e nevoie de alte modificari in script, sa adaugi noi comenzi etc etc :) ramane pur cum si era conceput, doar un alias.

Lucrurile sunt simple in programare si cred ca cel mai important este simplicitatea si creativitatea ;)

[lsn]

a:command -add alias	 pub:alias			 1132 626 |N

proc pub:alias {hand chan args x mix} {
	
	set comm [lindex $args 0]
	set aka  [lindex $args 1]
	
	if {![string length $comm]}		 { usage $x alias; return "FAILED: not all paramatres specified"}
	if { [regexp {^(-remove|-r)$} $comm] && $aka!=""} {if {[string equal -nocase all $aka]} {alias -clean $chan; tell $x 346 ; return "removed all"} {if {![alias -exists $chan $aka]} {tell $x 343 $aka; return "no such alias ($aka)"} {tell $x 344 $aka; alias -remove $chan $aka; return "removed $aka"}}}
	if { [regexp {^(-list|-l)$} $comm]} {set list [alias -list $chan]; if {![llength $list]} {tell $x 348 $chan; return "failed empty"} {tell $x 17 $list; return $list}}
	if {![a:command -exists $comm]}	 {tell $x 18 $comm; return "FAILED: invalid command specified ($comm)"}
	if {![string length $aka]}		 { usage $x alias; return "FAILED: not all paramatres specified"}
	if { [command -exists $aka] || [alias -exists $chan $aka]} {tell $x 283 $aka; return "failed already exists a command name/alias $aka"}
	if { [alias -number $chan] >= 15}   {tell $x 347; return "failed already have 15 aliases"}
	
	alias -add $chan $comm $aka
	
	tell $x 345 "$aka $comm"
	
	return "$comm" 
}

set say(lang.1.283)   "FAILED: there is already a command with name/alias «."
set say(lang.1.343)   "FAILED: i have no info about %B«%B alias ..."
set say(lang.1.344)   "Removed %B«%B alias ..."
set say(lang.1.345)   "Added %r«%% as alias for command %b«%%."
set say(lang.1.347)   "FAILED: You can only set 15 aliases."
set say(lang.1.346)   "Removed all aliases."
set say(lang.1.348)   "FAILED: No alias defined for « channel."
set say(lang.1.626)   "USAGE: «alias \[-remove|-list\] <command> <alias> \[all\] «"
set say(lang.1.1132)  "HELP: Define any ALIAS to any BOT command (you can specify up to 15 aliases per chan)"

in proc a:parser modifici

if { [string match "#*" $option]} {set args [lrange $arg 1 end]; set chan $option} { set args $arg}
if {![a:command -exists $comm]} {return} elseif { [a:command -inactive $comm $chan]} {return}

in

if { [string match "#*" $option]} {set args [lrange $arg 1 end]; set chan $option} { set args $arg}
set comm [alias -check $chan $comm]
if {![a:command -exists $comm]} {return} elseif { [a:command -inactive $comm $chan]} {return}

si ca sa iti salveze aliasurile in a&a_40_a_stats.tcl

cauti

puts $file "\n#Disabled local & global commands\n"
puts $file "[a:command -array]"

si modifici in

puts $file "\n#Disabled local & global commands\n"
puts $file "[a:command -array]"

puts $file "\n#Aliases for commands\n"
        puts $file "[alias -array]"

cam asta ar fi tot sper ca nu am uitat nimic :p

[AdrianK]

Am corectat. Deci o varianta fina ar fi:

a:command -add alias	pub:alias	1600 1500 |N

proc pub:alias {hand chan args x mix} {
	
	set comm [lindex $args 0]
	set aka  [lindex $args 1]
	
	if {![string length $comm]}		 { a:usage $x alias; return "FAILED: not all paramatres specified"}
	if { [regexp {^(-remove|-r)$} $comm] && $aka!=""} {if {[string equal -nocase all $aka]} {alias -clean $chan; a:tell $x 1703 ; return "removed all"} {if {![alias -exists $chan $aka]} {a:tell $x 1700 $aka; return "no such alias ($aka)"} {a:tell $x 1701 $aka; alias -remove $chan $aka; return "removed $aka"}}}
	if { [regexp {^(-list|-l)$} $comm]} {set list [alias -list $chan]; if {![llength $list]} {a:tell $x 1705 $chan; return "failed empty"} {a:tell $x 17 $list; return $list}}
	if {![a:command -exists $comm]}	   {a:tell $x 18 $comm; return "FAILED: invalid command specified ($comm)"}
	if {![string length $aka]}		  { a:usage $x alias; return "FAILED: not all paramatres specified"}
	if { [a:command -exists $aka] || [alias -exists $chan $aka]} {a:tell $x 1706 $aka; return "failed already exists a command name/alias $aka"}
	if { [alias -number $chan] >= 15}   {a:tell $x 1704; return "failed already have 15 aliases"}
	
	alias -add $chan $comm $aka
	
	a:tell $x 1702 "$aka $comm"
	
	return "$comm" 
}

in fisierul de limbaj a&a_04_a_dict_en.tcl sa adaugi

set say(lang.1.1500)  "usage: «alias \[-remove|-list\] <command> <alias> \[all\] «"

set say(lang.1.1600)  "help: Define any ALIAS to any BOT command (you can specify up to 15 aliases per chan)"

set say(lang.1.1700)   "error: i have no info about %B«%B alias ..."
set say(lang.1.1701)   "Removed %B«%B alias ..."
set say(lang.1.1702)   "Added %r«%% as alias for command %b«%%."
set say(lang.1.1703)   "Removed all aliases."
set say(lang.1.1704)   "error: You can only set 15 aliases."
set say(lang.1.1705)   "error: No alias defined for « channel."
set say(lang.1.1706)   "error: there is already a command with name/alias «."

in fisierul a&a_40_a_stats.tcl

cauti
	puts $file "\n#Disabled local & global commands\n"
	puts $file "[a:command -array]"
	
si faci sa arate

	puts $file "\n#Disabled local & global commands\n"
	puts $file "[a:command -array]"
			
	puts $file "\n#Aliases for commands\n"
	puts $file "[alias -array]"		
	
in fisierul a&a_01_core.tcl cauti 

	set option  [lindex $arg 0]
	set chan1st $chan
	
si adaugi sub ele

	set comm [alias -check $chan $comm]
	
tot in a&a_01_core.tcl adaugi procesul de alias

proc alias {cmd {chan ""} {c ""} {a ""}} {
	global alias
	
	set chan  [string tolower $chan] 
	set c	 [string tolower $c]
	set a	 [string tolower $a]
	
	switch -exact -- $cmd {
		-exists { return [info exists alias($chan,$c)]}
		-check  { if { [info exists alias($chan,$c)]} {return $alias($chan,$c)} else {return $c} }
		-list   { set temp ""; foreach w [array names alias $chan,*] {lappend temp "$w $alias($w)," ; regsub -all -nocase -- $chan, $temp "" temp}; return [string trimright [join $temp] ,] }
		-number { set number 0 ; foreach w [array names alias $chan,*] {incr number}; return $number}
		-add	{ set alias($chan,$a) $c}
		-array  { return[list array set alias [array get alias]]} 
		-clean  { catch {array unset alias $chan,* }}
		-remove { catch {unset alias($chan,$c)}}		
		default { return 0 }
	
	}

}

[Freezed]

Dupa restart aliasurile nu mai merg. De salvat le salveaza, dar nu mai merg.

[lsn]

da ai dreptate, procesul de alias era compatibil cu scriptul vechi
nu mai merg dupa restart pentru ca dupa restart se pierd
Ca sa se evite acest lucru trebuie declarat alias ca variabila global in a&a_40_a_stats.tcl mai precis la procesul channel {....

-load{ global comm; variable infofile; channel -unload; if {![catch {source $infofile}]} {return 1} {return 0}}

inlocuit cu

-load{ global comm alias; variable infofile; channel -unload; if {![catch {source $infofile}]} {return 1} {return 0}}

acuma va merge TESTAT/VERIFICAT OK

[UtahEdu]

am facut exact ca voi dar uite ce face scriptul da niste errori deci merge pe canal numai ca la fiecare ora cand salveaza el da erroarea asta :

1. ERROR (Jun 27 09:00): FAILED to write info file, error: invalid command name "returnarray set alias {#master.ro,s save #nospam,r rehash}"

ce si unde mai trebuie modif ca nu reusesc.

[lsn]

ceva nu ai facut bine vezi sa nu uiti spatiile corespunzatoare

-array { return	[list array set alias [array get alias]]}

[UtahEdu]

Isn ai dreptate de la spatiu era dar de aici:

eu am scris:

if {![a:command -exists $comm]} {a:tell $x 18 $comm; return "FAILED: invalid command specified ($comm)"}

si trebuia :
if {![a:command -exists $comm]} _________{a:tell $x 18 $comm; return "FAILED: invalid command specified ($comm)"}

linia_____ reprezinta spatiu lipsa care eu nu l-am pus
Mercic.