home *** CD-ROM | disk | FTP | other *** search
/ PC Open 10 / pcopen10.iso / aaron / dida / help / orhelp.dxr / 00036.ls < prev    next >
Encoding:
Text File  |  1997-09-24  |  527 b   |  35 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 7
  25.     set the visible of sprite n to 0
  26.   end repeat
  27.   set the visible of sprite riga to 1
  28.   if riga = 2 then
  29.     set the visible of sprite 7 to 1
  30.   else
  31.     set the visible of sprite 6 to 1
  32.   end if
  33.   updateStage()
  34. end
  35.