ok, not my bot, but have been working on some scripts for it, and came up with this li'l beauty
Code: Select all
####################
# !spin the bottle #
# !truth or !dare #
####################
bind pub - !spin proc:spin
bind NICK - * nickcheck
#####################
set tdrunning 0
setudef flag truthordare
set target ""
#####################
set truth_question {
{truth question here}
{another here}
{another etc}
}
set dare_act {
{dare here}
{and here}
{and here etc}
}
#####################
proc proc:spin {nick uhost hand chan text} {
global tdrunning botnick target tdchan
if {[ischanflag $chan "+truthordare"]} {
if {$tdrunning == "1"} {
putquick "notice $nick :truth or dare is currently running... please wait"
return 0}
if {$text == "the bottle"} {
set tdrunning 1
set tdchan $chan
set mylist [chanlist $chan]
set rembot [lsearch $mylist $botnick]
set mylist [lreplace $mylist $rembot $rembot]
set listlength [llength $mylist]
set myindex [rand $listlength]
set target [lindex $mylist $myindex]
putserv "privmsg $chan :$botnick spins the bottle..."
putserv "privmsg $chan :the bottle spins around..."
putserv "privmsg $chan :round... and round..."
putserv "privmsg $chan :round it goes... landing on..."
putserv "privmsg $chan :$target!!!"
putserv "privmsg $chan :so, $target... !truth or !dare ???"
bind pub - !truth proc:truth
bind pub - !dare proc:dare
utimer 120 [list set tdrunning 0]
}
}
}
#####################
proc proc:truth {nick uhost hand chan text} {
global tdrunning botnick target tdchan truth_question
if {$nick == $target} {
if {$chan == $tdchan} {
set truth [lindex $truth_question [rand [llength $truth_question]]]
putserv "privmsg $chan :\00311,02§ § § § §\003 \00313,02$truth\003 \00311,02§ § § § §\003"
unbind pub - !truth proc:truth
unbind pub - !dare proc:dare
utimer 30 [list set tdrunning 0]
}
}
}
#####################
proc proc:dare {nick uhost hand chan text} {
global tdrunning botnick target tdchan dare_act
if {$nick == $target} {
if {$chan == $tdchan} {
set dare [lindex $dare_act [rand [llength $dare_act]]]
putserv "privmsg $tdchan :ok $target..."
putserv "privmsg $chan :\00311,02§ § § § §\003 \00313,02$dare\003 \00311,02§ § § § §\003"
unbind pub - !truth proc:truth
unbind pub - !dare proc:dare
utimer 30 [list set tdrunning 0]
}
}
}
#####################
proc ischanflag {chan flag} {
foreach f [channel info $chan] {
if {$f == $flag} {
return 1
}
}
return 0
}
#####################
proc nickcheck {nick uhost hand chan text} {
global target botnick
if {[info exists target]} {
if {[string compare $target $nick] == 0} {
putlog "tracking nick: $target --> $text"
set target $text
}
}
}
#####################
putlog "* truth_or_dare.tcl loaded."
####################
# bruhv 2006 #
####################basically you do '!spin the bottle' in channel, it lands on whoever, then they - and only they - have 2 minutes to do !truth or !dare
ok, there's nothing forcing them to carry out the command, which is why there are timers handling the rebinding of triggers (in effect resetting the game)
