egghelp/eggheads community

add command to dreamer invite script?

2005-12-29T11:40:25-04:00

Sir_Fz wrote:
"Doesn't work" doesn't help you, you probably got an error and didn't bother to post it here.
Code:
proc del_1 [nick uhost hand args } {

should be
Code:
proc del_1 {nick uhost hand args } {

for starters.

I notice that type error when I tried it.

the error i get is:

Tcl error [del-1] : cant read "db": no such variable

I found the mistake:

Code:

   global chan_1db

should be

Code:

   global chan_1 db

Now it response to: /msg @del

But if try a nick and pass thats in the db it will only say:

*botnick* The username was not found in the Database

So it is not finding the nicks that are in the db.

I checked the db and the nicks are still there.

Statistics: Posted by brood — Thu Dec 29, 2005 11:40 am

add command to dreamer invite script?

2005-12-28T23:17:22-04:00

You can read the file into a list, delete the line from the list and write the new list to the file.

Statistics: Posted by Sir_Fz — Wed Dec 28, 2005 11:17 pm

add command to dreamer invite script?

2005-12-28T19:28:36-04:00

"Doesn't work" doesn't help you, you probably got an error and didn't bother to post it here.
Code:
proc del_1 [nick uhost hand args } {
should be
Code:
proc del_1 {nick uhost hand args } {
for starters.

Thank you, this was actually a type error...
But I think this isn't the problem. I wasn't very sure, what I have to do if I want to erase a line in some text file. I tried to search tcl.tk but I found nothing and I just writed:

Code:

delete $deluser

but I think, that this insn't the right syntax, it could be better if I add just -. instead of erasing the whole line. Hmm how I said I'm not very sure for the syntax.

Statistics: Posted by IRCNick — Wed Dec 28, 2005 7:28 pm

add command to dreamer invite script?

2005-12-28T19:01:51-04:00

sorry, it doesnt seem to work

but thanks for the response[/code]

Code:

.set errorInfo

... then paste result into your post.

Statistics: Posted by Alchera — Wed Dec 28, 2005 7:01 pm

add command to dreamer invite script?

2005-12-28T18:59:01-04:00

"Doesn't work" doesn't help you, you probably got an error and didn't bother to post it here.

Code:

proc del_1 [nick uhost hand args } {

should be

Code:

proc del_1 {nick uhost hand args } {

for starters.

Statistics: Posted by Sir_Fz — Wed Dec 28, 2005 6:59 pm

add command to dreamer invite script?

2005-12-28T17:58:57-04:00

sorry, it doesnt seem to work

but thanks for the response[/code]

Statistics: Posted by brood — Wed Dec 28, 2005 5:58 pm

add command to dreamer invite script?

2005-12-28T08:08:11-04:00

I'm newbie in tcl but I want to learn, thats why I'm trying. This code is untested and could be wrong (I'm fast sure that it is wrong), use it on your own risk !

Ok add after

Code:

bind msg n add add_1

this line

Code:

bind msg n del del_1

and add this proc after the first proc

Code:

proc del_1 [nick uhost hand args } {   global chan_1db   set args [split $args " "]   set user [lindex $args 0]   set user [string range $user 1 end]   set pass [lindex $args 1]   set pass [string range $pass 0 end-1]   set deluser $user|$pass   set found 0   set wfile [open $db a+]   while {![eof $wfile]} {   gets $wfile line   if {$line == $deluser} {     delete $deluserset found 1    }   }   close $wfile   if {$found} {   puthelp "NOTICE $nick : \002\[\0039DB-UPDATE\003\]\002 + \002$user\002 is deleted successful from INVITE-Database"   } else {   puthelp "NOTICE $nick :The username was not found in the Database"   }}

And the command to delete nicks should be:

Code:

/msg  @del

Good luck

Statistics: Posted by IRCNick — Wed Dec 28, 2005 8:08 am

add command to dreamer invite script?

2005-12-28T07:13:04-04:00

Hi, im using invite script by dreamer

Code:

############################################# Channel invite 0.1 BETA# Scripted by Dreamer# ############################################# Type /msg  @add   # to add someone to the database# Type /msg  @invite  # to get invited in to channel## History:# 0.1: First version############################################# EDIT FROM HERE# Channel where the bot wil inviteset chan_1 "#TCG"# Name of the databaseset db scripts/chan.invite# STOP EDITING FROM HEREset ver "0.1"bind msg n add add_1bind msg - invite inv_1putlog "Channel invite $ver by Dreamer loaded"# Script starts nowproc add_1 { nick uhost hand args } {global chan_1 dbset args [split $args " "]set user [lindex $args 0]set user [string range $user 1 end]set pass [lindex $args 1]set pass [string range $pass 0 end-1]if { $user == "" || $pass == "" } { putserv "PRIVMSG $nick :Please instert a Nickname and a password" return 0}set up $user|$passset wfile [open $db a+]puts $wfile $upclose $wfileputserv "PRIVMSG $chan_1 :\002\[\0039DB-UPDATE\003\]\002 + \002$user\002 is added to INVITE-Database by \002$nick\002"}proc inv_1 { nick uhost hand arg } {global chan_1 dbset found 0set arg [split $arg " "]set user1 [lindex $arg 0]set user1 [string range $user1 0 end]set pass1 [lindex $arg 1]set pass1 [string range $pass1 0 end]set up1 $user1|$pass1set found 0 set fs [open $db r] while {![eof $fs]} { gets $fs line if {$line == $up1} { set found 1 } } close $fs if {$found} { putserv "PRIVMSG $chan_1 :\002\[\0039INVITE\003\]\002 - \002$user1\002 invited himself as \002$nick\002" putserv "invite $nick $chan_1"} else {putserv "PRIVMSG $nick :Wrong pass or username !!!!"putserv "PRIVMSG $chan_1 : \002\[\0034INTRUDER\003\]\002 - $nick tried to get in the channel with wrongpass or username"} }

Can a command be added to delete nicks I dont want to be in the invite-db annymore? Something like:

/msg @del

thanks

Statistics: Posted by brood — Wed Dec 28, 2005 7:13 am