home *** CD-ROM | disk | FTP | other *** search
/ What PC? 1997 February / WPCFEB97.ISO / dxrs / jukebx02.dxr / 00039_ShowImages.ls < prev    next >
Encoding:
Text File  |  1996-12-09  |  2.1 KB  |  58 lines
  1. on ShowImages
  2.   global ImageCounter, FirstTimeImage
  3.   case ImageCounter of
  4.     1:
  5.       if the castNum of sprite 36 = the number of member "TRBigEnd" then
  6.         set the castNum of sprite 36 to the number of member "TRBigStart"
  7.         set the castNum of sprite 48 to the number of member "textstart"
  8.         set the loc of sprite 36 to point(120, 120)
  9.         set the loc of sprite 48 to point(168, 400)
  10.         updateStage()
  11.       else
  12.         set the castNum of sprite 36 to the castNum of sprite 36 + 1
  13.         set the castNum of sprite 48 to the castNum of sprite 48 + 1
  14.         set the loc of sprite 36 to point(120, 120)
  15.         set the loc of sprite 48 to point(168, 400)
  16.         updateStage()
  17.       end if
  18.       if FirstTimeImage = 0 then
  19.         set FirstTimeImage to 1
  20.         set the castNum of sprite 37 to the number of member "TRSmallStart"
  21.         set the ink of sprite 37 to 36
  22.         repeat with f = 38 to 43
  23.           set the castNum of sprite f to the castNum of sprite 37 + (f - 37)
  24.         end repeat
  25.         set the loc of sprite 37 to point(455, 42)
  26.         set the ink of sprite f to 36
  27.         set the loc of sprite 38 to point(455, 42)
  28.         set the ink of sprite f to 36
  29.         set the loc of sprite 39 to point(418, 98)
  30.         set the ink of sprite f to 8
  31.         set the loc of sprite 40 to point(455, 42)
  32.         set the ink of sprite f to 36
  33.         set the loc of sprite 41 to point(455, 42)
  34.         set the ink of sprite f to 36
  35.         set the loc of sprite 42 to point(455, 42)
  36.         set the ink of sprite f to 36
  37.         set the loc of sprite 43 to point(524, 98)
  38.         set the ink of sprite f to 36
  39.         updateStage()
  40.       end if
  41.     5:
  42.       set ImageCounter to 0
  43.   end case
  44.   set ImageCounter to 1 + ImageCounter
  45.   repeat with g = 37 to 43
  46.     if rollOver(g) then
  47.       set the loc of sprite 36 to point(120, 120)
  48.       set the loc of sprite 48 to point(168, 400)
  49.       set the castNum of sprite 36 to the castNum of sprite g - 10
  50.       set the castNum of sprite 48 to the castNum of sprite g + 10
  51.       updateStage()
  52.       repeat while rollOver(g)
  53.         BubbleAnimation()
  54.       end repeat
  55.     end if
  56.   end repeat
  57. end
  58.