hola amigos, hace poco me enviaron un codigo que necesito para un juego pero estoy muy perdido al respecto, me dieron detalles que es en delphi y el codigo es el siguiente :
Código Delphi
[-]
procedure ShowGameMessage_Fixed(lpMessage: PChar;dwIcon: byte; dwColor: byte);
var
dwMessage: cardinal;
procedure ShowGameMessage_Real(lpMessage: PChar);assembler;
asm
pushad
mov ecx, [dwMessage]
add ecx, $44
mov bh, [dwIcon]
mov [ecx], bh
add ecx, $47
mov [ecx], bh
add ecx, $47
mov [ecx], bh
mov bh, [dwColor]
mov ecx, [dwMessage]
add ecx, $5C
mov [ecx], bh
add ecx, $31
mov [ecx], bh
add ecx, $E
mov [ecx], bh
add ecx, $39
mov [ecx], bh
add ecx, $10
mov [ecx], bh
popad
jmp @call
@call:
lea edi, [lpMessage]
call [dwMessage]
jmp @rebuild
@rebuild:
mov [dwIcon], 6
mov [dwColor], 2
mov ecx, [dwMessage]
add ecx, $44
mov bh, [dwIcon]
mov [ecx], bh
add ecx, $47
mov [ecx], bh
add ecx, $47
mov [ecx], bh
mov bh, [dwColor]
mov ecx, [dwMessage]
add ecx, $5C
mov [ecx], bh
add ecx, $31
mov [ecx], bh
add ecx, $E
mov [ecx], bh
add ecx, $39
mov [ecx], bh
add ecx, $10
mov [ecx], bh
end;
begin
dwMessage := $00414B80;
ShowGameMessage_Real(lpMessage);
end;
pero no me quisieron ayudar para compilarlo :/ - alguien sabe como puedo hacerlo.