adkrender.pas

N年前有个法国小组用Delphi写了一个2D网游（AD&D类型）

unit ADKRender;

{
 projet ADK-ISO (c)2002-2003 Paul TOTH <[e-mail]>

 http://www.web-synergy.net/naug-land/

}

interface

uses
 Windows,Classes,SysUtils,
 ADKObjects,
 ADKMaps,ADKImages,ADKSprites,ADKWalkers,ADKParticules,
 ADKDepth,ADKData,ADKScreens;

procedure RenderMap;
procedure Idle(ms:cardinal);
//procedure Trame(Left,Top,width,height:integer);
procedure ClearRect(Left,Top,width,height:integer);

var
// DIB  :pchar;   // pointeur sur la m閙oire video (coin sup閞ieur gauche)
// Pitch:integer; // nombre de pixels sur un ligne (visibles ou pas - souvent un multiple de 2)

 ScrollX:integer; // d閒ilement de l'ensemble des 閘閙ents graphiques
 ScrollY:integer;

 DrawCount:integer;     // compteur d'affiche d'images
 FrameCount:cardinal;   // compteur de frames
 FrameTicks:cardinal;   // ticks du dernier calcul
 FramesPerSec:cardinal; // valeur de FrameCount mise