Реферат: Разработка игровой программы на языке программирования Turbo Pascal

Var

fx,fy,x1,y1,x2,y2:Word;

c:Byte;

begin

if (x+w-1<TopX) or (y+h-1<TopY) or (x>BotX) or (y>BotY) then Exit;

if x<TopX then x1:=Abs(x) else x1:=0;

if y<TopY then y1:=Abs(y) else y1:=0;

if x+w>BotX then x2:=BotX-x else x2:=w-1;

if y+h>BotY then y2:=BotY-y else y2:=h-1;

for fy:=y1 to y2 do

for fx:=x1 to x2 do

begin

c:=BA(Image^)[fy*w+fx];

if c<>0 then Mem[Base:((y+fy) shl 8)+((y+fy) shl 6)+(x+fx)]:=c;

end;

end;

Procedure DrawOSpr;

Var

fx,fy,x1,y1,x2,y2:Word;

begin

if (x+w-1<TopX) or (y+h-1<TopY) or (x>BotX) or (y>BotY) then Exit;

if x<TopX then x1:=Abs(x) else x1:=0;

if y<TopY then y1:=Abs(y) else y1:=0;

if x+w>BotX then x2:=BotX-x else x2:=w-1;

if y+h>BotY then y2:=BotY-y else y2:=h-1;

for fy:=y1 to y2 do

for fx:=x1 to x2 do

Mem[Base:((y+fy) shl 8)+((y+fy) shl 6)+(x+fx)]:=BA(Image^)[fy*w+fx];

end;