home *** CD-ROM | disk | FTP | other *** search
/ io Programmo 74 / IOPROG_74.ISO / ioProg.exe / ioProg.DXR / Internal_208_ScriptFreccettaContSu.ls < prev    next >
Encoding:
Text File  |  2003-09-30  |  875 b   |  45 lines
  1. global linea, lineaEvid
  2.  
  3. on beginSprite me
  4.   sprite(me.spriteNum).member = member(500)
  5. end
  6.  
  7. on mouseDown me
  8.   member("testoLista").scrollByLine(-1)
  9.   if sprite(73).member = member(500) then
  10.     sprite(73).member = member("freccettasu")
  11.   end if
  12.   linea = linea - 1
  13.   if linea = 1 then
  14.     sprite(me.spriteNum).member = member(500)
  15.   end if
  16.   repeat while the mouseDown
  17.     member("testoLista").scrollByLine(-1)
  18.     if sprite(73).member = member(500) then
  19.       sprite(73).member = member("freccettasu")
  20.     end if
  21.     if linea > 1 then
  22.       linea = linea - 1
  23.     end if
  24.     if linea = 1 then
  25.       sprite(me.spriteNum).member = member(500)
  26.     end if
  27.   end repeat
  28. end
  29.  
  30. on mouseWithin me
  31.   if sprite(me.spriteNum).member = member("freccettaSu") then
  32.     cursor(280)
  33.   else
  34.     cursor(-1)
  35.   end if
  36. end
  37.  
  38. on mouseLeave me
  39.   cursor(-1)
  40. end
  41.  
  42. on mouseUpOutSide me
  43.   cursor(-1)
  44. end
  45.