egghelp/eggheads community

Autonick changer + some futures

2012-09-01T17:30:15-04:00

Spike, thank you for the great work! I really appreciate it!

Statistics: Posted by Arkadietz — Sat Sep 01, 2012 5:30 pm

Autonick changer + some futures

2012-09-01T17:25:36-04:00

On a rehash, the existing timer will run out at the old timer settings, as it was already set & running.

Any new timers starting after the rehash will follow the new current settings, as the bot has no memory of the old settings.

Statistics: Posted by SpiKe^^ — Sat Sep 01, 2012 5:25 pm

Autonick changer + some futures

2012-09-01T17:17:20-04:00

okay, one more thing.

after .restart bot still using the old settings, you need to use .restart to update new settings.

Statistics: Posted by Arkadietz — Sat Sep 01, 2012 5:17 pm

Autonick changer + some futures

2012-09-01T16:28:41-04:00

So, you would like more accuracy. Let's adjust the code to this.

Code:

# set a list of nicks to use  (set to {} to disable this script) #set tnks(nicks) {nick1nick2anothernicketc} ;# end of set nicks ## how long the bot stays in channel/s  (in minutes) #set tnks(inchan) "2"# how long the bot stays out of channel/s  (in seconds) before joining again ( change nick before join ) #set tnks(gone) "60"## end of settings ##set tnks(tmls) [split [string trim $tnks(nicks)] "\n"]set tnks(nicks) ""foreach tnks(tmit) $tnks(tmls) {  set tnks(tmit) [string trim $tnks(tmit)]  if {$tnks(tmit) ne ""} {  lappend tnks(nicks) $tnks(tmit)  }}unset tnks(tmls) tnks(tmit)if {$tnks(nicks) eq ""} {  return  }if {![info exists tnks(next)]} {  set tnks(next) 0  }if {![info exists tnks(timer)]} {  set tnks(timer) [timer $tnks(inchan) [list tnks:part]]}set tnks(inchan) [expr {($tnks(inchan)*60)-1}]incr tnks(gone) -5if {$tnks(gone)<"1"} {  set tnks(gone) 1  }set tnks(realnk) $nickproc tnks:part {} {  global tnks if {$tnks(nicks) eq ""} {  return  } set pchans "" foreach ch [channels] {  if {[botonchan $ch]} {  lappend pchans $ch    channel set $ch +inactive  ;  savechannels    putserv "PART $ch :Leaving:)"  } } set tnks(timer) [utimer $tnks(gone) [list tnks:chgnick $pchans]]}proc tnks:chgnick {chans} {  global tnks nick altnick if {$tnks(nicks) eq ""} {  return  } set nick [lindex $tnks(nicks) $tnks(next)] if {$tnks(realnk) ne ""} { set altnick $tnks(realnk) ; set tnks(realnk) "" } putserv "NICK $nick" incr tnks(next) if {$tnks(next)>=[llength $tnks(nicks)]} {  set tnks(next) 0  } set tnks(timer) [utimer 4 [list tnks:chknick $chans]]}proc tnks:chknick {chans} {  global tnks nick botnick if {$tnks(nicks) eq ""} {  return  } if {$botnick ne $nick} {  tnks:chgnick $chans } else {  tnks:join $chans  }}proc tnks:join {chans} {  global tnks if {$tnks(nicks) eq ""} {  return  } foreach ch $chans {  channel set $ch -inactive  ;  savechannels  putserv "JOIN $ch" } set tnks(timer) [utimer $tnks(inchan) [list tnks:part]]}putlog "Nick-o-rama v1.1 Loaded."

Statistics: Posted by SpiKe^^ — Sat Sep 01, 2012 4:28 pm

Autonick changer + some futures

2012-09-01T14:58:25-04:00

Possible problems:
1. Major reason for delaying is inactive. With part/join will be better.
2. After .rehash seems not working properly have to use .restart
3. Problems with rotating of nicks

A little cut how working actually tcl

[21:42:40] * CIA (~ident@10.1.1.1) has joined #housemusic
[21:44:04] * CIA (~ident@10.1.1.1) has left #housemusic
[21:45:05] * Nenasitnata (~ident@10.1.1.1) has joined #housemusic
[21:47:04] * Nenasitnata (~ident@10.1.1.1) has left #housemusic
[21:48:10] * Briunetkata (~ident@10.1.1.1) has joined #housemusic
[21:50:03] * Briunetkata (~ident@10.1.1.1) has left #housemusic
[21:51:09] * Neobvurzana (~ident@10.1.1.1) has joined #housemusic
[21:53:03] * Neobvurzana (~ident@10.1.1.1) has left #housemusic
[21:54:08] * tejat_mi_cicite (~ident@10.1.1.1) has joined #housemusic
[21:56:04] * tejat_mi_cicite (~ident@10.1.1.1) has left #housemusic
[21:57:09] * ofermeno_dupe (~ident@10.1.1.1) has joined #housemusic

TCL settings:

# how long the bot stays in channel/s (in minutes) #
set tnks(inchan) "2"

# how long the bot stays out of channel/s (in seconds) before joining again ( change nick before join ) #
set tnks(gone) "60"

Statistics: Posted by Arkadietz — Sat Sep 01, 2012 2:58 pm

Autonick changer + some futures

2012-08-28T23:43:27-04:00

See if this helps.

Code:

# set a list of nicks to use  (set to {} to disable this script) # set tnks(nicks) { nick1 nick2 anothernick etc } ;# end of set nicks # # how long the bot stays in channel/s  (in minutes) # set tnks(inchan) "5" # how long the bot stays out of channel/s  (in seconds) before joining again ( change nick before join ) # set tnks(gone) "15" ## end of settings ## set tnks(tmls) [split [string trim $tnks(nicks)] "\n"] set tnks(nicks) "" foreach tnks(tmit) $tnks(tmls) {   set tnks(tmit) [string trim $tnks(tmit)]   if {$tnks(tmit) ne ""} {  lappend tnks(nicks) $tnks(tmit)  } } unset tnks(tmls) tnks(tmit) if {$tnks(nicks) eq ""} {  return  } set tnks(next) 0 if {![info exists tnks(timer)]} {   set tnks(timer) [timer $tnks(inchan) [list tnks:part]] } proc tnks:join {chans} {  global tnks nick altnick  if {$tnks(nicks) eq ""} {  return  }  set nick [lindex $tnks(nicks) $tnks(next)]  incr tnks(next)  if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  }  set altnick [lindex $tnks(nicks) $tnks(next)]  set tnks(timer) [utimer 4 [list tnks:dojoin $chans]] } proc tnks:dojoin {chans} {  global tnks  if {$tnks(nicks) eq ""} {  return  }  foreach ch $chans {  channel set $ch -inactive  ;  savechannels  putserv "JOIN $ch" } set tnks(timer) [timer $tnks(inchan) [list tnks:part]] } proc tnks:part {} {  global tnks nick botnick  if {$tnks(nicks) eq ""} {  return  }  if {$botnick ne $nick} {  incr tnks(next)  }  if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  }  set pchans ""  foreach ch [channels] {   if {[botonchan $ch]} {  lappend pchans $ch    channel set $ch +inactive  ;  savechannels    putserv "PART $ch :Leaving:)"  }  }  set tnks(timer) [utimer $tnks(gone) [list tnks:join $pchans]] } putlog "Nick-o-rama v1.1 Loaded."

Statistics: Posted by SpiKe^^ — Tue Aug 28, 2012 11:43 pm

Autonick changer + some futures

2012-08-28T22:23:38-04:00

[03:15:31] * nick (~ident@192.168.1.1) has joined #chan
[03:15:33] * nick is now known as CIA
[03:27:05] * CIA (~nick@192.168.1.1) has left #chan
[03:27:33] * nick2 (~nick@192.168.1.1) has joined #chan

Statistics: Posted by Arkadietz — Tue Aug 28, 2012 10:23 pm

Next!

2012-08-28T19:50:37-04:00

Maybe do the nicks something like this...

Code:

# set a list of nicks to use  (set to {} to disable this script) # set tnks(nicks) {nick1nick2anothernicketc} ;# end of set nicks ## how long the bot stays in channel/s  (in minutes) #set tnks(inchan) "5"# how long the bot stays out of channel/s  (in seconds) before joining again ( change nick before join ) # set tnks(gone) "15"## end of settings ## set tnks(tmls) [split [string trim $tnks(nicks)] "\n"]set tnks(nicks) ""foreach tnks(tmit) $tnks(tmls) {  set tnks(tmit) [string trim $tnks(tmit)]  if {$tnks(tmit) ne ""} {  lappend tnks(nicks) $tnks(tmit)  }}unset tnks(tmls) tnks(tmit)if {$tnks(nicks) eq ""} {  return  } set tnks(next) 0 if {![info exists tnks(timer)]} {   set tnks(timer) [timer $tnks(inchan) [list tnks:part]] } proc tnks:join {chans} {  global tnks nick altnick  if {$tnks(nicks) eq ""} {  return  }  set nick [lindex $tnks(nicks) $tnks(next)]  incr tnks(next)  if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  }  set altnick [lindex $tnks(nicks) $tnks(next)]  foreach ch $chans {  channel set $ch -inactive  }  set tnks(timer) [timer $tnks(inchan) [list tnks:part]] } proc tnks:part {} {  global tnks nick botnick  if {$tnks(nicks) eq ""} {  return  }  if {$botnick ne $nick} {  incr tnks(next)  }  if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  }  set pchans ""  foreach ch [channels] {   if {[botonchan $ch]} {  lappend pchans $ch  ;  channel set $ch +inactive  }  }  set tnks(timer) [utimer $tnks(gone) [list tnks:join $pchans]] } putlog "Nick-o-rama v1.1 Loaded."

And the timers are very sharp. Maybe it's the bot or network that isn't.

Statistics: Posted by SpiKe^^ — Tue Aug 28, 2012 7:50 pm

Autonick changer + some futures

2012-08-28T12:21:35-04:00

okay, can you fix it where i can describe the nicks in a list from a type:

set tnks(nicks) {
{nick}
{nick1}
{nick2}
}

also the timer is not sharp.

Statistics: Posted by Arkadietz — Tue Aug 28, 2012 12:21 pm

oops.

2012-08-27T08:09:42-04:00

sounds like a missing global:)

Code:

set tnks(nicks) {}   ;# a list of nicks to use  (set to {} to disable this script) # set tnks(inchan) "5"   ;# how long the bot stays in channel/s  (in minutes) # set tnks(gone) "15"   ;# how long the bot stays out of channel/s  (in seconds) #                       ;# before joining again ( change nick before join ) # ## end settings ## if {$tnks(nicks) eq ""} {  return  } set tnks(nicks) [split $tnks(nicks)] set tnks(next) 0 if {![info exists tnks(timer)]} {   set tnks(timer) [timer $tnks(inchan) [list tnks:part]] } proc tnks:join {chans} {  global tnks nick altnick  if {$tnks(nicks) eq ""} {  return  }  set nick [lindex $tnks(nicks) $tnks(next)]  incr tnks(next)  if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  }  set altnick [lindex $tnks(nicks) $tnks(next)]  foreach ch $chans {  channel set $ch -inactive  }  set tnks(timer) [timer $tnks(inchan) [list tnks:part]] } proc tnks:part {} {  global tnks nick botnick  if {$tnks(nicks) eq ""} {  return  }  if {$botnick ne $nick} {  incr tnks(next)  }  if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  }  set pchans ""  foreach ch [channels] {   if {[botonchan $ch]} {  lappend pchans $ch  ;  channel set $ch +inactive  }  }  set tnks(timer) [utimer $tnks(gone) [list tnks:join $pchans]] }

Statistics: Posted by SpiKe^^ — Mon Aug 27, 2012 8:09 am

Autonick changer + some futures

2012-08-27T07:06:47-04:00

There is an error on 31 row. how it should be filled aliases?

http://paste.tclhelp.net/?id=bkn

Line 31: ERROR: Unknown variable "nick"

Statistics: Posted by Arkadietz — Mon Aug 27, 2012 7:06 am

Autonick changer + some futures

2012-08-24T19:32:02-04:00

Maybe something like this...

Code:

set tnks(nicks) {}   ;# a list of nicks to use  (set to {} to disable this script) #set tnks(inchan) "5"   ;# how long the bot stays in channel/s  (in minutes) #set tnks(gone) "15"   ;# how long the bot stays out of channel/s  (in seconds) #                      ;# before joining again ( change nick before join ) ### end settings ##if {$tnks(nicks) eq ""} {  return  }set tnks(nicks) [split $tnks(nicks)]set tnks(next) 0if {![info exists tnks(timer)]} {  set tnks(timer) [timer $tnks(inchan) [list tnks:part]]}proc tnks:join {chans} {  global tnks nick altnick if {$tnks(nicks) eq ""} {  return  } set nick [lindex $tnks(nicks) $tnks(next)] incr tnks(next) if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  } set altnick [lindex $tnks(nicks) $tnks(next)] foreach ch $chans {  channel set $ch -inactive  } set tnks(timer) [timer $tnks(inchan) [list tnks:part]]}proc tnks:part {} {  global tnks botnick if {$tnks(nicks) eq ""} {  return  } if {$botnick ne $nick} {  incr tnks(next)  } if {$tnks(next)==[llength $tnks(nicks)]} {  set tnks(next) 0  } set pchans "" foreach ch [channels] {  if {[botonchan $ch]} {  lappend pchans $ch  ;  channel set $ch +inactive  } } set tnks(timer) [utimer $tnks(gone) [list tnks:join $pchans]]}

Statistics: Posted by SpiKe^^ — Fri Aug 24, 2012 7:32 pm

Autonick changer + some futures

2012-08-13T07:00:36-04:00

To has a list where i can put my nicks
To has a timer ( can be set ) how long the bot stay in channel/s
To has a timer ( can be set ) how long the bot stay out of channel/s before join again ( change nick before join )

Example:

[12:00:00] * nick (ident@somehost.com) has joined #chan
[12:45:00] * nick (ident@somehost.com) has left #chan
[13:00:00] * nick2 (ident@somehost.com) has joined #chan

Statistics: Posted by Arkadietz — Mon Aug 13, 2012 7:00 am