Making a platform game - few questions

[efilnukefesin]

unit '__pf_simpleplayer'

unit __pf_simpleplayer;

interface

uses Windows,
     Messages,
     SysUtils,
     Variants,
     Classes,
     Graphics,
     Controls,
     Forms,
     Dialogs,
     DJXTimer,
     DJX,
     ExtCtrls,
     djxclasses,
     d3dx9,
     StdCtrls,
     DJXFonts,
     ComCtrls,
     djxlandscape,
     djxtextures,
     Direct3D9,
     djxrender,
     djxmeshes,
     DJXMaterials,
     DJXLights,
     __dxtexturemanager;

type tpf_simpleplayer= class
                         public
                           constructor create;

                           procedure render;
                         private
                           fdjx: tdanjetx;
                           ftm: tdxtexturemanager;
                           fnameintl: string;
                           fstretch_x,
                           fstretch_y: single;

                           fx,
                           fy: integer;

                           fpos_x,
                           fpos_y: single;

                           fwidth,
                           fheight: integer;
                            
                           procedure setdjx(const value: tdanjetx);
                           procedure setnameintl(const value: string);
                           procedure settm(const value: tdxtexturemanager);
                           procedure setstretch_x(const value: single);
                           procedure setstretch_y(const value: single);
                           procedure setx(const value: integer);
                           procedure sety(const value: integer);
                           procedure setpos_x(const value: single);
                           procedure setpos_y(const value: single);
                         published
                           property djx: tdanjetx read fdjx write setdjx;
                           property texturemanager: tdxtexturemanager read ftm write settm;
                           property nameintl: string read fnameintl write setnameintl;
                           property stretch_x: single read fstretch_x write setstretch_x;
                           property stretch_y: single read fstretch_y write setstretch_y;
                           property x: integer read fx write setx;
                           property y: integer read fy write sety;
                           property width: integer read fwidth;
                           property height: integer read fheight;
                           property pos_x: single read fpos_x write setpos_x;
                           property pos_y: single read fpos_y write setpos_y;
                       end;

implementation

{ tpf_simpleplayer }

constructor tpf_simpleplayer.create;
begin
  fdjx:= nil;
  ftm:= nil;

  fwidth:= 32;
  fheight:= 64;

  fstretch_x:= 1;
  fstretch_y:= 1;
end;

procedure tpf_simpleplayer.render;
begin
  if fdjx= nil then exit;
  if ftm= nil then exit;

  if ftm.djxtl.Find&#40;fnameintl&#41;<> nil then begin
    //player stretchen
    &#123;
    ftm.djxtl.Find&#40;fnameintl&#41;.Draw4col&#40;
                                       &#40;fx* ftile_width&#41;* fstretch_x,
                                       &#40;fy* ftile_height&#41;* fstretch_y,
                                       &#40;fx* ftile_width&#41;* fstretch_x+ ftile_width* fstretch_x,
                                       &#40;fy* ftile_height&#41;* fstretch_y,
                                       &#40;fx* ftile_width&#41;* fstretch_x+ ftile_width* fstretch_x,
                                       &#40;fy* ftile_height&#41;* fstretch_y+ ftile_height* fstretch_y,
                                       &#40;fx* ftile_width&#41;* fstretch_x,
                                       &#40;fy* ftile_height&#41;* fstretch_y+ ftile_height* fstretch_y,
                                       djxcolor&#40;clwhIte&#41;,
                                       djxcolor&#40;clwhIte&#41;,
                                       djxcolor&#40;clwhIte&#41;,
                                       djxcolor&#40;clwhIte&#41;
                                      &#41;;
     &#125;                                 
    ftm.djxtl.Find&#40;fnameintl&#41;.Draw4col&#40;
                                       &#40;fpos_x- fwidth/ 2&#41;* fstretch_x,
                                       &#40;fpos_y- fheight/ 2&#41;* fstretch_y,
                                       &#40;fpos_x+ fwidth/ 2&#41;* fstretch_x,
                                       &#40;fpos_y- fheight/ 2&#41;* fstretch_y,
                                       &#40;fpos_x+ fwidth/ 2&#41;* fstretch_x,
                                       &#40;fpos_y+ fheight/ 2&#41;* fstretch_y,
                                       &#40;fpos_x- fwidth/ 2&#41;* fstretch_x,
                                       &#40;fpos_y+ fheight/ 2&#41;* fstretch_y,
                                       djxcolor&#40;clwhIte&#41;,
                                       djxcolor&#40;clwhIte&#41;,
                                       djxcolor&#40;clwhIte&#41;,
                                       djxcolor&#40;clwhIte&#41;
                                      &#41;;

    //kreuz auf fpos
    fdjx.Primitives2D.Line&#40;fpos_x- 5, fpos_y- 5, fpos_x+ 5, fpos_y+ 5, djxcolor&#40;clwhite&#41;&#41;;
    fdjx.Primitives2D.Line&#40;fpos_x+ 5, fpos_y- 5, fpos_x- 5, fpos_y+ 5, djxcolor&#40;clwhite&#41;&#41;;
  end;
end;

procedure tpf_simpleplayer.setdjx&#40;const value&#58; tdanjetx&#41;;
begin
  fdjx&#58;= value;
end;

procedure tpf_simpleplayer.setnameintl&#40;const value&#58; string&#41;;
begin
  fnameintl&#58;= value;
end;

procedure tpf_simpleplayer.setpos_x&#40;const value&#58; single&#41;;
begin
  fpos_x&#58;= value;
end;

procedure tpf_simpleplayer.setpos_y&#40;const value&#58; single&#41;;
begin
  fpos_y&#58;= value;
end;

procedure tpf_simpleplayer.setstretch_x&#40;const value&#58; single&#41;;
begin
  fstretch_x&#58;= value;
end;

procedure tpf_simpleplayer.setstretch_y&#40;const value&#58; single&#41;;
begin
  fstretch_y&#58;= value;
end;

procedure tpf_simpleplayer.settm&#40;const value&#58; tdxtexturemanager&#41;;
begin
  ftm&#58;= value;
end;

procedure tpf_simpleplayer.setx&#40;const value&#58; integer&#41;;
begin
  fx&#58;= value;
end;

procedure tpf_simpleplayer.sety&#40;const value&#58; integer&#41;;
begin
  fy&#58;= value;
end;

end.