I got no drop on any map.


;~ Title: Kobold Chief bot
;~ Kobold Chief bot files
fileInstall("sources\KoboldChief.jpg", @TempDir & "\files\KoboldChief.jpg")
;~ Kobold Chief bot counter
Func KoboldChiefBot()
$DungeonCount = $Noruns
$Runcounter = 0
do
$Runcounter = $Runcounter + 1
tooltip("Run " & $Runcounter & " of " & $Noruns & ". Press " & $hotpause & " to stop.", 230, 70, "Bot info", 1, 1)
KoboldChiefBot2()
$DungeonCount = $DungeonCount - 1
until $DungeonCount = 0
MsgBox(0, "Done!", "Operation complete, press OK to exit")
EndFunc
;~ Kobold Chief bot actions
Func KoboldChiefBot2()
;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($WaitTime)
Send($skipmap)
Sleep($WaitTime)
Send($skipmap)
Sleep($lastTime)
; List of commands for kill bosses
Send($god & $ohk & $spears)
;run to the boss
Send("{w down}")
sleep(2000)
send("{w up}")
Send("{a down}") ;Holds the w key down
sleep(10000)
send("{a up}")
Send("{s down}")
sleep(1500)
send("{s up}")
sleep(50)
Send("{a down}")
sleep(5000)
Send("{a up}")
sleep(5000)
MouseMove ( $MoveXpos, $MoveYpos , 10 )
MouseMove ( $MoveXpos, $MoveYpos , 10 )
MouseMove ( $MoveXpos, $MoveYpos , 10 )
;~ bosses
$Counter2 = $Counter
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
MouseMove ( $MoveXpos, $MoveYpos , 10 )
until $Counter2 = 0
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
MouseClick("left")
sleep (100)
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
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
MouseMove ( $MoveXpos, $MoveYpos , 10 )
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
;~ Title: Prepare For Counter Attack bot
;~ Author: Exico
;~ Version: 1.001
;~ Date of release: 14/08/2011
;~ Description: Prepare For Counter Attack bot by exico
;~ Prepare For Counter Attack bot files
fileInstall("sources\PrepareForCounterAttack.jpg", @TempDir & "\files\PrepareForCounterAttack.jpg")
;~ Prepare For Counter Attack bot counter
Func PrepareForCounterAttackBot()
$DungeonCount = $Noruns
$Runcounter = 0
do
$Runcounter = $Runcounter + 1
tooltip("Run " & $Runcounter & " of " & $Noruns & ". Press " & $hotpause & " to stop.", 230, 70, "Bot info", 1, 1)
PrepareForCounterAttackBot2()
$DungeonCount = $DungeonCount - 1
until $DungeonCount = 0
MsgBox(0, "Done!", "Operation complete, press OK to exit")
EndFunc
;~ Prepare For Counter Attack bot actions
Func PrepareForCounterAttackBot2()
;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($WaitTime)
Send($skipmap)
Sleep($lastTime)
; List of commands for kill bosses
Send($god & $ohk & $spears)
;run to the boss
Send("{w down}")
sleep(4700)
send("{w up}")
Send("{a down}") ;Holds the w key down
sleep(7000)
send("{a up}")
Send("{s down}")
sleep(1700)
send("{s up}")
Send("{a down}")
sleep(15000)
Send("{a up}")
MouseMove ( $MoveXpos, $MoveYpos , 10 )
MouseMove ( $MoveXpos, $MoveYpos , 10 )
MouseMove ( $MoveXpos, $MoveYpos , 10 )
;~ First boss
$Counter2 = $Counter
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
MouseMove ( $MoveXpos, $MoveYpos , 10 )
until $Counter2 = 0
sleep(63000)
;~ second boss
$Counter2 = $Counter
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
MouseMove ( $MoveXpos, $MoveYpos , 10 )
until $Counter2 = 0
sleep(160000)
;~ Third boss
$Counter2 = $Counter
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
MouseMove ( $MoveXpos, $MoveYpos , 10 )
until $Counter2 = 0
sleep(160000)
;~ 4th boss
$Counter2 = $Counter
do
$Counter2 = $Counter2 - 1
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
MouseMove ( $MoveXpos, $MoveYpos , 10 )
until $Counter2 = 0
;Wait for End Battle screen
Sleep($battleendTime)
If PixelCheckEndBattle() = 0 Then
$Counter2 = $Counter
do
$Counter2 = $Counter2
If $killmode = "spears" then
SpearSpam()
Elseif $killmode = "trans" then
TransSpam()
endif
MouseMove ( $MoveXpos, $MoveYpos , 10 )
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