paweld/pas2js
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/pas2js.git synced 2025-04-07 15:47:45 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Show died status

Browse Source
This commit is contained in:
michael 2019-07-24 16:42:53 +00:00
parent 69c7889c7f
commit 89e2527a02
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
demo/pacman/upacman.pp
View File

@ -1147,6 +1147,7 @@ procedure TPacman.StartTimer;
begin
FDying:=False;
UpdateStatus('Playing');
SpriteTimer:=window.setInterval(@DoSpriteTimer,TimerInterval);
end;
@ -1228,6 +1229,7 @@ begin
dec(LivesLeft);
UpdateScore();
PacmanDir:='-';
UpdateStatus('You died');
ShowText('YOU DIE !!!',@CheckGameOver);
end;