2. Stroll Game Engine (http://stroll.h12.ru). Шароварный экшн от 1 лица, пока планируемый "от балды". В движке есть существенный сдвиги (бамп, шейдеры, мультитекстуры, тени и пр.). Может пригодиться.

3. Star Craft Realistic Final. В отличие от первого весит около 1.5 Гб (на 2 дисках). Есть новые кампании, переделана кое-где физика и баланс, улучшена анимация, добавлен новый сетевой режим.

Ещё есть гоблинский перевод Периметра. Кому интересно - можно поучаствовать (Работа - не бей лежачего. перевести звук и текст, спародировать портреты героев).

Последние 2 проекта надо в ближайщем будущем издать через Torum Media, на получку прожить до завершения остальных.

Я предлагаю проекты 1, 2 и ваш объединить в проект Star Craft Tactics. Это будет что-то вроде Star Wars: Battlefront, но с возможностью играть и в режиме RTS.

P. S. Кампании остро нуждаются в новых картах и озвучке.

Как эти 2 проекта обьединить с нашим - пока тож ниасилил, мож ты что-то подскажешь/предложишь.
Но, по-любому побазарить надо, есть о чем.

Every cloud in the sky
Every place that I hide
Tell me what I,
I was wrong to let you go...

п.с. я пока 20 дней еще буду иногда в инет вылазить с работы, апотом на 2 недели в полный оффлайн. и где-то 10го августа точсно опятиь буду в строю.

Добавлено (01 Авг 2006, 4:56:35 Am)
---------------------------------------------
Всем превед!
Хочу порадовать новостью, что наш движок развивается.
Недавно я приступил к работе над освещением и тенями, и уже есть некоторые результаты. Сейчас тружусь над прожекторами, уже могу рисовать световое пятно на любой модели, но пока не могу регулировать его размер и затухание с расстоянием. Верю, что все это преодолимо .

ЗЫ скажу по секрету, что один человег предложил мне померяться пиписьками, т.е. примерно в 20-х числах августа сравнить 2 написанных к тому времени графических движка. Чтож, вызов принят и я уже приготовил линейку! Так что, болейте за меня!

Every cloud in the sky
Every place that I hide
Tell me what I,
I was wrong to let you go...

Сообщение отредактировал Barbanel - Вторник, 25 Июл 2006, 18:54:57

Вот соббсно вопрос: как правильно это делать?
Вот часть моего кода:

Code

Function getNormal(v1,v2,v3:TcVector3f):TcVector3f; var l1,l2:TcVector3f;    length,iLength:real; begin   l1[0]:=v2[0]-v1[0];   l1[1]:=v2[1]-v1[1];   l1[2]:=v2[2]-v1[2];   l2[0]:=v3[0]-v1[0];   l2[1]:=v3[1]-v1[1];   l2[2]:=v3[2]-v1[2]; result[0]:=l1[1]*l2[2]-l1[2]*l2[1]; result[1]:=l1[2]*l2[0]-l1[0]*l2[2]; result[2]:=l1[0]*l2[1]-l1[1]*l2[0]; length:=result[0]*result[0] + result[1]*result[1] + result[2]*result[2]; length:=sqrt(length); ilength:=1/length; result[0]:=result[0]*ilength; result[1]:=result[1]*ilength; result[2]:=result[2]*ilength; end; procedure MD5_UpdateNormals(m1:TPActor); var i,i1,i2,i3:integer;    v1,v2,v3,norm:TcVector3f; begin // здесь: // ArrIndex - массив с индексами вершин // ArrVertex - массив самих вершин (их координат) // ArrTexture[i].Normal - сама нормаль в этой вершине  i:=0;  while i<m1.md5mesh.ArrIndexCount-2 do   begin    i1:=m1.md5mesh.ArrIndex[i];    i2:=m1.md5mesh.ArrIndex[i+2];    i3:=m1.md5mesh.ArrIndex[i+1];    v1:=m1.md5mesh.ArrVertex[i1];    v2:=m1.md5mesh.ArrVertex[i2];    v3:=m1.md5mesh.ArrVertex[i3];    norm:=getNormal(v1, v2, v3);    m1.md5mesh.ArrTexture[i1].Normal:=norm;    m1.md5mesh.ArrTexture[i2].Normal:=norm;    m1.md5mesh.ArrTexture[i3].Normal:=norm;    i:=i+3;   end; end;

Господа программеры, ПЛИЗ ХЕЛП, работа стоит...

Every cloud in the sky
Every place that I hide
Tell me what I,
I was wrong to let you go...

For i := 0 to NumFace - 1 do begin
wrkFace := Face[i];
wrkVector1 := Vertex[Face[i].a] ;
wrkVector2 := Vertex[Face[i].b] ;
wrkVector3 := Vertex[Face[i].c] ;

vx1 := wrkVector1.x - wrkVector2.x;
vy1 := wrkVector1.y - wrkVector2.y;
vz1 := wrkVector1.z - wrkVector2.z;

vx2 := wrkVector2.x - wrkVector3.x;
vy2 := wrkVector2.y - wrkVector3.y;
vz2 := wrkVector2.z - wrkVector3.z;

nx := vy1 * vz2 - vz1 * vy2;
ny := vz1 * vx2 - vx1 * vz2;
nz := vx1 * vy2 - vy1 * vx2;

wrki := sqrt (nx * nx + ny * ny + nz * nz);

wrkVector.x := nx / wrki;
wrkVector.y := ny / wrki;
wrkVector.z := nz / wrki;

FaceNormal[i]:=wrkVector;
end;
end;
//XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

procedure TObj.CalcVertexNormals;
var i, j ,shared: integer;
Fac : tFace;
length : single;
VSum,VZero:TVector3D;
begin
for i:=0 to NumVertex- 1 do
begin
for j:=0 to 2 do
begin
VertexNormal[i].X :=0;
VertexNormal[i].Y :=0;
VertexNormal[i].Z :=0;
end;
end;

VectorClear(vSum);
VectorClear(VZero);
Shared:=0;

for I:=0 to NumVertex-1 do
begin
for J:=0 to NumFace-1 do
if (Face[J].a = I) or (Face[J].b = I) or
(Face[J].c = I) then
begin
VSum:=VectorAdd(VSum, FaceNormal[J]);
Inc(Shared);
end;

VertexNormal[I]:=VectorDivide(vSum, Shared);
VectorNormalize(VertexNormal[I]);

vSum:=vZero;
Shared:=0;
end;
end;
//HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH

Scene[MeshCount].Mesh.CalcFaceNormals;
Scene[MeshCount].Mesh.CalcVertexNormals;
///Scene[MeshCount].Mesh.InitVBO;////////XA-XA-XA