| View previous topic :: View next topic |
| Author |
Message |
sleepergr
Voice
Joined: 31 Jul 2006
Posts: 4
|
 Posted: Thu Jan 18, 2007 5:46 pm Post subject: AutoIdentify script for other nicks (DALnet) |
 |
|
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.. |
|
| Back to top |
|
 |
Alchera
Revered One
Joined: 11 Aug 2003
Posts: 3344
Location: Ballarat Victoria, Australia
|
| Posted: Thu Jan 18, 2007 8:45 pm Post subject: |
|
|
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.
_________________
Add [SOLVED] to the thread title if your issue has been.
Search | FAQ | RTM |
|
| Back to top |
|
|
sleepergr
Voice
Joined: 31 Jul 2006
Posts: 4
|
| Posted: Fri Jan 19, 2007 3:07 pm Post subject: |
|
|
| 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 |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Fri Jan 19, 2007 5:19 pm Post subject: |
|
|
If you don't know how to write an alias it doesn't mean you're an idiot. Try:
| Code: | 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"]
}
} |
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts |
|
| Back to top |
|
|
sleepergr
Voice
Joined: 31 Jul 2006
Posts: 4
|
| Posted: Sun Jan 21, 2007 2:46 am Post subject: |
|
|
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  |
|
| Back to top |
|
|
sleepergr
Voice
Joined: 31 Jul 2006
Posts: 4
|
| Posted: Sun Jan 21, 2007 3:41 pm Post subject: |
|
|
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.  |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
aqualife
Voice
Joined: 20 Mar 2007
Posts: 15
|
| Posted: Fri Feb 01, 2008 1:04 pm Post subject: |
|
|
I tried to use the above mentioned code with 1 day change, but its not working any correction will be appreciated.
Thanks. |
|
| Back to top |
|
|
Amr
Halfop
Joined: 14 Sep 2007
Posts: 94
Location: Egypt
|
| Posted: Fri Aug 22, 2008 7:19 pm Post subject: |
|
|
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 ? |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
| Posted: Sat Aug 23, 2008 2:06 pm Post subject: |
|
|
| Amr wrote: | 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: | 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.
_________________
Follow me on GitHub
- Opposing
Public Tcl scripts
Last edited by Sir_Fz on Sat Aug 23, 2008 3:47 pm; edited 2 times in total |
|
| Back to top |
|
|
Amr
Halfop
Joined: 14 Sep 2007
Posts: 94
Location: Egypt
|
| Posted: Sat Aug 23, 2008 2:51 pm Post subject: |
|
|
I got error when i run my eggdrop
| Code: | [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 {
..."
|
|
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
Amr
Halfop
Joined: 14 Sep 2007
Posts: 94
Location: Egypt
|
| Posted: Fri Oct 17, 2008 9:10 pm Post subject: |
|
|
| It doesn't work. |
|
| Back to top |
|
|
Sir_Fz
Revered One
Joined: 27 Apr 2003
Posts: 3793
Location: Lebanon
|
|
| Back to top |
|
|
Amr
Halfop
Joined: 14 Sep 2007
Posts: 94
Location: Egypt
|
| Posted: Sun Oct 19, 2008 9:57 am Post subject: |
|
|
The edited code didn't work at all.
| Code: | 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
}
}
}
|
|
|
| Back to top |
|
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
