MirGames

program Project1;

uses
  SysUtils,
  DGLEngine_header in 'DGLEngine_header.pas';

var scrw,scrh:integer;
    wdir:string;
    font:cardinal;
    sprite:cardinal;
    frm,ang:integer;

procedure init;
begin
Font:=LoadFontFromFile(wdir + 'font\Font.dft');
CreateConsole(Font);
loadtexturefromfile(wdir + 'tex\explo.bmp',255,TRANSCOLOR_BLACK);
RegisterCommandProcedure('quit',@QuitEngine);
end;

procedure draw;
begin
begin2d;
//{
drawsprite2d(sprite,100,100,128,110,14,1,frm,ang,TRANSCOLOR_BLACK,$ffffff);
//}
{
drawsprite2d_simple(sprite,100,100,100,100,17,1,1);
//}
DrawConsole;
end2d;
end;

procedure process;
begin
if IsKeyPressed(Key_Escape) then QuitEngine;
inc(frm);
if frm = 14 then frm := 0;
ProcessConsole;
end;

begin
  ang := 0;
  frm := 0;
  wdir := extractfilepath(paramstr(0));
  scrW:=800;
  scrH:=600;
  LoadDGLEngineDLL(wdir + 'DGLEngine.dll');
  regProcedure(0,@draw);
  regprocedure(1,@process);
  regprocedure(2,@init);
  SetGameProcessInterval(25);
  SetEngineInitParametrs(scrW,scrH,32,0,false,false,false,true);
  startengine;
  FreeDGLEngineDLL;  
end.

...
for j:=0 to (gRenderWalls[n].Height div Tex_Height)-1 do
for i:=0 to (gRenderWalls[n].Width div Tex_Width)-1 do
begin
rect1:=rect(0,0,tex_width,tex_height);
dx:=x-pxx+i*Tex_Width;  
dy:=HY+y-pyy+j*Tex_Height;  
if (hy<>0) then  
begin  
  if dy+Tex_Height<HY then continue;
  if dy<hy then
  begin
    rect1.Top:=abs(pyy-y); //pyy - координата Y экрана (для прокрутки)
    dy:=hy;
  end;
  DrawTexture2D_Split(TexWad[ListTexWalls[n]],dx,dy,tex_width,Tex_height,0,255,-1,rect1);
end else
DrawTexture2D_Simple(TexWad[ListTexWalls[n]],dx,dy,tex_width,Tex_height);
end;