| View previous topic :: View next topic |
| Author |
Message |
DragonRyder
Voice
Joined: 22 Nov 2007
Posts: 12
Location: USA
|
 Posted: Sun Apr 03, 2011 12:57 pm Post subject: SETIDENT Issue |
 |
|
Found a script by Xenogear. It has been changed some since I found it.
here is the code:
| Code: | #Put Your Server Identify Command
set identcmd "identify"
#Put Your Bot Nick Password"
set identpass "SOMETHING"
#Put Your NickServ Services Nick
set nickserv "NickServ"
# Change this to what nickserv says on connection
bind notc - "*This nickname is registered and protected*" identify:notc
#It's Okay Right Now ... Never Change It If U Are Beginner In Tcl Scripts
proc identify:notc { nick uhost handle text dest } {
global botnick nickserv identcmd identpass
if { $nick == $nickserv } {
puthelp "PRIVMSG $nickserv $identcmd $identpass"
putserv "SETIDENT NewIdent"
putlog "Identifying : $nickserv (as $botnick)"
}
}
putlog "Nick Identify Script Has Been Loaded make by Blue ... Repaired By Xenogear" |
this part of the code is not working:
| Code: | | putserv "SETIDENT NewIdent" |
Am I doing something wrong here? I Looked through the forums, and found the SETIDENT in 2 post and mine matches what is in the archives from back in 2001. I understand code does change some over time and this is 2011 (tens years since the archive messages i found)
Can anyone help me figure out what I am doing wrong? Running an UnrealIRCd Network with Anope Services (latest stable of both).
In mIRC for the fun of it i ran a timer that made me change my own ident using the /SETIDENT command and doing a whois to see it had changed, and it had. but for some reason it is not working from within the TCL script.
ps i even tried putquick and puthelp, nothing has worked so far. |
|
| Back to top |
|
 |
speechles
Revered One
Joined: 26 Aug 2006
Posts: 1398
Location: emerald triangle, california (coastal redwoods)
|
| Posted: Sun Apr 03, 2011 1:03 pm Post subject: Re: SETIDENT Issue |
|
|
| Code: | puthelp "PRIVMSG $nickserv $identcmd $identpass"
putserv "SETIDENT NewIdent" |
See the problem...??
It's priority... To eggdrop here is the rule:
1) Any and all put-quick messages in the queue, send them all before any other.
2) Any and all put-serv messages in the queue, send them all after all put-quick messages are exhausted, but before any put-helps.
3) Lastly, any put-help messages in the queue, send them finally. After all put-quick and put-serv messages are exhausted.
So your problem, is when you ident, you are using puthelp. This message wont be sent right away. Next you putserv your ident set. This will actually be done before it has idented now. This won't be possible. So instead, try this... where those 2 lines above are.
| Code: | putserv "PRIVMSG $nickserv $identcmd $identpass"
putserv "SETIDENT NewIdent" |
Now they are within the same queue priority and will happen in the predicted order they are in now.
_________________
speechles' eggdrop tcl archive |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
