+- The Bytecode Club (https://the.bytecode.club)
+-- Forum: Lobby (https://the.bytecode.club/forumdisplay.php?fid=1)
+--- Forum: Game Cheating, Botting & Reverse Engineering (https://the.bytecode.club/forumdisplay.php?fid=97)
+--- Thread: pls Help me fixed CreateSpell.au3! (/showthread.php?tid=1128)
Pages:
1
2
pls Help me fixed CreateSpell.au3! - mtrong - 02-26-2015
I want bot Create Spell, but it no work in new vesion... im have try fix it but can't.
now can click barrcks, but it no click spell..
anyonw help me fix it,pls!!!
CreateSpell.au3
Func CreateSpell()
If _GUICtrlComboBox_GetCurSel($cmbSpell) <> 0 Then
Local $chkSpell = 0
SetLog("Creating Spells...")
While 1
For $i = 0 To 3
;If _Sleep(500) Then ExitLoop (2)
;Click(1, 1) ;Click Away
;If _Sleep(500) Then ExitLoop (2)
If $barrackPos[0] = "" Then
LocateBarrack()
SaveConfig()
If _Sleep(2000) Then Return
EndIf
SetLog("Training Troops+++...", $COLOR_BLUE)
If _Sleep(100) Then Return
ClickP($TopLeftClient) ;Click Away
If _Sleep(100) Then Return
;Click($barrackPos[$i][0], $barrackPos[$i][1]) ;Click Barrack
Click($barrackPos[0], $barrackPos[1]) ;Click Barrack
If _Sleep(600) Then ExitLoop (2)
_CaptureRegion()
Local $TrainPos = _PixelSearch(155, 603, 694, 605, Hex(0x603818, 6), 5) ;Finds Train Troops button
If IsArray($TrainPos) = False Then
SetLog("Barrack " & $i + 1 & " is not available")
If _Sleep(500) Then ExitLoop (2)
Else
Click($TrainPos[0], $TrainPos[1]) ;Click Train Troops button
If _Sleep(600) Then ExitLoop (2)
While _ColorCheck(_GetPixelColor(219, 512), Hex(0xFFFFFF, 6), 20) = False
Click(95, 333) ;Click Barrack Tab
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
$chkSpell += 1
If $chkSpell = 7 And _ColorCheck(_GetPixelColor(219, 512), Hex(0xFFFFFF, 6), 20) = False Then
SetLog("Spell Factory is not available")
ExitLoop (3)
EndIf
WEnd
_CaptureRegion()
Switch $Spell
Case 1
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(218, 319) ;Click Lightning Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 2
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(322, 319) ;Click Healing Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 3
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(433, 319) ;Click Rage Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 4
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(540, 319) ;Click Jump Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 5
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(643, 319) ;Click Freeze Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
EndSwitch
ExitLoop
EndIf
Next
If _Sleep(500) Then ExitLoop (2)
Click(1, 1, 2, 250); Click away twice with 250ms delay
SetLog("Creating Spells Complete")
ExitLoop
WEnd
EndIf
EndFunc ;CreateSpell
RE: pls Help me fixed CreateSpell.au3! - huunguyen - 02-26-2015
(02-26-2015, 12:44 PM)mtrong Wrote: I want bot Create Spell, but it no work in new vesion... im have try fix it but can't.replace with this code
now can click barrcks, but it no click spell..
anyonw help me fix it,pls!!!
CreateSpell.au3
Func CreateSpell()
If _GUICtrlComboBox_GetCurSel($cmbSpell) <> 0 Then
Local $chkSpell = 0
SetLog("Creating Spells...")
While 1
For $i = 0 To 3
;If _Sleep(500) Then ExitLoop (2)
;Click(1, 1) ;Click Away
;If _Sleep(500) Then ExitLoop (2)
If $barrackPos[0] = "" Then
LocateBarrack()
SaveConfig()
If _Sleep(2000) Then Return
EndIf
SetLog("Training Troops+++...", $COLOR_BLUE)
If _Sleep(100) Then Return
ClickP($TopLeftClient) ;Click Away
If _Sleep(100) Then Return
;Click($barrackPos[$i][0], $barrackPos[$i][1]) ;Click Barrack
Click($barrackPos[0], $barrackPos[1]) ;Click Barrack
If _Sleep(600) Then ExitLoop (2)
_CaptureRegion()
Local $TrainPos = _PixelSearch(155, 603, 694, 605, Hex(0x603818, 6), 5) ;Finds Train Troops button
If IsArray($TrainPos) = False Then
SetLog("Barrack " & $i + 1 & " is not available")
If _Sleep(500) Then ExitLoop (2)
Else
Click($TrainPos[0], $TrainPos[1]) ;Click Train Troops button
If _Sleep(600) Then ExitLoop (2)
While _ColorCheck(_GetPixelColor(219, 512), Hex(0xFFFFFF, 6), 20) = False
Click(95, 333) ;Click Barrack Tab
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
$chkSpell += 1
If $chkSpell = 7 And _ColorCheck(_GetPixelColor(219, 512), Hex(0xFFFFFF, 6), 20) = False Then
SetLog("Spell Factory is not available")
ExitLoop (3)
EndIf
WEnd
_CaptureRegion()
Switch $Spell
Case 1
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(218, 319) ;Click Lightning Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 2
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(322, 319) ;Click Healing Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 3
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(433, 319) ;Click Rage Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 4
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(540, 319) ;Click Jump Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
Case 5
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(643, 319) ;Click Freeze Spell
If _Sleep(1000) Then ExitLoop (2)
_CaptureRegion()
WEnd
EndSwitch
ExitLoop
EndIf
Next
If _Sleep(500) Then ExitLoop (2)
Click(1, 1, 2, 250); Click away twice with 250ms delay
SetLog("Creating Spells Complete")
ExitLoop
WEnd
EndIf
EndFunc ;CreateSpell
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(218, 319,5) ;Click Lightning Spell
ExitLoop (2)
WEnd
RE: pls Help me fixed CreateSpell.au3! - mtrong - 02-26-2015
replace with this code
While _ColorCheck(_GetPixelColor(251, 357), Hex(0x888888, 6), 20) = False
Click(218, 319,5) ;Click Lightning Spell
ExitLoop (2)
WEnd
[/quote]
huunguyen. u can writer code atk Dark Elixir Storage with Lightning Spell?
same atk TH ...
.
RE: pls Help me fixed CreateSpell.au3! - huunguyen - 02-27-2015
Yup!
I create lighting spell and search dark elixir storage. If dark elixir > some number. I will attack it with lighting spell. I will share it but my pc is weak so that I make every thing slower. It run perfect on my PC (Lenovo t61) ^.^
RE: pls Help me fixed CreateSpell.au3! - huunguyen - 02-27-2015
Link download it
https://www.dropbox.com/s/zf4yz5cigvgxbcd/COC-Bot-5.5.1.1_Mod_Atk_DE_Storage.rar?dl=0
I fixed something:
use for weak pc. (test okie on lenovo t60)
out of sync
create lighting spell and attack dark storage if de > 350
search deadbase if it is not deadbase but it has enought resource and th = 4-6 or 7 attack it (because my th = 8 ^.^)
fixed checkfullarmy = true (delete remain troops and create it again. create gaint and wb first...)
change drophero first ^.^ gaint - bar - arc - wb - bar-arc...
RE: pls Help me fixed CreateSpell.au3! - nhoc_ly - 02-27-2015
Huunguyen , Can you made in version 5.6.4 train spell and attack like that ?
RE: pls Help me fixed CreateSpell.au3! - scaarx - 02-27-2015
RE: pls Help me fixed CreateSpell.au3! - mtrong - 02-27-2015
RE: pls Help me fixed CreateSpell.au3! - huunguyen - 02-27-2015
find it in C:\COC-Bot-5.5.1.1\COCBot\functions\Attack\Attack Algorithms
if using algorithm_Barch.au3 you can add Attack Algorithms
$LSpell = -1
For $i = 0 To 8
If $atkTroops[$i][0] = $eBarbarian Then
$Barb = $i
ElseIf $atkTroops[$i][0] = $eArcher Then
$Arch = $i
ElseIf $atkTroops[$i][0] = $eCastle Then
$CC = $i
ElseIf $atkTroops[$i][0] = $eKing Then
$King = $i
ElseIf $atkTroops[$i][0] = $eQueen Then
$Queen = $i
ElseIf $atkTroops[$i][0] = $eLSpell Then
$LSpell = $i
EndIf
Next
;attack dark storage with lighting spell here
If(($DarkElixLocation = 1) And ($LSpell <> -1 And $DarkElixx <> 0)) Then
Click(68 + (72 * $LSpell), 595) ;Select Troop
If _Sleep(500) Then Return
Click($DarkElixx, $DarkElixy, 2)
EndIf
RE: pls Help me fixed CreateSpell.au3! - huunguyen - 02-27-2015
(02-27-2015, 10:10 AM)scaarx Wrote: @huunguyen
i want to remove the spell for the DE storage because the detection is kinda slow.
Can u tell me which line i need to delete? Because i want to try the the bully mode,
using hungle's mod or tbc's mod. if your pc is strong. all this mod work good
in root/COC Bot.au3
delete code
TrainSpell()
If _Sleep(1000) Then ExitLoop
and in root/COCBot/functions/Search/GetResources.au3
_Sleep(1000)
$DarkElixLocation = checkDarkElix()
If($searchDark < 350) Then
$DarkElixLocation = 0
$DarkElixx = 0
$DarkElixy = 0
EndIf
But i think that you should download tbc's mod. It work good everything. I only add something from this mod because i need more darkelixir.
cheers! ^.^