| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Помогите новичку (DelphiX) [Delphi, Windows]
Pauchok © (2002-11-30 03:41:00)Хочу научится использовать DelphiX для создания игр,научился выводить изображение на экран,а вот с анимацией разобраться немогу посмотрел примеры (Golem)ничего не понял .Пожайлуста приведите простой пример с использованием 2 или 3 кадров.
Muxec (2003-01-24 10:35:00) [1]A esli ne ukazhesh patternWidth to chto?
Daddy (2002-12-03 10:14:00) [2]http://www.daddy.h1.ru/index.shtml?dxarticles
Axis_of_Evil (2002-12-02 09:27:00) [3]Народ, а TImageSprite не пользовали, в данном случае может это
Mirovodin (2002-12-01 12:28:00) [4]Да правильно. По поводу заполнения см. ответ N2 от 30.11.02 20:54
Pauchok (2002-12-01 02:13:00) [5]Теперь правильно?
var
Form1: TForm1;
ACount:integer=0;
X,Y: integer;
a:integer=3;
b:integer=0;
implementation
{$R *.DFM}
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
DXinput1.Update;
DXDraw1.Surface.Fill(0);
Dximagelist1.Items[0].Draw(DXDraw1.Surface,X,Y,ACount);
Dxdraw1.Flip;
inc(Acount);
if Acount>a then Acount:=b;
if isleft in DXinput1.States then
begin
a:=7;
b:=4;
x:=x-8;
end
else
if isRight in DXinput1.States then
begin
a:=3;
b:=0;
x:=x+8;
end;
if isUp in DXinput1.States then
begin
y:=y-8
end;
if isDown in DXinput1.States then
begin
y:=y+8;
end;
end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key=vk_control then
dxtimer1.Enabled:=true;
end;
end.
Как заполнить Surface изображением?
Mirovodin (2002-11-30 20:54:00) [6]Конечно нет :)))
...
private
ACount:integer;
X,Y: integer;
...
...
ACount:=0;
...
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
DXDraw1.Surface.Fill(0);
Dximagelist1.Items[0].Draw(DXDraw1.Surface,X,Y,ACount);
Dxdraw1.Flip;
inc(Acount);
if Acount>4 then Acount:=0;
end;
1) Изменять переменные X,Y;
2) Сначала заполнять Surface изображением, ожним или многими - это будет фон. А потом рисовать все остальное. Алгоритм художника называется. Спреведлив не только для 3D но и для 2D графики.
Pauchok (2002-11-30 19:59:00) [7]Благодаря вам сделал анимированого персонажа состоит из
4 кадров.Проверьте правильно ли я все сделал
procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
DXDraw1.Surface.Fill(0);
Dximagelist1.Items[0].Draw(DXDraw1.Surface,20,20,0);
Dxdraw1.Flip;
sleep(200);
DXDraw1.Surface.Fill(0);
Dximagelist1.Items[0].Draw(DXDraw1.Surface,20,20,1);
Dxdraw1.Flip;
sleep(200);
DXDraw1.Surface.Fill(0);
Dximagelist1.Items[0].Draw(DXDraw1.Surface,20,20,2);
Dxdraw1.Flip;
sleep(200);
DXDraw1.Surface.Fill(0);
Dximagelist1.Items[0].Draw(DXDraw1.Surface,20,20,3);
Dxdraw1.Flip;
sleep(200);
end;
end.
Еще несколько вопросов
1)Как заставить моего персонажа перемещаться по экрану?
2)Как сделать фон? (Я имею ввиду не цвет,а изображение )
Что-то надо написать вместо DXDraw1.Surface.Fill(0) Да?;
Mirovodin (2002-11-30 17:52:00) [8]P.S. если ты не понял пример Golem, каждая строчка которого прокомментирована - может стоит Object Pascal снчала изучать ? Что такое классы, методы и т.д.
Mirovodin (2002-11-30 17:50:00) [9]Допустим в TDXImageList есть DIB каотрый состоит из 3-х изображений. Для вывода 1-го кдара используем :
DXImageList1.Items[0].Draw(..,..,..,0)
Для выводя 2-го
DXImageList1.Items[0].Draw(..,..,..,1)
и для 3-го:
DXImageList1.Items[0].Draw(..,..,..,2)
Если все это делать через промежутки времени, получим плавную смену кадров - анимацию.
Pauchok (2002-11-30 17:03:00) [10]Как указать pattern я уже догадался,но не знаю что надо сделать, чтоб кадры менялись.Пожайлуста напишите простой пример, где анимированый персонаж (состоящий из 2-3 фремов) двигается по небольшой карте.
Pauchok (2002-11-30 16:24:00) [11](При вызове процедуры Draw, указать нужный pattern)
А как указать нужный pattern?
3d[Power] (2002-11-30 13:18:00) [12]Есть спрайт, но разбитый на фреймы, в дельфиХе там свойства PatternWidth PatternHeight, Если картинка 256x256 то если указать pattern 128х128, то это будет значить что спрайт содержит 4 фрейма, которые размером 128х128. При вызове процедуры Draw, указать нужный pattern
| |
