RayPick.pas

unit RayPick;
{$IFDEF FPC}{$MODE DELPHI}{$ENDIF}

interface
uses MatVectors;
type rq_result=packed record
  O:pointer;
  range:single;
  element:integer;
end;
type prq_result=^rq_result;

type rq_results=packed record
  vec_start:prq_result;
  vec_end:prq_result;
  vec_memend:prq_result;
end;
type prq_results=^rq_results;

type collide__ray_defs = packed record
  start:FVector3;
  dir:FVector3;
  range:single;
  flags:cardinal;
  tgt:cardinal;
end;
type pcollide__ray_defs=^collide__ray_defs;

type SPickParam = packed record
  RQ:rq_result;
  power:single;
  pass:cardinal;
end;
type pSPickParam=^SPickParam;

type rq_callback = function (res:prq_result; data:pointer):boolean;stdcall;

function Level_RayPick(start:pFVector3; dir:pFVector3; range:single; tgt:cardinal; R:prq_result; ignore_object:pointer):boolean; stdcall;
function Level_RayQuery(R:pcollide__ray_defs; CB:pointer; params:pointer; tb:pointer; ignore_object:pointer):boolean; stdcall;
function TraceAsView(pos:pFVector3; dir:pFVector3; ignore_object:pointer):single;
function TraceAsView_RQ(pos:pFVector3; dir:pFVector3; ignore_object:pointer):rq_result;

function Init():boolean;

const
  rq_target__rqtNone:cardinal = 0;
  rq_target__rqtObject:cardinal = 1;
  rq_target__rqtStatic:cardinal = 2;
  rq_target__rqtShape:cardinal = 4;
  rq_target__rqtObstacle:cardinal = 8;
  rq_target__rqtBoth:cardinal = 3;
  rq_target__rqtDyn:cardinal = 13;

implementation
uses BaseGameData, Level, Misc, sysutils;
var
  rqres:rq_results;
  prqres:prq_results;

function Level_RayPick(start:pFVector3; dir:pFVector3; range:single; tgt:cardinal; R:prq_result; ignore_object:pointer):boolean; stdcall;
asm
  pushad
  call GetLevel
  push eax
  call Level_to_CObjectSpace

  push ignore_object
  push r
  push tgt
  push range
  push dir
  push start
  mov ecx, eax
  mov eax, xrCDB_addr
  add eax, $13040
  call eax
  mov @result, al
  popad
end;

function Level_RayQuery(R:pcollide__ray_defs; CB:pointer; params:pointer; tb:pointer; ignore_object:pointer):boolean; stdcall;
asm
  pushad
  call GetLevel
  push eax
  call Level_to_CObjectSpace
  push ignore_object
  push tb
  push params
  push CB
  push R
  push prqres
  mov ecx, eax
  mov eax, xrCDB_addr
  add eax, $132b0
  call eax
  mov @result, al

  popad
end;


function TraceAsView(pos:pFVector3; dir:pFVector3; ignore_object:pointer):single;
var
  rq:rq_result;
begin
  rq:=TraceAsView_RQ(pos, dir, ignore_object);
  result:=rq.range;
end;

function TraceAsView_RQ(pos:pFVector3; dir:pFVector3; ignore_object:pointer):rq_result;
var
  rd:collide__ray_defs;
  pp:SPickParam;
begin
    //ïîçàèìñòâîâàíî èç CHudTarget, âìåñòå ñ êîëáýêîì
    rd.dir:= dir^;
    rd.start:= pos^;
    rd.range:= 1000;
    rd.flags:=1;
    rd.tgt:=rq_target__rqtBoth;

    pp.RQ.O:=nil;
    pp.RQ.range:=1000;
    pp.RQ.element:=-1;
    pp.power:=1.0;
    pp.pass:=0;

    Level_RayQuery(@rd, pointer(xrgame_addr+$4d8940), @pp, nil, ignore_object);
    result:=pp.rq;
end;

function Init():boolean;
begin


  //todo:âûäåëÿòü-âûäåëÿåì, à ÷èñòèòü?
  result:=true;
  rqres.vec_start:=xrMemory__allocate(sizeof(rqres));
  rqres.vec_end:=rqres.vec_start;
  rqres.vec_memend:=prq_result(cardinal(rqres.vec_start)+sizeof(rqres));
  prqres:=@rqres;

  log('RayPick initialized, rqres.vec_start = '+inttohex(cardinal(rqres.vec_start), 8));
end;
end.