How can i fix the long unneeded sleep after battleend`? it waits for a minute or so after the next screen shows and it doesent need that.
It happens on ShadowedByDarkness.
";~ Title: Shadowed by Darkness bot
;~ Author: Exico
;~ Version: 1.006
;~ Date of release: 14/08/2011
;~ Description: Shadowed by Darkness bot by exico
;~ Shadowed by Darkness bot files
fileInstall("sources\ShadowedByDarkness.jpg", @
TempDir & "\files\ShadowedByDarkness.jpg")
;~ Shadowed by Darkness bot counter
Func ShadowedByDarknessBot()
$DungeonCount = $Noruns
$Runcounter = 0
do
$Runcounter = $Runcounter + 1
tooltip("Run " & $Runcounter & " of " & $Noruns & ". Press " & $hotpause & " to stop.", 230, 70, "Bot info", 1, 1)
ShadowedByDarknessBot2()
$DungeonCount = $DungeonCount - 1
until $DungeonCount = 0
MsgBox(0, "Done!", "Operation complete, press OK to exit")
EndFunc
;~ Shadowed by Darkness bot actions
Func ShadowedByDarknessBot2()
;Start the boat
Send("{ALT DOWN}")
MouseClick ( "left" , $StartXpos, $StartYpos , 2 , 20 )
Send("{ALT UP}")
;wait the start
sleep(3000)
Send("{DEL}")
sleep(5000)
sleep($boatstartTime)
;Wait if Set
sleep($runwait)
sleep($randomtime)
;Go to last map
Send($skipmap)
Sleep($lastTime)
Send("{w down}")
sleep(4000)
Send("{w up}")
; List of commands for kill bosses
Send($god & $ohk & $spears);In sequence: No death,1hitkill,999spears,immortality
sleep(12000)
;Spam transformation
$Counter2 = $Counter + 1
SpearSpam()
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
until $Counter2 = 0
; Melee Attack - Testing
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
;Wait for End Battle screen
Sleep($battleendTime)
If PixelCheckEndBattle() = 0 Then
$Counter2 = $Counter + 1
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
until $Counter2 = 0
Sleep($battleendTime)
EndIf
;Push Replay button
Send("{ALT DOWN}")
MouseClick ( "left" , $NextXpos, $NextYpos , 2 , 10 )
Send("{ALT UP}")
sleep(12000)
Send("{ALT DOWN}")
MouseClick ( "left" , $ReplayXpos, $ReplayYpos , 2 , 10 )
Send("{ALT UP}")
;Wait for the boat
Sleep($boatreturnTime)
EndFunc"