home *** CD-ROM | disk | FTP | other *** search
/ 100 Plus Great Games 2 / 100PLUSV2.BIN / games / BoxKite.dxr / Internal_94_kite.ls < prev    next >
Encoding:
Text File  |  2002-01-25  |  824 b   |  23 lines
  1. property radAngle, oX, oY, pLocation, pMoveMod, spriteNum, myHi, myWi, growth, kyte
  2.  
  3. on beginSprite me
  4.   kyte = timeout("kyte" & string(spriteNum)).new(25, #kyteoff, me)
  5.   myHi = sprite(spriteNum).height
  6.   myWi = sprite(spriteNum).width
  7.   growth = -1
  8. end
  9.  
  10. on kyteoff me
  11.   radAngle = pMoveMod * PI / 180
  12.   oX = cos(radAngle / 4) * 4.0
  13.   oY = -sin(radAngle) * 2.5
  14.   pLocation = pLocation + [oX, oY]
  15.   pMoveMod = pMoveMod + 5.0
  16.   if ((sprite(spriteNum).height < (myHi / 2)) and (sprite(spriteNum).height < (myWi / 3))) or ((sprite(spriteNum).height > myHi) and (sprite(spriteNum).height > myWi)) then
  17.     growth = growth * -1
  18.   end if
  19.   sprite(spriteNum).loc = sprite(spriteNum).loc + point(oX, oY)
  20.   sprite(spriteNum).height = sprite(spriteNum).height - growth
  21.   sprite(spriteNum).width = sprite(spriteNum).width - growth
  22. end
  23.