X kicked revenge

[GoRaPiD]

Vreau si eu un mic tcl care la take pe chan sa dea remuser la cel care face take / sa dea suspend la cel care i-a dat access / sa lase note cu aceste 2 usere

[Kurupt]

# $Id: xremuser.tcl, eggdrop-1.6.x 2004 dpgc@purehype.net Exp $
bind kick - "*" xkick
setudef flag xneed
proc xkick {nick uhost hand chan vict reas} { 
  if {[string toupper $nick] != "X" || ![channel get $chan xneed]} {
	return
  }
  if {![string equal -nocase $vict $::botnick]} {
	return
  } 
  set kicker [string trim [lindex [split $reas] 0] {()}] 
  putquick "PRIVMSG X :remuser $chan $kicker"
}
putlog "XRemuser Loaded"

Stiu ca se mai poate face multe la el! Din pacate nu am timp.El singur doar o sa dea remuser la cel care i-a dat kick.

[UniversaliA]

if {[string toupper $nick] != "X" || ![channel get $chan xneed]} {
return
}

referitor la acest cod iti dau un mic extras din cartea "Practical Programming in Tcl & Tk, Third Edition" By Brent B. Welch

>>> inceput citat

if {$x == "foo"} command
expr is unreliable for string comparison.

Ironically, despite the quotes, the expression evaluator first converts items to numbers if possible, and then converts them back if it detects a case of string comparison. The conversion back is always done as a decimal number. This can lead to unexpected conversions between strings that look like hexadecimal or octal numbers. The following boolean expression is true!

if {"0xa" == "10"} {puts stdout ack! } => ack!

A safe way to compare strings is to use the string compare and equal operations. These operations work faster because the unnecessary conversions are eliminated. Like the C library strcmp function, string compare returns 0 if the strings are equal, minus 1 if the first string is lexicographically less than the second, or 1 if the first string is greater than the second:

Example 4-1 Comparing strings with string compare.

if {[string compare $s1 $s2] == 0} { # strings are equal }

The string equal command added in Tcl 8.1 makes this simpler:

Example 4-2 Comparing strings with string equal.

if {[string equal $s1 $s2]} { # strings are equal}

>>> sfirsit citat

referitor la

if {![string equal -nocase $vict $::botnick]} {
return
}

Sunt doua remarci, poti folosi functia [isbotnick $vict] & un alt citat din aceeasi carte

"The Tcl byte-code compiler generates faster code when you declare namespace and global variables. Each procedure context has its own table of variables. The table can be accessed by a direct slot index, or by a hash table lookup of the variable name. The hash table lookup is slower than the direct slot access. When you use the variable or global command, then the compiler can use a direct slot access. If you use qualified names, the compiler uses the more general hash table lookup."

& referitor la

 bind kick - "*" xkick 
...
set kicker [string trim [lindex [split $reas] 0] {()}]

Cand iai kick de la X - el da un notice ca ... u were kicked by ... Varianta de Kurupt e corecta, dar el fara analizeza toate kick-urile de pe canal - ce in cazul dat nu e nevoie, deci ar putin mai optimizat de facut bind pe notice de la X cu fraza data, si botul va analiza numai kick-urile "destinate" lui. Aceasta e doar o alternativa, ambele variante sunt corecte.

[caesar]

Originally Posted by Kurupt

# $Id: xremuser.tcl, eggdrop-1.6.x 2004 dpgc@purehype.net Exp $
bind kick - "*" xkick
setudef flag xneed
proc xkick {nick uhost hand chan vict reas} { 
  if {[string toupper $nick] != "X" || ![channel get $chan xneed]} {
	return
  }
  if {![string equal -nocase $vict $::botnick]} {
	return
  } 
  set kicker [string trim [lindex [split $reas] 0] {()}] 
  putquick "PRIVMSG X :remuser $chan $kicker"
}
putlog "XRemuser Loaded"

Stiu ca se mai poate face multe la el! Din pacate nu am timp.El singur doar o sa dea remuser la cel care i-a dat kick.

Ceea ce ai scris aici seamana izbitor cu ceea ce am scris eu in Xstuff Nu-i frumos sa stii. O sa te trag de urechi daca mai faci..

bind kick - "*" x:kick

proc x:kick {nick uhost hand chan vict reas} { 
  if {![isbotnick $vict] || $nick != "X"} {
    return
  }
  set kicker [string trim [lindex [split $reas] 0] {()}] 
  putserv "PRIVMSG X :access $chan $kicker -modif"
}

bind notc f "*MODIFICAT:*" x:access

proc x:access {nick uhost hand text dest} {
  if {[isbotnick [lindex [split $dest "@"] 0]]} {
    putserv "PRIVMSG GoRaPiD :$text"
  }
}

Ar trebui sa faca ce doresti mearga..

[UniversaliA]

Kurupt uf uf is that true ?
Caesar nice coding (am vazut toate 5 posturi) & site nice, binevenit la noi pe forum.

Doar o mica remarca care o prevad pentru Gorapid, acest script e facut pentru X cu limba ro setata la X Trebuie de verificat daca nu este raw de acelas tip, ca sa nu depinda scriptul de limba setata.

[GoRaPiD]

aqwzsx poti pls sa-l modifici sa lase note, ca eu sa il citesc astfel /msg botnick notes parola index
Adik cum lasa botii a&a la take ?

[UniversaliA]

Poti face asa

putserv "PRIVMSG GoRaPiD :$text"

inlocuiesti cu

report |n take $chan $text

Si adaugi proces nou report

proc report {flag subj chan text} { 
   set chanlist [userlist $flag $chan] 
   if {$chanlist < 1} {return}
   foreach user $chanlist {sendnote $subj $user $text}
}

Deci acest procese va permite sa trimiti notes prin bot, la toti userii locali sau globali care doresti tu. Eu am scris sa trimata la locali +n. La flaguri poti specifica cat locali, atat si globalii. De exemplu la toti masterii globali si ownerii locali scrii m|n. Cuvintul take il poti skimba cu orice alt cuvint, acesta e subiectul la note.

Desigur, poti si sa nu faci procesul report aparte, dar am facut asa pentru ca sa poti reutiliza aceasta functie de mai mult ori + e mai clar asa ce face fiecare functia sendnote, scopul nu este de a da scriptul gata, dar de a arata cum s-ar putea de facut.

[caesar]

aqwzsx : multumesc pentru remarca, fac si eu ce pot.

Orice script sau bucata de script e data ca exemplu si trebuie tratata ca atare, si nu pretind ca le stiu pe toate sau ca am dreptate intotdeauna.

Nu exista nici un raw pentru asta, e un simplu notice de la X. Doar daca te chinui sa numeri liniile sau ceva in genul, oricum nu cred ca isi are cazul sa te scarpini la urechea stanga cu mana dreapta.

[UniversaliA]

Remarca era pentru Gorapid, ca sa prevad floodul de intrebari de ce nu lucreaza scriptul, in loc sa caute singur raspuns Pentru ca el face asta deobicei. Da gorapid ?

[Kurupt]

da din xtuff al lui ceasar e luat bucata aceea de cod. ok o sa tin minte in viitor cand postez example din alte scripturi sa specific si autor si nu sa ma pun pe mine. ceasar tragi u de urechi k k.