egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2007-01-28T11:33:30-04:00 https://forum.eggheads.org/app.php/feed/topic/13027 2007-01-28T11:33:30-04:00 2007-01-28T11:33:30-04:00 https://forum.eggheads.org/viewtopic.php?p=70013#p70013 <![CDATA[Adding auto identify to existing autoop.tcl script! (Solved)]]> Statistics: Posted by Sir_Fz — Sun Jan 28, 2007 11:33 am

]]> 2007-01-28T11:31:02-04:00 2007-01-28T11:31:02-04:00 https://forum.eggheads.org/viewtopic.php?p=70012#p70012 <![CDATA[Adding auto identify to existing autoop.tcl script! (Solved)]]> Statistics: Posted by chadrt — Sun Jan 28, 2007 11:31 am

]]> 2007-01-27T08:31:23-04:00 2007-01-27T08:31:23-04:00 https://forum.eggheads.org/viewtopic.php?p=69974#p69974 <![CDATA[Adding auto identify to existing autoop.tcl script! (Solved)]]> Statistics: Posted by Sir_Fz — Sat Jan 27, 2007 8:31 am

]]> 2007-01-26T22:26:37-04:00 2007-01-26T22:26:37-04:00 https://forum.eggheads.org/viewtopic.php?p=69967#p69967 <![CDATA[Adding auto identify to existing autoop.tcl script! (Solved)]]>
Below is my code then I will post my problem and hopefully someone can help. (This is only a partial I am leaving out the credits and other junk so I dont fill the page.)

Code: 

set idnick "NickServ"set idpass "NickServPasswordHere"set servicenick "ChanServ"set punish "3"set deopkickreason "12{Anti Deop Protection} 5Kindly Dont Deop Me Next Time"bind mode - "*-*o*" RanaUsman:autoreopproc RanaUsman:autoreop {nick uhost hand chan mode target} {global botnick servicenick punish deopkickreasonif {($target == $botnick) && ($nick != $botnick)} {if {($nick == "X") || ($nick == "Q") || ($nick == "L") || ($nick == "chanserv")} { return 0 }putlog "\002BOT DEOPED ON $chan by $nick"putlog "\002REOPING BOT ON $chan"putserv "PRIVMSG $servicenick :op $chan $botnick"putlog "\002REOP SUCCESSFULL"utimer 2 [list RanaUsman:punish $nick $uhost $chan]  }}proc RanaUsman:punish {nick uhost chan} {global punish deopkickreasonif {($punish == 0)} { return 0 }if {($punish == 1)} { if {($nick == "X") || ($nick == "Q") || ($nick == "L") || ($nick == "chanserv")} { return 0 }putquick "KICK $chan $nick :$deopkickreason"putlog "\002$nick Kicked from $chan for Deoping me on $chan " }if {($punish == 2)} { if {($nick == "X") || ($nick == "Q") || ($nick == "L") || ($nick == "chanserv")} { return 0 }putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]"putquick "KICK $chan $nick :$deopkickreason"putlog "\002 $nick BAN N KICKED FROM $chan FOR DEOPING ME ON $chan"}if {($punish == 3)} { putquick "MODE $chan -o $nick"putlog "\002$nick DEOPED FOR DEOPING ME ON $chan" }}  proc evnt:init-server {type} { global idnick idpassputquick "PRIVMSG $idnick :IDENTIFY $idpass"}putlog "=- \002DEOP PROTECTION BY RANA USMAN (www.ranausman.tk) LOADED SUCCESSFULLY \002 -="
(Edit: I have changed my code to the above and hopefully it is a little closer to what should be! But now the script loads but wont perform the function required of it.)

My addition to the base code is:

Code: 

proc evnt:init-server {type} {global idnick idpassputquick "PRIVMSG $idnick :IDENTIFY $idpass"}
I also added the two set's idnick and idpass hoping to make it so that you can set those variables from the top in configuration.

I am so new to this code stuff that I am hoping that I even have the brackets in the right place :) Thank you and please dont flame me here I have racked my brain for hours on this one, and I am just hoping to take some knowledge away from this experience. Thanks again...[/quote]

Statistics: Posted by chadrt — Fri Jan 26, 2007 10:26 pm

]]>