home *** CD-ROM | disk | FTP | other *** search
/ Discovering Nature in the City / LUONTOCD.iso / pc / files / helpswe.dxr / 00001.ls next >
Encoding:
Text File  |  1996-12-16  |  1.4 KB  |  49 lines
  1. global gFrom, gTo, gMovie, gFrame
  2.  
  3. on startMovie
  4.   set gFrom to 5
  5.   set gTo to 18
  6. end
  7.  
  8. on showMe
  9.   puppetSprite(2, 1)
  10.   case rollOver(x) of
  11.     "5":
  12.       set the member of sprite 2 to member 20 of castLib "internal"
  13.     "6":
  14.       set the member of sprite 2 to member 21 of castLib "internal"
  15.     "7":
  16.       set the member of sprite 2 to member 22 of castLib "internal"
  17.     "8":
  18.       set the member of sprite 2 to member 23 of castLib "internal"
  19.     "9":
  20.       set the member of sprite 2 to member 24 of castLib "internal"
  21.     "10":
  22.       set the member of sprite 2 to member 25 of castLib "internal"
  23.     "11":
  24.       set the member of sprite 2 to member 26 of castLib "internal"
  25.     "12":
  26.       set the member of sprite 2 to member 27 of castLib "internal"
  27.     "13":
  28.       set the member of sprite 2 to member 28 of castLib "internal"
  29.     "14":
  30.       set the member of sprite 2 to member 29 of castLib "internal"
  31.     "15":
  32.       set the member of sprite 2 to member 30 of castLib "internal"
  33.     "16":
  34.       set the member of sprite 2 to member 31 of castLib "internal"
  35.     "17":
  36.       set the member of sprite 2 to member 32 of castLib "internal"
  37.     "18":
  38.       set the member of sprite 2 to member 33 of castLib "internal"
  39.     otherwise:
  40.       set the member of sprite 2 to member 17 of castLib "internal"
  41.   end case
  42.   updateStage()
  43. end
  44.  
  45. on BackToProgram
  46.   cursor(4)
  47.   go(gFrame, gMovie)
  48. end
  49.