Quite cool all sides atk with increased drop speed.. Looks artificial though.. I think antidote or GkevinOD are already improving the attack. But for those who can't wait for the better codes.. I modded their code a bit so try using them atm:
Code:
Global $DropSpeed=4
Func DropTroop()
While 1
GUICtrlSetData($Results, "Start to drop troops" & @CRLF, -1)
If $RunState = False Then
ExitLoop
EndIf
;---------------- ALL SIDES GIANT
DropSingle("Giant",$UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Giant",$UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Giant",$LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Giant",$LowRight)
If $RunState = False Then
ExitLoop
EndIf
;----------------ALL SIDES GIANT DROP ROUND 2
DropSingle("Giant",$UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Giant",$UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Giant",$LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Giant",$LowRight)
If $RunState = False Then
ExitLoop
EndIf
;---------------- ALL SIDES BARBS
DropSingle("Barbarian", $UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $LowRight)
If $RunState = False Then
ExitLoop
EndIf
;---------------- ALL SIDES ARCHERS
DropSingle("Archer", $UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $LowRight)
If $RunState = False Then
ExitLoop
EndIf
;---------------- ALL SIDES BARBS Round 2
DropSingle("Barbarian", $UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $LowRight)
If $RunState = False Then
ExitLoop
EndIf
;---------------- ALL SIDES ARCHERS Round 2
DropSingle("Archer", $UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $LowRight)
If $RunState = False Then
ExitLoop
EndIf
;---------------- ALL SIDES BARBS Round 3
DropSingle("Barbarian", $UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Barbarian", $LowRight)
If $RunState = False Then
ExitLoop
EndIf
;---------------- ALL SIDES ARCHERS Round 3
DropSingle("Archer", $UpLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $UpRight)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $LowLeft)
If $RunState = False Then
ExitLoop
EndIf
DropSingle("Archer", $LowRight)
If $RunState = False Then
ExitLoop
EndIf
;----------------- END
GUICtrlSetData($Results, "Finish dropping troops. Waiting for battle end." & @CRLF, -1)
ExitLoop
WEnd
EndFunc
Func DropSingle($T, $W)
While 1
If $RunState = False Then
ExitLoop
EndIf
If CheckTroop($T) Then
Select
Case $T = "Giant"
ControlClick ($HWnD, "","", "left", "1", $Giant[0], $Giant[1])
Sleep(300/$DropSpeed)
; For $i = 0 to 4 Step 1
For $i = 2 to 4 Step 2
ControlClick ($HWnD, "","", "left", "1", $W[$i][0], $W[$i][1])
Sleep(100/$DropSpeed)
Next
Sleep(3000/$DropSpeed)
If $RunState = False Then
ExitLoop
EndIf
Case $T = "Barbarian"
ControlClick ($HWnD, "","", "left", "1", $Barbarian[0], $Barbarian[1])
Sleep(300/$DropSpeed)
; For $x = 0 to 7 Step 1
For $x = 0 to 3 Step 1 ; MADE IT HALF TO ACCOMODATE ALL SIDES
For $i = 0 to 4 Step 1
ControlClick ($HWnD, "","", "left", "1", $W[$i][0], $W[$i][1])
Sleep(100/$DropSpeed)
Next
Next
Sleep(1000/$DropSpeed)
If $RunState = False Then
ExitLoop
EndIf
Case $T = "Archer"
ControlClick ($HWnD, "","", "left", "1", $Archer[0], $Archer[1])
Sleep(300/$DropSpeed)
; For $x = 0 to 7 Step 1
For $x = 0 to 3 Step 1 ; MADE IT HALF TO ACCOMODATE ALL SIDES
For $i = 0 to 4 Step 1
ControlClick ($HWnD, "","", "left", "1", $W[$i][0], $W[$i][1])
Sleep(100/$DropSpeed)
Next
Next
Sleep(1000/$DropSpeed)
If $RunState = False Then
ExitLoop
EndIf
Case $T = "Goblin"
ControlClick ($HWnD, "","", "left", "1", $Goblin[0], $Goblin[1])
Sleep(300/$DropSpeed)
; For $x = 0 to 7 Step 1
For $x = 0 to 3 Step 1 ; MADE IT HALF TO ACCOMODATE ALL SIDES
For $i = 0 to 4 Step 1
ControlClick ($HWnD, "","", "left", "1", $W[$i][0], $W[$i][1])
Sleep(100/$DropSpeed)
Next
Next
Sleep(300/$DropSpeed)
EndSelect
EndIf
ExitLoop
WEnd
EndFunc
Replace the 2 functions above and don't forget to add the declaration. I only tried barchers with this one.. Enjoy!