egghelp/eggheads community

Bartender bot

2004-02-12T14:00:00-04:00

Name Version Date Last Author Downloads Description
BarScript - - fedayking 215 A simple Dutch bartender script.
coffeeshop.tcl - - fedayking 174 A Dutch bartender script.
knuffel.tcl - - NeoFlame 76 A simple Dutch bartender script.

I see three bartender bots but they are not in english... is there any that are an where would i find one?

Dawnstar

Statistics: Posted by Guest — Thu Feb 12, 2004 2:00 pm

TCL script error

2003-10-26T06:53:46-04:00

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

Statistics: Posted by caesar — Sun Oct 26, 2003 6:53 am

TCL script error

2003-10-26T06:16:50-04:00

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 ?

Statistics: Posted by Guest — Sun Oct 26, 2003 6:16 am

TCL script error

2003-10-26T06:07:28-04:00

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

Statistics: Posted by caesar — Sun Oct 26, 2003 6:07 am

TCL script error

2003-10-26T06:03:02-04:00

aaaahhh.. ok, thx

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

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

Statistics: Posted by Guest — Sun Oct 26, 2003 6:03 am

TCL script error

2003-10-26T05:52:19-04:00

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

Statistics: Posted by caesar — Sun Oct 26, 2003 5:52 am

TCL script error

2003-10-26T05:37:16-04:00

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 ?

Statistics: Posted by Guest — Sun Oct 26, 2003 5:37 am

TCL script error

2003-10-26T05:02:43-04:00

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

Statistics: Posted by Guest — Sun Oct 26, 2003 5:02 am

TCL script error

2003-10-26T04:55:32-04:00

Code:

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.

Statistics: Posted by caesar — Sun Oct 26, 2003 4:55 am

TCL script error

2003-10-26T04:44:37-04:00

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.

Statistics: Posted by Guest — Sun Oct 26, 2003 4:44 am

TCL script error

2003-10-26T04:37:54-04:00

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

Statistics: Posted by caesar — Sun Oct 26, 2003 4:37 am

TCL script error

2003-10-26T04:19:39-04:00

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.

Statistics: Posted by Guest — Sun Oct 26, 2003 4:19 am

TCL script error

2003-10-26T04:13:13-04:00

It should be:

proc get_data {nick uhost hand chan rest} {

not like I guess you have:

proc get_data {nick uhost handchan rest} {

Statistics: Posted by caesar — Sun Oct 26, 2003 4:13 am

TCL script error

2003-10-26T04:02:56-04:00

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

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

Statistics: Posted by Guest — Sun Oct 26, 2003 4:02 am

TCL script error

2003-10-25T17:39:13-04:00

Code:

proc get_data {rest nick uhost chan hand} {

should be

Code:

proc get_data {nick uhost hand chan rest} {

and

Code:

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

should be

Code:

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} {

Statistics: Posted by Sir_Fz — Sat Oct 25, 2003 5:39 pm