egghelp/eggheads community

Money.tcl

2018-08-10T10:44:28-04:00

This line of code is where we get that error

Code:

money chan nick hand

I am not sure exactly what you are going for here, but you will want to pass the variable values to the next process, Not the variable names...

Code:

money $chan $nick $hand

And you are calling [money] with the wrong number of arguments.
The proc is wrote requiring 4 args, you are calling it with 3.

Please post the entire script here, or at least all binds/procs leading up to this process. You have several other errors still to come:)

Statistics: Posted by SpiKe^^ — Fri Aug 10, 2018 10:44 am

Money.tcl

2018-08-10T09:53:27-04:00

This is the error i get [15:52:46] Tcl error [join:money]: wrong # args: should be "money nick chan arg"

Statistics: Posted by l.kleijn — Fri Aug 10, 2018 9:53 am

Money.tcl

2018-08-10T09:03:26-04:00

I wrote a script but it won't work.
The intention is that after a join a file read.
and if the nick is not in the list there would deposit money to the file

Code:

proc join:money {nick host chan arg} {  global botnick  set searchstring $arg  set fname "money.txt"  set fp [open $fname "r"]  set data [read -nonewline $fp]  close $fp  set lines [split $data "\n"]  set searchresult ""  foreach line $lines {     if {[string match *$nick* [join $line]]} {        lappend searchresult $line     }     if {[$nick == "[lindex [split [join $searchresult] "|"] 0]"} {        putserv "NOTICE $nick :Je bent al een keer hier geweest."        return 0     }     money chan nick hand  }}proc money {chan nick hand what} {     set line_to_add "$nick|500"     set fname "money.txt"     set fp [open $fname "a"]     puts $fp $line_to_add     close $fp     putserv "NOTICE $nick :Welkom op $chan, u heeft zojuist geld ontvangen"     putserv "NOTICE $nick :om bij mij uit te kunnen geven aan de bar."     return 0}

Statistics: Posted by l.kleijn — Fri Aug 10, 2018 9:03 am