Home » 2021 » March » 16

primitive game in microA with Johnno help 
var r,g,b , mx , my, ax,ay, wp ,p,score
var bf, bx, by ,bs, ex,ey
ptr wmKeyDown, wmTimer
 ay = 175 : ax = 120 : ex = 5 : ey = 10
wcolor 0,0,0 : fcolor 140,180,200
print 20,410,"primitive game in micro(A)"
print 20,430,"move 'A' with LEFT<->RIGHT arrow keys"
print 20,450,"Shoot with SPACE bar"
print 20,470,"Pause with ESC key"
print 456,10,"player" : print 456,40,"bullet" : print 456,70,"enemy"
print 456,100,"score"
updateScreen() : fcolor 220,10,10 : print ax,ay,"A" 


WinMsg wmKEYDOWN

hWparam wp
'vkLEFT ?-----------------------------------
if wp = 37 
   if ax > 11 : ax = ax - 5 :endif 
endif

'vkRIGHT ?---------------------------- ... Read more »

Views: 58 | Added by: Zlatko | Date: 2021-03-16 | Comments (0)