spieleprogrammierer.de - Forum und Wiki zur Spieleprogrammierung und Spieleentwicklung

Quellcode

function fps:Integer;
begin
  if (now-_t)*1000<>0 then
  Result:=Round(_fps / ((now-_t)*100000));
  _t:=now;
  _fps:=0;
end;

procedure _AI;
begin
  CBat.y:=Ball.y-50;
  Ball.y:=Ball.y+(Ball.ydir*Ball.ymult);
  Ball.x:=Ball.x+(Ball.xdir*Ball.xmult);
  if Ball.y<1 then Ball.ydir:=0-Ball.ydir;
  if Ball.y>Form2.Height-Ball._img.Height-1 then Ball.ydir:=0-Ball.ydir;

  if Ball.x<10 then
  if PBat.y-1<Ball.y then
  if PBat.y+PBat._img.Height+1>Ball.y then
  begin
  Ball.xdir:=1;
  if Ball.y>=PBat.y then
  if Ball.y<=PBat.y+40 then ball.ydir:=Ball.ydir-1;
  if Ball.y>=PBat.y+80 then
  if Ball.y<=PBat.y+120 then ball.ydir:=Ball.ydir+1;
  end;

  if Ball.x>Form2.Width-CBat._img.Width-4 then
  if CBat.y-1<Ball.y then
  if CBat.y+CBat._img.Height+1>Ball.y then
  begin
  Ball.xdir:=-1;
  if Ball.y>=CBat.y then
  if Ball.y<=CBat.y+40 then ball.ydir:=Ball.ydir-1;
  if Ball.y>=CBat.y+80 then
  if Ball.y<=CBat.y+120 then ball.ydir:=Ball.ydir+1;
  end;

  if Ball.x<0 then pointforC;
  if Ball.x>Form2.Width then pointforP;
end;

procedure _go;
begin
_game:=True;
while _game=True do
  begin
    Sleep(8);
    if _stop=False then
    if mymode='cpu' then
    _AI;
    PBat.y:=Mouse.CursorPos.Y-60;
    Form2.cyAdvPaintBox1.Refresh;
    if GetAsyncKeyState(VK_ESCAPE)<>0 then
      begin
        _game:=False;
        Form2.Close;
        _stop:=True;
      end;
  end;
end;

procedure setscene;
begin
  with Form2 do
  begin
    Ball.x:=50;
    Ball.y:=50;
    Ball.ydir:=1;
    Ball.ymult:=3;
    Ball.xmult:=3;
    Ball.xdir:=1;
    PBat._img:=Form2.img1.Picture.Graphic;
    CBat._img:=Form2.img1.Picture.Graphic;
    Ball._img:=Form2.img2.Picture.Graphic;
    setpoints(0,0);
    cyAdvPaintBox1.Show;
    _t:=Now;
  end;
end;

procedure TForm2.cyAdvPaintBox1Paint(Sender: TObject);
begin
inc(_fps);
cyAdvPaintBox1.Canvas.Brush.Color:=clBlack;
cyAdvPaintBox1.Canvas.Font.Color:=clWhite;
cyAdvPaintBox1.Canvas.Font.Size:=24;
cyAdvPaintBox1.Canvas.TextOut(Round(Form2.Width*0.5)-100,0,'Esc 2 Escape');
cyAdvPaintBox1.Canvas.TextOut(3,Form2.Height-50,P1);
cyAdvPaintBox1.Canvas.TextOut(Form2.Width-length(P2)*20,Form2.Height-50,P2);
cyAdvPaintBox1.Canvas.Font.Size:=10;
cyAdvPaintBox1.Canvas.TextOut(0,0,TimeToStr(Now));
cyAdvPaintBox1.Canvas.TextOut(0,30,'FPS: '+IntToStr(fps));
cyAdvPaintBox1.Canvas.Draw(0,PBat.y,Pbat._img);
cyAdvPaintBox1.Canvas.Draw(Form2.Width-Cbat._img.Width,CBat.y,Cbat._img);
cyAdvPaintBox1.Canvas.Draw(Ball.x,Ball.y,ball._img);
end;