This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.


For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

can you edit tgis Quote script

Requests for complete scripts or modifications/fixes for scripts you didn't write. Response not guaranteed, and no thread bumping!
Post Reply
Z
ZzozZ
Voice
Posts: 10
Joined: Sat Nov 13, 2010 6:42 pm

can you edit tgis Quote script

Post by ZzozZ »

I found this quote script.
Can you make it to say random quotes from all users and categories in random interval of time.
User avatar
SpiKe^^
Owner
Posts: 831
Joined: Fri May 12, 2006 10:20 pm
Location: Tennessee, USA
Contact:

Post by SpiKe^^ »

Add to quotes2112.cfg and edit the new settings.

Code: Select all

# Number of minutes between each timed say random quote
# Set this to "0" to disable all timed random quotes
set qtimedrandomly "10"

# Channels where we will do timed say random quote
# Note: Channel(s) Must be in 'quotechans' & Not in 'quotequietchans'
set qtimedrandchans "#mychan"

Add to quotes2112.tcl

Code: Select all

if {$qtimedrandomly>"0" && ![info exists qtimedrandrunnin]} {
  if {$qtimedrandomly>"5"} {  timer 5 [list proc:timedquotes]
  } else {  timer $qtimedrandomly [list proc:timedquotes]  }
  set qtimedrandrunnin 1
}

proc proc:timedquotes {} {
  if {$::qtimedrandomly=="0"} {  unset ::qtimedrandrunnin  ;  return  }
  foreach ch [split $::qtimedrandchans] {
    proc:quote $::botnick usr@host handle $ch random
  }
  timer $::qtimedrandomly [list proc:timedquotes]
}

Not tested, let me know how it works out.
SpiKe^^

Get BogusTrivia 2.06.4.7 at www.mytclscripts.com
or visit the New Tcl Acrhive at www.tclarchive.org
.
Post Reply