adkvideo.pas

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

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

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

}

interface

uses
 Windows,Messages,SysUtils,
// MiniDX,DXError,
 ADKDepth,ADKData;

var
 MouseButton:integer;
 MouseX:integer;
 MouseY:integer;
 MouseDown:boolean;


procedure SetupDX;
procedure CloseDX;
function ProcessMessages:boolean;
procedure Invalidate;

implementation

uses
 ADKRender,ADKGUI,ADKMemo, ADKScreens;

var
 HWnd :THandle;
 {
 DDraw:IDirectDraw2;
 DPrim:IDirectDrawSurface;
 DBack:IDirectDrawSurface;
 }
 DragInvent:boolean;
 Blink:cardinal;
 Caret:boolean;
 Edit :string;
 Cursor:integer;

procedure Paint;
var
 dc:HDC;
  t:cardinal;
  c:char;
 ts:TSize;
begin
 if Focus=nil then exit;

 inc(FrameCount);

// effacer l'閏ran
 ADKScreen.Clear(0);

// positionner la carte en la centrant sur le joueur
 ScrollX:=ADKScreen.Width  div 2-Focus.Left;
 ScrollY:=ADKScreen.Height div 2-Focus.Top;
// afficher la carte
 RenderMap;
// verrouiller l'閏ran en mise