procedure pokeball(text:string);
var
PacketBuffer: array [0..200] of byte;
ProcessID: Cardinal;
 
begin
GetWindowThreadProcessId(FindWindow('TibiaClient', Nil), @ProcessID);
 
PacketBuffer[0] := $0A;
PacketBuffer[1] := $00;
PacketBuffer[2] := $82;
PacketBuffer[3] := $FF;
PacketBuffer[4] := $FF;
PacketBuffer[5] := $08;
PacketBuffer[6] := $00;
PacketBuffer[7] := $00;
CopyMemory(@PacketBuffer[8], @text[1], Length(text));
SendPacket(ProcessID, @PacketBuffer, TRUE, FALSE);
end;

// Tibia Addresses
const unsigned long battleBeginAddress[] = {0x635F70};
const unsigned long battleEndAddress[]   = {looking for this!};
const unsigned long targetIdAddress[]    = {0x635EDC};
const unsigned long playerIdAddress[]    = {0x635F10};

void PrintFpsHook(int surface, int x, int y, int font, int red, int green, int blue, char* text, int align) {
    PrintText(surface, x, y, font, red, green, blue, text, align); // Call original function
 
    // Draw our button
    DrawSkin(1, 100, 100, 58, 20, 16 + button1Pressed, 0, 0);
    PrintText(1, 100 + (58 / 2) + button1Pressed, 100 + (20 / 2) - 3 + button1Pressed, 3, 255, 255, 255, "Button1", 1);
}

LRESULT APIENTRY HookProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam) {
    int mouseXPos = LOWORD(lParam);
    int mouseYPos = HIWORD(lParam);
 
    int hadAction = 0;
    if (uMsg == WM_LBUTTONUP) {
        if (button1Pressed) {
            button1Pressed = 0;
 
            // Check the mouse coordinates
            if (mouseXPos >= 100 && mouseXPos <= (100 + 58) && mouseYPos >= 100 && mouseYPos <= (100 + 20)) {
                // Button released do something!
                MessageBox(0, "You pressed the button!", "Nice", MB_OK);
                hadAction = 1;
            }
        }
    } else if (uMsg == WM_LBUTTONDOWN || uMsg == WM_LBUTTONDBLCLK) {
 
        // Check the mouse coordinates
        if (mouseXPos >= 100 && mouseXPos <= (100 + 58) && mouseYPos >= 100 && mouseYPos <= (100 + 20)) {
            // Button is pressed
            button1Pressed = 1;
            hadAction = 1;
        }
    }
 
    if (hadAction == 1) {
        // If our button was pressed we dont want tibia to process the event
        return 0;
    }
 
    return CallWindowProc(oldWndProc, hWnd, uMsg, wParam, lParam);
}

proc readSprSprite dest, source
	cld
	mov esi, [source]
	mov edi, [dest]
	add esi, 3
	lodsw
	movzx ecx, ax
;	test ecx, ecx		it may not be useful
;	jz .skip
	add ecx, esi
	.petla:
		push ecx
		lodsw
		movzx ecx, ax
		xor eax, eax		;ONLY RGBA
		rep stosd			;ONLY RGBA
		;mov eax, 0800080h	;RGB color for transparency
		;.alpha:			;RGB
		;	stosw		;RGB
		;	ror eax, 16		;RGB
		;	stosb			;RGB
		;	ror eax, 16		;RGB
		;	loop .alpha		;RGB
 
		lodsw
		movzx ecx, ax
		.petla2:
			movsw
			movsb
			mov al, 0FFh	;ONLY RGBA
			stosb			;ONLY RGBA
			loop .petla2
		pop ecx
		cmp ecx, esi
		ja .petla
	.skip:
	ret
endp

__declspec(dllexport) int APIENTRY Func(LPVOID lpParam)
{
	return 0;
}