Code: Select all
proc send:help {nick uhost hand chan {args ""}}
Code: Select all
if {[string first * $oper 0] >0} {
#this will check if there's at least one '*' in $oper
}
Code: Select all
utimer 15 [list putquick "privmsg #channel :Timer after 15 seconds!"]
Code: Select all
foreach chan [channels] {
timer <time> <proc>
}
Code: Select all
foreach text [split $texts \n] {
if {[string match -nocase $text $reset]} {set case 1}
}