[pascal]
procedure GameINIT(const Size, bombs: Word);
var
a, b: Cardinal;
begin
a := GetTickCount;
BASSinit;
SDLinit; // SDL loaded, icon loaded and screen initialized here
minefield := TMineField.create(Size, bombs);
Loadresources; // files loaded from zip here
b := GetTickCount;
minefield.create2;
Writeln(Format('%ums for minefield create2', [GetTickCount - b]));
b := GetTickCount;
font := Tbitmapfont.Create('font\monospac821a.xml');
Writeln(Format('%ums for font loading', [GetTickCount - b]));
Writeln(Format('%ums to gameINIT', [GetTickCount - a]));
end;
//...
GameINIT(15, 40);
//...[/pascal]
Compiled with FPC 2.2.0
Compiled with D7
Game including a bin from FPC and D7 here ~550kb
Look the HUGE misterious load time :? :?
This is a study game, im making it for learning {i already learned a lot},
i will try make it multiplayer
A very test release and
don't expect good graphics yet
Bookmarks