on *:text:!slut help:#:{
msg $nick To start the slut game, type !slut on. To stop it, type !slut off (Note: Only ops can start/stop a game).
.msg $nick The following commands can only be used in an active game:
.msg $nick !Yes or !No to respond to the questions, !q to start a new question, !Slutstats to see scoring for current game.
msg $nick To see who's playing, type !players, To leave the game temporarily, type !pause
msg $nick Scores are not carried over from game to game
}
on *:text:!slut on:#:{
if %slut.channel { .msg $nick Sorry, but Slut Game is already active in a %slut.channel }
else {
if !$nick($chan,$nick,a,hrv) { msg $chan Sorry $nick $+ , but only ops can start the Slut game }
else {
set %slut.channel $chan
describe $chan sees that $nick has started the Slut Game. 4,99 Type !slut in order to play. 12,99Play will commence in 3 minutes
timer 1 178 describe $chan Slut Game in $chan has now started
timer 1 179 describe $chan Remember: Only answer a question once, using !Yes or !No
timer 1 180 slut_game
}
}
}
alias -l slut_game {
.enable #slut_game
var %a = 1, %b = $nick(%slut.channel,0)
while %a <= %b {
if $istok(%sluts,$nick(%slut.channel,%a),44) {
set %slut.asker %a
msg %slut.channel $nick(%slut.channel,%a) Please type !q then a question to be responded to with !Yes or !no
msg %slut.channel NOTE: The !q and the question must be on only one line
%a = %b
}
inc %a
}
}
on *:text:!slut off:%slut.channel:{
if !$nick($chan,$nick,a,hrv) { msg $nick Sorry, but only ops can stop the Slut game early. }
else {
unset %slut.channel
.disable #slut_game
}
}
on *:text:!players:%slut.channel:{
.msg $nick Current players are %sluts
}
on *:text:!slut:#:{
if !%slut.channel {
msg $chan The Slut Game isn't active. Ask an Op to start it with !slut on
}
elseif $chan == %slut.channel && $group(#slut_game) == off {
set %sluts $addtok(%sluts,$nick,44)
set $+(%,slut.points,.,$nick) 10
.msg $chan Thank you $nick for signing up for Slut Game
}
elseif $group(#slut_game) == on {
.msg $nick Sorry, no more players until next game
}
}
#slut_game off
on *:text:!slut stats:%slut.channel:{
var %a = 1, %b = $numtok(%sluts,44)
msg $nick Searching $chan for current Slut Game Stats
while %a <= %b {
var %slut.score = $($+(%,slut,.,$nick),2)
var %slut.report = $addtok(%slut.report,$gettok(%sluts,%a,44) -> %slut.score,44)
inc %a
}
msg $nick %slut.report
}
on *:text:!q*:%slut.channel:{
if $1 == !question { msg $nick The current question in $chan is %question }
else {
set %slut.question $5-
set %slut.questioner $remtok(%sluts,$nick,1,44)
}
}
on *:text:!yes:%slut.channel: {
if $istok(%slut.questioner,$nick,44) {
dec $+(%,slut,.,$nick)
msg $chan $nick -> $($+(%,slut,.,$nick),2) points
if !$($+(%,slut,.,$nick),2) {
describe $chan sees that $nick is the biggest slut this time
unset %slut*
msg $chan Slut game has now ended in $chan
disable #slut_game
}
questioner $nick
}
else { msg $nick You've already answered for the current question }
}
on *:text:!no:%slut.channel:{
if $istok(%slut.questioner,$nick,44) {
inc $+(%,slut,.,$nick)
msg $chan $nick -> $($+(%,slut,.,$nick),2)
questioner $nick
}
else { msg $nick You've already answered for the current question }
}
alias -l questioner {
set %slut.questioner $remtok(%slut.questioner,$1,1,44)
if !%slut.questioner {
inc %asker
var %a = %slut.asker, %b = $nick(%slut.channel,0)
while %a <= %b {
if $istok(%sluts,$nick(%slut.channel,%a),44) {
set %slut.asker %a
msg %slut.channel $nick(%slut.channel,%a) Please type !q then a question to be responded to with !Yes or !no
msg %slut.channel NOTE: The !q and the question must be on only one line
%a = %b
}
inc %a
}
}
}
on *:text:!pause:%slut.channel:{
set %sluts $remtok(%sluts,$nick,1,44)
set %slut.questioner $remtok(%slut_questioner,$nick,1,44)
describe # puts $nick $+ 's account on hold
.msg $nick Type !back to resume the game when you return (unless the current game ends first)
}
on *:text:!back:%slut.channel:{
set %sluts $addtok(%sluts,$nick,44)
describe # Welcomes $nick back to the Slut Game
}
#slut_game end
on *:exit:{
unset %slut*
}
on *:disconnect:{
unset %slut*
}