Jump to content

Just sharing a game bot.


Recommended Posts

Here is a little script I use to play Adventure Quest RPG. This script is by no means a full bot for the game but it gets the job done. For this script to work, the following screen setting have to be in place:

1. 1012 X 768 desktop setting

2. 32 bit color

3. Full screen mode in Mozilla

4. 800 X 600 game play screen setting

The script is meant to do auto battle and in some places in the game it is set to run cycles to do battles and go heal the character then return to the battles. Maybe this will help some people in make their bots for there games.

Global $Paused
HotKeySet("{ESC}", "_Exit")
HotKeySet("{SPACE}", "_Pause")
Sleep(4000)
While 1
    Select
        Case _CheckForDungeon()
            If _CheckLife() Then
                _ClickDungeon()
            Else
                _GoHealSelfAndReturn("Dungeon")
            EndIf
        Case _CheckForAttack()
            _ClickAttack()
            _Otherattacks()
        Case _CheckForNext()
            _ClickNext()
        Case _CheckForZtokens()
            _ClickNext()
        Case _CheckForTreasure()
            _ClickLeaveIt()
        Case _CheckForLevelup()
            _ClickNextlevel()
        Case _CheckForTreasureHoard()
            _ClickOpenTreasureHoard()
        Case _CheckForHugeTreasureChest()
            _ClickOpenHugeTreasureChest()
        Case _CheckForSmallTreasureChest()
            _ClickOpenSmallTreasureChest()
        Case _CheckForCrossroads()
            _GoHealSelfAndReturn("Crossroads")
        Case _CheckForWereWolvesWar()
            If _CheckLife() Then
                MouseClick("Left", 318, 342, 1)
            Else
                _GoHealSelfAndReturn("WereWolvesWar")
            EndIf
        Case _PlasmaDragons()
            _GoHealSelfAndReturn("PlasmaDragons")
        Case _checkForSpecialEvent()
            If _CheckLife() Then
                MouseClick("Left", 259, 332, 1)
            Else
            _GoHealSelfAndReturn("SpecialEvent")
            EndIf
    EndSelect
    _Otherstuff()
WEnd
Func _Exit()
    Exit
EndFunc  ;==>_Exit
Func _Pause()
    $Paused = Not $Paused
    While $Paused
        Sleep(100)
    WEnd
EndFunc  ;==>_Pause
Func _CheckForAttack()
    If PixelGetColor(477, 289) = 0xFFFFFF And PixelGetColor(487, 265) = 0x000000 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForAttack
Func _ClickAttack()
    MouseClick("left", 477, 289, 1, 1)
;Sleep(2000)
EndFunc  ;==>_ClickAttack
Func _CheckForNext()
    If PixelGetColor(484, 421) = 0x000000 And PixelGetColor(510, 172) = 0x0066CC Then
        Return True
    EndIf
EndFunc  ;==>_CheckForNext
Func _ClickNext()
    MouseClick("left", 484, 426, 1, 1)
    Sleep(200)
EndFunc  ;==>_ClickNext
Func _CheckForZtokens()
    If PixelGetColor(513, 364) = 0xE3BC42 And PixelGetColor(514, 392) = 0x794B05 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForZtokens
Func _CheckForTreasure()
    If PixelGetColor(842, 422) = 0x2B0000 And PixelGetColor(777, 424) = 0x994C00 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForTreasure
Func _ClickLeaveIt()
    MouseClick("left", 593, 399, 1, 1)
    Sleep(200)
EndFunc  ;==>_ClickLeaveIt
Func _CheckLife()
    If PixelGetColor(321, 544) = 0xDD0000 Then
        Return True
    Else
        Return False
    EndIf
EndFunc  ;==>_CheckLife
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(488, 491)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(351, 450)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(448, 231)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(848, 332)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(733, 291)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(580, 389)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(515, 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(225, 371)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(342, 444)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(429, 224)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(714, 526)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(526, 200)
            MouseDown("left")
            MouseUp("left")
            Sleep(1500)
            MouseMove(262, 315)
            MouseDown("left")
            MouseUp("left")
            Sleep(2000)
            MouseMove(751, 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(302, 384)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(739, 387)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(742, 249)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(741, 202)
            MouseDown("left")
            MouseUp("left")
            Sleep(1200)
            MouseMove(500, 376)
            MouseDown("left")
            MouseUp("left")
            Sleep(1500)
            MouseMove(587, 305)
            MouseDown("left")
            MouseUp("left")
            Sleep(2500)
            MouseMove(318, 342)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            #endregion --- ScriptWriter generated code End ---
        Case $location = "PlasmaDragons"
            If PixelGetColor(466, 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(400, 421)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(709, 519)
                MouseDown("left")
                MouseUp("left")
                Sleep(1800)
                MouseMove(578, 360)
                MouseDown("left")
                MouseUp("left")
                Sleep(2000)
                MouseMove(275, 314)
                MouseDown("left")
                MouseUp("left")
                Sleep(2500)
                MouseMove(411, 403)
                MouseDown("left")
                MouseUp("left")
                Sleep(2500)
                MouseMove(247, 370)
                MouseDown("left")
                MouseUp("left")
                Sleep(2500)
                MouseMove(671, 277)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(413, 362)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(584, 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(680, 257)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(389, 370)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(584, 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(333,420)
MouseDown("left")
MouseUp("left")
Sleep(1000)
MouseMove(664,426)
MouseDown("left")
MouseMove(666,424)
MouseUp("left")
Sleep(500)
MouseMove(688,321)
MouseDown("left")
MouseUp("left")
Sleep(500)
MouseMove(681,277)
MouseDown("left")
MouseUp("left")
Sleep(500)
MouseMove(684,307)
MouseDown("left")
MouseUp("left")
Sleep(750)
MouseMove(321,261)
MouseDown("left")
MouseUp("left")
Sleep(750)
MouseMove(366,235)
MouseDown("left")
MouseUp("left")
Sleep(2000)
MouseMove(231,332)
MouseDown("left")
MouseUp("left")

#endregion --- ScriptWriter generated code End --- 



    EndSelect
EndFunc  ;==>_GoHealSelfAndReturn
Func _CheckForDungeon()
    If PixelGetColor(505, 488) = 0xCCCC66 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForDungeon
Func _ClickDungeon()
    MouseClick("left", 410, 345, 1, 1)
    Sleep(2000)
EndFunc  ;==>_ClickDungeon
Func _CheckForLevelup()
    If PixelGetColor(315, 150) = 0xFFFF66 And PixelGetColor(315, 200) = 0xFFFF66 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForLevelup
Func _ClickNextlevel()
    MouseClick("left", 515, 339, 1, 1)
    Sleep(2000)
EndFunc  ;==>_ClickNextlevel
Func _CheckForTreasureHoard()
    If PixelGetColor(829, 593) = 0xFFFA00 And PixelGetColor(556, 144) = 0x5C574B Then
        Return True
    EndIf
EndFunc  ;==>_CheckForTreasureHoard
Func _ClickOpenTreasureHoard()
    MouseClick("left", 525, 319, 1, 1)
    Sleep(2000)
EndFunc  ;==>_ClickOpenTreasureHoard
Func _CheckForHugeTreasureChest()
    If PixelGetColor(823, 595) = 0xEFBC00 And PixelGetColor(757, 341) = 0x3F1F00 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForHugeTreasureChest
Func _ClickOpenHugeTreasureChest()
    MouseClick("left", 525, 319, 1, 1)
    Sleep(2000)
EndFunc  ;==>_ClickOpenHugeTreasureChest
Func _CheckForSmallTreasureChest()
    If PixelGetColor(563, 257) = 0xD6C6B2 And PixelGetColor(814, 606) = 0x996600 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForSmallTreasureChest
Func _ClickOpenSmallTreasureChest()
    MouseClick("left", 525, 319, 1, 1)
    Sleep(2000)
EndFunc  ;==>_ClickOpenSmallTreasureChest
Func _CheckForCrossroads()
    If PixelGetColor(864, 456) = 0x007FA5 And PixelGetColor(848, 564) = 0x41451F Then
        Return True
    EndIf
EndFunc  ;==>_CheckForCrossroads
Func _PlasmaDragons()
    If PixelGetColor(459, 130) = 0x660000 Then
        Return True
    EndIf
EndFunc  ;==>_PlasmaDragons
Func _CheckForWereWolvesWar()
    If PixelGetColor(822, 582) = 0x5C6654 And PixelGetColor(800, 293) = 0x403A35 Then
        Return True
    EndIf
EndFunc  ;==>_CheckForWereWolvesWar
Func _CheckForSpecialEvent()
    If PixelGetColor(638,166) = 0xFFB5B5 And PixelGetColor(780,434) = 0xFFFF00 Then
        Return True
    EndIf
EndFunc
Func _Otherattacks()
    Sleep(750)
    Select
        Case (PixelGetColor(311, 132) = 0xD6CFE8) And (PixelGetColor(271, 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", 512, 155, 1, 1)
                Case 2
                    MouseClick("left", 512, 205, 1, 1)
                Case 3
                    MouseClick("left", 512, 250, 1, 1)
            EndSwitch
    EndSelect
EndFunc  ;==>_Otherattacks
Func _Otherstuff()
    If PixelGetColor(800, 562) = 0xCD8F01 Then
        MouseClick("left", 588, 199, 1, 1)
    EndIf
    If PixelGetColor(766, 570) = 0x976A00 Then
        MouseClick("left", 553, 204, 1, 1)
    EndIf
EndFunc  ;==>_Otherstuff

.

Link to comment
Share on other sites

Nice script :D i did not use it, but it is great to look at and see how things work. thanks mate :wacko:

Thank you for taking a look. Here is a different version of the same script, I have add alittle to it too.

I add a feature to make sure the game does not get interupted by software update popups or what ever else whats to popup.

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", 318, 342, 1)
            Else
                _GoHealSelfAndReturn("WereWolvesWar")
            EndIf
        Case _CheckFor("PlasmaDragons")
            _GoHealSelfAndReturn("PlasmaDragons")
        Case _checkFor("SpecialEvent")
            If _CheckFor("Life") Then
                MouseClick("Left", 259, 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(477, 289) = 0xFFFFFF And PixelGetColor(487, 265) = 0x000000 Then
                Return True
            EndIf
        Case "Next"
            If PixelGetColor(484, 421) = 0x000000 And PixelGetColor(510, 172) = 0x0066CC Then
                Return True
            EndIf
        Case "ZTokens"
            If PixelGetColor(513, 364) = 0xE3BC42 And PixelGetColor(514, 392) = 0x794B05 Then
                Return True
            EndIf
        Case "PotionChest"
            If PixelGetColor(842, 422) = 0x2B0000 And PixelGetColor(777, 424) And PixelGetColor(582, 426) = 0xF6E4BE Then
                Return True
            EndIf
        Case "Life"
            If PixelGetColor(321, 544) = 0xDD0000 Then
                Return True
            Else
                Return False
            EndIf
        Case "Dungeon"
            If PixelGetColor(505, 488) = 0xCCCC66 Then
                Return True
            EndIf
        Case "LevelUp"
            If PixelGetColor(315, 150) = 0xFFFF66 And PixelGetColor(315, 200) = 0xFFFF66 Then
                Return True
            EndIf
        Case "TreasureHoard"
            If PixelGetColor(829, 593) = 0xFFFA00 And PixelGetColor(556, 144) = 0x5C574B Then
                Return True
            EndIf
        Case "HugeTreasureChest"
            If PixelGetColor(823, 595) = 0xEFBC00 And PixelGetColor(757, 341) = 0x3F1F00 Then
                Return True
            EndIf
        Case "SmallTreasureChest"
            If PixelGetColor(563, 257) = 0xD6C6B2 And PixelGetColor(814, 606) = 0x996600 Then
                Return True
            EndIf
        Case "Crossroads"
            If PixelGetColor(864, 456) = 0x007FA5 And PixelGetColor(848, 564) = 0x41451F Then
                Return True
            EndIf
        Case "PlasmaDragons"
            If PixelGetColor(459, 130) = 0x660000 Then
                Return True
            EndIf
        Case "WereWolvesWar"; on WereWolves side.
            If PixelGetColor(822, 582) = 0x5C6654 And PixelGetColor(800, 293) = 0x403A35 Then
                Return True
            EndIf
        Case "SpecialEvent"
            Return False
        Case Else
    EndSwitch
EndFunc   ;==>_CheckFor
Func _Click($where)
    Switch $where
        Case "Attack"
            MouseClick("left", 477, 289, 1, 1)
        Case "Next"
            MouseClick("left", 484, 426, 1, 1)
        Case "CheckForTraps"
            MouseClick("left", 597, 303, 1, 1)
            Sleep(2200)
            ;;;;clickopenit;;;
            MouseClick("left", 582, 267, 1, 1);;;;clickopenit;;;
            Sleep(2200)
            If PixelGetColor(651,138) = 0xE7DABD Then ;; found trap
                MouseClick("Left",607,332,1,1)
                Sleep(2200)
            EndIf
            If PixelGetColor(533, 221) = 0x810000 Then ;;got 3 health potions
                MouseClick("left", 526, 329, 1, 1);;;click OK
            ElseIf PixelGetColor(528, 221) = 0x00008D Then ;;got 3 mana potions
                MouseClick("left", 526, 329, 1, 1);;;click OK
            Else
                MsgBox(0, "", "GET INFO and add to script. " & @CRLF & " The Box Exploded.")
            EndIf
        Case "Dungeon"
            MouseClick("left", 410, 345, 1, 1)
        Case "NextLevel"
            MouseClick("left", 515, 339, 1, 1)
        Case "OpenTreasureHoard"
            MouseClick("left", 525, 319, 1, 1)
        Case "OpenHugeTreasureChest"
            MouseClick("left", 525, 319, 1, 1)
        Case "OpenSmallTreasureChest"
            MouseClick("left", 525, 319, 1, 1)
        
    EndSwitch
EndFunc   ;==>_Click
Func _Otherattacks()
    Sleep(750)
    Select
        Case (PixelGetColor(311, 132) = 0xD6CFE8) And (PixelGetColor(271, 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", 512, 155, 1, 1)
                Case 2
                    MouseClick("left", 512, 205, 1, 1)
                Case 3
                    MouseClick("left", 512, 250, 1, 1)
            EndSwitch
    EndSelect
EndFunc   ;==>_Otherattacks
Func _Otherstuff()
    If PixelGetColor(800, 562) = 0xCD8F01 Then
        MouseClick("left", 588, 199, 1, 1)
    EndIf
    If PixelGetColor(766, 570) = 0x976A00 Then
        MouseClick("left", 553, 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(488, 491)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(351, 450)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(448, 231)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(848, 332)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(733, 291)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(580, 389)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(515, 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(225, 371)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(342, 444)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(429, 224)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(714, 526)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(526, 200)
            MouseDown("left")
            MouseUp("left")
            Sleep(1500)
            MouseMove(262, 315)
            MouseDown("left")
            MouseUp("left")
            Sleep(2000)
            MouseMove(751, 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(302, 384)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(739, 387)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(742, 249)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(741, 202)
            MouseDown("left")
            MouseUp("left")
            Sleep(1200)
            MouseMove(500, 376)
            MouseDown("left")
            MouseUp("left")
            Sleep(1500)
            MouseMove(587, 305)
            MouseDown("left")
            MouseUp("left")
            Sleep(2500)
            MouseMove(318, 342)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            #endregion --- ScriptWriter generated code End ---
        Case $location = "PlasmaDragons"
            If PixelGetColor(466, 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(400, 421)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(709, 519)
                MouseDown("left")
                MouseUp("left")
                Sleep(1800)
                MouseMove(578, 360)
                MouseDown("left")
                MouseUp("left")
                Sleep(2000)
                MouseMove(275, 314)
                MouseDown("left")
                MouseUp("left")
                Sleep(2500)
                MouseMove(411, 403)
                MouseDown("left")
                MouseUp("left")
                Sleep(2500)
                MouseMove(247, 370)
                MouseDown("left")
                MouseUp("left")
                Sleep(2500)
                MouseMove(671, 277)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(413, 362)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(584, 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(680, 257)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(389, 370)
                MouseDown("left")
                MouseUp("left")
                Sleep(1000)
                MouseMove(584, 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(333, 420)
            MouseDown("left")
            MouseUp("left")
            Sleep(1000)
            MouseMove(664, 426)
            MouseDown("left")
            MouseMove(666, 424)
            MouseUp("left")
            Sleep(500)
            MouseMove(688, 321)
            MouseDown("left")
            MouseUp("left")
            Sleep(500)
            MouseMove(681, 277)
            MouseDown("left")
            MouseUp("left")
            Sleep(500)
            MouseMove(684, 307)
            MouseDown("left")
            MouseUp("left")
            Sleep(750)
            MouseMove(321, 261)
            MouseDown("left")
            MouseUp("left")
            Sleep(750)
            MouseMove(366, 235)
            MouseDown("left")
            MouseUp("left")
            Sleep(2000)
            MouseMove(231, 332)
            MouseDown("left")
            MouseUp("left")
            #endregion --- ScriptWriter generated code End ---
    EndSelect
EndFunc   ;==>_GoHealSelfAndReturn

Also, this in beta.

.

Link to comment
Share on other sites

  • 6 months later...

I was trying to test this,but my comp doesnt support that resolution. :P

Maybe in your next release(if there is one),you could convert,add a setting option,or make a version that works with 1024X768 resolution as I think thats the closest "normal" resolution setting to the one you use and require for your script to run properly.Thanks for sharing the code and allowing others to learn from it. :">

Link to comment
Share on other sites

If i'm not mistaken there is already some script(s) for dragonfable,although i'm not posative.As for the 1012 resolution,ya i'm still perplexed by that,I know my card(ATI) doesn't support it. :P

Link to comment
Share on other sites

@dark6death : What about doing some work of your own and actually attempt to make one yourself,

instead of asking people to make it for you in every post you make ? If you came here and thought you

could just order something for free, then think again. As they say : We're not your scripting-slaves !

Some people have used hours and hours to gain their AutoIt-knowledge, and you think they're gonna

just hand something over to you just like that ?

EDIT : The greatest part is that you're asking someone to make something for you, so you can do even

less in a game, which I'm pretty sure is supposed to be fun to play. You just leveled up in laziness.

Edited by Helge
Link to comment
Share on other sites

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
Link to comment
Share on other sites

  • 1 year later...

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...