home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / help / oshelp.dxr / 00040.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  674 b   |  42 lines
  1. on startMovie
  2.   global ritorno, riga, chisono
  3.   case chisono of
  4.     1:
  5.       set riga to 4
  6.     2:
  7.       set riga to 3
  8.     3:
  9.       set riga to 1
  10.     4:
  11.       set riga to 5
  12.     5:
  13.       set riga to 2
  14.   end case
  15.   nascondi()
  16. end
  17.  
  18. on mouseDown
  19.   go("esci")
  20. end
  21.  
  22. on nascondi
  23.   global riga
  24.   repeat with n = 1 to 8
  25.     set the visible of sprite n to 0
  26.   end repeat
  27.   set the visible of sprite riga to 1
  28.   case riga of
  29.     1:
  30.       set the visible of sprite 6 to 1
  31.     2:
  32.       set the visible of sprite 6 to 1
  33.     3:
  34.       set the visible of sprite 7 to 1
  35.     4:
  36.       set the visible of sprite 8 to 1
  37.     5:
  38.       set the visible of sprite 8 to 1
  39.   end case
  40.   updateStage()
  41. end
  42.