#include <windows.h>
#include <stdio.h>

#define jNATIVE __stdcall
#define jAPI      __cdecl

#define jString long
#define jInt     long
#define jReal   long

typedef void(jAPI *jpAddNative)(void *routine, char *name, char *prototype);
typedef jString(jAPI *jpStrMap)(const char *str);
typedef const char*(jAPI *jpStrGet)(jString strid);

jpAddNativejAddNative = NULL;
jpStrMapjStrMap = NULL;
jpStrGetjStrGet = NULL;

jString jNATIVE test()
{
   char *s = "ZOMG TEH FUNC!";
   return jStrMap(s);
}

BOOL APIENTRY DllMain(HMODULE hModule, DWORD  ul_reason_for_call, LPVOID lpReserved)
{
   if (ul_reason_for_call != DLL_PROCESS_ATTACH) return TRUE;
   DisableThreadLibraryCalls(hModule);

   HMODULE hjApi = GetModuleHandle("japi.dll");

   jAddNative = (jpAddNative)GetProcAddress(hjApi, "jAddNative");
   jStrMap= (jpStrMap)GetProcAddress(hjApi, "jStrMap");
   jStrGet= (jpStrGet)GetProcAddress(hjApi, "jStrGet");

   jAddNative((void *)test, "test", "()S");

   return TRUE;
}

jString jNATIVE test()
{
   char *s = "ZOMG TEH FUNC!";
   return jStrMap(s);
}

jAddNative((void *)test, "test", "()S");

bcc32 -WD -e"test.dll" test.cpp

native test takes nothing returns string

call DisplayTimedTextToPlayer(GetLocalPlayer(),0,0,60,test())

bin\exehack.exe -s war3.lua -loadfile "Maps\test.w3m"

loaddll("bin\\japi.dll")
loaddll("bin\\test.dll")

jInt jNATIVE String2RawCode(jString input) 
{
   const char *str = jStrGet(input);
   if (strlen(str) == 1) 
      return str[0];
   else if (strlen(str) == 4) 
   {
      char newstr[4];
      newstr[0] = str[3];
      newstr[1] = str[2];
      newstr[2] = str[1];
      newstr[3] = str[0];
      return *((jInt*)newstr);
   }
   return 0;
}

jString jNATIVE RawCode2String(jInt input) 
{
   char *str = (char*)&input;
   char newstr[5];
   if (input < 255) 
   {
      newstr[0] = str[0];
      newstr[1] = '\0';
   } 
   else 
   {
      newstr[0] = str[3];
      newstr[1] = str[2];
      newstr[2] = str[1];
      newstr[3] = str[0];
      newstr[4] = '\0';
   }
   return jStrMap(newstr);
}

jInt jNATIVE ArrayAlloc(jInt len)
{
   return (jInt)malloc(sizeof(jInt)*len);
}

jInt jNATIVE ArraySet(jInt array,jInt index,jInt val)
{
   int *p = (int *)array;
   p[index] = val;
   return p[index];
}

jInt jNATIVE ArrayGet(jInt array, jInt index) 
{
   int *p = (int *) array;
   return p[index];
}

jInt jNATIVE ArrayFree(jInt array) 
{
   int *p = (int *)array;
   free(p);
   return 0;
}

bin\<ваша библиотека>.dll
bin\japi.dll
bin\ongameload.dll
bin\exehack.exe
startwar3.bat
lua5.1.dll
findpath.lua
ongameload.lua
war3.lua

unit jAPIDLL;
{ library by AiwaDoter }

{$DEFINE DYNAMIC}  { закомментируйте эту директиву, чтобы реализовать статический импорт если он нужен }

interface

{$IFDEF DYNAMIC}
  { Объявления процедур
  для динамического импорта }
  procedure jStartAPI;
{$ELSE}
  { Объявления процедур для статического импорта }

{$ENDIF}

implementation

{$IFDEF DYNAMIC}
uses Windows; { библиотека Windows }

type

  { создание нестандартных  типов и процедур библиотеки jAPI }
  jString = longint;
  jInt    = longint;
  jReal   = longint;

  AddNative   = procedure(routine: Pointer; name: PChar; prototype: PChar); cdecl;
  StrMap       = function(const str: PChar): jString; cdecl;
  StrGet        = function(strid: jString): PChar; cdecl;

var
  { Логический номер модуля DLL }
  LibInstance : HMODULE;

  jAddNative: AddNative;
  jStrMap: StrMap;
  jStrGet: StrGet;

{ функция нативы которую хотим внедрить в процес }
function test: jString; stdcall;
begin
  Result:= jStrMap('ZOMG TEH FUNC! - DELPHI');
end;

procedure jStartAPI;
begin
  if(LibInstance = 0)then begin
    { если DLL еще не загружена,
    попытаемся загрузить }
    LibInstance := LoadLibrary('japi.dll');
    { Если LoadLibrary возвращает 0, произошла ошибка }
    if(LibInstance = 0)then begin
      MessageBox(0, 'Could not locate jAPI', 'Error',
        MB_ICONEXCLAMATION or MB_OK);
      exit;
    end;
    { DLL загружена, теперь попытаемся найти функции }
    jAddNative:= AddNative(GetProcAddress(LibInstance, 'jAddNative'));
    if(Not Assigned(jAddNative))then
    { Если GetProcAddress возвращает Nil, возникли проблемы }
      MessageBox(0, 'Could not find jAddNative', 'Error', MB_ICONEXCLAMATION or MB_OK);
      
    jStrMap:= StrMap(GetProcAddress(LibInstance, 'jStrMap'));
    if(Not Assigned(jStrMap))then
      MessageBox(0, 'Could not find jStrMap', 'Error', MB_ICONEXCLAMATION or MB_OK);
      
    jStrGet:= StrGet(GetProcAddress(LibInstance, 'jStrGet'));
    if(Not Assigned(jStrGet))then
      MessageBox(0, 'Could not find jStrGet', 'Error', MB_ICONEXCLAMATION or MB_OK);
  end;

  { здесь передаем адрес функции "test" задаем имя нативы и ее параметры }
  jAddNative(@test, 'test', '()S');
end;

initialization
  LibInstance := 0;
  jAddNative:=Nil;
  jStrMap:=Nil;
  jStrGet:=Nil;

finalization
  { Если DLL была загружена, ее обязательно нужно выгрузить }
  if(LibInstance<>0)then begin
    FreeLibrary(LibInstance);
    LibInstance:= 0;
  end;

end.
{$ELSE}
end.

{$ENDIF}

set udg_ittest = 0
    loop
        set udg_ittest = udg_ittest + 1
    endloop

local integer i = 0
    loop
        set udg_itest = i
        set i = i + 1
    endloop

local integer i = 0
    loop
        call xIIMapSet(1,i)
        set i = i + 1
    endloop

local integer i = 0
    loop
        call xISMapSet(1,I2S(i))
        set i = i + 1
    endloop

local integer i = 0
    loop
        call StoreInteger(udg_gc, "test", "test", i)
        set i = i + 1
    endloop

loop
       call test_inc()
    endloop