Логика монстра(ов)

[ChukCha]

Для тех кто читает ето сообщение, то я зделал логику проверкой растояния между мной и монстром.

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var im1l,im2l,r:Integer;
begin
im1l:=Image1.Left;
im2l:=Image2.Left;
r:=im2l-im1l;

if chr(Key) = 'D' then
                      begin
                      Image1.Left:=Image1.Left+7;
                      if r<344 then
                      begin
                      Timer15.Enabled:=true;
                      end;
// на Timer15 у меня нападение монстра, то как он подойдет и так далее

[Delphimen]

Народ, me need backup!!now!!!! Короче, делаю свою первую игрушку-стрелялку(типа Counter-Stike Sourse), но у меня кое что не получается.
КТО МОЖЕТ, ПОМОГИТЕ!!!!
короче, проблема с управлением!
вот такой код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var actor,x,z : integer;
// x,z - "оси", по которым actor "ходит" (X,Z,Y)//
begin
// присваиваю "актору" компонент//
actor:= Form1.GLActor1;
if chr(Key) = 'D' then
// если клавиша "D" нажата//
begin
// "актор" идет в право по оси "Z"//
Form1.GLActor1 := Form1.GLActor1 = 'z+10';
// если клавиша "S" нажата//
if chr(Key) = 'S' then
begin
// "актор" идет назад по оси "Х"
Form1.GLActor1 := Form1.GLActor1 = 'x-10';
// если клавиша "А" нажата//
if chr(Key) = 'A' then
begin
// "актор" идет в лево по оси "Z"//
Form1.GLActor1 := Form1.GLActor1 = 'z-10';
// если клавиша "W" нажата//
if chr(Key) = 'W' then
begin
// "актор" идет вперёд по оси "Х"//
Form1.GLActor1 := Form1.GLActor1 = 'x+10';

// ну, и собствено конец опираций//
end;
end;
end;
end;
end;
end.


Когда я всё это прописал вывело 4 или 5 ошибок, что делать?
Кажеться оси неправильно "интежил" или шо?
Кто может подсказать, или исправить, пишите на schifr977@yandex.ru

PS ( также напишите как в игру "встроить" курсор (прицел), что бы "актор" поворачивался и стрелял по напровлению к курсору (прицелу).

[Rembo]

Delphimen, а причем тут тема "Логика монстра(ов)"???

[DM_bite]

типа Counter-Stike Sourse

Аффтар жжот....

[GenAcid]

А при чем тут вообще логика?
В юморе этому сообщению самое место

[Beermonza]

Модератор, почисть тему!

P.s. что за вклинивание не в тему ))