Localize file
www.TrSek.com/cover/gabo/samopal.pas
{ SAMOPAL.PAS }
{ }
{ Author: Gabriel Staron }
{ Date : 15.02.1997 http://www.trsek.com }
program Samopal;
uses crt,graph;
var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
x,y : integer;
ch : char;
begin
x:=12;
y:=40;
grDriver := Detect;
InitGraph(grDriver,grMode,'');
setcolor(white);
outtextxy(10,20,'Ovladanie sipkami, strelba enter');
repeat
outtextxy(632,80,'Û'); {ciel}
ch:=readkey;
if (ch=#13) then begin {strela}
sound(150);
delay(500);
nosound;
setcolor(white); {vykresli strelu}
line(x+371,y+395,x+400,y+395);
delay(100);
setcolor(black); {zmaz strelu}
line(x+371,y+395,x+400,y+395);
delay(100);
setcolor(white);
line(x+400,y+395,x+430,y+395);
delay(100);
setcolor(black);
line(x+400,y+395,x+430,y+395);
delay(100);
setcolor(white);
line(x+430,y+395,x+460,y+395);
delay(100);
setcolor(black);
line(x+430,y+395,x+460,y+395);
delay(100);
setcolor(white);
line(x+460,y+395,x+490,y+395);
delay(100);
setcolor(black);
line(x+460,y+395,x+490,y+395);
delay(100);
setcolor(white);
line(x+490,y+395,x+520,y+395);
delay(100);
setcolor(black);
line(x+490,y+395,x+520,y+395);
delay(100);
setcolor(white);
line(x+520,y+395,x+550,y+395);
delay(100);
setcolor(black);
line(x+520,y+395,x+550,y+395);
delay(100);
setcolor(white);
line(x+550,y+395,x+580,y+395);
delay(100);
setcolor(black);
line(x+550,y+395,x+580,y+395);
delay(100);
setcolor(white);
line(x+580,y+395,x+610,y+395);
delay(100);
setcolor(black);
line(x+580,y+395,x+610,y+395);
delay(100);
setcolor(white);
line(x+610,y+395,x+640,y+395);
delay(100);
setcolor(black);
line(x+610,y+395,x+640,y+395);
delay(100);
setcolor(white);
line(x+640,y+395,x+670,y+395);
delay(100);
setcolor(black);
line(x+640,y+395,x+670,y+395);
delay(100);
setcolor(white);
line(x+670,y+395,x+700,y+395);
delay(100);
setcolor(black);
line(x+670,y+395,x+700,y+395);
delay(100);
setcolor(white);
line(x+700,y+395,x+730,y+395);
delay(100);
setcolor(black);
line(x+700,y+395,x+730,y+395);
delay(100);
setcolor(white);
line(x+730,y+395,x+760,y+395);
delay(100);
setcolor(black);
line(x+730,y+395,x+760,y+395);
delay(100);
setcolor(white);
line(x+760,y+395,x+790,y+395);
delay(100);
setcolor(black);
line(x+760,y+395,x+790,y+395);
delay(100);
setcolor(white);
line(x+790,y+395,x+820,y+395);
delay(100);
setcolor(black);
line(x+790,y+395,x+820,y+395);
delay(100);
setcolor(white);
line(x+820,y+395,x+850,y+395);
delay(100);
setcolor(black);
line(x+820,y+395,x+850,y+395);
delay(100);
setcolor(white);
line(x+850,y+395,x+880,y+395);
delay(100);
setcolor(black);
line(x+850,y+395,x+880,y+395);
delay(100);
setcolor(white);
line(x+880,y+395,x+910,y+395);
delay(100);
setcolor(black);
line(x+880,y+395,x+910,y+395);
delay(100);
setcolor(white);
line(x+910,y+395,x+940,y+395);
delay(100);
setcolor(black);
line(x+910,y+395,x+940,y+395);
delay(100);
end;
if (ch=#0) then begin
ch:=readkey;
setcolor(black); {zmaz samopal}
line(x+300,y+390,x+370,y+390);
line(x+300,y+390,x+300,y+430);
line(x+300,y+430,x+310,y+430);
line(x+310,y+430,x+310,y+400);
line(x+310,y+400,x+330,y+400);
line(x+330,y+400,x+330,y+420);
line(x+330,y+420,x+340,y+420);
line(x+340,y+420,x+340,y+400);
line(x+340,y+400,x+370,y+400);
line(x+370,y+400,x+370,y+390);
if (ch='K') then x:=x-10; {vlavo}
if (ch='M') then x:=x+10; {vpravo}
if (ch='H') then y:=y-10; {hore}
if (ch='P') then y:=y+10; {dole}
setcolor(white); {vykresli samopal}
line(x+300,y+390,x+370,y+390);
line(x+300,y+390,x+300,y+430);
line(x+300,y+430,x+310,y+430);
line(x+310,y+430,x+310,y+400);
line(x+310,y+400,x+330,y+400);
line(x+330,y+400,x+330,y+420);
line(x+330,y+420,x+340,y+420);
line(x+340,y+420,x+340,y+400);
line(x+340,y+400,x+370,y+400);
line(x+370,y+400,x+370,y+390);
repeat until keypressed;
end;
until (ch=#27); {znak ESC znamena koniec}
closegraph;
end.
Copyrigth by Zdeno Sekerak 2007,
http://www.trsek.com