#include <Array.au3>
#include <GuiConstantsEx.au3>
#Include <WinAPI.au3>

Opt("PixelCoordMode", 2)
Opt("MouseCoordMode", 2)
Opt("SendKeyDelay", 5)
Opt("SendKeyDownDelay", 5)
HotKeySet('!{ESC}','Close')
TrayTip("UO cheat script", "Выход [Alt]+[Esc]", 5, 1)

Global Const $tagBITMAPINFOHEADER = 'dword biSize;long biWidth;long biHeight;ushort biPlanes;ushort biBitCount;dword biCompression;dword biSizeImage;long biXPelsPerMeter;long biYPelsPerMeter;dword biClrUsed;dword biClrImportant;'
Global $tBIHDR, $pBits
$tBIHDR = DllStructCreate($tagBITMAPINFOHEADER)
DllStructSetData($tBIHDR,'biSize',DllStructGetSize($tBIHDR))
DllStructSetData($tBIHDR,'biWidth',200)
DllStructSetData($tBIHDR,'biHeight',50)
DllStructSetData($tBIHDR,'biPlanes',1)
DllStructSetData($tBIHDR,'biBitCount',32)
DllStructSetData($tBIHDR,'biCompression',0)

Dim $Mask[14], $MaskString[12]
$Mask[0]  = "  ##  #####   #####  ##  ##  ######   #####  #######  #####   #####   #####                                                                                   "
$Mask[1]  = " ### ### ### ### ### ##  ##  ##  ##  ###     ##   ## ##   ## ### ### ### ###                                                                                  "
$Mask[2]  = "  ## ##   ## ##   ## ##  ##  ##      ##          ### ##   ## ##   ## ##   ##                                                                                  "
$Mask[3]  = "  ## ##   ##     ##  ##  ##  ##      ######      ##   ## ### ##   ## ##   ##                                                                                  "
$Mask[4]  = "  ##     ###    ##   ##  ##  ######  ### ###    ###    ###   ##   ## ##   ## ########  ####### #### ####   ##### ###   #### ###  ### ###  ### #### ###  ##### "
$Mask[5]  = "  ##    ###    ####  ##  ##      ### ##   ##    ##    #####  ### ### ##   ##  ##  ##    #  ##   ## ##  ## ##  ##  ### ####   ## ###   ##  ##   ##   #  ##  ## "
$Mask[6]  = "  ##   ###       ### #######      ## ##   ##   ###   ##   ##  ###### ##   ##  ##  ##    #  ##   ## ##  ## ##      ########   ######   ######    #  ##  ##     "
$Mask[7]  = "  ##  ###    ##   ##     ##  ##   ## ##   ##   ##    ##   ##      ## ##   ##  ##  ##   ##  ##   #####  ## ##      # ### ##   ### ##   ##  ##    ## #   ##     "
$Mask[8]  = "  ## ###     ### ###     ##  ### ### ### ###   ##    ##   ##     ### ### ###  ##  ##   #   ##   ## ##  ## ##  ##  #  #  ##   ##  ##   ##  ##     ###   ##  ## "
$Mask[9]  = "  ## #######  #####      ##   #####   #####    ##     #####   #####   #####  ###  ### ##  #### #### ####   ####  ###   #### ###  ### ###  ###    ##     ####  "
$Mask[10] = "                                                                                                                                                ##            "
$Mask[11] = "                                                                                                                                              ###             "
$Mask[12] = "                                                                                                                                              ##              "
$Mask[13] = " 111 2222222 3333333 4444444 5555555 6666666 7777777 8888888 9999999 0000000 +++++++++++++++++++++++++++++++++++ -------------------------------------------- "
$Chars = "1234567890+-"
$Title = "[REGEXPTITLE:UO.*?; CLASS:Ultima Online]"
$UOx = 251
$UOy = 370

For $i = 0 to StringLen($Mask[13]) - 1
    $im = StringMid($Mask[13], $i, 1)
    $ic = StringInStr($Chars, $im)
    If $ic > 0 Then
        $in = 0
        For $ii = 0 to 12
            $ib = StringMid($Mask[$ii], $i, 1)
            If $ib = "#" Then $in += 2 ^ $ii
        Next
        If NOT $MaskString[$ic - 1] Then $MaskString[$ic - 1] = "|"
        $MaskString[$ic - 1] &= $in & "|"
    EndIf
Next

While True
    WinWaitActive($Title)
    $hUO = WinGetHandle($Title)

;    $TestPoint = PixelSearch(0, 0, $UOCsize[0] - 1, $UOCsize[1] - 1, 0xF7DEBD)
;    If NOT @error Then
;    331.125

    If (PixelGetColor($UOx + 80, $UOy - 243, $hUO) = 0x18E700) and (PixelGetColor($UOx, $UOy, $hUO) = 0xF7DEBD) Then
        $Expression = ""
        $Result = 0
        $Error = 0
        $TestString = "|"

        $hDDC = _WinAPI_GetDC($hUO)
        $hCDC = _WinAPI_CreateCompatibleDC($hDDC)
        DllStructSetData($tBIHDR, 'biWidth', 100)
        DllStructSetData($tBIHDR, 'biHeight', 13)
        $ScreenBitmap = _WinAPI_CreateDIBSection(0, $tBIHDR, 0, $pBits)
        $ScreenBits = DllStructCreate('dword[1300]', $pBits)
        _WinAPI_SelectObject($hCDC, $ScreenBitmap)
        _WinAPI_BitBlt($hCDC, 0, 0, 100, 13, $hDDC, $UOx + 150, $UOy, 0x00CC0020)
        For $ix = 0 to 99
            $in = 0
            For $iy = 0 to 12
                If DllStructGetData($ScreenBits, 1, $ix + ((12 - $iy) * 100) + 1) = 0xEFEF8C Then $in += 2 ^ $iy
            Next
            $TestString &= $in & "|"
        Next
        _WinAPI_DeleteObject($ScreenBitmap)
        _WinAPI_ReleaseDC($hUO,$hDDC)
        _WinAPI_DeleteDC($hCDC)

        $TestStringLen = StringLen($TestString) - 1
        For $i = 0 to $TestStringLen
            For $ii = 0 to 11
                $MaskStringLen = StringLen($MaskString[$ii])
                If ($i + $MaskStringLen) < $TestStringLen Then
                    If $MaskString[$ii] = StringMid($TestString, $i, $MaskStringLen) Then $Expression &= StringMid($Chars, $ii + 1, 1)
                EndIf
            Next
        Next
        If StringInStr($Expression, "+") Then
            $i = StringSplit($Expression, "+")
            $Result = Number($i[1]) + Number($i[2])
            If $i[1] = "" or $i[2] = "" Then $Error = 1
        Else
            If StringInStr($Expression, "-") Then
                $i = StringSplit($Expression, "-")
                $Result = Number($i[1]) - Number($i[2])
                If $i[1] = "" or $i[2] = "" Then $Error = 1
            Else
                $Error = 2
            EndIf
        EndIf

        If $Error > 0 Then
            TrayTip("UO cheat script Error #" & $Error, $Expression & " = " & $Result, 3, 3)
            SoundPlay(@WindowsDir & '\media\Windows Error.wav')
            Sleep(5000)
        Else
            BlockInput(1)
            Sleep(100)
            MouseClick("left", $UOx + 300,$UOy)
            Send("{BS 20}")
            For $i = 1 to StringLen($Result)
                $ii = StringMid($Result, $i, 1)
                Send("{NUMPAD" & $ii & "}")
            Next
            MouseClick("left", $UOx - 28,$UOy + 6)
            MouseMove($UOx - 28,$UOy + 66)
            Sleep(100)
            TrayTip("UO cheat script", $Expression & " = " & $Result, 3, 1)
            BlockInput(0)
            Sleep(2000)
        EndIf
    EndIf
WEnd

;_ArrayDisplay($MaskString,"Test")

Func Close()
    Exit 0
EndFunc

Func _WinAPI_CreateDIBSection($hDC, ByRef $tBITMAPINFO, $iUsage, ByRef $pBits, $hSection = 0, $iOffset = 0)
    $pBits = 0
    Local $Ret = DllCall('gdi32.dll', 'ptr', 'CreateDIBSection', 'hwnd', $hDC, 'ptr', DllStructGetPtr($tBITMAPINFO), 'uint', $iUsage, 'ptr*', 0, 'ptr', $hSection, 'dword', $iOffset)
    If (@error) Or (Not $Ret[0]) Then Return SetError(1, 0, 0)
    $pBits = $Ret[4]
    Return $Ret[0]
EndFunc;==>_WinAPI_CreateDIBSection

procedure GMFound;
var i : Integer;
begin
    for i := 0 to 3 do
        begin
            SendMsg_ICQ('ХАСАН ПРИШЕЛ!!! ЕШЕЛЬМЕ ЕШЕЛЬБЕ!!!!');
            Beep;
            Wait(600);
            AddToSystemJournal('HASAN!!!');
        end;
   // UOSay('');//
    Wait(10000);    
end;