home *** CD-ROM | disk | FTP | other *** search
/ GQ - Louise, World Cup, …remy Clarkson, Armageddon / GQCD.iso / files / game.dxr / 00009_targetScript.ls < prev    next >
Encoding:
Text File  |  1998-05-21  |  1.1 KB  |  37 lines
  1. property ancestor, myAngle, myDistance, mySpeed, parentSprite, myLimit
  2. global CURSORSTART
  3.  
  4. on new me, angle, hyp, speed, pSprite, limit
  5.   set ancestor to new(script "spriteGenerator")
  6.   set parentSprite to pSprite
  7.   set myAngle to angle
  8.   set myDistance to hyp
  9.   set mySpeed to speed
  10.   set myLimit to limit
  11.   append(the actorList, me)
  12.   appear(me, getLoc(myAngle, myDistance), CURSORSTART + 2, 255, 29, 100)
  13.   return me
  14. end
  15.  
  16. on stepFrame me
  17.   set myAngle to myAngle - mySpeed
  18.   if myAngle < 1 then
  19.     set myAngle to 360
  20.   end if
  21.   if (myAngle > (225 - myLimit)) and (myAngle < (225 + myLimit)) then
  22.     set the memberNum of sprite the spriteNum of me to CURSORSTART
  23.   else
  24.     set the memberNum of sprite the spriteNum of me to CURSORSTART + 2
  25.   end if
  26.   set myDeficit to point(the locH of sprite parentSprite, the locV of sprite parentSprite - 480)
  27.   set the loc of sprite the spriteNum of me to getLoc(myAngle, myDistance) + myDeficit
  28. end
  29.  
  30. on targetPositionCorrect me
  31.   if (myAngle > (225 - myLimit)) and (myAngle < (225 + myLimit)) then
  32.     return 1
  33.   else
  34.     return 0
  35.   end if
  36. end
  37.