egghelp/eggheads community

ctcp bind

2003-09-26T09:43:59-04:00

I wanted to say the same about the srd

Statistics: Posted by Sir_Fz — Fri Sep 26, 2003 9:43 am

ctcp bind

2003-09-26T09:22:51-04:00

Code:

set srd ""; regexp -all -- " " $arg "*" src

Don't you mean "set src" and "regsub"?

Statistics: Posted by user — Fri Sep 26, 2003 9:22 am

ctcp bind

2003-09-26T07:37:58-04:00

Change

Code:

puts $fp $in

Code:

puts $fp [join $in \n]

The screwed up DB may be the cause of it saying it still found one.

I can't see anything wrong with the script that would make it say otherwise.

Statistics: Posted by ppslim — Fri Sep 26, 2003 7:37 am

ctcp bind

2003-09-25T13:26:20-04:00

ok script works now but when /ctcp botnick !dead site.com
the site is removed but problem is the website list get messed up
note that i have put each website on a line
so when i use the ctcp botnick !dead all website become messed up
( i mean not each one on a line) and this cause damage to other scripts i run.
and one more thing when i /ctcp botnick !dead invalid website
for exemple : /ctcp botnick !dead sdfkjsdflkj
it says sdfkjsdflkj was deleted successfully instead of saying website not found . . .
10x for ur time but hope these bugs could be fixed

Statistics: Posted by inferno — Thu Sep 25, 2003 1:26 pm

ctcp bind

2003-09-25T11:23:52-04:00

Locate the line regexp -all -- " " $arg "*" src

Change it to

Code:

set srd ""; regexp -all -- " " $arg "*" src

Statistics: Posted by ppslim — Thu Sep 25, 2003 11:23 am

error

2003-09-25T09:30:47-04:00

ok i loaded ur script
eggdrop runs normally but give me this error in the party line when i try /ctcp botnick !dead http://www.site.com
(Insuline) [16:25] Tcl error [clear:dead]: can't read "src": no such variable
(Insuline) [16:25] Tcl error [clear:dead]: can't read "src": no such variable

Note that i have put the txt file which contains the websites in the eggdrop main directory i guess the problem is that it coudnt find zlist14.txt

Statistics: Posted by inferno — Thu Sep 25, 2003 9:30 am

ctcp bind

2003-09-25T06:58:43-04:00

Code:

bind ctcp - "!dead" clear:deadproc clear:dead {nick uh hand dest key arg} {  regexp -all -- " " $arg "*" src  set src "*${src}*"  set in [split [read [set fp [open zlist14.txt r]]] \n]  close $fp  if {[set idx [lsearch $in $src]] >= 0} {    set in [lreplace $in $idx $idx]    set fp [open zlist14.txt w]    puts $fp $in    close $fp    puthelp "PRIVMSG $nick :\00307Deleted \002 $arg \002 \00312Thx For Helping To Keep The List \002Clean"  } else {    oputhelp "PRIVMSG $nick :\00307Did \002Not\002 Find Anything For \00312\002 $arg"  }}

Statistics: Posted by ppslim — Thu Sep 25, 2003 6:58 am

ctcp bind

2003-09-25T06:44:58-04:00

hey there can any1 translate this mirc script into tcl ? i'll explain later what does this script means

ctcp *:!dead*:?: {
if ($read(zlist14.txt, wn, * $+ $replace($2-, $chr(32), *) $+ *)) {
write -dl [ $+ [ $readn ] ] zlist14.txt
msg $nick 7Deleted $2 12Thx For Helping To Keep The List Clean
}
else msg $nick 7Did Not Find Anything For 12 $2
}

Actually i am using a database script for my eggdrop which contains a list of websites . . . and what i want is when a user do a /ctcp botnick !dead url
for exemple: /ctcp botnick !dead http://www.google.com
the bot removes this url from the list . . .
i hope my post is clear and understood if not plz tell me i might clear more
note i have written the script code in the top if u can translate to tcl would be gr8 10x

Statistics: Posted by inferno — Thu Sep 25, 2003 6:44 am