Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.
Vanilla 1.1.4 jest produktem Lussumo. Więcej informacji: Dokumentacja, Forum.
procedure TitleScreen;
var i:byte;
begin
InitGraph(8);
Pause;
nmien := $40;
color2 := 0;
color1 := 0;
Move(pointer(TITLE_BASE),pointer(savmsc + (40 * 8)),5840);
for i:=0 to 12 do begin
color1 := i;
Pause(2);
end;
readkey;
for i:=12 to 0 do begin
color1 := i;
Pause;
end;
end;
Od 1 do 41 z 41