home *** CD-ROM | disk | FTP | other *** search
/ Galleria D'arte: Manet / Manet.iso / Dati / Theme5.dxr / Internal_11_PanAreaLoupe.ls < prev    next >
Encoding:
Text File  |  2000-12-21  |  1.1 KB  |  49 lines
  1. property pID
  2.  
  3. on getPropertyDescriptionList
  4.   propertyDescriptionList = [#pID: [#comment: "ID Area Sensibile (Nord = 1, Est = 2, Sud = 3, Ovest = 4)", #format: #integer, #default: 1]]
  5.   return propertyDescriptionList
  6. end
  7.  
  8. on mouseWithin me
  9.   case pID of
  10.     1:
  11.       if the top of sprite 10 < -10 then
  12.         cursor([92, 93])
  13.         set the locV of sprite 10 to the locV of sprite 10 + 5
  14.       else
  15.         cursor([104, 93])
  16.       end if
  17.       updateStage()
  18.     2:
  19.       if the left of sprite 10 < -10 then
  20.         cursor([94, 95])
  21.         set the locH of sprite 10 to the locH of sprite 10 + 5
  22.       else
  23.         cursor([105, 95])
  24.       end if
  25.       updateStage()
  26.     3:
  27.       if the bottom of sprite 10 > 490 then
  28.         cursor([96, 97])
  29.         set the locV of sprite 10 to the locV of sprite 10 - 5
  30.       else
  31.         cursor([106, 97])
  32.       end if
  33.       updateStage()
  34.     4:
  35.       if the right of sprite 10 > 650 then
  36.         cursor([98, 99])
  37.         set the locH of sprite 10 to the locH of sprite 10 - 5
  38.       else
  39.         cursor([107, 99])
  40.       end if
  41.       updateStage()
  42.   end case
  43. end
  44.  
  45. on mouseLeave me
  46.   cursor(-1)
  47.   updateStage()
  48. end
  49.