Script request!

[jsilvestre]

Good morning!

I here to request a simple script.
I have many nicks and i need a script to my eggdrop change is nick every X minutes.

[Sir_Fz]

Code: Select all

# change nick after how many mins ?
set nchange(mins) "10"

# your nicks:
set nchange(nicks) "nick1 nick2 nick3"

# script goes here:

timer $nchange(mins) [list change:nick $nchange(nicks) $nchange(mins)]
set nchange(length) 0

proc change:nick {nicks mins} {
global nick nchange 
incr nchange(length)
if {"$nchange(length)" > "[llength $nicks]"} { set nchange(length) 1 }
set nick "[lindex $nicks [expr {$nchange(length)-1}]]"
timer $mins [list change:nick $nicks $mins]
}

This should change the bot's nick every x minutes respectivley from nchange(nicks).

[Kurupt]

Code: Select all

bind time - "*5 * * * *" change:it
proc change:it {min hour day month year} {
global nick
set nick [randstring 9]
}

[Sir_Fz]

Code: Select all

bind time - "*5 * * * *" change:it
proc change:it {min hour day month year} {
global nick
set nick [randstring 9]
}

that'll change the bot's nick to a 9 charactered random nick every 5 minutes, that's not what he wants.

[Kurupt]

oh sorry i whas a lil disturbed

[jsilvestre]

Sir_Fz thanks

[Sir_Fz]

You're welcome, but you will face problems when you rehash since you will have several timers running. This should fix it:

Code: Select all

# change nick after how many mins ? 
set nchange(mins) "10" 

# your nicks: 
set nchange(nicks) "nick1 nick2 nick3" 

# script goes here: 

foreach ntimer [timers] {
 if {[string match -nocase "*change:nick*" "[lindex $ntimer 1]"]} { 
  killtimer [lindex $ntimer 2]
 }
}
timer $nchange(mins) [list change:nick $nchange(nicks) $nchange(mins)] 
set nchange(length) 0 

proc change:nick {nicks mins} { 
global nick nchange 
incr nchange(length) 
if {"$nchange(length)" > "[llength $nicks]"} { set nchange(length) 1 } 
set nick "[lindex $nicks [expr {$nchange(length)-1}]]" 
timer $mins [list change:nick $nicks $mins] 
}

Not tested.

[jsilvestre]

This script work very well...Tks one more time

[Merlin]

it has as to place various nicks and passwords to identify nickserv?

[Alchera]

it has as to place various nicks and passwords to identify nickserv?

No! It simply does as was originally requested; change nicks.

[sk-4]

any chance to make the bot to identified each nick with his own pass

# change nick after how many mins ?
set nchange(mins) "10"

# your nicks:
set nchange(nicks) "nick1 nick2 nick3"

set nchange(pass) "pass1" ''pass2' "pass3"

[elisca]

Code: Select all

set nicksNpasses { 
 nick1 pass1 
 nick2 pass2 
 nick3 pass3 
} 

set tenDays [clock scan "10 days"] 

bind time - {00 00 *} identify:nicks 

proc identify:nicks args { 
 global nicksNpasses tenDays 
 if {[unixtime] >= $tenDays} { 
  foreach {nick pass} $nicksNpasses { 
   puthelp "NickServ :identify $nick $pass" 
  } 
  set tenDays [clock scan "10 days"] 
 } 
}

Note : write by Sir_Fz

[sk-4]

thanks for the reply elesca, i did try out that script ,the problem is it identified all nick and cause nick get akill someime cause its identifiy all the nick.. what i want is the script will chnage bot nick according times and it can be identifed one bye one

[Sir_Fz]

Try

Code: Select all

# change nick after how many mins ?
set nchange(mins) 10

# your nicks:
set nchange(nicks) {
 nick1 pass1
 nick2 pass2
 nick3 pass3
}

# script goes here:

foreach ntimer [timers] {
 if {[string match -nocase "*change:nick*" [lindex $ntimer 1]]} {
  killtimer [lindex $ntimer 2]
 }
}
timer $nchange(mins) [list change:nick $nchange(nicks) $nchange(mins)]
set nchange(length) 0

proc change:nick {nicks mins} {
 global nick nchange
 set nchange(length) [expr {$nchange(length)%[llength $nicks]}]
 set nick [lindex $nicks $nchange(length)]
 set nchange($nick) [lindex $nicks [incr nchange(length)]]
 incr nchange(length)
 timer $mins [list change:nick $nicks $mins]
}

bind nick - * identify:nick

proc identify:nick {n uhost hand chan nn} {
 global nchange
 if {[isbotnick $nn] && [info exists nchange($nn)]} {
  putserv "NickServ :identify $nn $nchange($nn)"
  unset nchange($nn)
 }
}

This should identify the nickname once the bot changes its nickname (untested).

[minilogo]

how if i want to change the timer from minutes to seconds ?

to let the bots ident nick more faster

Edit: NVM.. found it already replacing timers with utimers and timer with utimer