This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.
For more information, see this announcement post . Click the X in the top right-corner of this box to dismiss this message.
Help for those learning Tcl or writing their own scripts.
abah
Halfop
Posts: 78 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Sat Nov 23, 2024 4:04 am
if i want to put setudef here can anyone help me install it ?
Code: Select all
bind pub -|- !ison ison:nick
proc ison:nick {nick host hand chan arg} {
global ison botnick ison_infonick
set ison(rchan) "$chan"
set isoninfonick [lindex [split $arg] 0]
if {$isoninfonick == ""} {
putquick "NOTICE $nick :Syntax: !ison <Nick>"
return 0
}
bind raw -|- 303 isonnick:isonline
set ison_infonick "$isoninfonick"
putquick "PRIVMSG $ison(rchan) :Please wait..."
putquick "ISON $ison_infonick"
return 0
}
proc isonnick:isonline {from keyword arg} {
global ison ison_infonick botnick
if {([string match "*$ison_infonick*" $arg])} {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is online!"
unbind raw -|- 303 isonnick:isonline
return 0
} else {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is offline!"
unbind raw -|- 303 isonnick:isonline
return 0
}
}
abah - Kota Makassar - Indonesia
willyw
Revered One
Posts: 1205 Joined: Thu Jan 15, 2009 12:55 am
Post
by willyw » Sun Nov 24, 2024 9:01 am
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia !
abah
Halfop
Posts: 78 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Mon Nov 25, 2024 6:23 am
Code: Select all
bind pub -|- !ison ison:nick
setudef flag status
if {([lsearch -exact [channel info $chan] {+status}] != -1)} {
proc ison:nick {nick host hand chan arg} {
global ison botnick ison_infonick
set ison(rchan) "$chan"
set isoninfonick [lindex [split $arg] 0]
if {$isoninfonick == ""} {
putquick "NOTICE $nick :Syntax: !ison <Nick>"
return 0
}
bind raw -|- 303 isonnick:isonline
set ison_infonick "$isoninfonick"
putquick "PRIVMSG $ison(rchan) :Please wait..."
putquick "ISON $ison_infonick"
return 0
}
proc isonnick:isonline {from keyword arg} {
global ison ison_infonick botnick
if {([string match "*$ison_infonick*" $arg])} {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is online!"
unbind raw -|- 303 isonnick:isonline
return 0
} else {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is offline!"
unbind raw -|- 303 isonnick:isonline
return 0
}
}
}
i am right ?
abah - Kota Makassar - Indonesia
simo
Revered One
Posts: 1108 Joined: Sun Mar 22, 2015 2:41 pm
Post
by simo » Mon Nov 25, 2024 8:52 am
Code: Select all
bind pub -|- !ison ison:nick
setudef flag status
proc ison:nick {nick host hand chan arg} {
if {![channel get $chan status]} { return 0 }
global ison botnick ison_infonick
set ison(rchan) "$chan"
set isoninfonick [lindex [split $arg] 0]
if {$isoninfonick == ""} {
putquick "NOTICE $nick :Syntax: !ison <Nick>"
return 0
}
bind raw -|- 303 isonnick:isonline
set ison_infonick "$isoninfonick"
putquick "PRIVMSG $ison(rchan) :Please wait..."
putquick "ISON $ison_infonick"
return 0
}
proc isonnick:isonline {from keyword arg} {
global ison ison_infonick botnick
if {([string match "*$ison_infonick*" $arg])} {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is online!"
unbind raw -|- 303 isonnick:isonline
return 0
} else {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is offline!"
unbind raw -|- 303 isonnick:isonline
return 0
}
}
willyw
Revered One
Posts: 1205 Joined: Thu Jan 15, 2009 12:55 am
Post
by willyw » Mon Nov 25, 2024 11:01 am
abah wrote: ↑ Mon Nov 25, 2024 6:23 am
...
i am right ?
While I did post in that old thread, I like the method posted by Mysticales better.
I believe that the link that I posted in this thread above, went directly to Mysticales post. I meant to, anyway.
See the post in this thread by simo .
Then, the real answer to this last question from you, will be answered when you try it.
Let us know how it goes.
For a fun (and popular) Trivia game, visit us at: irc.librairc.net #science-fiction . Over 300K Q & A to play in BogusTrivia !
abah
Halfop
Posts: 78 Joined: Sun Dec 01, 2013 3:04 am
Location: Indonesia
Post
by abah » Thu Nov 28, 2024 2:45 am
simo wrote: ↑ Mon Nov 25, 2024 8:52 am
Code: Select all
bind pub -|- !ison ison:nick
setudef flag status
proc ison:nick {nick host hand chan arg} {
if {![channel get $chan status]} { return 0 }
global ison botnick ison_infonick
set ison(rchan) "$chan"
set isoninfonick [lindex [split $arg] 0]
if {$isoninfonick == ""} {
putquick "NOTICE $nick :Syntax: !ison <Nick>"
return 0
}
bind raw -|- 303 isonnick:isonline
set ison_infonick "$isoninfonick"
putquick "PRIVMSG $ison(rchan) :Please wait..."
putquick "ISON $ison_infonick"
return 0
}
proc isonnick:isonline {from keyword arg} {
global ison ison_infonick botnick
if {([string match "*$ison_infonick*" $arg])} {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is online!"
unbind raw -|- 303 isonnick:isonline
return 0
} else {
putserv "PRIVMSG $ison(rchan) :$ison_infonick is offline!"
unbind raw -|- 303 isonnick:isonline
return 0
}
}
thanks working very well anda thanks @willy
abah - Kota Makassar - Indonesia