[Help] win xp problem

[DjAngel]

Hey, all I'm new to this community and new to learning AUTOIT's coding

can anyone help me with a problem I'm having from some's script that he has released on a website

This is script that works on vista and windows 7 but not on windows xp...

can anyone convert this and make .exe executable for me while I am learning thank you

Code :

expandcollapse popup

#include <NomadMemory.au3>
#include <GUIConstantsEx.au3>
HotKeySet("{F6}", "_splash")
HotKeySet("{End}","_ende")
SetPrivilege("SeDebugPrivilege", 1)
GUICreate("Warten", 156, 55, 264, 195)
GUICtrlCreateLabel("Warte bis Kal gestartet wird", 8, 16, 133, 17)
GUISetState(@SW_SHOW)
While Not ProcessExists("engine.exe")
    $nMsg = GUIGetMsg()
    Switch $nMsg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
    Sleep(20)
WEnd
GUISetState(@SW_HIDE)
GUIDelete()
Global $ur[1],$off[3],$add[4],$sta[4],$was[3],$P
Const $handle = ControlGetHandle("KalOnline", "", "")
Global $splash = IniReadSection("config.ini", "KalBot")
Global $revive = IniReadSection("config.ini", "Revive")
Global $scroll = IniReadSection("config.ini", "Scroll")
$ur[0] = IniRead("config.ini", "Memory", "Pointer Char", "0x006F3840")
$off[2] = IniRead("config.ini", "Memory", "Health Offset", "0x46AC")
$add[1] = IniRead("config.ini", "Memory", "Health Addresse", "0x0070EB34")
$add[2] = IniRead("config.ini", "Memory", "Max Mana Addresse", "0x0070EB38")
$add[3] = IniRead("config.ini", "Memory", "Mana Addresse", "0x0070EB30")
$Open = _memoryopen(ProcessExists("engine.exe"))
While 1
    sleep (100)
Wend
Func _pot1()
    Opt("SendKeyDownDelay", 1)
        $Point = _memoryread($ur[0], $Open, 'dword')
        $30 = "0x" & Hex($Point + $off[2])
        $was[2] = _MemoryRead($30, $Open, 'dword')
        $sta[3] = _MemoryRead($add[3], $Open, 'dword')
        If $was[2] = 0 Then ;Leben = 0
            _tod()
        ElseIf $sta[2] - $sta[3] >= $splash[5][1] Or $sta[3] <= 60 Then ;Mana
            ControlSend("KalOnline","",$handle, $splash[2][1])
        ElseIf $sta[1] - $was[2] >= $sta[1] * 0.8 Then ;kritische Leben (20%)
            ControlSend("KalOnline","",$handle, $splash[3][1])
            ToolTip("HP low",0,0)
        ElseIf $sta[1] - $was[2] >= $splash[4][1] Then ;Health
            ControlSend("KalOnline","",$handle, $splash[3][1])
            ToolTip("Splash",0,0)
        EndIf
EndFunc   ;==>_pot1
Func _splash()
    If $scroll[1][1] = 1 Then AdlibRegister("Scroll",$scroll[3][1])
    HotKeySet("{F6}", "_Terminate")
    ToolTip("Splash",0,0)
    $P = 1
    Opt("SendKeyDownDelay", 1)
    For $i = 1 To 2 ;mana + hp max
        $sta[$i] = _MemoryRead($add[$i], $Open, 'dword')
    Next
    While $P = 1
        sleep(150)
        ControlSend("KalOnline","",$handle, $splash[1][1])
        ControlClick("KalOnline","",$handle,"right",1,1,200)
        Call("_pot1")
    WEnd
EndFunc   ;==>_splash
Func _tod()
    ToolTip("Dead",0,0)
    If $Revive[1][1] = 1 Then Beep(2000,500)
    If $Revive[2][1] = 1 Then
        Sleep($Revive[4][1])
        ControlSend("KalOnline","",$handle, $Revive[3][1])
        Sleep(500)
        _pot1()
        _splash()
    Else
        _Terminate()
    EndIf
EndFunc
Func Scroll()
    ControlSend("KalOnline","",$handle,$scroll[2][1])
EndFunc

Func _Terminate()
    AdlibUnRegister("Scroll")
    HotKeySet("{F6}", "_splash")
    ToolTip("",0,0)
    $P = 0
EndFunc   ;==>_Terminate
Func _ende()
    Exit
EndFunc

[JohnOne]

I doubt it, game bot help is not allowed here.

[DjAngel]

I doubt it, game bot help is not allowed here.

Oh sorry I didn't know if there was somebody that could help me any chance of a pm then Please?

[Melba23]

DjAngel,

Do not try to bypass the rules again by asking for personal help.

M23