TCL script error

[defcon]

hi there
i made my own little script..

bind pub - !gib get_data

proc get_data {rest nick uhost chan hand} {
if {![matchattr $hand v|v $chan]} {
return 0
}
set $wem [lindex $rest 0]
set $was [lrange $rest 1 end]
if {$restliche == 0} {
putserv "NOTICE $nick : Bedienung - !gib"
return 0
}
putserv "PRIVMSG $chan :\001ACTION gibt $wem $was\001"
}

the problem is.. when i type !gib there is notice from the bot
or !gib defcon Beer
thers is nothing...the only positive thing is.. when i load the script, there is no error message.

where is the error in the script ? please help me
greetz

[Sir_Fz]

Code: Select all

proc get_data {rest nick uhost chan hand} {

should be

Code: Select all

proc get_data {nick uhost hand chan rest} {

and

Code: Select all

set $wem [lindex $rest 0] 
set $was [lrange $rest 1 end]

should be

Code: Select all

set wem [lindex [split $rest] 0] 
set was [join [lrange [split $rest] 1 end]]

and I think what you mean with if {$restliche == 0} { is if {$rest == 0} {

[defcon]

thats the answer from my bot in telnet session *g*


Tcl error [get_data]: wrong # args: should be "get_data nick uhost handchan rest"

[caesar]

It should be:

proc get_data {nick uhost hand chan rest} {

not like I guess you have:

proc get_data {nick uhost handchan rest} {

[defcon]

ok.. this error message is gone..
the netxt problem is, wenn i type for example "!gib defcon bier" .. nothing happens in the channel, and no error messi in the partyline.

[caesar]

Are you shure you have changed how Sir_Fz told you to?

[defcon]

bind pub - !gib get_data

proc get_data {nick uhost hand chan rest} {
if {![matchattr $hand v|v $chan]} {
return 0
}
set wem [lindex [split $rest] 0]
set was [join [lrange [split $rest] 1 end]]
if {$rest == 0} {
putserv "NOTICE $nick : Bedienung - !gib"
return 0
}
putserv "PRIVMSG $chan :\001ACTION gibt wem was\001"
}

yes, i did.

[caesar]

Code: Select all

bind pub v !gib get_data 

proc get_data {nick uhost hand chan rest} { 
  set wem [lindex [split $rest] 0] 
  set was [join [lrange [split $rest] 1 end]] 
  if {$rest == ""} { 
    putserv "NOTICE $nick : Bedienung - !gib" 
    return
  } 
  putserv "PRIVMSG $chan :\001ACTION gibt $wem $was\001" 
}

and be shure you have the v flag.

[defcon]

hmm... i have the v flag in channel

set wem [lindex [split $rest] 0]
set was [join [lrange [split $rest] 1 end]]

why is "wem" and "was" no variable ?

and here is it a variable:

putserv "PRIVMSG $chan :\001ACTION gibt $wem $was\001"

i don't understand this

[defcon]

when i load this script:

bind pub - !gib get_data

proc get_data {nick uhost hand chan rest} {
set wem [lindex [split $rest] 0]
set was [join [lrange [split $rest] 1 end]]
if {$rest == 0} {
putserv "NOTICE $nick : Bedienung - !gib"
return 0
}
putserv "PRIVMSG $chan :\001ACTION gibt $wem $was\001"
}

following happens:

(10:26) (netstat) !gib defcon bier
(10:26) ! %City_Bot gibt defcon bier
(10:27) (netstat) !gib bier
(10:27) ! %City_Bot gibt bier
(10:28) (netstat) !gib
(10:28) ! %City_Bot gibt

i thougt when $rest == 0, the bot should send a notice ?

[caesar]

via set you set an variable and via $ you call it.

[defcon]

aaaahhh.. ok, thx

but.. whats about the notice if $rest == 0 ?

there's noting, when i type !gib in the channel

[caesar]

According to that try with !gib 0 and something will happen. It should be if {$rest == ""} { as in you've said in the channel only !gib

[defcon]

aahh.. ok, i know.
cons.. u are realy a master

well.. i would like to change the answer from the bot..

e.g. when i type !gib Nickname Beer

the bot shoul say:

City_Bot gives u a beer or 2, but don't drink to much.

or: !gib Nickname Döner

City_Bot gives u a big hot Döner Kebap

do u know what i mean ?

do u know if there is anywhere an existing script like this ?

[caesar]

I see 3 german bartender tcl scripts in the TCL Archive.. pick one.