egghelp/eggheads community

Quotes.tcl v0.1

2007-11-20T19:56:19-04:00

If you are looking for a full featured quotes manager script and a working link, you can take a look at my Public Quotes System

Statistics: Posted by MenzAgitat — Tue Nov 20, 2007 7:56 pm

Quotes.tcl v0.1

2007-11-20T18:41:40-04:00

Links are broken.

Look at the original post date and then put 2 and 2 together.

Statistics: Posted by Alchera — Tue Nov 20, 2007 6:41 pm

Quotes.tcl v0.1

2007-11-20T11:37:49-04:00

Links are broken.

Statistics: Posted by krieg — Tue Nov 20, 2007 11:37 am

Quotes.tcl v0.1

2006-01-31T05:41:56-04:00

Hi metroid

Thanks for your suggestions, I appreciate them. I hope you didn't mind however I updated the script with your suggestions.

Statistics: Posted by rt — Tue Jan 31, 2006 5:41 am

Quotes.tcl v0.1

2006-01-31T04:57:02-04:00

Some notes

Code:

source /home/Kicky/calbot/scripts/vars.tcl

this line is found in the code, this is basically stupid as this path will never be right for 99.9999% of all users

Code:

     if {[string match -nocase $arguments ""]} {

i would personally just use

Code:

if {[lindex [split $arguments] 0] == ""} {

seeing as your code would get an error because you don't split $arguments

Code:

     if {[string match -nocase $arguments ""]} {          putquick "NOTICE $nickname :Quotes.tcl is currently [quotes::check $channel]"      }      if {[string match -nocase $arguments "on"]} {            channel set $channel +quote           putquick "NOTICE $nickname :Done. Quotes are now enabled."           return      }      if {[string match -nocase $arguments "off"]} {            channel set $channel -quote           putquick "NOTICE $nickname :Done. Quotes are now disabled."      }

It's imo better to use

Code:

if {[string equal -nocase [lindex [split $arguments] 0] on]} {  channel set $channel +quote  putquick "NOTICE $nickname :Done. Quotes are now enabled."} elseif {[string equal -nocase [lindex [split $arguments] 0] off]} {  channel set $channel -quote  putquick "NOTICE $nickname :Done. Quotes are now enabled."} else {  putquick "NOTICE $nickname :Quotes is currently [expr {[channel get $channel quote] ? "on" : "off"}]"}

Viewing your code i see alot of if's where you can easily use elseif's.
All those if's are not needed and elseif would be a better a choice.

It's upto you to use what i'm saying, i'm not forcing upon it nor am i saying your a bad scripter. I used to write my scripts the same way

Take my advice/suggestions or don't. That's completely upto you

Statistics: Posted by metroid — Tue Jan 31, 2006 4:57 am

Quotes.tcl v0.1

2006-01-31T04:25:12-04:00

Umm, no one interested?

Statistics: Posted by rt — Tue Jan 31, 2006 4:25 am

Quotes.tcl v0.1

2006-01-28T15:28:22-04:00

Quotes.tcl - Created by Calum Wood(cal@e-frag.net)

To-do list:
- A !search command to be able to search for quotes- ie. !search *moo*
- An online interface using xela's web interface to show quotes.

Bugs:
- None as of yet.

If you find one or have a suggestion connect to Quakenet and type /msg mrBot qbug

Commands:
- !status (to view status)
- !status on/off to change wether the script is active on the channel.
- !add
- !del
- !rand - brings up a random quote
- !view - views the quote.

I am sure you all reckon that !search would be a good idea - I'm just waiting for a little feedback on v0.1 before I work on anything else.

Feedback/Comments/Suggestions Appreciated.

Download link: http://www.djcalleh.net/quotes.tcl

YOU MUST HAVE http://www.djcalleh.net/vars.tcl

Statistics: Posted by rt — Sat Jan 28, 2006 3:28 pm