egghelp/eggheads community

Reynaldo

The part that matters in the script below is the proc pColorRandom which, when called with a <text> argument, will return the text with randomly coloured foreground/background. A while loop is used to ensure that the foreground color cannot be the same as the background color. A public command with...

Reynaldo

You can use this proc, which is much faster: proc randomcolors str { set str2 "" foreach token [split $str ""] { set rdm [expr {[rand 15]+1}] if {$rdm < 10} { set rdm 0$rdm } if {$token != " "} { append str2 \003${rdm}$token\003 } { append str2 $token } } set str2 } Br...

Reynaldo

Code: Select all

if {[regexp {\xa4} [encoding convertfrom utf-8 $rname]] == 1 || [string length $rname] > 45} {..}

Finally it's working perfect!!

Thank you very much Guys.

Reynaldo

set rname "bla bla bla bla bla ¤" if {[regexp {\xA4} $rname] == 1 || [string length $rname] > 45} {..} Doesnt works! using eggdrop v1.6.18. i'm going be silly with this char :( how about using scan method? just scan the last chars of $name, cause the ugly spammers always(not) have that sil...

Reynaldo

:roll: set text "¤ Mp3 ¤ My Song - Yeah, it is.mp3 ¤" set string [lindex [split $text] 0] set test [scan $string %c] if {$test == 164} { putlog "detected that $text! starts with ¤ :P" } There's probably a much easyer and better way to do this Ok, that can detect if the char is i...

Reynaldo

TCL_no_TK wrote:

Code: Select all

 set rname [format {%c} 164]
 set test [scan $rname %c]
  if {$test == 164} {
   puts "It Worked!"
  }

Code: Select all

set rname [format {%c} 164]

seems it's not working.

, the character is in $rname.

Reynaldo

TCL_no_TK wrote:
Code: Select all
format {%c} "164"

how to use it?

Code: Select all

if {[string match "*[format {%c} "164"]*" $rname] || [string length $rname] > 45} { .... }

it's right? thanks for the advice.

Reynaldo

if {[string match "*\xA4*" $rname] || [string length $rname] > 45} { .... } The above should work fine because characters up to hex FF can be represented by using a backslash followed by an x and then the two digit hex number (164 decimal == A4 hex). [12:51] <arfer> .tcl set varname \xA4 ...

Reynaldo

if {[string match -nocase "*¤*" $rname] == 1 || [string length $rname] > 45} { .... } any idea how to detect that chars "¤" it doesn't work, but in my mirc scritps it's working well. it mirc, the chars in $chr(164) will return to "¤" , i have no idea in tcl, seems so c...

Reynaldo

proc pub_+akick {nick uhost hand channel param} { global botname botnick set rest [lindex $param 0] if {$rest == ""} { puthelp "NOTICE $nick :Usage: +akick <nick/hostname>" return 0 } if {$rest == "*" || $rest == "*!*@*"} { puthelp "NOTICE $nick :invalid...

Reynaldo

v0.4 Final has been release, you can find it in the tcl archive http://www.egghelp.org/tcl.htm v0.5 is still work in progress, there are a few more things i would like to add and some things that really need fixing (ie: decent charset support) before I would consider releasing a final version. Curr...

Reynaldo

hi, There's anyone can create the scripts for checking email from yahoo/hotmail? just for new email not reading it. Thank you

Reynaldo

Code: Select all

bind part - * ban:flyby 

proc ban:flyby {nick uhost hand chan arg} { 
if {[getchanjoin $nick $chan] >= [expr {[clock seconds]-180}]} { 
putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]" 
 } 
}

Reynaldo

yes, i do searching already the intire forums, but i need the simple one

Reynaldo

Hey anyone can help me to creaate a simple scripts that can ban the users join then part less then 3minutes? the spammer always do this. thanks

egghelp/eggheads community

Search found 53 matches

Please help with this character ( ¤)

Please help with shitlist

Re: Eggdrop RSS Syndication (rss-synd) v0.5b1

Scrips for checking email at yahoo/hotmail

users join and part about 3minutes