dark6death

Ok no need to be rude & i wasnt demanding i was asking nicely. Anyways i fixed this script by adding 12 to each coordinate so it should work now so enjoy. Opt("OnExitFunc", "_Exit") Global $Paused HotKeySet("{ESC}", "_Exit") HotKeySet("{SPACE}", "_Pause") Sleep(4000) While 1 Sleep(500) WinSetOnTop("AdventureQuest RPG - Mozilla Firefox","",1) If WinGetState("AdventureQuest RPG - Mozilla Firefox","") <> 32 Then WinSetState("AdventureQuest RPG - Mozilla Firefox","",@SW_MAXIMIZE ) EndIf Select Case _CheckFor("Dungeon") If _CheckFor("Life") Then _Click("Dungeon") Else _GoHealSelfAndReturn("Dungeon") EndIf Case _CheckFor("Attack") _Click("Attack") _Otherattacks() Case _CheckFor("Next") _Click("Next") Case _CheckFor("ZTokens") _Click("Next") Case _CheckFor("PotionChest") _Click("CheckForTraps") Case _CheckFor("LevelUp") _Click("Nextlevel") Case _CheckFor("TreasureHoard") _Click("OpenTreasureHoard") Case _CheckFor("HugeTreasureChest") _Click("OpenHugeTreasureChest") Case _CheckFor("SmallTreasureChest") _Click("OpenSmallTreasureChest") Case _CheckFor("Crossroads") _GoHealSelfAndReturn("Crossroads") Case _CheckFor("WereWolvesWar") If _CheckFor("Life") Then MouseClick("Left", 330, 342, 1) Else _GoHealSelfAndReturn("WereWolvesWar") EndIf Case _CheckFor("PlasmaDragons") _GoHealSelfAndReturn("PlasmaDragons") Case _checkFor("SpecialEvent") If _CheckFor("Life") Then MouseClick("Left", 271, 332, 1) Else _GoHealSelfAndReturn("SpecialEvent") EndIf EndSelect _Otherstuff() WEnd Func _Exit() WinSetOnTop("AdventureQuest RPG - Mozilla Firefox","",0) Exit EndFunc ;==>_Exit Func _Pause() $Paused = Not $Paused WinSetOnTop("AdventureQuest RPG - Mozilla Firefox","",0) While $Paused Sleep(100) WEnd EndFunc ;==>_Pause Func _CheckFor($what) Switch $what Case "Attack" If PixelGetColor(489, 289) = 0xFFFFFF And PixelGetColor(499, 265) = 0x000000 Then Return True EndIf Case "Next" If PixelGetColor(496, 421) = 0x000000 And PixelGetColor(522, 172) = 0x0066CC Then Return True EndIf Case "ZTokens" If PixelGetColor(525, 364) = 0xE3BC42 And PixelGetColor(526, 392) = 0x794B05 Then Return True EndIf Case "PotionChest" If PixelGetColor(854, 422) = 0x2B0000 And PixelGetColor(789, 424) And PixelGetColor(594, 426) = 0xF6E4BE Then Return True EndIf Case "Life" If PixelGetColor(333, 544) = 0xDD0000 Then Return True Else Return False EndIf Case "Dungeon" If PixelGetColor(517, 488) = 0xCCCC66 Then Return True EndIf Case "LevelUp" If PixelGetColor(327, 150) = 0xFFFF66 And PixelGetColor(327, 200) = 0xFFFF66 Then Return True EndIf Case "TreasureHoard" If PixelGetColor(841, 593) = 0xFFFA00 And PixelGetColor(568, 144) = 0x5C574B Then Return True EndIf Case "HugeTreasureChest" If PixelGetColor(835, 595) = 0xEFBC00 And PixelGetColor(769, 341) = 0x3F1F00 Then Return True EndIf Case "SmallTreasureChest" If PixelGetColor(575, 257) = 0xD6C6B2 And PixelGetColor(826, 606) = 0x996600 Then Return True EndIf Case "Crossroads" If PixelGetColor(876, 456) = 0x007FA5 And PixelGetColor(860, 564) = 0x41451F Then Return True EndIf Case "PlasmaDragons" If PixelGetColor(471, 130) = 0x660000 Then Return True EndIf Case "WereWolvesWar"; on WereWolves side. If PixelGetColor(834, 582) = 0x5C6654 And PixelGetColor(812, 293) = 0x403A35 Then Return True EndIf Case "SpecialEvent" Return False Case Else EndSwitch EndFunc ;==>_CheckFor Func _Click($where) Switch $where Case "Attack" MouseClick("left", 489, 289, 1, 1) Case "Next" MouseClick("left", 496, 426, 1, 1) Case "CheckForTraps" MouseClick("left", 609, 303, 1, 1) Sleep(2200) ;;;;clickopenit;;; MouseClick("left", 594, 267, 1, 1);;;;clickopenit;;; Sleep(2200) If PixelGetColor(663,138) = 0xE7DABD Then;; found trap MouseClick("Left",619,332,1,1) Sleep(2200) EndIf If PixelGetColor(545, 221) = 0x810000 Then;;got 3 health potions MouseClick("left", 538, 329, 1, 1);;;click OK ElseIf PixelGetColor(540, 221) = 0x00008D Then;;got 3 mana potions MouseClick("left", 538, 329, 1, 1);;;click OK Else MsgBox(0, "", "GET INFO and add to script. " & @CRLF & " The Box Exploded.") EndIf Case "Dungeon" MouseClick("left", 422, 345, 1, 1) Case "NextLevel" MouseClick("left", 527, 339, 1, 1) Case "OpenTreasureHoard" MouseClick("left", 537, 319, 1, 1) Case "OpenHugeTreasureChest" MouseClick("left", 537, 319, 1, 1) Case "OpenSmallTreasureChest" MouseClick("left", 537, 319, 1, 1) EndSwitch EndFunc ;==>_Click Func _Otherattacks() Sleep(750) Select Case (PixelGetColor(323, 132) = 0xD6CFE8) And (PixelGetColor(283, 165) = 0x402060); Lich Form $RadomAttack = Random(1, 3, 1) If $RadomAttack = 1 Then $RadomAttack = Random(1, 3, 1); low the % of 1 If $RadomAttack = 1 Then $RadomAttack = Random(1, 3, 1); low the % of 1 If $RadomAttack = 2 Then $RadomAttack = Random(2, 3, 1); increase % of 3 ;$RadomAttack = 3;temp, remove me later Switch $RadomAttack Case 1 MouseClick("left", 524, 155, 1, 1) Case 2 MouseClick("left", 524, 205, 1, 1) Case 3 MouseClick("left", 524, 250, 1, 1) EndSwitch EndSelect EndFunc ;==>_Otherattacks Func _Otherstuff() If PixelGetColor(812, 562) = 0xCD8F01 Then MouseClick("left", 600, 199, 1, 1) EndIf If PixelGetColor(778, 570) = 0x976A00 Then MouseClick("left", 565, 204, 1, 1) EndIf EndFunc ;==>_Otherstuff Func _GoHealSelfAndReturn($location) Select Case $location = "Dungeon" #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) WinWait("AdventureQuest RPG - Mozilla Firefox", "") If Not WinActive("AdventureQuest RPG - Mozilla Firefox", "") Then WinActivate("AdventureQuest RPG - Mozilla Firefox", "") WinWaitActive("AdventureQuest RPG - Mozilla Firefox", "") MouseMove(500, 491) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(363, 450) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(460, 231) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(860, 332) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(745, 291) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(592, 389) MouseDown("left") MouseUp("left") Sleep(1000) MouseDown("left") MouseUp("left") Sleep(1000) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(527, 277) MouseDown("left") MouseUp("left") Sleep(1000) #endregion --- ScriptWriter generated code End --- Case $location = "Crossroads" #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) WinWait("AdventureQuest RPG - Mozilla Firefox", "") If Not WinActive("AdventureQuest RPG - Mozilla Firefox", "") Then WinActivate("AdventureQuest RPG - Mozilla Firefox", "") WinWaitActive("AdventureQuest RPG - Mozilla Firefox", "") MouseMove(237, 371) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(354, 444) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(441, 224) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(726, 526) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(538, 200) MouseDown("left") MouseUp("left") Sleep(1500) MouseMove(274, 315) MouseDown("left") MouseUp("left") Sleep(2000) MouseMove(763, 143) MouseDown("left") MouseUp("left") Sleep(1000) #endregion --- ScriptWriter generated code End --- Case $location = "WereWolvesWar" #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) WinWait("AdventureQuest RPG - Mozilla Firefox", "") If Not WinActive("AdventureQuest RPG - Mozilla Firefox", "") Then WinActivate("AdventureQuest RPG - Mozilla Firefox", "") WinWaitActive("AdventureQuest RPG - Mozilla Firefox", "") MouseMove(314, 384) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(751, 387) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(754, 249) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(753, 202) MouseDown("left") MouseUp("left") Sleep(1200) MouseMove(512, 376) MouseDown("left") MouseUp("left") Sleep(1500) MouseMove(599, 305) MouseDown("left") MouseUp("left") Sleep(2500) MouseMove(330, 342) MouseDown("left") MouseUp("left") Sleep(1000) #endregion --- ScriptWriter generated code End --- Case $location = "PlasmaDragons" If PixelGetColor(478, 262) = 0xCE5942 Then #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) WinWait("AdventureQuest RPG - Mozilla Firefox", "") If Not WinActive("AdventureQuest RPG - Mozilla Firefox", "") Then WinActivate("AdventureQuest RPG - Mozilla Firefox", "") WinWaitActive("AdventureQuest RPG - Mozilla Firefox", "") MouseMove(412, 421) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(721, 519) MouseDown("left") MouseUp("left") Sleep(1800) MouseMove(590, 360) MouseDown("left") MouseUp("left") Sleep(2000) MouseMove(287, 314) MouseDown("left") MouseUp("left") Sleep(2500) MouseMove(423, 403) MouseDown("left") MouseUp("left") Sleep(2500) MouseMove(259, 370) MouseDown("left") MouseUp("left") Sleep(2500) MouseMove(683, 277) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(425, 362) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(596, 267) MouseDown("left") MouseUp("left") #endregion --- ScriptWriter generated code End --- Else #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) WinWait("AdventureQuest RPG - Mozilla Firefox", "") If Not WinActive("AdventureQuest RPG - Mozilla Firefox", "") Then WinActivate("AdventureQuest RPG - Mozilla Firefox", "") WinWaitActive("AdventureQuest RPG - Mozilla Firefox", "") MouseMove(692, 257) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(401, 370) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(596, 267) MouseDown("left") MouseUp("left") Sleep(1000) #endregion --- ScriptWriter generated code End --- EndIf Case $location = "SpecialEvent" #region --- ScriptWriter generated code Start --- Opt("WinWaitDelay", 100) Opt("WinTitleMatchMode", 4) Opt("WinDetectHiddenText", 1) Opt("MouseCoordMode", 0) WinWait("AdventureQuest RPG - Mozilla Firefox", "") If Not WinActive("AdventureQuest RPG - Mozilla Firefox", "") Then WinActivate("AdventureQuest RPG - Mozilla Firefox", "") WinWaitActive("AdventureQuest RPG - Mozilla Firefox", "") MouseMove(345, 420) MouseDown("left") MouseUp("left") Sleep(1000) MouseMove(676, 426) MouseDown("left") MouseMove(678, 424) MouseUp("left") Sleep(500) MouseMove(700, 321) MouseDown("left") MouseUp("left") Sleep(500) MouseMove(693, 277) MouseDown("left") MouseUp("left") Sleep(500) MouseMove(696, 307) MouseDown("left") MouseUp("left") Sleep(750) MouseMove(333, 261) MouseDown("left") MouseUp("left") Sleep(750) MouseMove(378, 235) MouseDown("left") MouseUp("left") Sleep(2000) MouseMove(243, 332) MouseDown("left") MouseUp("left") #endregion --- ScriptWriter generated code End --- EndSelect EndFunc ;==>_GoHealSelfAndReturn

no there is not a pvp or a defender medal bot for this game if there is could you show me the thread because i already searched and found nothing.

Can you make some for dragonfable like a pvp bot or a defender medal bot.

Bump!

yes i also would like a dragonfable war script & a pvp script for a warrior, mage & rogue please i use IE7 with 2 tabs my resolution is 768x1024 if anybody can do that i would apperciate thanks. ps i only use aimed on pvp & on the wars its fixed where the monster sets are.