|
|
|
|
Почти готовый проект |
|
B E N Z O P I L A studios
|
IS (IronStream) - мультимедийный двухмерный движок, на котором создается засекреченный проект БС. Скорее всего это будет игрушка. Сам движок представляет набор инструментов для обработки векторной и растровой графики,и музыки формата PCMusic. Версия продукта на данный момент 0.12.1.
Ниже дан пример куска кода систем Чекера этого движка:
procedure startcheck(us1,us2,us3,us4,us5,us6,us7,us8,us9,writfil:boolean);
label ti,gr,cg,bt,pt;
var v,a,r,i,b,l,e,n,k,j:word;f:text;
begin
grin;
if writfil=true then begin assign(f,'ttlcheck.txt');rewrite(f);close(f); end else;
{1 time test}
if us1=true then begin
ti:
gettime(v,a,r,i);
delay(1000);
gettime(b,l,e,n);
r:=r*100+i;
e:=e*100+n;
a:=r*60;
l:=e*60;
v:=l-a;
v:=v div 60;
if v<=0 then goto ti;
if writfil=true then begin assign(f,'ttlcheck.txt');append(f);
writeln(f,'Time test results - your computer do ',v,' milisecond tacts at etalon ',
'1000 tacts.');close(f);end;
end else begin
if writfil=true then begin
assign(f,'ttlcheck.txt');
append(f);
writeln(f,'Time test results - no data.');
close(f);end;
end;
{2 graphinit test}
if us2=true then
begin
gr:
closegraph;
gettime(v,a,r,i);
grin;
gettime(b,l,e,n);
r:=r*100+i;
e:=e*100+n;
a:=r*60;
l:=e*60;
v:=l-a;
v:=v div 60;
if v<=0 then goto gr;
if writfil=true then begin assign(f,'ttlcheck.txt');append(f);
writeln(f,'Graph init test results - your computer initialize graphics for ',v,' miliseconds.');
close(f); end;
end else
begin
if writfil=true then begin
assign(f,'ttlcheck.txt');
append(f);
writeln(f,'Graph init test results - no data.');
close(f);
end;
end;
Вот собственно и кусок кода. Весь приводить не стал, чтобы заинтриговать. Как версия оформится в самостоятельную - опубликуем.
|
|
