| View previous topic :: View next topic |
| Author |
Message |
play4free2
Voice
Joined: 23 Nov 2013
Posts: 33
|
 Posted: Thu Dec 12, 2013 10:05 pm Post subject: Request Version Reply |
 |
|
Hi,
I am looking for a script for a bot that uses the trigger !version <nick>
Then replies to the chanset #channel(s) with: Version Reply: mIRC 6.35 Khaled Mardam-Bey
Or what ever version(s) the user might be using.
Thanks,
play4free2
_________________
420-HIGHTIMES IRC Network |
|
| Back to top |
|
 |
play4free2
Voice
Joined: 23 Nov 2013
Posts: 33
|
| Posted: Fri Jan 31, 2014 11:36 pm Post subject: |
|
|
Update: I found this code, it was just for on join version replies I edited it to where it uses a public trigger instead of an on join bind and added the time command.
But I can't seem to figure out how to get it to work where i can do a chanset on it and I haven't been able to get it to where it triggers on !command <nick>
| Code: | set chan "#channel"
bind pub - !version vers_proc
bind ctcr - VERSION return_vers
bind pub - !utime utms_proc
bind ctcr - TIME return_utms
proc vers_proc {nick uhost hand chan arg} {
putserv "PRIVMSG $nick :\001VERSION\001"
}
proc return_vers {nick uhost hand dest key vers} {
global chan
set retvers [join [lrange [split $vers] 0 end]]
putserv "PRIVMSG $chan :$nick is using: $retvers"
}
proc utms_proc {nick uhost hand chan arg} {
putserv "PRIVMSG $nick :\001TIME\001"
}
proc return_utms {nick uhost hand dest key utms} {
global chan
set retutms [join [lrange [split $utms] 0 end]]
putserv "PRIVMSG $chan :$nick's date and time: $retutms"
} |
Any help would be appreciated.
Thanks
_________________
420-HIGHTIMES IRC Network |
|
| Back to top |
|
|
Madalin
Master
Joined: 24 Jun 2005
Posts: 310
Location: Constanta, Romania
|
| Posted: Sat Feb 01, 2014 7:16 am Post subject: |
|
|
Use .chanset #channel +version in DCC CHAT to activate the script on what channel.
| Code: | bind PUB - !version version:pub
bind CTCR - VERSION version:reply
setudef flag version
proc version:pub {nick uhost hand chan arg} {
global temp
if {![channel get $chan version]} { return }
set temp(who) [lindex [split $arg] 0]
set temp(chan) $chan
putserv "PRIVMSG $temp(who) :\001VERSION\001"
}
proc version:reply {nick uhost hand dest key vers} {
global temp
putserv "PRIVMSG $temp(chan) :$nick is using: [join [lrange [split $vers] 0 end]]"
} |
_________________
https://github.com/MadaliNTCL - To chat with me: https://tawk.to/MadaliNTCL |
|
| Back to top |
|
|
play4free2
Voice
Joined: 23 Nov 2013
Posts: 33
|
| Posted: Sat Feb 01, 2014 3:35 pm Post subject: |
|
|
Thanks Madalin works great 
_________________
420-HIGHTIMES IRC Network |
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
