home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Internet.dxr / 00111_SCROLLIMMAGINE.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.0 KB  |  40 lines
  1. property pID
  2.  
  3. on getPropertyDescriptionList
  4.   propertyDescriptionList = [#pID: [#comment: "ID Area Sensibile (Nord = 1, Sud = 3)", #format: #integer, #default: 1]]
  5.   return propertyDescriptionList
  6. end
  7.  
  8. on mouseDown me
  9.   case pID of
  10.     1:
  11.       if the top of sprite 1 < -12 then
  12.         set the locV of sprite 1 to the locV of sprite 1 + 10
  13.         repeat while the stillDown
  14.           tmp = sprite(1).top
  15.           if tmp < 5 then
  16.             set the locV of sprite 1 to the locV of sprite 1 + 10
  17.             updateStage()
  18.           end if
  19.         end repeat
  20.       else
  21.         sprite(1).locV = 8
  22.       end if
  23.       updateStage()
  24.     3:
  25.       tmp = sprite(1).bottom
  26.       if tmp > 570 then
  27.         set the locV of sprite 1 to the locV of sprite 1 - 10
  28.         repeat while the stillDown
  29.           tmp = sprite(1).bottom
  30.           if tmp > 575 then
  31.             set the locV of sprite 1 to the locV of sprite 1 - 10
  32.             updateStage()
  33.           end if
  34.         end repeat
  35.       else
  36.       end if
  37.       updateStage()
  38.   end case
  39. end
  40.