egghelp/eggheads community

Xpert

proc remove:bans {} {
  foreach bans [chanbans #channel] {
    pushmode "#channel" "-b" "[lindex $bans 0]"
  }
  timer 20 remove:bans
}

if {![regexp remove:bans [timers]]} {
  timer 20 remove:bans
}

Xpert

When MAINNICK join to any channel, the eggdrop will send him private message (ARG1 ARG2)?
Ok.

Code: Select all

bind join - * join:mainnick
proc join:mainnick {nick host hand chan} {
  if {[string equal -nocase "MAINNICK" "$nick"]} {
    putserv "privmsg $nick :ARG1 ARG2"
  }
}

Xpert

Try this: bind pub - .logout proc_logout proc proc_logout {nick uhost handle channel arg} { set file ops if {![file exists $file]} {close [open $file w]} set in [open $file "r"] set out [open ${file}.tmp "w+"] while {![eof $in]} { set line [gets $in] if {![string equal -nocase &...

Xpert

It works, thanks

Xpert

How can i string match a *?
(ex: string match a '+' = [string match "*+*" "*$text*"])

Xpert

What exactly did you write in the '.tcl' command?

Xpert

try to change the name of the proc, i think this is the problem

Xpert

Thanks for all of you

]Kami[ wrote:i'm searching it too

There's the link
Thanks again

Xpert

Have you read the Setup page ?

Xpert

Ok, thanks

Xpert

Thanks for the replay.
Do you know where can i find this script?

Xpert

Your welcome

Xpert

How can i do a '.tcl' command in a public command on a channel (like the .tcl in the partyline)?

Xpert

You can use 'split':

Code: Select all

set host "[split ~xxmcx@egghelp.org @]"
set userident "[lindex $host 0]"
set userhost "[lindex $host 1]"

Xpert

Yeah, forgot one '='

egghelp/eggheads community

Search found 86 matches

How can 'string match' a *?

.tcl command on a public command