egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2015-07-11T11:39:12-04:00 https://forum.eggheads.org/app.php/feed/topic/20007 2015-07-11T11:39:12-04:00 2015-07-11T11:39:12-04:00 https://forum.eggheads.org/viewtopic.php?p=104290#p104290 <![CDATA[dal.net authentication script]]> It's probably a good idea to use that, as lots of times, due to splits, the bots get confused (as their hostmasks haven't been added to their nickserv access lists *because people like to change vHosts*) so they get changed to Guest?????

This is the best script I've used, for DALnet. It will also send a ghost command, if it's not using set Nickname, and it identifies to your mainnickname, so it doesn't matter what nick the bot connects with (like Guest?????, it will still Identify).

Code: 

############################################### AutoIdent.tcl# Name of Service you Identify to (for /watch, so if they come back online, bot will attempt to identify.set servicesname "NickServ"# Name of ChanServset chanservicename "ChanServ@services.dal.net"# Name of NickServset nickservicename "NickServ@services.dal.net"# Set the next line as your bot's Nickname to identify to.set mynick "BotNickname"# Set the next line as your bot's password on NickServ.set nickserv_pass "nickpasshere"############################################################################################## DO NOT EDIT BELOW THIS LINE!! ################################################################################################################ BINDS ##################bind raw - 601 services_offlinebind raw - 605 services_offlinebind raw - 604 services_onlinebind raw - 600 services_onlinebind evnt - init-server check_ghost################## PROCEDURES ##################proc check_ghost {type} {    if {![isbotnick $::mynick]} {putquick "PRIVMSG $::nickservicename :GHOST $::mynick $::nickserv_pass" -next}    putquick "PRIVMSG $::nickservicename :identify $::mynick $::nickserv_pass"; putserv "watch +$::servicesname"}proc services_offline {from keyword args} { putlog "Services have left the building!"}proc services_online {from keyword args} { putserv "PRIVMSG $::nickservicename :identify $::mynick $::nickserv_pass" putlog "Identified to $::servicesname"}putlog "AutoIdent, enabling watch.. (for $servicesname)"putserv "watch +$servicesname"
There are probably a few thousand scripts like this, made for bots to identify, but the one that is inside your bot.conf file, that is the easiest and fastest method. You could even add a public/message command, to the code I posted above, and it would make it just that much better :P

Statistics: Posted by Get_A_Fix — Sat Jul 11, 2015 11:39 am

]]> 2015-06-24T11:10:41-04:00 2015-06-24T11:10:41-04:00 https://forum.eggheads.org/viewtopic.php?p=104265#p104265 <![CDATA[dal.net authentication script]]>

Code: 

# Keep nick v2.0 by Mezen <mezen0@msn.com># This script allows to solve connection issue after receiving# Invalid Nick notice from the network. It will make the bot release# its nickname and identify to it.# This script is made for Dalnet but can be adapted to any other# network with small modifications# to install it, just copy it to the folder /path/to/eggdrop/scripts# then add this line at the end of the eggdrop.conf# source scripts/keepnick.tcl######################################## Config ######################################### set here bot's passwordset KP(botpass) ""# set here nickserv's hostnameset KP(nickserv) "nickserv@services.dal.net"######################################## Do not edit below this line ######################################### removing old bindsunbind evnt - init-server evnt:init_server# creating new bindsforeach bind [binds kp_invalid_server_proc] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}bind evnt - init-server kp_init_server_procforeach bind [binds kp_invalid_nick_proc] {lassign $bind type flags mask num proc; unbind $type $flags $mask $proc}bind raw - 432 kp_invalid_nick_procbind raw - 433 kp_invalid_nick_proc# saving bot's nick in a variableset KP(botnick) $nickproc kp_invalid_nick_proc { from keyword text } {global nick altnick botnet-nickset newnick $nickset chars "abcdefghijkmnopqrstuvwxyz023456789";set anick $altnickwhile {[regexp -all {\?} $anick]>0} {set char [string index $chars [expr int(rand()*[string length $chars])]]if {[expr rand()]>0.5} {set char [string toupper $char]}regsub {\?} $anick $char anick}putlog "Alternating Nick: $nick -> $anick"set nick $anickif {[string match -nocase ${botnet-nick} $newnick]} {putlog "Jumping to next server..."jump    }}proc kp_init_server_proc {type} {global nick KPputquick "MODE $nick +i-ws"putserv "PRIVMSG $KP(nickserv) :identify $KP(botnick) $KP(botpass)" -nextputserv "PRIVMSG $KP(nickserv) :release $KP(botnick) $KP(botpass)" -nextputserv "PRIVMSG $KP(nickserv) :ghost $KP(botnick) $KP(botpass)" -nextset nick $KP(botnick)}set KP(version) " 2.0"set KP(script) "KP -- Keep Nick -- "putlog "\002Loading\002: $KP(script)$KP(version) by Mezen."

Statistics: Posted by CP1832 — Wed Jun 24, 2015 11:10 am

]]>