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]

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]

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/)

% 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)