home *** CD-ROM | disk | FTP | other *** search
/ Falcon 030 Power 2 / F030_POWER2.iso / ST_STE / MAGS / ICTARI03.ARJ / ictari.03 / STOS / DROID.ASC < prev    next >
Text File  |  1987-04-22  |  635b  |  23 lines
  1. 10 rem this routine uses the droid sprites
  2. 20 rem and the dungeon type background
  3. 30 rem from the demo disc
  4. 40 cls
  5. 50 limit sprite 25,0 to 275,200
  6. 60 mode 0 : flash off : hide 
  7. 70 get palette (10)
  8. 80 screen copy 10 to physic : screen copy 10 to back
  9. 90 rem move sprite by redrawing it
  10. 100 X=100 : Y=80 : YNEW=80
  11. 110 if jleft then XNEW=XNEW-2
  12. 120 if jright then XNEW=XNEW+2
  13. 130 gosub 170
  14. 140 sprite 1,XNEW,YNEW,9
  15. 150 wait vbl 
  16. 160 goto 110
  17. 170 if jup and P=0 then P=1
  18. 180 if P=1 and y sprite(1)=40 then P=2
  19. 190 if P=2 and y sprite(1)=80 then P=0
  20. 200 if P=1 then YNEW=YNEW-1
  21. 210 if P=2 then YNEW=YNEW+1
  22. 220 return 
  23.