Sign in to follow this  
Followers 0
Zibit

Bot problems

3 posts in this topic

Why wont it work???

#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_outfile=first.exe
#AutoIt3Wrapper_UseUpx=n
#AutoIt3Wrapper_Change2CUI=y
#AutoIt3Wrapper_Run_AU3Check=n
#AutoIt3Wrapper_Tidy_Stop_onerror=n
#AutoIt3Wrapper_Run_Obfuscator=y
#Obfuscator_Parameters=/cs 1 /cn 1 / cf 1 /cv 1
#EndRegion ;**** Directives created by AutoIt3Wrapper_GUI ****
#cs ----------------------------------------------------------------------------
    
    AutoIt Version: 1.0.0.0
    Author:         z1b1t
    
    Script Function:
    KalOnline Splashy Bot
    
#ce ----------------------------------------------------------------------------
; Script Start - Add your code below here

local $handle, $coord, $dhealth, $dc, $phealth, $ok, $msg, $phealth, $demoncolor
local $healthcolor, $hcoord, $myhealth, $battle


GUICreate("Splashy",200,150)
$handle = ControlGetHandle("KalOnline", "", "")
$title = AutoItWinGetTitle()
$coord = PixelSearch( 0, 0, 1023, 767, $demoncolor )
$dhealth = GUICtrlCreateButton("", 20, 210, 1, 1)
$dc = GUICtrlCreateButton("", 20, 190, 1, 1)
$phealth = GUICtrlCreateButton("", 20, 170, 1, 1)
$ok = GUICtrlCreateButton("", 20, 150, 1, 1)
GuiCtrlCreateLabel("Warning!" & @CRLF & "Pushing button GetPixels will take" & @CRLF & "2 different pixels you have" & @CRLF & "5 seconds to take pixels :" & @CRLF & "Player HP and Player MP", 20, 80)
GuiCtrlSetColor(-1,0x00ff00)
GuiCtrlCreateLabel("Player Health:", 20, 30)
GuiCtrlCreateLabel("Status:", 20, 70)
GuiCtrlCreateLabel("Starting In:", 20, 10)

GuiSetState()


    $msg = GuiGetMsg()
    
    If $msg = $phealth Then     sleep(1000)
        GuiCtrlCreateLabel("5", 100, 10)
        sleep(1000)
        GuiCtrlCreateLabel("4", 100, 10)
        sleep(1000)
        GuiCtrlCreateLabel("3", 100, 10)
        sleep(1000)
        GuiCtrlCreateLabel("2", 100, 10)
        sleep(1000)
        GuiCtrlCreateLabel("1", 100, 10)
        sleep(1000)
        GuiCtrlCreateLabel("Starting!", 100, 10)
        GuiCtrlSetColor(-1,0xff0000)
        sleep(1000)
        GuiCtrlCreateLabel("5", 100, 30)
        sleep(1000)
        GuiCtrlCreateLabel("4", 100, 30)
        sleep(1000)
        GuiCtrlCreateLabel("3", 100, 30)
        sleep(1000)
        GuiCtrlCreateLabel("2", 100, 30)
        sleep(1000)
        GuiCtrlCreateLabel("1", 100, 30)
        sleep(1000)
        GuiCtrlCreateLabel("Check", 100, 30)
        GuiCtrlSetColor(-1,0x00ff00)
        $hcoord = MouseGetPos()
        $healthcolor = PixelGetColor($hcoord[0], $hcoord[1])
        $battle = "on"
        _main()





func _main()
                $myhealth = PixelGetColor($hcoord[0], $hcoord[1])
                while $battle = "on"
                If $myhealth <> $healthcolor Then
                ToolTip("healing",0,0)
                ControlSend("KalOnline", "", $handle, "4")
                Sleep(1000)
            EndIf
        wend
        
        while 1
            ToolTip("splashy ON",0,0)
                        WinActivate($title)
                ControlSend("KalOnline", "", $handle, "5")
        sleep(2000)
                ControlSend("KalOnline", "", $handle, "5")
        sleep(2000)
        wend
endfunc

Share this post


Link to post
Share on other sites



What's it supposed to do and what's it not doing?


Other People's Stuff:Andy Flesner's AutoIt v3: Your Quick Guide[topic="34302"]Locodarwin's ExcelCom_UDF[/topic][topic="61090"]MrCreatorR's Opera Library[/topic]

Share this post


Link to post
Share on other sites

#3 ·  Posted (edited)

Why wont it work???

Because there's something wrong with it.

Edited by Khab

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0