![]() |
|
|||||||
| Tcl scripting Tcl scripting related questions |
![]() |
|
|
LinkBack | Thread Tools | Display Modes |
|
|
#1 (permalink) |
|
Junior Member
|
Code:
bind join - * auto:invite
set invitechan "#INVITE-chan"
set helpchan "#HELP-chan"
proc auto:invite {nick host handle chan} {
global invitechan helpchan
if {[matchattr handle n]} {
putserv "INVITE $nick $invitechan"
putquick "PRIVMSG $nick :\002 YOU ARE INVITED TO OUR CONSOLE CHANNEL"
} elseif {[matchattr $handle |n $helpchan]} {
putserv "INVITE $nick $invitechan"
putquick "PRIVMSG $nick :\002 YOU ARE INVITED TO OUR CONSOLE CHANNEL"
}
}
putlog "console-invite.tcl"
__________________
v R | A r |
|
|
|
|
|
#2 (permalink) |
|
TCB & Ratings projects Member, #Mythic representative
|
Code:
set ichan(invite) "#invite-chan'
set ichan(help) "#help"
bind join n|n "*$ichan(help)*" auto:invite
proc auto:invite {nick host hand chan} {
global ichan ijoined
if {[isbotnick $nick] || [onchan $nick $ichan(invite)] || [info exists ijoined($nick,$chan)]} {return}
puserv "INVITE $nick $ichan(invite)"
puthelp "PRIVMSG $nick :\002 YOU ARE INVITED TO OUR CONSOLE CHANNEL"
set ijoined($nick,$chan) 1
timer 5 [unset ijoin($nick,$chan)]
}
![]() @universalia: oke, o sa incerc sa fiu cuminte, cat despre cod, o sa il gandesc putin ami mult inainte de a il posta
__________________
Fuck oFF! Last edited by arcade; 22-03-2007 at 00:23. |
|
|
|
|
|
#3 (permalink) |
|
Administrator
aka aqwzsx |
Vezi ce zice omul despre timer te rog, http://www.peterre.info/characters.html
|
|
|
|
![]() |
| Bookmarks |
| Currently Active Users Viewing This Thread: 1 (0 members and 1 guests) | |
| Thread Tools | |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
| chan logging | AdrianK | Tcl scripting | 11 | 02-11-2006 22:39 |
| .+chan nu functioneaza | krimson | a&a light script | 2 | 23-05-2006 23:32 |
| Setari de chan | GoRaPiD | Tcl scripting | 1 | 19-11-2004 08:39 |
| Bad Chan Tcl | GoRaPiD | Tcl scripting | 14 | 18-07-2004 18:34 |
| $chan arg | JohnyWalker | Tcl scripting | 1 | 14-06-2004 12:44 |