public comenzi cu nickul botului ca prefix si semnele in fata comenzilor

[Kurupt]

Vreau ca scriptul sa raspunda si la ` ! . - cand se da o comanda publica

set cmdpfix "`"
set cmdpfix "!"
set cmdpfix "."
set cmdpfix "-"
bind pub om|o ${cmdpfix}k kick
proc kick {www liquid2k com slash xzziroz} {
set nick [lindex $xzziroz 0]
set reas [lrange $xzziroz 1 end]
  if {![string length [string trim $reas]]} {
   set reas "\[${com}/\002${www}\002] - No reason specified"} else {
   set reas "\[${com}/\002${www}\002] - $reas"}
putserv "kick $slash $nick $reas"
}

[UniversaliA]

Generalizand, analizam urmatoarele doua posibilitati

1. facem o comanda noua, de exemplu:

kbindk om|o kick kick

care la randul ei va face

 
set settings(cmdpfix1) "."
set settings(cmdpfix1) "!"
set settings(cmdpfix1) "`"
 
proc kbindk {flags cmd proc} { 
   global settings
 
 
bind pub $flags ${settings(cmdpfix1)}${cmd} $proc
bind pub $flags ${settings(cmdpfix2)}${cmd} $proc
bind pub $flags ${settings(cmdpfix3)}${cmd} $proc
bind pub $flags ${cmd} $proc
}

Va crea 4 categorii de bind-uri cu toate semnele dorite, inclusiv bind fara semn (dupa dorinta).

2. sau facem bind-urile:

bind pubm -|- * pubm

care va "prinde" toate randurile, si fiecare rand de analizat daca contine o comanda sau alta info, de care avem nevoie, sau

 
bind pubm -|- "% ${settings(cmdpfix1)}*" cmdpfix
bind pubm -|- "% ${settings(cmdpfix2)}*" cmdpfix
bind pubm -|- "% ${settings(cmdpfix3)}*" cmdpfix

care va "prinde" numai randurile care incep cu $cmdpfix3 sau cmdpfix2 sau cmdpfix1, si in continuare acelash algortim.

___

bind - comanda interna eggdrop (vezi doc/tcl-commands.doc)
proc, set - comenzi Tcl (vezi http://tcl.tk/man/)

[Kurupt]

daca tot fac 4 binduri le pot face asa

bind pub om|o .k kick
bind pub om|o !k kick
bind pub om|o `k kick
bind pub om|o -k kick
proc kick {www liquid2k com slash xzziroz} {
set nick [lindex $xzziroz 0]
set reas [lrange $xzziroz 1 end]
  if {![string length [string trim $reas]]} {
   set reas "\[${com}/\002${www}\002] - No reason specified"} else {
   set reas "\[${com}/\002${www}\002] - $reas"}
putserv "kick $slash $nick $reas"
}

Eu intrebam de o modalitate mai simpla !

[d0oM]

Originally Posted by Kurupt

da am invatzat sa pun mai multe semne sau nici un semn acum explica mie cum sa fac sa asculte de nick la bot am incercat cu $botnick no restult alta idee nu am

nu kiar am inteles ce ai in vedere, adica sa reactioneze la comenzi conform nickname-ul botului?

eu folosesc:

if {![string compare -nocase "$botnick" [lindex [split $text] 0]]} {
set text "$cmd(prefix)[join [lrange [split $text] 1 end]]"
}

$cmd(prefix) - specifici smenul tau de conducere

poti folosi acest exemplu la event-ul bind pubm, un exemplu arata cam asa:

bind pubm - * my_pub

proc mypub {nick uhost hand chan text} { global botnick; variable conf

if {![string compare -nocase "=$botnick" [lindex [split $text] 0]]} {
set text "![join [lrange [split $text] 1 end]]"
}

[d0oM]

Originally Posted by d0oM

to Kurupt

apropo de o varianta mai simpla poti folosi foreach, procedura arata cam asa:

variable foo [.kick !kick -kick etc..]

foreach blabla $foo { bind pub - $blabla my_kick }
catch { unset blabla }

proc my_kick { nick host hand chan text} {
...

aici putzin am gresit, varianta corecta:

variable foo[list .kick !kick -kick etc..]

foreach blabla $foo { bind pub - $blabla my_kick }
catch { unset blabla }

[UniversaliA]

si cu ce e mai simpla varianta asta ? ca la fiecare comanda tu o sa folosesti

variable foo [.kick !kick -kick etc..]

foreach blabla $foo { bind pub - $blabla my_kick }
catch { unset blabla }

sau varianta cu kbindk, unde e destul doar o data sa definesti procesul si dupa asta folosesti kbindk ca bind normal ?

[Kurupt]

asa arata bindul

set settings(cmdpfix1) "."
set settings(cmdpfix2) "!"
set settings(cmdpfix3) "`"
proc kbindk {flags cmd proc} {
   global settings

bind pub $flags ${settings(cmdpfix1)}${cmd} $proc
bind pub $flags ${settings(cmdpfix2)}${cmd} $proc
bind pub $flags ${settings(cmdpfix3)}${cmd} $proc
bind pub $flags ${cmd} $proc
}

[UniversaliA]

O dedicatie pentru D0om care tot striga de optimizare cu foreach

 
set settings(binds) ". ` !" 
 
proc kbindk {flags cmd proc} {
global settings
 
foreach bind	[split $settings(binds)] {bind pub $flags ${bind}${cmd} $proc}
bind pub $flags ${cmd} $proc
 
}

sfirsit dedicatie

[UniversaliA]

Reesind din bind-ul tau, pentru moment am impovizat urmatoarele:

 
bind nick -|- * nick:change 
 
proc nick:change {nick uhost hand chan newnick} {
 
   if {[isbotnick $nick]} {
	 foreach bind [binds $nick] {
		 set type [lindex $bind 0]
		 set flag [lindex $bind 1]
		 set mask [lindex $bind 2]
		 set proc [lindex $bind 4]
 
		 regsub -- $nick $mask $newnick newmask 
 
		 unbind $type $flag $mask $proc
		 bind $type $flag $newmask $proc
	 }
   }
}
 
bind evnt - init-server connect:irc
 
proc connect:irc {type} {
   global botnick settings
 
   set cmdpfix [lindex [split $settings(binds)] 0]
 
   foreach bind [binds ${cmdpfix}*] {
	  
	  set cmd [string trimleft [lindex $bind 2] $cmdpfix]
	  bind pubm [lindex $bind 1] "% $botnick~${cmd}*" [lindex $bind 4]
   }
}

explicari in urmatorul post

[UniversaliA]

bind nick -|- * nick:change bind la chimbarea nick-ului (la orice nick) deci aici puteti adauga cod in plus pentru useri sau pentru BOT. In proc nick:change verificam daca aceasta a fost nick-ul BOTului care s-a schimbat: [isbotnick $nick], daca da - toate bind-urile care contineau nick-ul vechi al BOT-ului foreach bind [binds $nick] le stergem din memorie unbind $type $flag $mask $proc si adaugam acelash bind dar cu noul nick bind $type $flag $newmask $proc. $newmask = $mask doar ca am inlocuit nick vechi al BOTului cu cel nou regsub -- $nick $mask $newnick newmask.

bind evnt - init-server connect:irc bind la conectarea/intrarea BOTului pe irc, aici iarasi puteti aduga cod in plus pentru diferite proceduri interne. In proc connect:irc pentru fiecare bind care deja exista & incepe cu primul semn specificat in $settings(binds) foreach bind [binds ${cmdpfix }*] adaugam un bind cu nick-ul BOTului care el a luat cand s-a conectat la IRC bind [lindex $bind 0] [lindex $bind 1] "% $botnick~${cmd}*" [lindex $bind 4]. [string trimleft [lindex $bind 2] $cmdpfix] scoate semnul $cmdpfix din fata comenzii.

De ce bind pe $botnick se face numai cand BOTul se conecteaza la irc si nu deodata in procedura kbindk specificata de Kurupt mai sus (cum el o face pentru prefixele ". ` !" ) ? Raspuns: pina in momentul cand BOTul se conecteaza la IRC, variabila $botnick nu are nici o valoare, ea e vida; adica BOTul logic nu stie ce nick va avea pe IRC, deci anume din acest motiv - bind pe $botnick o sa fie valabil numai cand BOTul se conecteaza pe IRC.

___

bind, unbind, isbotnick - comenzi interne eggdrop (vezi doc/tcl-commands.doc)
proc, global, set, string, lindex, foreach, split, regsub - comenzi Tcl (vezi http://tcl.tk/man/)

Originally Posted by doc/tcl-commands.doc

% matches 0 or more non-space characters (can be used to match a single word)
~ matches 1 or more space characters (can be used for whitespace between words)