DCC CMDS

[AdrianK]

Nu aveam ce face si mia transit in cap sa fac toate comenzile care exista sa fie valabile si prin dcc )))

Step by Step cum se face:

1. Editarea a&a_01_a_core.tcl
- Pentru proce care va trimite la parser comenzile din DCC. Adaugam un Proces a:bind:dcc

proc a:bind:dcc {hand idx arg} {
	global settings lastbind
	
	set dir   dcc 
	set arg   [split [string trim $arg]]
	set com   $lastbind
	set chan  [lindex $arg 0]
	set nick  [hand2nick $hand]
	set uhost [getchanhost $nick]

	if { [string match "#*" $chan]}	{ set chan $chan ; set args [lrange $arg 1 end]} else {set chan $settings(homechan) ; set args [lrange $arg 0 end]}

	a:parser $nick $uhost $hand $chan $dir $com $args
}

- Pentru output in DCC in loc de pe canal. Modificarea procesului a:tell. Cautati (tot in core):

proc a:tell {x id {arg ""}} {

Si inlocuiti:

...
set w [string map {%B \002 %b \00302 %r \00304 %% \003} $w]
		switch -exact -- $dir {

			pub {
				switch -exact -- [getuser $hand XTRA _PUB_OUT] {
		
					msg	{puthelp "PRIVMSG $nick :$w"}
					note	{puthelp "NOTICE $nick :$w"}
					default {puthelp "PRIVMSG $chan :$nick $w"}
				}
			}
...

cu

...
set w [string map {%B \002 %b \00302 %r \00304 %% \003} $w]
		switch -exact -- $dir {
		    dcc {
			putlog $w
			}

			pub {
				switch -exact -- [getuser $hand XTRA _PUB_OUT] {
		
					msg	{puthelp "PRIVMSG $nick :$w"}
					note	{puthelp "NOTICE $nick :$w"}
					default {puthelp "PRIVMSG $chan :$nick $w"}
				}
			}
...

DONE cu core.

2. Editam a&a_02_a_binds.tcl
- Tot ce trebuie sa faceti e sa adaugati la sfirshitul file-ului:

# + REP lui lsn pentru a:command -all :))
foreach zx [a:command -all] {
bind dcc -|- $zx a:bind:dcc
}

3. Done Acum ar trebui sa aveti orce comanda available in DCC.
Avantaje... no flood