slederer/Tridora-CPU
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages 3 Wiki Activity Actions

runtime/stdlib: add MaxAvail function

Browse source
This commit is contained in:
slederer 2026-04-18 03:30:54 +02:00
parent 72b6ab6a30
commit 3fd6011e36
5 changed files with 75 additions and 24 deletions
Download patch file Download diff file Expand all files Collapse all files

42
examples/animate.pas
View file

@ -5,7 +5,7 @@ type PictData = record
magic,mode:integer;
palette: array [0..15] of integer;
pixeldata: array [0..31999] of integer;
end;
end;
Sprite = record
x,y:integer;
@ -131,10 +131,10 @@ end;
procedure animLoop;
var i:integer;
oldX,oldY:integer;
roldX,roldY:integer;
r2oldX,r2oldY:integer;
r3oldX,r3oldY:integer;
lastX,lastY:integer;
rlastX,rlastY:integer;
r2lastX,r2lastY:integer;
r3lastX,r3lastY:integer;
begin
stickMan.x := 0;
stickMan.y := 205;
@ -178,22 +178,22 @@ begin
while not ConAvail do
begin
oldX := stickMan.x;
oldY := stickMan.y;
lastX := stickMan.x;
lastY := stickMan.y;
roldX := rocket.x;
roldY := rocket.y;
rlastX := rocket.x;
rlastY := rocket.y;
r2oldX := rocket2.x;
r2oldY := rocket2.y;
r2lastX := rocket2.x;
r2lastY := rocket2.y;
r3oldX := rocket3.x;
r3oldY := rocket3.y;
r3lastX := rocket3.x;
r3lastY := rocket3.y;
PutSprite(roldX, roldY, rocket.frame[rocket.curFrame]);
PutSprite(r2oldX, r2oldY, rocket2.frame[rocket2.curFrame]);
PutSprite(r3oldX, r3oldY, rocket3.frame[rocket3.curFrame]);
PutSprite(oldX, oldY, stickMan.frame[stickMan.curFrame]);
PutSprite(rlastX, rlastY, rocket.frame[rocket.curFrame]);
PutSprite(r2lastX, r2lastY, rocket2.frame[rocket2.curFrame]);
PutSprite(r3lastX, r3lastY, rocket3.frame[rocket3.curFrame]);
PutSprite(lastX, lastY, stickMan.frame[stickMan.curFrame]);
animateSprite(rocket);
animateSprite(rocket2);
@ -203,10 +203,10 @@ begin
Delay(10);
WaitVSync;
UndrawSprite(oldX, oldY, pic.pixeldata);
UndrawSprite(roldX, roldY, pic.pixeldata);
UndrawSprite(r2oldX, r2oldY, pic.pixeldata);
UndrawSprite(r3oldX, r3oldY, pic.pixeldata);
UndrawSprite(lastX, lastY, pic.pixeldata);
UndrawSprite(rlastX, rlastY, pic.pixeldata);
UndrawSprite(r2lastX, r2lastY, pic.pixeldata);
UndrawSprite(r3lastX, r3lastY, pic.pixeldata);
end;
end;