modificare la Brb Respon

[GoRaPiD]

##  Brb  ##
set Reponden4.v "Brb Respon"
bind pub - brb brb_speak 
bind pub - away brb_speak
set ranbrb {
  "unde te duci ?"
  "si eu, tre sa fumez o tigara!"
  "cand te intorci ? deja imi e dor de tine! ;)"
  "vrei sa te brb ? bine , dar nu sta mult, am nevoie de tine iubire"
  }

proc brb_speak {nick uhost hand chan text} {
 global botnick brb_chans ranbrb
if {(([lsearch -exact [string tolower $brb_chans] [string tolower $chan]] != -1) || ($brb_chans == "*"))} {
set brbs [lindex $ranbrb [rand [llength $ranbrb]]]
putserv "PRIVMSG $chan :$nick $brbs"
  }
}

Cum trebuie modif ca sa raspunda si cand cuvintele sunt date cu ACTION si nu doar cu PRIMSG $chan cum raspunde acuma

P.S. vrei mai mult de lucru ca pot aduce ? :P

[UniversaliA]

 
bind ctcp -|- "ACTION" bind:act 
proc bind:act {nick uhost hand chan keyword arg} {
 
	 brb_speak $nick $uhost $hand $chan $arg
}

[GoRaPiD]

 
##  Brb  ##
set Reponden4.v "Brb Respon"
bind pub - brb brb_speak 
bind pub - away brb_speak
set ranbrb {
  "unde te duci ?"
  "si eu, tre sa fumez o tigara!"
  "cand te intorci ? deja imi e dor de tine! ;)"
  "vrei sa te brb ? bine , dar nu sta mult, am nevoie de tine iubire"
  }

proc brb_speak {nick uhost hand chan text} {
 global botnick brb_chans ranbrb
if {(([lsearch -exact [string tolower $brb_chans] [string tolower $chan]] != -1) || ($brb_chans == "*"))} {
set brbs [lindex $ranbrb [rand [llength $ranbrb]]]
putserv "PRIVMSG $chan :$nick $brbs"
  }
} 
bind ctcp -|- "ACTION"   bind:act 
proc bind:act  {nick uhost hand chan keyword arg} {
 
	  proc brb_speak $nick $uhost $hand $chan $text
}

Intrebam daca se pune asa.
scriptu asta nu are treaba cu routines , ce legatura ar avea ?

[UniversaliA]

E ok sa pui asa. Cat la routines, am menitonat din motiv ca poti face altfel.

Gasesti in yx_2__routines.tcl procesul:

 
proc bind:act {nick uhost hand dest keyword arg} {
global username
 
set chan $dest
if {[botisop $chan] || ![check:fo:ch $hand $chan $nick]} {
if { [chan:check $chan antinotice]} { newchanban $chan *!${uhost} $username "channel antinotice protection enabled" [channel get $chan ban-time] sticky}}
 
bind:pubm $nick $uhost $hand $chan $arg 
bind:nick $nick $uhost $hand $chan $arg
}

si il skimbi in

 
proc bind:act {nick uhost hand dest keyword arg} {
global username
 
set chan $dest
if {[botisop $chan] || ![check:fo:ch $hand $chan $nick]} {
if { [chan:check $chan antinotice]} { newchanban $chan *!${uhost} $username "channel antinotice protection enabled" [channel get $chan ban-time] sticky}}
 
bind:pubm $nick $uhost $hand $chan $arg 
bind:nick $nick $uhost $hand $chan $arg
brb_speak $nick $uhost $hand $chan $arg
}