home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00001_congradulations.ls next >
Encoding:
Text File  |  1996-06-24  |  806 b   |  37 lines
  1. setPuppets("5, 6, 26, 27, 28, 29, 46, 47", 1)
  2. set pr to getaProp(gStuInfo, #proficiency)
  3. setGoalPost(pr)
  4. set sc to getScore()
  5. setaProp(gStuMethod, #currPageScore, getWholeScore())
  6. set total to getaProp(sc, #right) + getaProp(sc, #wrong)
  7. if total <> 0 then
  8.   set percent to getaProp(sc, #right) * 100 / total
  9. else
  10.   set percent to 0
  11. end if
  12. repeat with i = 1 to integer(percent / 5)
  13.   if i < integer(percent / 5) then
  14.     setMercury(i * 5)
  15.   else
  16.     setMercury(percent)
  17.   end if
  18.   updateStage()
  19.   waitTicks(1)
  20. end repeat
  21. if percent >= pr then
  22.   set the visible of sprite 46 to 1
  23.   alignYesNo(-1, #YES)
  24.   giveYeahSnd()
  25. else
  26.   alignYesNo(-1, #no)
  27.   giveNoSnd()
  28. end if
  29. if gTest = 1 then
  30.   saveRecord()
  31. end if
  32. set gTest to 0
  33. repeat while soundBusy(1)
  34. end repeat
  35. puppetSound(0)
  36. set the visible of sprite 46 to 0
  37.