Code: Select all
######################################
# Edit these settings to your liking #
######################################
#Channel where game is played.
set acrochan "#chan"
#Command which will start the game.
set acrostartcmd "!acro"
#Minimum number of letters for acros.
set acromin 3
#Maximum number of letters for acros.
set acromax 5
#Letters to select from when generating an acro.
set acroletters "abcdefghijklmnopqrstuvwxyz"
#Number of rounds to play.
set acrorounds 1
#Number of seconds to give players for submitting an acro.
set acrotime 60
#Number of seconds to give players to vote for an acro.
set acrovotetime 60
#Number of seconds between rounds.
set acrogaptime 15
#Text to use in, e.g. "Nobody played the round. Are you guys going to play? :-("
set acrodisgust [list "Pathetic!" "Disgusting!" "Terrible!" "Sheesh!!"]
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
# #
# Any editing done beyond this point is done at your own risk! #
# #
# # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # # #
set acrover "1.0.1"
set acrorel "release"
putlog "Loading acro.tcl $acrover ($acrorel) by Souperman..."
putlog " Visit \037http://www.eggdrop.za.net/\037 for updates and other Tcl scripts."
if {![info exists alltools_loaded]||$allt_version<204} {
putlog "\002[file tail [info script]]\002 failed to load: please load alltools.tcl v1.6 or higher before attempting to load this script."
return
}
if {[llength [split $acrochan]]!=1} {
putlog "\002[file tail [info script]]\002 failed to load: too many channels specified."
return
}
if {![info exists acroplaying]} {set acroplaying 0}
bind pub -|- $acrostartcmd acrostart
proc acrostart {nick host hand chan text} {
global acrochan acroplaying acrorounds acroround acroroundscores acrorealnames
if {[strlwr $acrochan]==[strlwr $chan]} {
if {$acroplaying==0} {
putmsg $acrochan "===== ACRO Game started by $nick! ====="
set acroplaying 1
set acroround 1
array unset acroroundscores
array set acroroundscores {}
array unset acrorealnames
array set acrorealnames {}
acrosel
}
}
}
proc acrosel {} {
global acromin acromax acrochan acrocurrent acroletters acroround acrorounds
global botnick acrosbynum acrosbyname acrorealnames acronumsbyname acrotime
global acroroundscores acroplaying acrodisgust acroplayedbyhost acrovotedbyhost
global acrostartcmd
if {$acroround>$acrorounds} {
if {[array size acroroundscores]==0} {
putmsg $acrochan "Nobody scored any points for this game! [lindex $acrodisgust [rand [llength $acrodisgust]]]"
} else {
putmsg $acrochan "Final scores for this game:"
set _final {}
set _search [array startsearch acroroundscores]
while {[set _current [array get acroroundscores [array nextelement acroroundscores $_search]]]!=""} {
lappend _final "[lindex $_current 1],[lindex $_current 0]"
}
foreach _score [lsort -decreasing $_final] {
putmsg $acrochan "$acrorealnames([lindex [split $_score ,] 1]) [lindex [split $_score ,] 0]"
}
}
putmsg $acrochan "===== Game Over! Type $acrostartcmd to play again. ====="
set acroplaying 0
} else {
set acrocurrent ""
array unset acrosbynum
array unset acrosbyname
# array unset acrorealnames
array unset acronumsbyname
array unset acronamesbynum
array unset acroplayedbyhost
array unset acrovotedbyhost
array set acrosbynum {}
array set acrosbyname {}
# array set acrorealnames {}
array set acronumsbyname {}
array set acronamesbynum {}
array set acroplayedbyhost {}
array set acrovotedbyhost {}
set _len [expr $acromin+[rand [expr $acromax-[expr $acromin-1]]]]
set _i 1
while {$_i<=$_len} {
append acrocurrent "[string index $acroletters [rand 26]]"
incr _i
}
putmsg $acrochan "Round $acroround/$acrorounds: The ACRO is: \"[strupr $acrocurrent]\"."
putmsg $acrochan "You have $acrotime seconds! /msg $botnick ACRO <your-phrase>"
utimer $acrotime acrostartvoting
bind msg -|- ACRO acrocheck
incr acroround
}
}
proc acrocheck {nick host hand text} {
global acrochan acrosbynum acrosbyname acrorealnames acronumsbyname acrocurrent acronamesbynum
global acroplayedbyhost
if {[onchan $nick $acrochan]} {
if {[info exists acroplayedbyhost([strlwr $host])]} {
putnotc $nick "You've already played this round."
} else {
set _err ""
if {[llength [split $text]]!=[strlen $acrocurrent]} {
if {[llength [split $text]]<[strlen $acrocurrent]} {
set _err "not enough words"
} else {
set _err "too many words"
}
} else {
set _i 1
while {$_i<=[strlen $acrocurrent]} {
if {[strlwr [stridx $acrocurrent [expr $_i-1]]]==[strlwr [stridx [join [lindex [split $text] [expr $_i-1]]] 0]]} {
incr _i
} else {
set _err "character's mismatched"
break
}
}
}
if {$_err!=""} {
putnotc $nick "There are $_err in your acro. Try again."
} else {
set acrosbynum([expr [array size acrosbynum]+1]) $text
set acrosbyname([strlwr $nick]) $text
set acrorealnames([strlwr $nick]) $nick
set acronumsbyname([strlwr $nick]) [array size acrosbynum]
set acronamesbynum([array size acrosbynum]) [strlwr $nick]
set acroplayedbyhost([strlwr $host]) 1
putnotc $nick "You are player #$acronumsbyname([strlwr $nick]) for this round."
}
}
}
}
proc acrostartvoting {} {
global acrochan acrosbynum botnick acrovotetime acrovotes acrogaptime acrovoted
global acrodisgust
unbind msg -|- ACRO acrocheck
if {[array size acrosbynum]==0} {
putmsg $acrochan "Time's up! Not a single one of you played that round! [lindex $acrodisgust [rand [llength $acrodisgust]]]"
utimer $acrogaptime acrosel
} else {
putmsg $acrochan "Time's up! Here are the acros:"
array unset acrovotes
array set acrovotes {}
array unset acrovoted
array set acrovoted {}
set _i 1
while {$_i<=[array size acrosbynum]} {
putmsg $acrochan "$_i. $acrosbynum($_i)"
set acrovotes($_i) 0
incr _i
}
putmsg $acrochan "Let the voting begin! You have $acrovotetime seconds! /msg $botnick VOTE <number>"
utimer $acrovotetime acrostopvoting
bind msg -|- VOTE acrocheckvote
}
}
proc acrocheckvote {nick host hand text} {
global acrochan acrosbynum acrovoted acrovotes acrovotedbyhost
if {[onchan $nick $acrochan]} {
if {[info exists acrovotedbyhost([strlwr $host])]} {
putnotc $nick "You've already voted."
} else {
set _vote [join [lindex [split $text] 0]]
if {![string is integer $_vote]||$_vote<1||$_vote>[array size acrosbynum]} {
putnotc $nick "Invalid vote."
} else {
set acrovotes($_vote) [expr $acrovotes($_vote)+1]
set acrovoted([strlwr $nick]) 1
set acrovotedbyhost([strlwr $host]) 1
putnotc $nick "Your vote has been counted."
}
}
}
}
proc acrostopvoting {} {
global acrochan acrogaptime acrovoted acroroundscores acrosbynum acros acronamesbynum
global acrorealnames acrovotes acrodisgust
unbind msg -|- VOTE acrocheckvote
if {[array size acrovoted]==0} {
putmsg $acrochan "Time's up! Not a single one of you voted! [lindex $acrodisgust [rand [llength $acrodisgust]]]"
utimer $acrogaptime acrosel
} else {
putmsg $acrochan "Time's up! Here are the scores for this round:"
set _i 1
while {$_i<=[array size acrosbynum]} {
putmsg $acrochan "$_i. $acrorealnames($acronamesbynum($_i)) $acrovotes($_i)"
if {[info exists acroroundscores($acronamesbynum($_i))]} {
set acroroundscores($acronamesbynum($_i)) [expr $acroroundscores($acronamesbynum($_i))+$acrovotes($_i)]
} else {
set acroroundscores($acronamesbynum($_i)) $acrovotes($_i)
}
incr _i
}
utimer $acrogaptime acrosel
}
}
putlog "Successfully loaded acro.tcl $acrover!"
