home *** CD-ROM | disk | FTP | other *** search
/ The Trigger Effect Interactive Kit / triggerz.exe / Trigger.exe / Trigger.DXR / 00330.ls < prev    next >
Encoding:
Text File  |  1996-08-11  |  3.0 KB  |  94 lines
  1. on mouseDown
  2.   global MoveAmount, WhichDirection
  3.   repeat while the stillDown
  4.     set the locV of sprite 20 to the mouseV
  5.     if the locV of sprite 20 <= 211 then
  6.       set the locV of sprite 20 to 206
  7.       updateStage()
  8.       set MoveAmount to 40
  9.       set WhichDirection to "up"
  10.     end if
  11.     if (the locV of sprite 20 > 211) and (the locV of sprite 20 <= 222) then
  12.       set the locV of sprite 20 to 217
  13.       updateStage()
  14.       set MoveAmount to 15
  15.       set WhichDirection to "up"
  16.     end if
  17.     if (the locV of sprite 20 > 222) and (the locV of sprite 20 <= 233) then
  18.       set the locV of sprite 20 to 228
  19.       updateStage()
  20.       set MoveAmount to 7
  21.       set WhichDirection to "up"
  22.     end if
  23.     if (the locV of sprite 20 > 233) and (the locV of sprite 20 <= 244) then
  24.       set the locV of sprite 20 to 239
  25.       updateStage()
  26.       set MoveAmount to 3
  27.       set WhichDirection to "up"
  28.     end if
  29.     if (the locV of sprite 20 > 244) and (the locV of sprite 20 <= 255) then
  30.       set the locV of sprite 20 to 250
  31.       updateStage()
  32.       set MoveAmount to 1
  33.       set WhichDirection to "up"
  34.     end if
  35.     if (the locV of sprite 20 > 255) and (the locV of sprite 20 <= 266) then
  36.       set the locV of sprite 20 to 261
  37.       updateStage()
  38.       set MoveAmount to 1
  39.       set WhichDirection to "pause"
  40.     end if
  41.     if (the locV of sprite 20 > 266) and (the locV of sprite 20 <= 277) then
  42.       set the locV of sprite 20 to 272
  43.       updateStage()
  44.       set MoveAmount to 1
  45.       set WhichDirection to "Down"
  46.     end if
  47.     if (the locV of sprite 20 > 277) and (the locV of sprite 20 <= 288) then
  48.       set the locV of sprite 20 to 283
  49.       updateStage()
  50.       set MoveAmount to 3
  51.       set WhichDirection to "Down"
  52.     end if
  53.     if (the locV of sprite 20 > 288) and (the locV of sprite 20 <= 299) then
  54.       set the locV of sprite 20 to 294
  55.       updateStage()
  56.       set MoveAmount to 7
  57.       set WhichDirection to "Down"
  58.     end if
  59.     if (the locV of sprite 20 > 299) and (the locV of sprite 20 <= 310) then
  60.       set the locV of sprite 20 to 305
  61.       updateStage()
  62.       set MoveAmount to 15
  63.       set WhichDirection to "Down"
  64.     end if
  65.     if the locV of sprite 20 > 310 then
  66.       set the locV of sprite 20 to 316
  67.       updateStage()
  68.       set MoveAmount to 40
  69.       set WhichDirection to "Down"
  70.     end if
  71.     if WhichDirection = "Down" then
  72.       if the bottom of sprite 10 <= 213 then
  73.         set the locV of sprite 10 to -378
  74.         set WhichDirection to "Pause"
  75.         set the locV of sprite 20 to 261
  76.       else
  77.         set the locV of sprite 10 to the locV of sprite 10 - MoveAmount
  78.       end if
  79.     end if
  80.     if WhichDirection = "Up" then
  81.       if the top of sprite 10 >= 102 then
  82.         set the locV of sprite 10 to 102
  83.         set WhichDirection to "Pause"
  84.         set the locV of sprite 20 to 261
  85.       else
  86.         set the locV of sprite 10 to the locV of sprite 10 + MoveAmount
  87.       end if
  88.     end if
  89.     if WhichDirection = "Pause" then
  90.       nothing()
  91.     end if
  92.   end repeat
  93. end
  94.