Создание игры новичками

[Соколов Дмитрий]

uses
Я надыбыл код проги с поворотом, ночто то полностью в нем сам разобраться не могу


Math;
procedure TForm1.Button1Click(Sender: TObject);
var
bm, bm1: TBitMap;
x, y: integer;
r, a: single;
xo, yo: integer;
s, c: extended;
begin
bm := TBitMap.Create;
bm.LoadFromFile('ex.bmp');
xo := bm.Width div 2;
yo := bm.Height div 2;
bm1 := TBitMap.Create;
bm1.Width := bm.Width;
bm1.Height := bm.Height;
a := 0;
repeat
for y := 0 to bm.Height - 1 do
begin
for x := 0 to bm.Width - 1 do
begin
r := sqrt(sqr(x - xo) + sqr(y - yo));
SinCos(a + arctan2((y - yo), (x - xo)), s, c);
bm1.Canvas.Pixels[x,y] := bm.Canvas.Pixels[
round(xo + r * c), round(yo + r * s)];
end;
Application.ProcessMessages;
end;
Form1.Canvas.Draw(xo, yo, bm1);
a := a + 0.05;
Application.ProcessMessages;
until
Form1.Tag <> 0;
bm.Destroy;
bm1.Destroy;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Form1.Tag := 1;
end;

[Манжосов Денис :)]

А мне кажется стоило бы вам начать не с создания игр, а с того, чтобы хотя бы синтаксис знать. Скачайте себе Turbo Pascal и работайте там. А потом уже и за игры приступайте.

[Соколов Дмитрий]

Как вы уже заметили у меня на поле 3 тачки, мы прописываем 1ую, как сделать чтобы другие тачки ехали сами, сделать типо соревнований?

[Соколов Дмитрий]

Спасибо за совет, но где его взять, нужно еще чтобы он с ключиком был, и русский

[Манжосов Денис :)]

В таймере пишите
Image2.Top := Image2.Top - 2;
Противник поедет вверх.

http://www.google.ru/search?hl=ru&ne...82%D1%8C+Turbo

Скачать можно здесь

[Соколов Дмитрий]

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

type
TForm1 = class(TForm)
Image1: TImage;
Image3: TImage;
Image4: TImage;
Timer1: TTimer;
procedure FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

function keypressed(key: byte): boolean;
var
keys: TKeyboardState;
begin
result:=false;
GetKeyboardState(keys);
if(keys[key]=128)or(keys[key]=129)then result:=true;
end;


{$R *.dfm}

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=VK_UP then image3.Top:=image3.Top-2;
if key=VK_LEFT then image3.Left:=image3.Left-2;
if key=VK_DOWN then image3.Top:=image3.Top+2;
if key=VK_RIGHT then image3.Left:=image3.Left+2;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if KeyPressed (37) then
// Äâèãàòü ìàøèíó âëåâî Image3.Left := Image3.Left - 2;
if KeyPressed (39) then
// Äâèãàòü ìàøèíó âïðàâî Image3.Left := Image3.Left + 2;

Image4.Top := Image4.Top - 2;

end;

end.

[Манжосов Денис :)]

Помоему здесь вам не раз сказали, чтобы вы убрали процедуру procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);. Вы сильно тупите. Зачем вы выложили, чтобы все посмотрели, что ничего не изменилось и написали бы вам какой вы молодец?

[Соколов Дмитрий]

Я хочу попробовать показать условия победы

[Соколов Дмитрий]

почем, изменилось, я убрал 3 тачку, и прописал для своей, условия победыне так ли будут
IF..........................(победа !)
ELSE......................(поражени е)

[Beermonza]

Delphi - не конструктор игр, If - не победа, а Else - тем более не поражение. Каждая команда нужна для определенной задачи. Игра - это набор математических/логических манипуляций, когда вы поймете это, то запрограммировать любые изменения в игре для вас будет не проблема. Отправляйтесь в тему "Уроки по созданию игр для новичков", читайте все посты от и до, разбирайтесь в каждом коде, в каждой строчке, обращайте внимание на синтаксис (как правильно вводить операторы). Вам нужно знать фундаментальные приемы, из них складывается игра. Удачи!