egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2015-05-16T01:56:42-04:00 https://forum.eggheads.org/app.php/feed/topic/19960 2015-05-16T01:56:42-04:00 2015-05-16T01:56:42-04:00 https://forum.eggheads.org/viewtopic.php?p=104103#p104103 <![CDATA[string match spanish accents]]> SpiKe^^

Code: 

proc who_emit {nick uhost hand chan text} {global radiocanal nombreradio counfif {$chan != "$radiocanal"} {return 0}set who1 "Quien emite?"set who2 "Quien está emitiendo?"set who3 "Quien esta de dj?"set whof "?"if {(([lsearch -exact -ascii -nocase [lindex [split $text] 0 end] [lindex [split $who1] 0 end]] != -1) && ([llength [split $text]] == 2) \&& ([string index $text end] == "$whof")) \|| (([lsearch -exact -ascii -nocase [lindex [split $text] 0 end] [lindex [split $who2] 0 end]] != -1) && ([llength [split $text]] == 3) \&& ([string index $text end] == "$whof")) \|| (([lsearch -exact -ascii -nocase [lindex [split $text] 0 end] [lindex [split $who3] 0 end]] != -1) && ([llength [split $text]] == 4) && ([string index $text end] == "$whof")) } { if {[file exists dj]} {    set temp [open "dj" r]    set dj [gets $temp]set dj [lindex $dj 0]    close $temp}putmsg $chan [encoding convertfrom utf-8 "Our current DJ is $dj"}}
The code is not case sensitive:

Code: 

-nocase
I added a counter along the string, so I did not take as correct portions thereof:

Code: 

[llength [split $text]] ==
I also added that work if the text has a question mark at the end, not to take any text expression but leads that sign.

Code: 

set whof "?"
To make the text matched with Spanish accents, I used:

Code: 

-ascii
In this example, the current DJ database is:

Code: 

[file exists dj]

Statistics: Posted by juanamores — Sat May 16, 2015 1:56 am

]]> 2015-05-10T08:16:28-04:00 2015-05-10T08:16:28-04:00 https://forum.eggheads.org/viewtopic.php?p=104054#p104054 <![CDATA[string match spanish accents]]>

Code: 

bind pubm - * who_emitproc who_emit {nick uhost hand chan text} {global djif {($text eq "Quien esta emitiendo?") || ([string match "Quien está emitiendo?" $text]) {putmsg $chan "Emite Dj $dj"}}
Not match the second condition for the accent "á"
<user> Quien esta emitiendo?
<bot> Emite Dj Roger
<user> Quien está emitiendo?
Besides accents, you can be fixed to coincide with additional question marks?
ie:
Quien está emitiendo??
or
Quien está emitiendo?????

Statistics: Posted by juanamores — Sun May 10, 2015 8:16 am

]]>