AutoIdentify script for other nicks (DALnet)

[sleepergr]

Hello,
I need a script to identify other nicknames (many) every some days (for example every 10 days)
I want it for DALnet (/msg nickserv is not working. only /msg nickserv@services.dal.net)
I need that to keep alive nicks of friends that are far away for a long time etc..

[Alchera]

Nicks on DALnet do not expire for 31 days. There is no need to identify off-line nicks every 10 days. You only need write yourself a simple mIRC alias to identify manually.

[sleepergr]

NO. i need it to put it on my eggdrop. i use mirc from many different pcs so that u said is impossible. If i was using irc only at my home yes i know to make an alias. i`m not an idiot

[Sir_Fz]

If you don't know how to write an alias it doesn't mean you're an idiot. Try:

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"]
 }
}

[sleepergr]

yes u right Sir_fz. sry for my previous post.

thx for the tcl Sir_Fz. i`ll try it today and if i have any problem i`ll post again

[sleepergr]

sir_fz i loaded but i dont know if it`s working. what i must change so the script will do the identify every 1 day to see if is working. then i`ll do it again every ten days.

[Sir_Fz]

instead of "10 days" try "1 day"

[aqualife]

I tried to use the above mentioned code with 1 day change, but its not working any correction will be appreciated.

Thanks.

[Amr]

I tried this script , I have a big list to identify , when it identify the nicks , it just identify the first 14 nick , and it quit with "Killed (services.dal.net (Do not flood services))]"

Any ideas to fix it ?

[Sir_Fz]

I tried this script , I have a big list to identify , when it identify the nicks , it just identify the first 14 nick , and it quit with "Killed (services.dal.net (Do not flood services))]"

Any ideas to fix it ?

Try

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} {
  identifyNicks $nicksNpasses
  set tenDays [clock scan "10 days"]
 }
}

proc identifyNicks np {
 set items 0
 foreach {nick pass} $np {
  if {$items < 5} {
   puthelp "NickServ :identify $nick $pass"
   incr items
  } {
   utimer 15 [list identifyNicks [lrange $nicksNpasses [expr {$items*2}] end]]
   break
  }
 }
}

This will identify 5 nicks every 15 seconds (you can reduce the wait time by changing the "15" value of the utimer).

Edit: Fixed brace-balance + $items instead of items.

[Amr]

I got error when i run my eggdrop

Code: Select all

[21:49] missing close-brace
    while executing
"proc identifyNicks np {
 set items 0
 foreach {nick pass} $np {
 if {items < 5} {
   puthelp "NickServ :identify $nick $pass"
   incr items
} else {
 ..."

[Sir_Fz]

Try the edited code.

[Amr]

It doesn't work.

[Sir_Fz]

Explain what worked and what didn't.

[Amr]

The edited code didn't work at all.

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} {
  identifyNicks $nicksNpasses
  set tenDays [clock scan "10 days"]
 }
}

proc identifyNicks np {
 set items 0
 foreach {nick pass} $np {
  if {$items < 5} {
   puthelp "NickServ :identify $nick $pass"
   incr items
  } {
   utimer 15 [list identifyNicks [lrange $nicksNpasses [expr {$items*2}] end]]
   break
  }
 }
}