Quote:!!UN:N5/#1/#2/#3/#4
Записать z-переменную в общую секцию файла wog.ini

Quote:!!UN:N6/#1/#2//#3/#4
Прочитать z-переменную из общей секции файла wog.ini

Quote:Так, для записи переменной z-1, названной "Главная_переменная", в файл "Мой.var" в папку GAMES (секция "MyLocalSettings") с опцией 4, используйте:
!!VRy1:S4;
!!VRz-1:S^Главная_переменная^;
!!VRz-2:S^MyLocalSettings^;
!!VRz-3:S^GAMES\My.var^;
!!UN:N5/z-1/y1/-2/-3;

(28.02.2011 16:33)MOP Wrote:  Это что вообще?

Code:

Вог-хук №301:
00619BB1   E8 FA2E1600                        CALL mop.0077CAB0
00619BB6   90                                 NOP

0077CAB0   8B7424 0C                          MOV ESI,DWORD PTR SS:[ESP+C]
0077CAB4   8935 C4389302                      MOV DWORD PTR DS:[29338C4],ESI
0077CABA   60                                 PUSHAD
0077CABB   B8 00007000                        MOV EAX,mop.00700000
0077CAC0   3BC6                               CMP EAX,ESI
0077CAC2   77 11                              JA SHORT mop.0077CAD5
0077CAC4   8D05 C0389302                      LEA EAX,DWORD PTR DS:[29338C0]
0077CACA   3BF0                               CMP ESI,EAX
0077CACC   77 07                              JA SHORT mop.0077CAD5
0077CACE   33C0                               XOR EAX,EAX
0077CAD0   A3 C4389302                        MOV DWORD PTR DS:[29338C4],EAX
0077CAD5   61                                 POPAD
0077CAD6   8B35 C4389302                      MOV ESI,DWORD PTR DS:[29338C4]
0077CADC   85F6                               TEST ESI,ESI
0077CADE   C3                                 RETN

У меня из-за этого хука жёсткий баг прямо на старте игры, причём только тогда, если включены wav-звуки, а скрипт создаёт аллоки с помощью erautils.dll.
Если выпилить хук и восстановить ориг. код – всё абсолютно нормально.

Quote:

Spoiler (Click to View)

LIBRARY Tent;
{!INFO
MODULENAME = 'Tent'
VERSION = '1.0'
AUTHOR = 'Master Of Puppets'
}

USES Win, Utils, SysUtils, VPUtils;

//PROCEDURE HookCode(P: POINTER; NewAddr: POINTER; UseCall: BOOLEAN); external 'angel' name 'HookCode';

CONST
(* HookCode constants *)
C_HOOKTYPE_JUMP = FALSE;
C_HOOKTYPE_CALL = TRUE;
C_OPCODE_JUMP = $E9;
C_OPCODE_CALL = $E8;
C_UNIHOOK_SIZE = 5;

TYPE
THookRec = RECORD
    Opcode: BYTE;
    Ofs: INTEGER;
END; // .record THookRec

VAR
Temp: INTEGER;

PROCEDURE WriteAtCode(P: POINTER; Buf: POINTER; Count: INTEGER);
BEGIN
Win.VirtualProtect(P, Count, PAGE_READWRITE, @Temp);
Win.CopyMemory(P, Buf, Count);
Win.VirtualProtect(P, Count, Temp, NIL);
END; // .procedure WriteAtCode

PROCEDURE HookCode(P: POINTER; NewAddr: POINTER; UseCall: BOOLEAN);
VAR
HookRec: THookRec;
BEGIN
IF UseCall THEN BEGIN
    HookRec.Opcode:=C_OPCODE_CALL;
END // .if
ELSE BEGIN
    HookRec.Opcode:=C_OPCODE_JUMP;
END; // .else
HookRec.Ofs:=INTEGER(NewAddr)-INTEGER(P)-C_UNIHOOK_SIZE;
WriteAtCode(P, @HookRec, 5);
END; // .procedure HookCode

PROCEDURE HOOK_tent; ASSEMBLER; {$FRAME-}
ASM
MOV EAX, $50C7C0
CALL EAX //вызываем функцию вычисления HP-очков, которую мы затёрли своим хуком.
MOV DWORD PTR DS:[$91DA38],-1 //заносим в адрес переменной x1 значение -1 - на случай, если мы не хотим вообще ничего менять в принципе лечения
MOV [$91DA3C], EAX //заносим в адрес переменной x2 исходное значение кол-ва хит-пойнтов, для подробностей и возможных вычислений
PUSHAD //сохраняем регистры
PUSH 29500 //номер ERM-функции. Меняйте на любой доступный.
MOV EAX, $74CE30
CALL EAX //вызываем C_FUNC_ZVS_CALLFU
ADD ESP, 4
POPAD //выталкиваем регистры
CMP DWORD PTR DS:[$91DA38],-1 //проверяем, изменил ли скриптописец кол-во очков HP для лечения
JE @@Default //если не изменил - продолжить код без изменения
MOV EAX,DWORD PTR DS:[$91DA38] // заменить значение очков на значение из x1
@@Default:
PUSH $478538 //адрес возврата в процедуру
END;

BEGIN
HookCode(POINTER($478533), @HOOK_tent, C_HOOKTYPE_JUMP);
END.