home *** CD-ROM | disk | FTP | other *** search
/ Manga Empress of All Asi… The Dynamic Ippongi Bang / dynamic-ippongi-bang.iso / pc / quiz / 00114_SetQuiz.ls < prev    next >
Encoding:
Text File  |  1996-12-16  |  518 b   |  23 lines
  1. global quizans, quizansc, quizmax, quizqc
  2.  
  3. on exitFrame
  4.   sound stop 1, 2
  5.   if quizqc < 10 then
  6.     set quizqc to quizqc + 1
  7.     set qn to getquiznum()
  8.     puppetSprite(2, 1)
  9.     set the castNum of sprite 2 to qn + 20
  10.     set quizans to value("#" & the name of cast (qn + 20))
  11.     put quizans, quizansc
  12.     set the visible of sprite 2 to 1
  13.   else
  14.     puppetSprite(2, 0)
  15.     set the visible of sprite 2 to 1
  16.     if quizansc > (10 * 8 / 10) then
  17.       go("QuizOK!")
  18.     else
  19.       go("QuizBAT!")
  20.     end if
  21.   end if
  22. end
  23.