Komputer for Alle 2003 #3/K-CD-3-2003.ISO/Tools/K-CS.DCR/00200.ls

Text File | 2002-04-19 | 581 b | 20 lines

property startPos, StartTicks

on new me
  cursor(4)
  set startPos to the locH of sprite 4
  set StartTicks to the ticks
end

on exitFrame
  if the ticks > (StartTicks + 720) then
    go(#next)
  else
    set the locH of sprite 4 to startPos - 6 + ((the ticks - StartTicks) / 5.09999999999999964)
    set the width of sprite 4 to (the ticks - StartTicks) / 2.54999999999999982
    set the locH of sprite 5 to startPos - 6 + ((the ticks - StartTicks) / 5.09999999999999964)
    set the width of sprite 5 to (the ticks - StartTicks) / 2.54999999999999982
    go(#loop)
  end if
end