home *** CD-ROM | disk | FTP | other *** search
/ AMOS PD CD / amospdcd.iso / 576-600 / apd600 / amos_turbo / demos / hit_sprzone.amos / hit_sprzone.amosSourceCode
AMOS Source Code  |  1994-02-02  |  668b  |  32 lines
  1. Extension_12_0016 
  2. Sprite 2,X Hard(29),Y Hard(182),2
  3.  Extension_12_00B6 650
  4. Reserve Zone 650
  5. X=0
  6. Y=0
  7. _ZONE=1
  8. ' Install some zones...
  9. For I=1 To 65
  10.     For J=1 To 10
  11.         Extension_12_00EE _ZONE,X,Y To X+14,Y+4
  12.        Set Zone _ZONE,X,Y To X+14,Y+4
  13.        Add X,15
  14.        Inc _ZONE
  15.     Next 
  16.     X=0
  17.     Add Y,3
  18. Next 
  19. T=Timer
  20. For I=1 To 1000
  21.    _ZONE= Extension_12_0148(400 To 650,0,0,2)
  22. '  Checks from zone 400 to 650 
  23. Next 
  24. Print "Time in VBL ";Timer-T;" Zone number ";_ZONE
  25. T=Timer
  26. For I=1 To 1000
  27.    _ZONE=Hzone(X Sprite(2),Y Sprite(2))
  28. '  Checks from zone 1 to 650 
  29. Next 
  30. Print "Time in VBL ";Timer-T;" Zone number ";_ZONE
  31.  Extension_12_00CA 
  32.  Extension_12_0006