egghelp/eggheads community Discussion of eggdrop bots, shell accounts and tcl scripts. 2013-03-13T01:12:57-04:00 https://forum.eggheads.org/app.php/feed/topic/19359 2013-03-13T01:12:57-04:00 2013-03-13T01:12:57-04:00 https://forum.eggheads.org/viewtopic.php?p=101225#p101225 <![CDATA[auto nick change]]> Statistics: Posted by Get_A_Fix — Wed Mar 13, 2013 1:12 am

]]> 2013-03-12T13:25:12-04:00 2013-03-12T13:25:12-04:00 https://forum.eggheads.org/viewtopic.php?p=101223#p101223 <![CDATA[auto nick change]]>
why in the hell would you complicate the code that much and make a foreach to create bindings? just put a damn BIND CRON..

Code: 

bind cron - "*/15 * * * *" change:nick
Seriously?

You don't know why??! It's clearly obvious what I've done there. Let me simplify it into the simplest terms. The most elegant example of consumerism. To the rookie eye they see problems because they narrow their audience too often. I on the other hand, expand my audience. You see dirty, tcl8.5 includes cron. tcl8.4 does not. The issue is, to perfect a concept you need an audience. Execution of the concept into a product needs to be worthwhile. For it to be worthwhile you need as large an audience as possible. The product in this case, is that snippet of code above. The audience is everyone using eggdrop. Without cron used, it expands the audience of eggdrop users to its full potential (EVERYONE CAN USE IT NOW). Adding cron, I've now crippled the product. Flawed it's execution. I've limited the audience.. You get it?! No?!

I've simply made a business decision here. That's all. A smart one at that. :P

Statistics: Posted by speechles — Tue Mar 12, 2013 1:25 pm

]]> 2013-03-12T05:29:39-04:00 2013-03-12T05:29:39-04:00 https://forum.eggheads.org/viewtopic.php?p=101221#p101221 <![CDATA[auto nick change]]>

Code: 

bind cron - "*/15 * * * *" change:nick

Statistics: Posted by dirty — Tue Mar 12, 2013 5:29 am

]]> 2013-03-12T14:04:32-04:00 2013-03-11T21:08:26-04:00 https://forum.eggheads.org/viewtopic.php?p=101219#p101219 <![CDATA[auto nick change]]>

Code: 

bind time - "00 * * * *" change:nickset temp(nick) {"nick111""nick222"}proc change:nick {min hour day month year} {global tempset randnick [lindex $temp(nick) [rand [llength $temp(nick))]]]if {$randnick != ""} {if {[string match -nocase $::botnick $randnick]} {putserv "NICK [lindex $temp(nick) [rand [llength $temp(nick))]]]"} else {change:nick $min $hour $day $month $year}}}
Not to nit pick at all. But I can help you here, figure out the problem you had. The problem is, if the list is "nick111" and "nick222" how then can we ever get "". It should never be "". But in your code, it was. Hence you have to check it isn't that. This is because of how you constructed your code. Using
  • instead of hand-constructing your list will eliminate empty "" sets in your list. :)

    I've adapted your code and gave it the ability to cycle through nicknames as well as randomly choose one. Comments so hopefully its clear what everything is doing. Changed the global varname from (temp) which is rather generic to a more unique (_nicks) as well. Other changes should be identifiable without noting.

    Code: 

    # put your time strings here when nicknames should be changed# as it is below, it will issue a nick change every 15 minutes.set _nicks(bindtime) [list 15* 30* 45* 00*]# cycle through our binds to timeforeach b $_nicks(bindtime) {  bind time - $b change:nick}# using list here will eliminate possibility of# having empty "" elelemts in the list.# this should be a list of nicknames.set  _nicks(nicks) [list "nick111" "nick222"]# cycle through the nicks or randomly choose# 1 = cycle , 2 = randomset _nicks(type) 1proc change:nick {min hour day month year} {global _nicks        # to init loop pick must equal botnick        set pick $::botnick        # as long as pick is botnick, loop        while {[isbotnick $pick]} {           # cycle nicks means we count           if {$_nicks(type) < 2} {             # if counting var doesnt exist, init it             if {![info exists _nicks(count)]} { set _nicks(count) -1 }             # increment counter and check it isn't equal to length of list of nicks             # if  it is set counter to zero             if {[incr _nicks(count)] == [llength $_nicks(nicks)]} { set _nicks(count) 0 }             # choose our pick based on counter position             set pick [lindex $_nicks(nicks) $_nicks(count)]           } else {             # randomly pick based on length of list of nicks             set pick [lindex $_nicks(nicks) [rand [llength $_nicks(nicks)]]]           }        }        # change nick        putserv "NICK $pick"}

Statistics: Posted by speechles — Mon Mar 11, 2013 9:08 pm

]]> 2013-03-03T07:19:43-04:00 2013-03-03T07:19:43-04:00 https://forum.eggheads.org/viewtopic.php?p=101164#p101164 <![CDATA[auto nick change]]> Statistics: Posted by Evilish — Sun Mar 03, 2013 7:19 am

]]> 2013-02-27T18:10:00-04:00 2013-02-27T18:10:00-04:00 https://forum.eggheads.org/viewtopic.php?p=101133#p101133 <![CDATA[auto nick change]]>

Code: 

bind time - "00 * * * *" change:nickset temp(nick) {"nick111""nick222"}proc change:nick {min hour day month year} {global tempset randnick [lindex $temp(nick) [rand [llength $temp(nick))]]]if {$randnick != ""} {if {[string match -nocase $::botnick $randnick]} {putserv "NICK [lindex $temp(nick) [rand [llength $temp(nick))]]]"} else {change:nick $min $hour $day $month $year}}}

Statistics: Posted by Madalin — Wed Feb 27, 2013 6:10 pm

]]> 2013-02-27T14:45:04-04:00 2013-02-27T14:45:04-04:00 https://forum.eggheads.org/viewtopic.php?p=101129#p101129 <![CDATA[auto nick change]]> X may be in days
nicks r defined by me
thnx

Statistics: Posted by Evilish — Wed Feb 27, 2013 2:45 pm

]]>