winwaitactive

[SteeLpwnage]

hey I'm still a greenie programmer so I need help with this script I get some errors and I don't know how to resolve them, so if any1

knows how to fix this script I would be gr8

expandcollapse popup

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 413, 43, 192, 124)
$Pirate = GUICtrlCreateInput("Pirate", 24, 8, 121, 21)
$Ocean = GUICtrlCreateInput("Ocean", 160, 8, 121, 21)
$Run = GUICtrlCreateButton("Run", 304, 8, 75, 25, $WS_GROUP)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


#Region ;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Compression=0
#AutoIt3Wrapper_Add_Constants=n
#AutoIt3Wrapper_Run_Tidy=y
#AutoIt3Wrapper_Tidy_Stop_onerror=n
#EndRegion ### START Koda GUI section ### Form=;**** Directives created by AutoIt3Wrapper_GUI ****

#include <Misc.au3>

$dll = DllOpen("user32.dll")
$Ocean = GUICtrlCreateInput
$Pirate = GUICtrlCreateInput
$pos = MouseGetPos

While 1
    If _IsPressed("57", $dll) Then
        MouseClick("left")
    EndIf
    If _IsPressed("41", $dll) Then
        MouseClick("left")
    EndIf
    If _IsPressed("44", $dll) Then
        MouseClick("left")
    EndIf
    If _IsPressed("53", $dll) Then
        MouseClick("left")
    EndIf
    If _IsPressed("43", $dll) Then
                MouseGetPos
        WinWait("Puzzle Pirates -  "$Pirate" on the  "$Ocean" ocean", "")
        If Not WinActive("Puzzle Pirates - " $Pirate" on the " $Ocean"ocean", "") Then WinActivate("Puzzle Pirates - " $Pirate" on the " $Ocean"ocean", "")
        WinWaitActive("Puzzle Pirates - " $Pirate" on the " $Ocean"ocean", "")
        MouseMove(423, 381, 2)
        Send("a")
        MouseDown("left")
        MouseUp("left")
        MouseMove(31, 311, 2)
        Send("d")
        MouseDown("left")
        MouseUp("left")
                MouseMove($pos, 2)
    EndIf
    If _IsPressed("56", $dll) Then
        WinWait("Puzzle Pirates - " $Pirate" on the " $Ocean"ocean", "")
        If Not WinActive("Puzzle Pirates - " $Pirate" on the " $Ocean"ocean", "") Then WinActivate("Puzzle Pirates - " $Pirate" on the " $Ocean"ocean", "")
        WinWaitActive("Puzzle Pirates - " $Pirate" on the " $Ocean"ocean", "")
        MouseMove(636, 343, 2)
        MouseDown("left")
        MouseUp("left")
    EndIf
WEnd

[Melba23]

SteeLpwnage,

Please read this,

then consider this extract from the Puzzle Pirates rules:

6.Restrictions. You agree not to do any of the following prohibited actions:

[...]

13.modify any files or use any game hacking/altering/cheating software or tools, including scripting or macroing software,

and ask yourself why anyone would help.

M23

[SteeLpwnage]

SteeLpwnage,

Please read this,

then consider this extract from the Puzzle Pirates rules:

6.Restrictions. You agree not to do any of the following prohibited actions:

[...]

13.modify any files or use any game hacking/altering/cheating software or tools, including scripting or macroing software,

and ask yourself why anyone would help.

M23

as I know this ain't any form of bitting or hacking because I still do the hard work only this is helping me so I don't have to constantly press the mouse button

[Valik]

"As [you] know" doesn't amount to much, apparently because it's a pretty clear and flagrant violation of the game's terms of use. Thread locked. Thanks for being failure #182498538375.