Re: Scrolling with keys

[Dar Scott]

On Monday, June 23, 2003, at 03:02 PM, Dar Scott wrote:

So, how would I scroll an image with a keypress while it's down, then 
stop
on keyup.
Something like this might get you started:
I forgot to say to put that into the card script and to make an image 
named "My Image".

I tried it and it works, but I changed it a little:

local sendID = ""
local toTheRight = "false"
local toTheLeft  = "false"
constant rightArrow = 65363
constant leftArrow = 65361
--constant stepSize = 4
constant stepPeriod = 0.04
on rawKeyDown keyCode
  if keyCode is rightArrow then put true into toTheRight
  if keyCode is leftArrow  then put true into toTheLeft
  updateMoving
end rawKeyDown
on rawKeyUp keyCode
  if keyCode is rightArrow then put false into toTheRight
  if keyCode is leftArrow  then put false into toTheLeft
  updateMoving
end rawKeyUp
on updateMoving
  if (toTheRight or toTheLeft) then
    if sendID is empty then
      moveStep  -- Does one step and it repeats itself
    end if
  else
    cancel sendID
    put empty into sendID
  end if
end updateMoving
on moveStep
  if toTheRight then
    if the right of image "My Image" < 320 then
      --move image "My Image" rel (stepSize,0) in stepPeriod seconds 
without waiting
      move image "My Image" rel (1,0) without waiting
    end if
  else
    if the left of image "My Image" > 5 then
      --move image "My Image" rel ((-stepSize),0) in stepPeriod seconds 
without waiting
      move image "My Image" rel (-1,0) without waiting
    end if
  end if
  send moveStep to me in stepPeriod seconds
  put the result into sendID
end moveStep

Dar Scott

_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution