Форум программистов [Powered by Invision Power Board]

Код


var
  Form1: TForm1;
  body1,body2:bodyp;
  body,bodyt:array[1..10] of bodyp;
  bodycount,bodycountt:integer;
  i,j,temp,z:integer;
  fieldw,fieldh,cz,h,w:integer; //cz - cellsize in pixels
  bitmap,bitmapg,ground_bitmap,object_bitmap,visborder_bitmap,cell_bitmap,bitmap_mask:tbitmap;
  rx,ry,px,py,bx,by:integer;
  alfa,beta,l,l2,k,b,sz:real;
  x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6,x7,y7,x8,y8:real;
  dd:integer; //переменная задающая размер тела от настоящего до минимального
  terrain:array [1..200,1..200] of groundp;
  precision:integer;
  startup:boolean;
  hero:herop;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
fieldw:=500;fieldh:=500;
cz:=33;
px:=7;py:=7;
precision:=10;
//rx:=(px-1)*cz+round(cz/2);ry:=(py-1)*cz+round(cz/2);
body[1].x:=8;body[1].y:=10;body[1].size:=3.6;body[1].frm:='round';body[1].picture:=0;
body[2].x:=8;body[2].y:=11;body[2].size:=4.2;body[2].frm:='round';body[2].picture:=0;
body[3].x:=9;body[3].y:=11;body[3].size:=2.8;body[3].frm:='round';body[3].picture:=1;
body[4].x:=2;body[4].y:=3;body[4].size:=4;body[4].frm:='square';body[4].picture:=2;
bodycount:=4;

bitmap:=tbitmap.Create;
bitmapg:=tbitmap.Create;
//bitmap_mask:=tbitmap.Create;
//h:=500;w:=500;
//bitmap.Width:=w;
//bitmap.Height:=h;
ground_bitmap:=tbitmap.Create;
ground_bitmap.Height:=33;
ground_bitmap.Width:=33;
object_bitmap:=tbitmap.Create;
object_bitmap.Height:=33;
object_bitmap.Width:=33;
visborder_bitmap:=tbitmap.Create;
cell_bitmap:=tbitmap.Create;
cell_bitmap.Height:=33;
cell_bitmap.Width:=33;

for i:=1 to 200 do for j:=1 to 200 do begin terrain[i,j].picture:=0; terrain[i,j].hard:=1; end;
//инициализация персонажа
hero.name:='';
hero.str:=5;
hero.agi:=5;
hero.dex:=5;
hero.acu:=5;
hero.con:=5;
hero.int:=5;
hero.wis:=5;
hero.pre:=5;

label1.Caption:='            Сила '+inttostr(hero.str);
label2.Caption:='    Ловкость '+inttostr(hero.agi);
label3.Caption:='    Скорость '+inttostr(hero.dex);
label4.Caption:='     Точность '+inttostr(hero.acu);
label5.Caption:='  Живучесть '+inttostr(hero.str);
label6.Caption:='  Интеллект '+inttostr(hero.int);
label7.Caption:='    Мудрость '+inttostr(hero.wis);
label8.Caption:='Восприятие '+inttostr(hero.pre);
Edit2.Text:=hero.name;

startup:=true;
form1.top:=round((screen.Height-form1.Height)/2);
form1.left:=round((screen.width-form1.width)/2);
//PageControl1.Top:=-22;
button25.Caption:='EXIT';
end;


procedure TForm1.showrounds(pre:integer);
var
pdx,pdy,shading:integer;
begin
shading:=12;
pdx:=pre*cz+round(cz/2);pdy:=pdx;
//очищение изображения
h:=(pre*2+1)*cz;w:=h;
bitmap.Height:=h;bitmap.Width:=w;
bitmap.Canvas.Brush.Color:=clwhite;
bitmap.Canvas.FillRect(rect(0,0,w,h));
//рисование граници мира
cell_bitmap.Canvas.Brush.Color:=clgray;
cell_bitmap.Canvas.FillRect(rect(0,0,cz,cz));

for i:=-pre to pre do
for j:=-pre to pre do
if (i+px<1) or (i+px>fieldw) or (j+py<1) or (j+py>fieldh) then
bitblt(bitmap.Canvas.Handle,(i+pre)*cz,(pre-j)*cz,cz,cz,cell_bitmap.Canvas.Handle,0,0,srccopy)
else
begin
groundspic.GetBitmap(terrain[i+px,j+py].picture,ground_bitmap);
bitblt(bitmap.Canvas.Handle,(i+pre)*cz,(pre-j)*cz,cz,cz,ground_bitmap.Canvas.Handle,0,0,srccopy);
end;

//вывод картинки в центр (персонаж)
//bitblt(bitmap.Canvas.Handle,(10)*cz,(10)*cz,cz,cz,cell_bitmap.Canvas.Handle,0,0,srccopy);

object_bitmap.Canvas.Brush.Color:=clwhite;
object_bitmap.Canvas.FillRect(rect(0,0,33,33));
objects_masks.GetBitmap(3,object_bitmap);
bitblt(bitmap.Canvas.Handle,(10)*cz,(10)*cz,cz,cz,object_bitmap.Canvas.Handle,0,0,srcpaint);
object_bitmap.Canvas.Brush.Color:=clwhite;
object_bitmap.Canvas.FillRect(rect(0,0,33,33));
objectspic.GetBitmap(3,object_bitmap);
bitblt(bitmap.Canvas.Handle,(10)*cz,(10)*cz,cz,cz,object_bitmap.Canvas.Handle,0,0,srcand);

visborder_bitmap.Height:=h;visborder_bitmap.Width:=w;

//заполнить массив временных тел телами в поле зрения героя и упорядочить по расстоянию до героя в убывании
bodycountt:=0;
for i:=1 to bodycount do if sqrt((sqr(px-body[i].x)+sqr(py-body[i].y)))<=pre then
begin bodycountt:=bodycountt+1;bodyt[bodycountt]:=body[i];bodyt[bodycountt].num:=i; end;
for i:=1 to bodycountt do
for j:=i+1 to bodycountt do
begin
 if sqrt(sqr(px-bodyt[j].x)+sqr(py-body[j].y))>sqrt(sqr(px-bodyt[i].x)+sqr(py-body[i].y)) then
 begin
  body1:=bodyt[i];body2:=bodyt[j];bodyt[i]:=body2;bodyt[j]:=body1;
 end;
end;

//вывод тел на экран
bitmap.Canvas.Brush.Color:=clblack;
for i:=1 to bodycountt do
begin
bx:=pdx+(bodyt[i].x-px)*cz;
by:=pdy+(bodyt[i].y-py)*cz;
//рисование тени
if bodyt[i].frm='round' then
begin
if pdx<>bx then alfa:=arctan(abs(pdy-by)/abs(pdx-bx)) else alfa:=pi/2;
l:=sqrt(sqr(pdx-bx)+sqr(pdy-by));
sz:=bodyt[i].size;
l2:=sqrt(sqr(l)+sqr(sz));
beta:=arctan(sz/l);
if bx>pdx then begin x3:=pdx+cos(alfa+beta)*l2;x4:=pdx+cos(alfa-beta)*l2; end else begin x3:=pdx-cos(alfa+beta)*l2;x4:=pdx-cos(alfa-beta)*l2; end;
if by>pdy then begin y3:=pdy+sin(alfa+beta)*l2;;y4:=pdy+sin(alfa-beta)*l2; end else begin  y3:=pdy-sin(alfa+beta)*l2;;y4:=pdy-sin(alfa-beta)*l2; end;
//1я граница видимости
k:=(pdy-y3)/(pdx-x3);
b:=pdy-k*pdx;
x1:=w;y1:=k*x1+b; if y1>h then begin y1:=h;x1:=(y1-b)/k; end;
if sqrt(sqr(y1-y3)+sqr(x1-x3))>sqrt(sqr(y1-pdy)+sqr(x1-pdx)) then
begin
x1:=0;y1:=k*x1+b; if y1<0 then begin y1:=0;x1:=(y1-b)/k; end;
end;
//2я граница видимости
k:=(pdy-y4)/(pdx-x4);
b:=pdy-k*pdx;
x2:=w;y2:=k*x2+b; if y2>h then begin y2:=h;x2:=(y2-b)/k; end;
if sqrt(sqr(y2-y4)+sqr(x2-x4))>sqrt(sqr(y2-pdy)+sqr(x2-pdx)) then
begin
x2:=0;y2:=k*x2+b; if y2<0 then begin y2:=0;x2:=(y2-b)/k; end;
end;

Bitmap.Canvas.Polygon([point(round(x1),h-round(y1)),point(round(x2),h-round(y2)),point(round(x4),h-round(y4)),point(round(x3),h-round(y3))]);
end;

if bodyt[i].frm='square' then
begin
sz:=bodyt[i].size;
x3:=bx-sz;y3:=by-sz;x4:=bx+sz;y4:=by+sz;

//1я граница видимости
k:=(pdy-y3)/(pdx-x3);
b:=pdy-k*pdx;
x1:=w;y1:=k*x1+b; if y1>h then begin y1:=h;x1:=(y1-b)/k; end;
if sqrt(sqr(y1-y3)+sqr(x1-x3))>sqrt(sqr(y1-pdy)+sqr(x1-pdx)) then
begin
x1:=0;y1:=k*x1+b; if y1<0 then begin y1:=0;x1:=(y1-b)/k; end;
end;
//2я граница видимости
k:=(pdy-y4)/(pdx-x4);
b:=pdy-k*pdx;
x2:=w;y2:=k*x2+b; if y2>h then begin y2:=h;x2:=(y2-b)/k; end;
if sqrt(sqr(y2-y4)+sqr(x2-x4))>sqrt(sqr(y2-pdy)+sqr(x2-pdx)) then
begin
x2:=0;y2:=k*x2+b; if y2<0 then begin y2:=0;x2:=(y2-b)/k; end;
end;
Bitmap.Canvas.Polygon([point(round(x1),h-round(y1)),point(round(x2),h-round(y2)),point(round(x4),h-round(y4)),point(round(x3),h-round(y3))]);

x3:=bx+sz;y3:=by-sz;x4:=bx-sz;y4:=by+sz;
//3я граница видимости
k:=(pdy-y3)/(pdx-x3);
b:=pdy-k*pdx;
x1:=w;y1:=k*x1+b; if y1>h then begin y1:=h;x1:=(y1-b)/k; end;
if sqrt(sqr(y1-y3)+sqr(x1-x3))>sqrt(sqr(y1-pdy)+sqr(x1-pdx)) then
begin
x1:=0;y1:=k*x1+b; if y1<0 then begin y1:=0;x1:=(y1-b)/k; end;
end;
Bitmap.Canvas.MoveTo(round(x3),round(h-y3));Bitmap.Canvas.LineTo(round(x1),h-round(y1));
//4я граница видимости
k:=(pdy-y4)/(pdx-x4);
b:=pdy-k*pdx;
x2:=w;y2:=k*x2+b; if y2>h then begin y2:=h;x2:=(y2-b)/k; end;
if sqrt(sqr(y2-y4)+sqr(x2-x4))>sqrt(sqr(y2-pdy)+sqr(x2-pdx)) then
begin
x2:=0;y2:=k*x2+b; if y2<0 then begin y2:=0;x2:=(y2-b)/k; end;
end;
Bitmap.Canvas.Polygon([point(round(x1),h-round(y1)),point(round(x2),h-round(y2)),point(round(x4),h-round(y4)),point(round(x3),h-round(y3))]);
end;

//рисование графики объектов
//object_bitmap:=objectspic
object_bitmap.Canvas.Brush.Color:=clwhite;
object_bitmap.Canvas.FillRect(rect(0,0,33,33));
objects_masks.GetBitmap(bodyt[i].picture,object_bitmap);
bitblt(bitmap.Canvas.Handle,bx-round(cz/2),h-(by-round(cz/2))-33,bx+round(cz/2),h-(by+round(cz/2)),object_bitmap.Canvas.Handle,0,0,srcpaint);
object_bitmap.Canvas.Brush.Color:=clwhite;
object_bitmap.Canvas.FillRect(rect(0,0,33,33));
objectspic.GetBitmap(bodyt[i].picture,object_bitmap);
bitblt(bitmap.Canvas.Handle,bx-round(cz/2),h-(by-round(cz/2))-33,bx+round(cz/2),h-(by+round(cz/2)),object_bitmap.Canvas.Handle,0,0,srcand);
end;


//рисование круга видимости
visborder_bitmap.Canvas.Brush.Color:=clwhite;
visborder_bitmap.Canvas.FillRect(rect(0,0,w,h));
visborder_bitmap.Canvas.Ellipse(0+1,0+1,w-2,h-2);
visborder_bitmap.Canvas.Brush.Color:=clblack;
visborder_bitmap.Canvas.FloodFill(0,h-1,clblack,fsborder);

//вывод изображения на экран в центр
bitblt(bitmap.Canvas.Handle,0,0,w,h,visborder_bitmap.Canvas.Handle,0,0,srcand);
//bitblt(form1.Canvas.Handle,0,0,363,363,bitmap.Canvas.Handle,round((w-363)/2),round((h-363)/2),srccopy);
bitblt(image1.Canvas.Handle,0,0,363,363,bitmap.Canvas.Handle,round((w-363)/2),round((h-363)/2),srccopy);
image1.Refresh;

//полосы прокрутки
if w>363 then
begin
viewhscroll.Enabled:=true;
viewhscroll.Max:=w-363;
viewhscroll.Position:=round(viewhscroll.Max/2);
end else viewhscroll.Enabled:=false;
if h>363 then
begin
viewvscroll.Enabled:=true;
viewvscroll.Max:=h-363;
viewvscroll.Position:=round(viewvscroll.Max/2);
end else viewvscroll.Enabled:=false;
//конец
end;