egghelp/eggheads community

Public Quotes System (current version: 1.32)

2014-01-13T21:34:02-04:00

I am running speechles's Attempt x3 Version and just found an error.

Short description:
If you do !findquote in any channel other then the one the quote was added in, the command don't work.

Long description:
If I do in a different channel: !findquote #channel
I am getting:
[17:23:40] Tcl error [pubqsys::findquote]: no such channel record <-- In DCC Chat

If I do in a different channel: !findquote -all
I get no error but I don't get a reply from the bot.

If I do in a different channel: !findquote #channel
I am getting:
[6:29pm] ::: Error : Empty database. <-- In Channel

All other commands seem to work fine in a different channel then the quote was added and the bot finds the channel record

Examples:
!quote 1 #channel works
!randquote #channel works
etc.

NOTE: I already edited It's line 793

Thanks for any help fixing the issue

Edit/Update: I removed speechles's Attempt x3 Version and replaced it with the original one from the Archives and now everything works with no errors.

Statistics: Posted by play4free2 — Mon Jan 13, 2014 9:34 pm

Public Quotes System (current version: 1.32)

2013-12-09T12:03:02-04:00

Both don't work... nothing happens.

Statistics: Posted by x0x — Mon Dec 09, 2013 12:03 pm

Public Quotes System (current version: 1.32)

2013-12-07T04:08:33-04:00

Code:

proc pubqsys::channel_check {chan nick} {      if {[channel get $chan quotes] && [isop $nick $chan]} { return 1 }return 0}

this proc is doing that, so either add a variable where you could set this channel_check on/off, like this:

Code:

variable channel_check 0

added in the settings area, and replace the above proc with:

Code:

proc pubqsys::channel_check {chan nick} {      variable channel_check      if {$channel_check && [isop $nick $chan]} { return 1 }return 0}

or create a channel flag and enable it per channel where you want it to be active only for channel operators, like this:

Code:

setudef flag channel_check

added in the settings area, and replace the above proc with:

Code:

proc pubqsys::channel_check {chan nick} {      if {[channel get $chan channel_check] && [isop $nick $chan]} { return 1 }return 0}

Statistics: Posted by caesar — Sat Dec 07, 2013 4:08 am

Public Quotes System (current version: 1.32)

2013-12-06T15:47:32-04:00

Correct. I want my normal users to be able to !randquote, !quote, !quoteinfo with the script above. Now all commands are channel ops only. How to change this?

Statistics: Posted by x0x — Fri Dec 06, 2013 3:47 pm

Public Quotes System (current version: 1.32)

2013-11-14T13:58:44-04:00

That one gives:
[18:58:04] Tcl error in script for 'timer3':
[18:58:04] missing close-bracket
in expression "[info exists instance($..."

It's line 793:
Wrong:

Code:

if {[info exists instance($chan$type)} {

Correct:

Code:

if {[info exists instance($chan$type)]} {

Statistics: Posted by c0urier — Thu Nov 14, 2013 1:58 pm

Public Quotes System (current version: 1.32)

2013-04-13T18:35:30-04:00

Ups! I see these errors on the bot console

[20:59:41] Tcl error in script for 'timer19':
[20:59:41] can't read "instance(#MYCHANNELglobal)": no such element in array

Indeed, it's the odd shimmering effect rampant in this script it causes problems.. I've hopefully fixed the issue you were having with the timers. If not, shout out again.

Attempt x3: http://ereader.kiczek.com/public_quotes_chanops.txt

Statistics: Posted by speechles — Sat Apr 13, 2013 6:35 pm

Public Quotes System (current version: 1.32)

2013-04-13T15:07:12-04:00

Ups! I see these errors on the bot console

[20:59:41] Tcl error in script for 'timer19':
[20:59:41] can't read "instance(#MYCHANNELglobal)": no such element in array

Statistics: Posted by x0x — Sat Apr 13, 2013 3:07 pm

Public Quotes System (current version: 1.32)

2013-04-13T15:03:20-04:00

Works like a charm!

Statistics: Posted by x0x — Sat Apr 13, 2013 3:03 pm

Public Quotes System (current version: 1.32)

2013-04-13T13:35:06-04:00

Ok, it was missing indeed. Added it, enabled it with the bot. Still does not work.

When someone tries one of the commands:

[16:47:11] Tcl error [pubqsys::quote]: illegal channel: USERSNICKNAME

On snap dog, that isn't cool... So ran the thing myself this time, tested it, and now she works...exactly as you desire.

http://ereader.kiczek.com/public_quotes_chanops.txt

Enjoys

Statistics: Posted by speechles — Sat Apr 13, 2013 1:35 pm

Public Quotes System (current version: 1.32)

2013-04-13T10:48:04-04:00

Ok, it was missing indeed. Added it, enabled it with the bot. Still does not work.

When someone tries one of the commands:

[16:47:11] Tcl error [pubqsys::quote]: illegal channel: USERSNICKNAME

Statistics: Posted by x0x — Sat Apr 13, 2013 10:48 am

Public Quotes System (current version: 1.32)

2013-04-13T10:23:54-04:00

Search for this line in the script and see if it's there...

Code:

setudef flag quotes

If it's not, add it to the top of the script.

Then in dcc chat with the bot, enable the script for each channel you want the script to run in, with...

.chanset #yourchan +quotes

Statistics: Posted by SpiKe^^ — Sat Apr 13, 2013 10:23 am

Public Quotes System (current version: 1.32)

2013-04-13T06:36:47-04:00

Don't think it works, there is no "-quotes" so no option to set "+quotes".

Statistics: Posted by x0x — Sat Apr 13, 2013 6:36 am

Public Quotes System (current version: 1.32)

2013-04-13T06:25:51-04:00

Very, very nice! THANK you!

Statistics: Posted by x0x — Sat Apr 13, 2013 6:25 am

Public Quotes System (current version: 1.32)

2013-04-13T01:05:44-04:00

But that disables this setting completely and makes the script reply in all channels the bot is on...

Code:

setudef flag quotes...if {[pubqsys::channel_check $chan $nick] == 0} {...proc pubqsys::channel_check {chan nick} {  if {[channel get $chan quotes] && [isop $chan $nick]} { return 1 }  return 0}...

I've altered the procedure to check for more than it originally did and altered every invocation as well. Then changed how it builds allowed_channels internally in each procedure.

Code:

set allowed_chans [list]; foreach chan [channels] { if {[channel get $chan quotes]} { lappend allowed_chans $chan } }

This behaves identically to having it "static" within the config as a variable. But with the benefit you can dynamically at any time turn it on/off in channels on a whim. The quotes are different for each channel by the way. You use the -all switch to make the channel irrelevant.

So really, I took the limitations the script had away and made it perform exactly as x0x has requested.

Statistics: Posted by speechles — Sat Apr 13, 2013 1:05 am

Public Quotes System (current version: 1.32)

2013-04-12T23:24:35-04:00

But that disables this setting completely and makes the script reply in all channels the bot is on...

Code:

  variable allowed_chans {#yourchan}

Maybe something more like this??

Code:

proc pubqsys::channel_check {chan nick} {  if {[isop $chan $nick] && [lsearch -exact $pubqsys::allowed_chans $chan]>"-1"} { return 1 } { return 0 }}

Statistics: Posted by SpiKe^^ — Fri Apr 12, 2013 11:24 pm