Jump to content

Failure, No clue why.


Skrip
 Share

Recommended Posts

I'm making a guild wars bot, I can't figure out why it won't work the _Search() function is not added yet, so make sure an enemy is on the map when you test this.

I can't figure out why it won't work, please read, test, and fix.

Thank you!

#cs
This program was made for guild-wars
for resolution 1280x1024
Guild-wars settings
~Normal interface
~Full Screen
~In-game resolution 1280x1024 with a Large interface
#ce



#include <GUIConstants.au3>
$coord = PixelSearch(449, 24, 775, 46, 0xFFFFFF, 1, 2)
$contin = 8
$atk = 0


$Form1 = GUICreate("Guild Wars Bot", 351, 496, 292, 131)
;Spells
$Group1 = GUICtrlCreateGroup("Spells", 8, 8, 337, 113)
$Combo1 = GUICtrlCreateCombo("", 16, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo2 = GUICtrlCreateCombo("", 56, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo3 = GUICtrlCreateCombo("", 96, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo4 = GUICtrlCreateCombo("", 136, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo5 = GUICtrlCreateCombo("", 176, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo6 = GUICtrlCreateCombo("", 216, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo7 = GUICtrlCreateCombo("", 256, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo8 = GUICtrlCreateCombo("", 296, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("Set the spells to use in order that they will be used.", 16, 56, 161, 17)
GUICtrlCreateLabel("Set to 0 if not used", 16, 72, 209, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;Hotkeys
$Group2 = GUICtrlCreateGroup("Hotkeys", 8, 128, 337, 169)
GUICtrlCreateLabel("Enter 'Select Nearest Foe' button-", 16, 144, 169, 17)
$Input1 = GUICtrlCreateInput("c", 184, 144, 73, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Action (Do It)' button-", 16, 168, 140, 17)
$Input2 = GUICtrlCreateInput("space", 160, 168, 97, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'walk forward' button-", 16, 192, 138, 17)
$Input3 = GUICtrlCreateInput("w", 160, 192, 97, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Turn right button-", 16, 216, 123, 17)
$Input4 = GUICtrlCreateInput("d", 144, 216, 113, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Turn left' button-", 16, 240, 117, 17)
$Input5 = GUICtrlCreateInput("a", 136, 240, 121, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'walk backwards' button-", 16, 264, 155, 17)
$Input6 = GUICtrlCreateInput("s", 176, 264, 81, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start", 8, 424, 337, 25)
$Button2 = GUICtrlCreateButton("Stop", 8, 456, 337, 25)
$Group3 = GUICtrlCreateGroup("Health", 8, 304, 337, 105)
GUICtrlCreateLabel("If near death-(Numbers cast spell)", 16, 328, 162, 17)
$Combo9 = GUICtrlCreateCombo("", 184, 328, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("If half health-(Numbers Cast Spell)", 16, 352, 163, 17)
$Combo10 = GUICtrlCreateCombo("", 184, 352, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("If full health-(Numbers cast spell)", 16, 376, 156, 17)
$Combo11 = GUICtrlCreateCombo("", 184, 376, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")

GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button1
        $com1 = GUICtrlRead($Combo1)
        $com2 = GUICtrlRead($Combo2)
        $com3 = GUICtrlRead($Combo3)
        $com4 = GUICtrlRead($Combo4)
        $com5 = GUICtrlRead($Combo5)
        $com6 = GUICtrlRead($Combo6)
        $com7 = GUICtrlRead($Combo7)
        $com8 = GUICtrlRead($Combo8)
        $com9 = GUICtrlRead($Combo9)
        $com10 = GUICtrlRead($Combo10)
        $com11 = GUICtrlRead($Combo11)
        $inp1 = GUICtrlRead($Input1)
        $inp2 = GUICtrlRead($Input2)
        $inp3 = GUICtrlRead($Input3)
        $inp4 = GUICtrlRead($Input4)
        $inp5 = GUICtrlRead($Input5)
        $inp6 = GUICtrlRead($Input6)
        _Ready()
    Case $msg = $Button2
        Exit
    EndSelect
WEnd
Exit

Func _Ready()
;~  Find enemy
    If WinExists("Guild Wars") Then
        WinActivate("Guild Wars")
        While 1
            If $atk = 0 Then
                Send($inp1)
                sl(1,10)
                Send($inp1)
                sl(50,100)
                If IsArray($coord) = 1 Then
                    _Attack()
;~              Else
;~                  _Search()
                EndIf
            EndIf
        WEnd
    Else
        MsgBox(48, "Error" ,"Please start guild wars then start the program!!")
    EndIf
EndFunc

Func _Attack()
    $atk = 1
    Send($inp1)
    sl(1,10)
    Send($inp1)
    sl(50,100)
    Send($inp2)
    If $com1 = "0" Then
        $contin = 0
    Else
        Send($com1)
    EndIf
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com2 = "0" Then
            $contin = 0
        Else
            Send($com2)
        EndIf
    EndIf
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com3 = "0" Then
            $contin = 0
        Else
            Send($com3)
        EndIf
    EndIf
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com4 = "0" Then
            $contin = 0
        Else
            Send($com4)
        EndIf
    EndIf
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com5 = "0" Then
            $contin = 0
        Else
            Send($com6)
        EndIf
    EndIf
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com7 = "0" Then
            $contin = 0
        Else
            Send($com7)
        EndIf
    EndIf
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com8 = "0" Then
            $contin = 0
        Else
            Send($com8)
        EndIf
    EndIf
    Send($inp2)
    $contin = 8
    $atk = 0
EndFunc

Func sl($sleep, $sleep2)
    $ran_sleep = Random($sleep, $sleep2, 1)
    Sleep($ran_sleep)
EndFunc

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Link to comment
Share on other sites

@Firestorm,

Please explain what exactly is not working.

I don't have the program installed, but I keep getting a string of "ccccc"

across the GUI inputs. I don't know if the wargame supplies something or not.

ViM

Link to comment
Share on other sites

Oh That right there Vim fixed it I know the problem now. Thank you.

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Link to comment
Share on other sites

Nope, didn't work.

Now it returns nothing no matter what

#cs
This program was made for guild-wars
for resolution 1280x1024
Guild-wars settings
~Normal interface
~Full Screen
~In-game resolution 1280x1024 with a Large interface
#ce



#include <GUIConstants.au3>
$coord = PixelSearch(449, 24, 775, 46, 0xFFFFFF, 1, 2)
$contin = 8
$atk = 0


$Form1 = GUICreate("Guild Wars Bot", 351, 496, 292, 131)
;Spells
$Group1 = GUICtrlCreateGroup("Spells", 8, 8, 337, 113)
$Combo1 = GUICtrlCreateCombo("", 16, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo2 = GUICtrlCreateCombo("", 56, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo3 = GUICtrlCreateCombo("", 96, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo4 = GUICtrlCreateCombo("", 136, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo5 = GUICtrlCreateCombo("", 176, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo6 = GUICtrlCreateCombo("", 216, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo7 = GUICtrlCreateCombo("", 256, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo8 = GUICtrlCreateCombo("", 296, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("Set the spells to use in order that they will be used.", 16, 56, 161, 17)
GUICtrlCreateLabel("Set to 0 if not used", 16, 72, 209, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;Hotkeys
$Group2 = GUICtrlCreateGroup("Hotkeys", 8, 128, 337, 169)
GUICtrlCreateLabel("Enter 'Select Nearest Foe' button-", 16, 144, 169, 17)
$Input1 = GUICtrlCreateInput("c", 184, 144, 73, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Action (Do It)' button-", 16, 168, 140, 17)
$Input2 = GUICtrlCreateInput("space", 160, 168, 97, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'walk forward' button-", 16, 192, 138, 17)
$Input3 = GUICtrlCreateInput("w", 160, 192, 97, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Turn right button-", 16, 216, 123, 17)
$Input4 = GUICtrlCreateInput("d", 144, 216, 113, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Turn left' button-", 16, 240, 117, 17)
$Input5 = GUICtrlCreateInput("a", 136, 240, 121, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'walk backwards' button-", 16, 264, 155, 17)
$Input6 = GUICtrlCreateInput("s", 176, 264, 81, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start", 8, 424, 337, 25)
$Button2 = GUICtrlCreateButton("Stop", 8, 456, 337, 25)
$Group3 = GUICtrlCreateGroup("Health", 8, 304, 337, 105)
GUICtrlCreateLabel("If near death-(Numbers cast spell)", 16, 328, 162, 17)
$Combo9 = GUICtrlCreateCombo("", 184, 328, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("If half health-(Numbers Cast Spell)", 16, 352, 163, 17)
$Combo10 = GUICtrlCreateCombo("", 184, 352, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("If full health-(Numbers cast spell)", 16, 376, 156, 17)
$Combo11 = GUICtrlCreateCombo("", 184, 376, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")

GUISetState(@SW_SHOW)
While 1
    $msg = GuiGetMsg()
    Select
    Case $msg = $GUI_EVENT_CLOSE
        ExitLoop
    Case $msg = $Button1
        $com1 = GUICtrlRead($Combo1)
        $com2 = GUICtrlRead($Combo2)
        $com3 = GUICtrlRead($Combo3)
        $com4 = GUICtrlRead($Combo4)
        $com5 = GUICtrlRead($Combo5)
        $com6 = GUICtrlRead($Combo6)
        $com7 = GUICtrlRead($Combo7)
        $com8 = GUICtrlRead($Combo8)
        $com9 = GUICtrlRead($Combo9)
        $com10 = GUICtrlRead($Combo10)
        $com11 = GUICtrlRead($Combo11)
        $inp1 = GUICtrlRead($Input1)
        $inp2 = GUICtrlRead($Input2)
        $inp3 = GUICtrlRead($Input3)
        $inp4 = GUICtrlRead($Input4)
        $inp5 = GUICtrlRead($Input5)
        $inp6 = GUICtrlRead($Input6)
        _Ready()
    Case $msg = $Button2
        Exit
    EndSelect
WEnd
Exit

Func _Ready()
;~  Find enemy
;~  If WinExists("Guild Wars") Then
;~      WinActivate("Guild Wars")
;~      WinWaitActive("Guild Wars", "", 3)
        Send($inp1)
        While 1
            If $atk = 0 Then
                sl(50,100)
                If IsArray($coord) = 1 Then
                    _Attack()
;~              Else
;~                  _Search()
                EndIf
            EndIf
        WEnd
;~  Else
;~      MsgBox(48, "Error" ,"Please start guild wars then start the program!!")
;~  EndIf
EndFunc

Func _Attack()
    $atk = 1
    Send($inp1)
    sl(1,10)
    Send($inp1)
    sl(50,100)
    Send($inp2)
    If $com1 = "0" Then
        $contin = 0
    Else
        Send($com1)
    EndIf
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com2 = "0" Then
            $contin = 0
        Else
            Send($com2)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com3 = "0" Then
            $contin = 0
        Else
            Send($com3)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com4 = "0" Then
            $contin = 0
        Else
            Send($com4)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com5 = "0" Then
            $contin = 0
        Else
            Send($com6)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com7 = "0" Then
            $contin = 0
        Else
            Send($com7)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1,10)
    If $contin = 0 < $contin Then
        If $com8 = "0" Then
            $contin = 0
        Else
            Send($com8)
        EndIf
    EndIf
    Send($inp2)
    $contin = 8
    $atk = 0
    _Ready()
EndFunc

Func sl($sleep, $sleep2)
    $ran_sleep = Random($sleep, $sleep2, 1)
    Sleep($ran_sleep)
EndFunc

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Link to comment
Share on other sites

so, out of everybody who bothered to look at this, nobody has a clue what to do?

[left][sub]We're trapped in the belly of this horrible machine.[/sub][sup]And the machine is bleeding to death...[/sup][sup][/sup][/left]

Link to comment
Share on other sites

HI,

what about some ConsoleWrites to check what is going wrong?

#cs
    This program was made for guild-wars
    for resolution 1280x1024
    Guild-wars settings
    ~Normal interface
    ~Full Screen
    ~In-game resolution 1280x1024 with a Large interface
#ce

#include <GUIConstants.au3>

$contin = 8
$atk = 0
$coord = PixelSearch(449, 24, 775, 46, 0xFFFFFF, 1, 2)
$Form1 = GUICreate("Guild Wars Bot", 351, 496, 292, 131)
;Spells
$Group1 = GUICtrlCreateGroup("Spells", 8, 8, 337, 113)
$Combo1 = GUICtrlCreateCombo("", 16, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo2 = GUICtrlCreateCombo("", 56, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo3 = GUICtrlCreateCombo("", 96, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo4 = GUICtrlCreateCombo("", 136, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo5 = GUICtrlCreateCombo("", 176, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo6 = GUICtrlCreateCombo("", 216, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo7 = GUICtrlCreateCombo("", 256, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
$Combo8 = GUICtrlCreateCombo("", 296, 24, 41, 21)
GUICtrlSetData(-1, "0|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("Set the spells to use in order that they will be used.", 16, 56, 161, 17)
GUICtrlCreateLabel("Set to 0 if not used", 16, 72, 209, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
;Hotkeys
$Group2 = GUICtrlCreateGroup("Hotkeys", 8, 128, 337, 169)
GUICtrlCreateLabel("Enter 'Select Nearest Foe' button-", 16, 144, 169, 17)
$Input1 = GUICtrlCreateInput("c", 184, 144, 73, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Action (Do It)' button-", 16, 168, 140, 17)
$Input2 = GUICtrlCreateInput("space", 160, 168, 97, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'walk forward' button-", 16, 192, 138, 17)
$Input3 = GUICtrlCreateInput("w", 160, 192, 97, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Turn right button-", 16, 216, 123, 17)
$Input4 = GUICtrlCreateInput("d", 144, 216, 113, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'Turn left' button-", 16, 240, 117, 17)
$Input5 = GUICtrlCreateInput("a", 136, 240, 121, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateLabel("Enter 'walk backwards' button-", 16, 264, 155, 17)
$Input6 = GUICtrlCreateInput("s", 176, 264, 81, 21, -1, $WS_EX_CLIENTEDGE)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Button1 = GUICtrlCreateButton("Start", 8, 424, 337, 25)
$Button2 = GUICtrlCreateButton("Stop", 8, 456, 337, 25)
$Group3 = GUICtrlCreateGroup("Health", 8, 304, 337, 105)
GUICtrlCreateLabel("If near death-(Numbers cast spell)", 16, 328, 162, 17)
$Combo9 = GUICtrlCreateCombo("", 184, 328, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("If half health-(Numbers Cast Spell)", 16, 352, 163, 17)
$Combo10 = GUICtrlCreateCombo("", 184, 352, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")
GUICtrlCreateLabel("If full health-(Numbers cast spell)", 16, 376, 156, 17)
$Combo11 = GUICtrlCreateCombo("", 184, 376, 113, 21)
GUICtrlSetData(-1, "0|Logout|1|2|3|4|5|6|7|8", "0")

GUISetState(@SW_SHOW)
While 1
    $msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
            ExitLoop
        Case $msg = $Button1
            $com1 = GUICtrlRead($Combo1)
            $com2 = GUICtrlRead($Combo2)
            $com3 = GUICtrlRead($Combo3)
            $com4 = GUICtrlRead($Combo4)
            $com5 = GUICtrlRead($Combo5)
            $com6 = GUICtrlRead($Combo6)
            $com7 = GUICtrlRead($Combo7)
            $com8 = GUICtrlRead($Combo8)
            $com9 = GUICtrlRead($Combo9)
            $com10 = GUICtrlRead($Combo10)
            $com11 = GUICtrlRead($Combo11)
            $inp1 = GUICtrlRead($Input1)
            $inp2 = GUICtrlRead($Input2)
            $inp3 = GUICtrlRead($Input3)
            $inp4 = GUICtrlRead($Input4)
            $inp5 = GUICtrlRead($Input5)
            $inp6 = GUICtrlRead($Input6)
            _Ready()
        Case $msg = $Button2
            Exit
    EndSelect
WEnd
Exit

Func _Ready()
    ConsoleWrite('Ready started')
;~     Find enemy
;~     If WinExists("Guild Wars") Then
;~         WinActivate("Guild Wars")
;~         WinWaitActive("Guild Wars", "", 3)
    Send($inp1)
    While 1
        If $atk = 0 Then
            sl(50, 100)
                ConsoleWrite($coord[0] & " " & $coord[1])
            If IsArray($coord) = 1 Then
                _Attack()
;~                 Else
;~                     _Search()
            EndIf
        EndIf
    WEnd
;~     Else
;~         MsgBox(48, "Error" ,"Please start guild wars then start the program!!")
;~     EndIf
EndFunc   ;==>_Ready

Func _Attack()
    ConsoleWrite('Attack started')
    $atk = 1
    Send($inp1)
    sl(1, 10)
    Send($inp1)
    sl(50, 100)
    Send($inp2)
    If $com1 = "0" Then
        $contin = 0
    Else
        Send($com1)
    EndIf
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com2 = "0" Then
            $contin = 0
        Else
            Send($com2)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com3 = "0" Then
            $contin = 0
        Else
            Send($com3)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com4 = "0" Then
            $contin = 0
        Else
            Send($com4)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com5 = "0" Then
            $contin = 0
        Else
            Send($com6)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com7 = "0" Then
            $contin = 0
        Else
            Send($com7)
        EndIf
    EndIf
    $contin = 8
    Send($inp2)
    sl(1, 10)
    If $contin = 0 < $contin Then
        If $com8 = "0" Then
            $contin = 0
        Else
            Send($com8)
        EndIf
    EndIf
    Send($inp2)
    $contin = 8
    $atk = 0
    _Ready()
EndFunc   ;==>_Attack

Func sl($sleep, $sleep2)
    $ran_sleep = Random($sleep, $sleep2, 1)
    Sleep($ran_sleep)
EndFunc   ;==>sl

So long,

Mega

Scripts & functions Organize Includes Let Scite organize the include files

Yahtzee The game "Yahtzee" (Kniffel, DiceLion)

LoginWrapper Secure scripts by adding a query (authentication)

_RunOnlyOnThis UDF Make sure that a script can only be executed on ... (Windows / HD / ...)

Internet-Café Server/Client Application Open CD, Start Browser, Lock remote client, etc.

MultipleFuncsWithOneHotkey Start different funcs by hitting one hotkey different times

Link to comment
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
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...