Einzelnen Beitrag anzeigen

mr.winkle

Registriert seit: 25. Mai 2006
98 Beiträge
 
Delphi 7 Personal
 
#3

Re: debugger Exception - pacman macht probleme

  Alt 9. Jun 2006, 17:52
Hab's geändert, funktioniert aber immer noch nicht.

Delphi-Quellcode:
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type

  tspieler=class(Tobject)
    x,y:integer;
    procedure show;
    procedure bewegen(dir:string);
  end;

  tblock = class(TObject)
    bx,by:integer;
    da:boolean;
    procedure show;
  end;

  TForm1 = class(TForm)
    Image1: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure malelevel(r:integer);
    procedure Timer1Timer(Sender: TObject);
  end;

var
  Form1: TForm1;
  block:array of Tblock;
  level:array[0..13] of string;
  spieler:Tspieler;

implementation

{$R *.dfm}

procedure Tspieler.show;
begin
form1.Image1.Canvas.Brush.color:=clyellow;
form1.Image1.Canvas.Ellipse(x-8,y-8,x+8,y+8);
end;

procedure Tspieler.bewegen(dir:string);
begin
if (dir='links') then dec(x,5);
if (dir='rechts') then inc(x,5);
if (dir='oben') then dec(y,5);
if (dir='unten') then inc(y,5);
end;

procedure Tblock.show;
begin
with form1.image1.Canvas do begin
 brush.color:=clskyblue;
 rectangle(bx,by,bx+21,by+21)
 end;
end;

procedure Tform1.malelevel(r:integer);
var i,k:integer;
begin
if r=1 then begin
level[0]:= 'xxxxxxxxxxxxxxxxxxxx';
level[1]:= 'x xxxx xx';
level[2]:= 'x xxx x x xx';
level[3]:= 'x x xx';
level[4]:= 'x xx x xxx xx xx';
level[5]:= 'x xx x xxx xx xx';
level[6]:= 'x xx x xxx xx xx';
level[7]:= 'xxxxx xxxxxxx xx';
level[8]:= 'xxxxxx xxxxxxxxxxxxx';
level[9]:= 'xx xxxxxx';
level[10]:= 'xxx xx xxxxxxx';
level[11]:= 'x xxxxxxx x';
level[12]:= 'xxxxxxxxxx xxxx';
level[13]:= 'xxxxxxxxxxxxxxxxxxxx';
end;

setlength(block,high(level)*length(level[1]));

for k:=0 to high(level) do
for i:=0 to length(level[k]) do begin
block[i]:=tblock.Create;
block[i].bx:=i*20;
block[i].by:=k*20;
if level[k][i]='xthen block[i].da:=true else block[i].da:=false;
end; end;

procedure TForm1.FormCreate(Sender: TObject);
var i:integer;
begin
spieler:=Tspieler.Create;
malelevel(1);
spieler.x:=100;
spieler.y:=50;
spieler.show;
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
var i:integer;
begin
if GetAsyncKeyState(VK_LEFT)<0 then spieler.bewegen('links');
if GetAsyncKeyState(VK_RIGHT)<0 then spieler.bewegen('rechts');
if GetAsyncKeyState(VK_UP)<0 then spieler.bewegen('oben');
if GetAsyncKeyState(VK_DOWN)<0 then spieler.bewegen('unten');
image1.Canvas.Brush.color:=clwhite;
image1.Canvas.FillRect(image1.ClientRect);
spieler.show;
 for i:=0 to high(block) do block[i].show;
end;

end.
  Mit Zitat antworten Zitat