Мастерская: Основные аспекты программирования игр

[DeKot]

To mutabor

Большие уровни лучше грузить по одному из файлов, и при переходе на другой выгружать и загружать следующий

Совершенно согласен со всеми замечаниями.Эту игру я вначале
писал на Pascal.Переделывал раз 10.Потом уже когда взялся за Delphi,
переделал под среду Delphi. Так вот на Pascale все данные я хранил и перезаписывал в текстовых файлах. И именно по необходимости загружал в память. Здесь же применил массивы чисто из за желания поучиться работать с массивами.

[Longedok]

2Kostia
Прикольная штука, эта волнистая окружность. В процессе собственных экспериментов, у меня получались довольно интересные штуки, но волнистую окружность нарисовать не получилось. Хотя идея была таже (синусоидально изменять радиус).
Примеры эксперементов:

[DeKot]

А у меня вот что получилось по программе от Kostia (пост №125).
Это при разных приращениях b.

[CyberOrcX]

получилась структура молекулы ДНК. сам удивился.
как получилось не понял , не сохранил исходники.
писал типа.
Form1.Canvas.Pixels[round(sin(x)и еще что-то), round(cos(x)и что-то еще))];

[Kostia]

Кому интересно, можете поэксперементировать:

Pixels[round(cos(a)*(50+sin(b)*5))+100,round(sin(a)*(50+cos(b)*5))+100]:=0;
      a:=a+0.005;
      b:=b+0.15;
------------------------------------
Pixels[round(cos(a)*(50+cos(b)*5))+100,round(sin(a)*(50+sin(c)*5))+100]:=0;
      a:=a+0.005;
      b:=b+0.15;
      c:=c+0.2;
------------------------------------
Pixels[round(cos(a)*cos(b)*100)+100,round(sin(a)*sin(b)*100)+100]:=0;
      a:=a+0.001;
      b:=b+0.01;
------------------------------------
Pixels[round(cos(a)*sin(b)*100)+100,round(sin(a)*sin(b)*100)+100]:=0;
      a:=a+0.001;//увеличивайте на 0,001 и получите разные рисунки
      b:=b+0.01;

[mutabor]

А вот галактика (на основе кода, к-рый давал Kostia для рисования круга), киньте кнопку на форму и запускайте, жмите кнопку несколько раз. Параметр s - кол-во полувитков.

procedure Galaxy(xc,yc,r,s: real);
const
  colors: array[0..2] of TColor = (clWhite, clSilver, clSilver);
var
  a: real;
  x,y: real;
  rr,z: double;
  dx,dy,n: integer;
begin
  a:=0;
  rr:=0;
  z:=0;
  n:=0;
  while (a<=pi*s) and (rr < r) do
  begin
    rr:=rr + n * 0.000005;
    x:=cos(a)*rr+xc;
    y:=sin(a)*rr+yc;
    dx:=Random(Round(z))-Round(z/2);
    dy:=Random(Round(z))-Round(z/2);
    form1.Canvas.Pixels[round(x+dx),round(y+dy)]:=colors[Random(3)];
    a:=a+1/r;
    Inc(n);
    z:=z+0.005;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Randomize;
with Sender as TButton do
  begin
    Left:=8;
    Top:=8;
  end;
ClientWidth:=600;
ClientHeight:=600;
Color:=0;
Repaint;
Galaxy(300,300,Random(200)+100,Random(12)+3);
end;

[DeKot]

Я уже приводил пример простейшего прямолинейного перемещения персонажа
http://www.programmersforum.ru/attac...7&d=1219297311
А во вложении пример простого движения персонажа по кругу (опять
же без sin - cos тут никак).

[Kostia]

Небольшая подборка статей на темы:

Дизайн-документ
Смысл игровых жанров
Игровой баланс
-----------------------------------
Думаю достаточно, всеже здесь игру делают, а не тригонометрию учат

[CyberOrcX]

не могли бы Вы уже учить создавать игры?

[Beermonza]

Да! Что там по плану дальше с Куртаном? ...отвлеклись.