[Tutorial] ChatPrintf Com várias cores.

procedure ChatPrintf(ChatPrintMSG: PChar; s: integer);
var
ChatPrint: Cardinal;
procedure ChatPrintASM(ChatPrintMSG: PChar; s1: integer);
asm
mov ebx,s1
lea edx, [ChatPrintMSG]
push ebx
push edx
call [ChatPrint]
pop edx
pop ebx
end;
begin
ChatPrint:=$005573C0;
ChatPrintASM(ChatPrintMSG,s);
end;