Komputer for Alle 2002 #4/K-CD-4-2002.ISO/K-CS.DCR/00191.ls

Text File | 2002-01-25 | 810 b | 29 lines

property SpriteNumber, ImageStart
global ImageNum, HPos, VPos

on new me
  puppetSound("Landelyd")
  set SpriteNumber to 50
  set ImageStart to 1226
  set ImageNum to ImageStart
  set HPos to the mouseH
  set VPos to the mouseV
  set the locH of sprite SpriteNumber to HPos
  set the locV of sprite SpriteNumber to VPos
  set the visible of sprite SpriteNumber to 1
  set the locH of sprite 99 to 780
  set the visible of sprite 99 to 1
end

on exitFrame
  set ImageNum to ImageNum + 1
  if ImageNum > (ImageStart + 15) then
    go(#next)
  end if
  set the locH of sprite SpriteNumber to HPos
  set the locV of sprite SpriteNumber to VPos - ((64 - ((ImageNum - (ImageStart + 8)) * (ImageNum - (ImageStart + 8)))) * 3)
  set the memberNum of sprite SpriteNumber to ImageNum
  updateStage()
  go(the frame)
end