home *** CD-ROM | disk | FTP | other *** search
/ Komputer for Alle 2001 #8 / CD 8 (Black) - 2001.iso / K-CS.dcr / 00106.ls < prev    next >
Encoding:
Text File  |  2001-02-20  |  954 b   |  28 lines
  1. global CurrentStep
  2.  
  3. on mouseDown
  4.   if the mouseV > the locV of sprite 13 then
  5.     set CurrentStep to CurrentStep + 2
  6.     if CurrentStep > 12 then
  7.       set CurrentStep to 12
  8.     end if
  9.   else
  10.     set CurrentStep to CurrentStep - 2
  11.     if CurrentStep < 0 then
  12.       set CurrentStep to 0
  13.     end if
  14.   end if
  15.   set currentPos to 206 + (CurrentStep * 100 / 12)
  16.   set the locV of sprite 47 to currentPos
  17.   set the locV of sprite 4 to 160 - (CurrentStep * 75)
  18.   set the memberNum of sprite 50 to 289 + (4 * CurrentStep)
  19.   set the memberNum of sprite 54 to 290 + (4 * CurrentStep)
  20.   set the memberNum of sprite 58 to 291 + (4 * CurrentStep)
  21.   set the memberNum of sprite 66 to 292 + (4 * CurrentStep)
  22.   set the memberNum of sprite 70 to 293 + (4 * CurrentStep)
  23.   set the memberNum of sprite 74 to 294 + (4 * CurrentStep)
  24.   set the memberNum of sprite 78 to 295 + (4 * CurrentStep)
  25.   set the memberNum of sprite 82 to 296 + (4 * CurrentStep)
  26.   updateStage()
  27. end
  28.