Forums Scripts & Popups Acronym Game

 on *:text:*:#:{
if $1 == !acronym {
if !%ac { set %ac 1 }
else { describe # Current Acronym %acronym hasn't been guessed }
set %acronym $read(acronym.txt)
set %response $right(%acronym,$calc(-1 * ($pos(%acronym,$chr(32),1))))
set %acronym $remove(%acronym,%response)
set %response $right(%response,-1)
describe # Acronym is %acronym
}
elseif $1 == %response {
describe # Congratulations $nick
unset %ac
describe # Type !acronym to start another game
}
else { describe # Sorry $nick, but that's not the correct response }
}
 

on *:text:*:#:{
  tokenize 32 $strip($1-)
  if ($1 == !acronym) {
    if !%ac {
      set %ac 1
      set %acronym $read(acronym.txt)
      set %response $gettok(%acronym,2-,32)
      set %acronym $gettok(%acronym,1,32)
      describe # Acronym is %acronym
    }
    else {
      describe # Current Acronym %acronym hasn't been guessed.
    }
  }
  elseif ($1- == %response) {
    describe # Congratulations $nick You have the answer!
    unset %ac
    describe # Type !acronym to start another game.
  }
  else {
    describe # Sorry $nick, but that's not the correct response
  }
}

on *:text:*:#:{
  tokenize 32 $strip($1-)
  if ($1 == !acronym) {
    if !%ac {
       new.acronym #
    }
    else {
      describe # Current Acronym %acronym hasn't been guessed.
    }
  }
  elseif ($1- == %response) {
    describe # Congratulations $nick You have the answer!
    unset %ac
    describe # Type !acronym to start another game.
    .timer.acronym.end.turn off
  }
  else {
    describe # Sorry $nick, but that's not the correct response
  }
}
alias -l new.acronym {
  set %ac 1
  set %acronym $read(acronym.txt)
  set %response $gettok(%acronym,2-,32)
  set %acronym $gettok(%acronym,1,32)
  describe $1 Acronym is %acronym
  .timer.acronym.end.turn 1 300 acronym.end.turn $1
  ;^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ 300 is 300 seconds set that to what ya want.
}
;
;------------------------------------------------------------ 
alias -l acronym.end.turn {
  describe $1 Times up you loosers it was %response
  unset %ac
  describe $1 Type !acronym to start another game.
}  
;------------------------------------------------------------ 
;
; * choose which of these two you want the top one end the turn the bottom one does to but starts another turn on its own. (delete the one you dont want
;
;------------------------------------------------------------ 
alias -l acronym.end.turn {
  describe $1 Times up you loosers it was %response
  describe $1 So you all get to play again try harder this time!
  new.acronym $1
}
;------------------------------------------------------------
;

else {
    describe # Sorry $nick, but that's not the correct response
   }

else { describe # Sorry $nick $+ , but that's not the correct response } 

on *:text:!acgame &:#:{
$iif($2 == on,.enable #acronym,.disable #acronym)
}
#acronym off

#acronym end

  
on *:text:*:#:{
  if ($1 == !riddleoff) {
    if !%rdl {
      msg # It's not on
    }
    else {
      describe # 9,1¿3,1? 9,1R3,1i9,1d3,1D9,1l3,1e 9,1M3,1e 9,1T3,1h9,1i3,1S 9,1?3,1¿ has been turned off.
      riddle.end
    }
  }
  if ($1 == !riddle) {
    if !%rdl {
      new.riddle #
    }
    else {
      describe # ¿? %riddle ?¿
    }
  }
  else {
    if ($1- == %answer) {
      describe # %answer $+ !¡! Congratulations $nick you are correct!
      unset %rdl
      describe # Type !riddle for another round.
      .timer.riddle.end.turn off
    }
    else {
      if %rdl {
        .notice $nick Sorry $nick $+ , that's wrong.
        else {
          halt
        }
      }
    }
  } 
} 
alias new.riddle {
  set %rdl 1
  set %read $read(riddle.txt)
  set %answer $gettok(%read,2-,61)
  set %riddle $gettok(%read,1,61)
  describe $1 9,1¿3,1? 9,1R3,1i9,1d3,1D9,1l3,1e 9,1M3,1e 9,1T3,1h9,1i3,1S 9,1?3,1¿
  describe $1 :: %riddle ::
  .timer.riddle.end.turn 1 60 riddle.end.turn $1
}
alias  riddle.end.turn {
  describe $1 Time's up the answer was %answer
  describe $1 Put your Thinking Caps on Brainiacs!
  new.riddle $1
}
alias riddle.end {
  unset %rdl
  .timer.riddle.end.turn off
}

on *:text:*:#:{
  if ($1 == !riddleoff) {
    if !%rdl.on {
      msg # It's not on
    }
    else {
      describe # 9,1¿3,1? 9,1R3,1i9,1d3,1D9,1l3,1e 9,1M3,1e 9,1T3,1h9,1i3,1S 9,1?3,1¿ has been turned off.
      riddle.end
    }
  }
  elseif ($1 == !riddle) {
    if !%rdl.on {
      new.riddle #
    }
    else {
      describe # ¿? %rdl.riddle ?¿
    }
  }
  elseif (%rdl.on) {
    if ($1- == %rdl.answer) {
      describe # %rdl.answer $+ !¡! Congratulations $nick you are correct!
      describe # Type !riddle for another round.
      riddle.end
    }
    else {
      .notice $nick Sorry $nick $+ , that's wrong.
    }
  } 
} 
alias new.riddle {
  set %rdl.on 1
  var %read = $read(riddle.txt)
  set %rdl.answer $gettok(%read,2-,61)
  set %rdl.riddle $gettok(%read,1,61)
  describe $1 9,1¿3,1? 9,1R3,1i9,1d3,1D9,1l3,1e 9,1M3,1e 9,1T3,1h9,1i3,1S 9,1?3,1¿
  describe $1 :: %rdl.riddle ::
  .timer.riddle.end.turn 1 60 riddle.end.turn $1
}
alias  riddle.end.turn {
  describe $1 Time's up the answer was %rdl.answer
  describe $1 Put your Thinking Caps on Brainiacs!
  new.riddle $1
}
alias riddle.end {
  unset %rdl.on
  unset %rdl.answer
  unset %rdl.riddle
  .timer.riddle.end.turn off
}
;
;riddle.txt format <riddle>=<answer> ie:
;Whats black and white and red all over=newspaper
;Why did the chicken cross the road=To get to the other side
;