Jump to content
Sign in to follow this  
Nevalopo

Help please.. Basic Bot

Recommended Posts

Nevalopo

Ok so... I got this problem and i dont see whats wrong... I found my old bot and i was thinking i would try starting at it agian... Somehow the second test works.. but not the first ( ControlSend("PO", "", "", "{F4}")) :/ I can't find whats wrong... Can anyone help me out? Here is my code:

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <GUIconstants.au3>


HotKeySet("{ESC}", "_Exit_Loop")

Opt("GUICoordMode", 1)
GUICreate("Test Title", 300, 500)


$button_1 = GUICtrlCreateButton("Test 1", 30, 50, 250, 20)
$button_2 = GUICtrlCreateButton("Test 2", 30, 75, 250, 20)
$group_1 = GUICtrlCreateGroup("Test info....", 45, 10, 10, 10)
$group_1 = GUICtrlCreateGroup("Credits: AutoIT", 65, 450, 10, 10)

GUICtrlSetState($button_1,  BitOR($GUI_FOCUS, $GUI_DEFBUTTON))

GUISetState()

$fExit_Loop = False
$fTest1 = False
$fTest2 = False
$iCount = 0

While 1

    If $fTest2 = True And $iCount = 10 Then
        ControlSend("PO", "", "", "{F4}")
        Sleep(200)
        MouseMove ( 651, 76)
        Sleep(200)
        MouseClick("left")
        Sleep(200)
        ControlSend("PO", "", "", "{F4}")
        Sleep(200)
         MouseMove ( 307, 173)
        Sleep(200)
        MouseClick("left")
        Sleep(200)
        ControlSend("PO", "", "", "{F4}")
        Sleep(200)
        MouseMove ( 460, 218)
        Sleep(200)
        MouseClick("left")
        Sleep(200)
        ControlSend("PO", "", "", "{F4}")
        Sleep(200)
         MouseMove ( 651, 34)
        Sleep(200)
        MouseClick("left")
        Sleep(200)
        $iCount = 0

    EndIf

    If $fTest1 = True Then
    ControlSend("PO", "", "", "{CTRLDOWN}")
    ControlSend("PO", "", "", "{UP}")
    ControlSend("PO", "", "", "{CTRLUP}")
    ControlSend("PO", "", "", "{CTRLDOWN}")
    ControlSend("PO", "", "", "{DOWN}")
    ControlSend("PO", "", "", "{CTRLUP}")
    ControlSend("PO", "", "", "{CTRLDOWN}")
    ControlSend("PO", "", "", "{RIGHT}")
    ControlSend("PO", "", "", "{CTRLUP}")

        $iCount += 1

    EndIf

    $nBegin = TimerInit()
    Do
        If $fExit_Loop = True Then
            $fExit_Loop = False
            ExitLoop 2
        EndIf


        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE
                Exit

            Case $msg = $button_1
                MsgBox(0, "Test 1", "Test 1 Started")
                $fTest1 = True


            Case $msg = $button_2
                MsgBox(0, "test 2", "test 2 Started")
                $fTest2 = True


        EndSelect

    Until TimerDiff($nBegin) > 600

WEnd

Func _Exit_Loop()

    $fExit_Loop = True
    $fTest1 = False
    $fTest2 = False

EndFunc

Thanks if anyone can help me out on whats wrong

Edited by Nevalopo

Share this post


Link to post
Share on other sites
Nevalopo

Some remake of tibia.. The title windows is fine. It's not that ^^

Share this post


Link to post
Share on other sites
Bert

Rule violations

Sharing accounts, selling accounts, using any and all non-official programs such as "bots", and taking advantage of game flaws, such as "teleporting", is considered cheating and may result in harsh bans and instant account deletions for a second offense within six months. If an account has been banished or scheduled for deletion, CipSoft propagates that the only recourse is to either create a new character, or appeal to Customer Support directly.

The most frequent form of cheating is in the form of using "Cave-Bots", which hunt for players without any input. Another common form of cheating is called account sharing. In this case, two or more people share the same account and take turns hunting. This allows the character to gain experience and skill at a much higher rate. In an attempt to lessen account sharing, a "stamina" system was implemented so that if a character is hunting for an excess number of hours, that character would no longer gain any experience for killing creatures.

CipSoft has performed various polls on the official website, suggesting future implementations to lessen cheating. Screenshots and/or videos, called "TibiaCams", once were used as incentive to investigate cases of severe or otherwise game-altering cheating, though this practice has been unofficially stopped. The reason for this is that the screenshots or videos can be manipulated to show false information.

On 30 January, 2009, Cipsoft announced that they banned 4959 characters for using illegal software while playing.[4] A quote from Cipsoft at www.tibia.com states, "These accounts have been identified by an automatic tool with complete accuracy, therefore any complaints about these punishments are in vain. They are final and complaints will be ignored. We will neither reveal our criteria for these punishments, nor will we hand out any proofs." The article goes on to say that Cipsoft is not finished and will continue to work hard to eliminate cheating from the game.[1] Since then, Cipsoft has used this automatic tool about once a month to ban over 40,000 more accounts.

Share this post


Link to post
Share on other sites
Nevalopo

It's agianst the TOS. True.. But i take my risks of getting banned. All bots are agianst TOS of any game...

Tho.. This is an Open Tibia server hosted by a private server (Something like a WOW PRivate server)

Edited by Nevalopo

Share this post


Link to post
Share on other sites
Jos

It's agianst the TOS. True.. But i take my risks of getting banned. All bots are agianst TOS of any game...

Tho.. This is an Open Tibia server hosted by a private server (Something like a WOW PRivate server)

Same is valid for these forums as to the banning so lets not go there.

*click*


Visit the SciTE4AutoIt3 Download page for the latest versions  - Beta files                                How to post scriptsource        Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×

Important Information

We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.