home *** CD-ROM | disk | FTP | other *** search
/ PC Home 49 / PC_Home_Issue_49.iso / lldemo / lldemo.shr / ROSETTA.EXE / ROSETTA.DXR / 00505_endscreen.ls < prev    next >
Encoding:
Text File  |  1996-06-24  |  443 b   |  21 lines
  1. setPlace(#ENDSCREEN)
  2. set gInPlay to 0
  3. if gMenu then
  4.   set the enabled of menuItem 2 of menu "Special" to 0
  5. end if
  6. set the text of cast 92 to formatTime(the ticks - gStartTime)
  7. setPageArrows(0)
  8. setPuppetScore(getaProp(gStuMethod, #icons))
  9. showScorePuppet(1)
  10. updateStage()
  11. if getaProp(gStuInfo, #name) <> "GUEST" then
  12.   go("Congratulations")
  13. else
  14.   if gTest then
  15.     go("endTest")
  16.     setSavePuppets()
  17.   else
  18.     go("endNoTest")
  19.   end if
  20. end if
  21.