(*

 *  PascalExports.pas

 *  hwengine

 *

 *  Created by Vittorio on 09/01/10.

 *  Copyright 2009 __MyCompanyName__. All rights reserved.

 *

 *)

{$INCLUDE "options.inc"}

unit PascalExports;

interface

uses uKeys, uConsole, uStore, GLunit, uMisc, uWorld, hwengine;

{$INCLUDE "config.inc"}

implementation

{$IFDEF HWLIBRARY}

// retrieve protocol information

procedure HW_versionInfo(netProto: PShortInt; versionStr: Ppchar); cdecl; export;

begin

// http://bugs.freepascal.org/view.php?id=16156

    if netProto <> nil then netProto^:= cNetProtoVersion;

    if versionStr <> nil then versionStr^:= cVersionString;

end;

procedure HW_click; cdecl; export;

begin

    leftClick:= true;

end;

procedure HW_zoomIn; cdecl; export;

begin

    wheelUp:= true;

end;

procedure HW_zoomOut; cdecl; export;

begin

    wheelDown:= true;

end;

procedure HW_zoomReset; cdecl; export;

begin

    middleClick:= true;

end;

procedure HW_ammoMenu; cdecl; export;

begin

    rightClick:= true;

end;

procedure HW_allKeysUp; cdecl; export;

begin

    // set all keys to released

    uKeys.initModule;

end;

procedure HW_walkLeft; cdecl; export;

begin

    leftKey:= true;

end;

procedure HW_walkRight; cdecl; export;

begin

    rightKey:= true;

end;

procedure HW_aimUp; cdecl; export;

begin

    upKey:= true;

end;

procedure HW_aimDown; cdecl; export;

begin

    downKey:= true;

end;

procedure HW_shoot; cdecl; export;

begin

    spaceKey:= true;

end;

procedure HW_jump; cdecl; export;

begin

    enterKey:= true;

end;

procedure HW_backjump; cdecl; export;

begin

    backspaceKey:= true;

end;

procedure HW_chat; cdecl; export;

begin

    chatAction:= true;

end;

procedure HW_tab; cdecl; export;

begin

    switchAction:= true;

end;

procedure HW_pause; cdecl; export;

begin

    pauseAction:= true;

end;

procedure HW_cursorUp(coefficient:LongInt); cdecl; export;

begin

    coeff:= coefficient;

    cursorUp:= true;

end;

procedure HW_cursorDown(coefficient:LongInt); cdecl; export;

begin

    coeff:= coefficient;

    cursorDown:= true;

end;

procedure HW_cursorLeft(coefficient:LongInt); cdecl; export;

begin

    coeff:= coefficient;

    cursorLeft:= true;

end;

procedure HW_cursorRight(coefficient:LongInt); cdecl; export;

begin

    coeff:= coefficient;

    cursorRight:= true;

end;

procedure HW_terminate(closeFrontend: boolean); cdecl; export;

begin

    isTerminated:= true;

    if closeFrontend then alsoShutdownFrontend:= true;

end;

procedure HW_setLandscape(landscape: boolean); cdecl; export;

var tmp:LongInt;

begin

    if landscape then

    begin

        rotationQt:= -90;

        uStore.wScreen:= cScreenWidth;

        uStore.hScreen:= cScreenHeight;

        uWorld.wScreen:= cScreenWidth;

        uWorld.hScreen:= cScreenHeight;

    end

    else

    begin

        rotationQt:= 270;

        uStore.wScreen:= cScreenHeight;

        uStore.hScreen:= cScreenWidth;

        uWorld.wScreen:= cScreenHeight;

        uWorld.hScreen:= cScreenWidth;

    end;

end;

{$ENDIF}

end.