Игростроение - Создание игр

program Example_snow;

uses
   Blitz3DSDK;

const
   SnowValue = 128;

type
   tSprite = record
     hSprite : Cardinal;
     x, y, z : Real;
     ax, ay, az : Real;
     speed : real;
     Amp : byte;
     VisibleZone : word;
   end;

var
   hCamera : Cardinal;
   hTimer : Cardinal;

   SnowSprites : array[0..255] of tSprite;

procedure InitSnow(hObj : Cardinal; ispeed, sx, sz : real; iVisibleZone : word; Sprite : Pchar);
var i : Integer;
begin
   for i := 0 to SnowValue - 1 do
     with SnowSprites[i] do
     begin
       hSprite := LoadSprite(Sprite);
        
       ScaleSprite(hSprite, 0.1, 0.1);
       EntityParent(hSprite, hObj);
       VisibleZone := iVisibleZone;
       x := random(iVisibleZone * 2) - (VisibleZone);
       y := random(iVisibleZone * 2) - (VisibleZone);
       z := random(iVisibleZone * 2) - (VisibleZone);
       PositionEntity(hSprite, x, y, z);
       speed := ispeed;
       ay := ispeed + random(10)/1000;
       Amp := Trunc((Random(5) + 3));
       ax := sx;
       az := sz;
     end;
end;

procedure UpdateSnow;
var i : Integer;
begin
   for i := 0 to SnowValue - 1 do
     with SnowSprites[i] do
     begin
       y := y - ay - 0.01;
       x := x + ax;
       z := z + az;
       if y < - VisibleZone then y := VisibleZone;
       if x < - VisibleZone then x := VisibleZone;
       if z < - VisibleZone then z := VisibleZone;
       if x >  VisibleZone then x := - VisibleZone;
       if z >  VisibleZone then z := - VisibleZone;
       PositionEntity(hSprite, x + sin(y) / Amp, y, z + sin(y) / Amp);
     end;
end;

begin
   BeginBlitz3D;
   Graphics3D(800, 600);
   hCamera := CreateCamera();
   hTimer := CreateTimer(30);
   [i]InitSnow(hCamera, 0.2, 0.0, -0.2, 10, 'snow.tga');// родитель, скорость падения (y), сорость ветра по x и z, зона видимости, спрайт[/i]
   //MoveEntity(hSprite, 0, 0, 2);
   repeat
     [i]UpdateSnow;//двигаем снежинки и рисуем[/i]
     UpdateWorld();
     RenderWorld();
     Flip();
     WaitTimer(hTimer);
   until Boolean(KeyHit(1))
end.

.dll " "
zeCreateDustEffect%( parent ,xsize# ,ysize# ,zsize# ,xspeed# ,yspeed# ,zspeed#, chaoseffect ,sprites$ )
zeShowEffect% ( effect )
zeHideEffect% ( effect )
zeScaleSprites% ( effect ,sx# ,sy# )
zeSetEffectSpeed% ( effect ,sx# ,sy# ,sz# )
zeUpdateEffect% ( effect ,sx# ,sy# )
zeDestroyEffect% ( effect )
zeDestroyAllEffects% ( )

unit zeElementsSDK;

interface

const
   zeElementsDll = 'zeElements.dll';

function zeCreateDustEffect(hParent : Cardinal;
           xSize, ySize, zSize : Single;
           xSpeed, ySpeed, zSpeed : Single;
           ChaoticEffect : Integer;
           ElementsCount : Integer;
           ssSprites : PChar)
            : Cardinal; cdecl;
function zeShowEffect(Effect : Cardinal) : Integer; cdecl;
function zeHideEffect(Effect : Cardinal) : Integer; cdecl ;
function zeScaleSprites(Effect : Cardinal; sx, sy : Single) : Integer; cdecl;
function zeSetEffectSpeed(Effect : Cardinal; sx, sy, sz : Single) : Integer; cdecl;
function zeUpdateEffect(Effect : Cardinal) : Integer; cdecl ;
function zeDestroyEffect(Effect : Cardinal) : Integer; cdecl;
function zeDestroyAllEffects : Integer; cdecl;

implementation

function zeCreateDustEffect; external zeElementsDll;
function zeShowEffect; external zeElementsDll;
function zeHideEffect; external zeElementsDll;
function zeScaleSprites; external zeElementsDll;
function zeSetEffectSpeed; external zeElementsDll;
function zeUpdateEffect; external zeElementsDll;
function zeDestroyEffect; external zeElementsDll;
function zeDestroyAllEffects; external zeElementsDll;

end.