![[Release] Multi-Resolution AutoShopkeeper Source](https://www.elitepvpers.com/forum/iconimages/dekaron-exploits-hacks-bots-tools-macros/release-multi-resolution-autoshopkeeper-source_ltr.gif){kind=small}
Please do not pm me asking me how to get this to work.I have abandoned this project. I do not want all of the time and effort I put into this to go to waste so I am releasing the source in hopes that it will be helpful to someone. I haven't tried this since Expedition so I don't know if it needs any tweaking. Maybe if someone is working on or planning to work on a bot this will give them a good start.
THe Jpg files and the sources are located in the attachment.
Here is the source for the bot itself:
#include <GUIConstantsEx.au3>
#include <Misc.au3>
#include <GuiEdit.au3>
#include <Array.au3>
#include <ButtonConstants.au3>
;sets up end key to exit script
Break(0)
HotKeySet("{end}", "Terminate")
Global $Paused
HotKeySet("{PAUSE}", "TogglePause")
Opt("SendKeyDownDelay", 1)
IniWrite(@ScriptDir & "\shop.ini", "NOTICE", "THIS PROGRAM WAS RELEASED AT elitepvpers.com", "BY Mithandir1")
IniWrite(@ScriptDir & "\shop.ini", "NOTICE", "IF YOU GOT THIS SOMEWHERE ELSE IT WAS LEECHED WITHOUT THE AUTHORS CONSENT!", "LEECHED!")
;declare all nonvariable global coords!!!
;ggkiller launch button
Global $launch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "launchX", "")
Global $launch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "launchY", "")
;failsafe 1(server/login screen pixel search area)
Global $check1_X = IniRead(@ScriptDir & "\shop.ini", "coords", "check1X", "")
Global $check1_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "check1Y", "")
Global $check2_X = IniRead(@ScriptDir & "\shop.ini", "coords", "check2X", "")
Global $check2_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "check2Y", "")
;failsafe 2(detect white text on char select screen)
Global $charcheck1_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard1X", "")
Global $charcheck1_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard1Y", "")
Global $charcheck2_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char3X", "")
Global $charcheck2_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char3Y", "")
;ok button on server screen
Global $OK_X = IniRead(@ScriptDir & "\shop.ini", "coords", "OKX", "")
Global $OK_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "OKY", "")
;ID login box on login screen
Global $login_X = IniRead(@ScriptDir & "\shop.ini", "coords", "LoginX", "")
Global $login_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "LoginY", "")
;connect button on shard/character select screen
Global $Conn_X = IniRead(@ScriptDir & "\shop.ini", "coords", "ConnX", "")
Global $Conn_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "ConnY", "")
;shop name input box
Global $shop_X = IniRead(@ScriptDir & "\shop.ini", "coords", "shopX", "")
Global $shop_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "shopY", "")
;shop open button
Global $shopopen_X = IniRead(@ScriptDir & "\shop.ini", "coords", "openX", "")
Global $shopopen_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "openY", "")
;failsafe2(map/Dshop pixelsearch area)
Global $Dshop1_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Dshop1X", "")
Global $Dshop1_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Dshop1Y", "")
Global $Dshop2_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Dshop2X", "")
Global $Dshop2_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Dshop2Y", "")
;failsafe3(fatalerror detect pixel search area)
Global $error1_X = IniRead(@ScriptDir & "\shop.ini", "coords", "error1X", "")
Global $error1_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "error1Y", "")
Global $error2_X = IniRead(@ScriptDir & "\shop.ini", "coords", "error2X", "")
Global $error2_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "error2Y", "")
Local $id = ("User Id")
Local $pw = ("password")
Local $se = ("path")
Local $gp = ("path")
Local $sn = ("shop name")
$id = IniRead(@ScriptDir & "\shop.ini", "settings", "ID", "")
$pw = IniRead(@ScriptDir & "\shop.ini", "settings", "PW", "")
$sn = IniRead(@ScriptDir & "\shop.ini", "settings", "SN", "")
$se = IniRead(@ScriptDir & "\shop.ini", "settings", "SE", "")
$gp = IniRead(@ScriptDir & "\shop.ini", "settings", "GP", "")
$c = IniRead(@ScriptDir & "\shop.ini", "settings", "c", "")
$s = IniRead(@ScriptDir & "\shop.ini", "settings", "s", "")
$g = IniRead(@ScriptDir & "\shop.ini", "settings", "g", "")
$Form1_1 = GUICreate("Trainable AutoShop BETA v.1", 469, 428, 195, 127)
GUISetBkColor(0xA6CAF0)
$Input1 = GUICtrlCreateInput($id, 24, 32, 121, 21)
GUICtrlSetTip(-1, "Enter User ID Here.")
$Input2 = GUICtrlCreateInput($pw, 24, 80, 121, 21, $ES_PASSWORD)
GUICtrlSetTip(-1, "Enter Password Here")
$Input4 = GUICtrlCreateInput($se, 8, 320, 380, 21)
GUICtrlSetTip(-1, "Path to launcher.exe")
$Label1 = GUICtrlCreateLabel("User ID", 24, 8, 66, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label2 = GUICtrlCreateLabel("Password", 24, 56, 81, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Abaddon = GUICtrlCreateRadio("Abaddon", 24, 152, 65, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$Trieste = GUICtrlCreateRadio("Trieste", 24, 184, 65, 17)
$servergroup = GUICtrlCreateGroup("Server Group", 16, 136, 81, 81)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$ch1 = GUICtrlCreateRadio("Character 1", 168, 32, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$ch2 = GUICtrlCreateRadio("Character 2", 168, 56, 113, 17)
$ch3 = GUICtrlCreateRadio("Character 3", 168, 80, 113, 17)
$ch4 = GUICtrlCreateRadio("Character 4", 168, 104, 113, 17)
$ch5 = GUICtrlCreateRadio("Character 5", 168, 128, 113, 17)
$ch6 = GUICtrlCreateRadio("Character 6", 168, 152, 113, 17)
$Character = GUICtrlCreateGroup("Character", 152, 16, 121, 169)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Checkbox1 = GUICtrlCreateCheckbox("Logged In", 32, 112, 97, 17)
$sh1 = GUICtrlCreateRadio("Shard 1", 320, 32, 113, 17)
GUICtrlSetState(-1, $GUI_CHECKED)
$sh2 = GUICtrlCreateRadio("Shard 2", 320, 56, 113, 17)
$sh3 = GUICtrlCreateRadio("Shard 3", 320, 80, 113, 17)
$sh4 = GUICtrlCreateRadio("Shard 4", 320, 104, 113, 17)
$sh5 = GUICtrlCreateRadio("Shard 5", 320, 128, 113, 17)
;$sh6 = GUICtrlCreateRadio("Random", 320, 152, 113, 17) may add this at a later time
$shardgroup = GUICtrlCreateGroup("Shard", 304, 16, 113, 169)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Input3 = GUICtrlCreateInput($sn, 16, 256, 169, 21)
$Label3 = GUICtrlCreateLabel("Shop Name", 16, 224, 97, 24)
GUICtrlSetFont(-1, 12, 800, 0, "MS Sans Serif")
$Label4 = GUICtrlCreateLabel("Path to GameGuard Killer:", 8, 288, 216, 28)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$Label5 = GUICtrlCreateLabel("Press Pause/Break to Pause. Press End to Exit.", 8, 400, 336, 20)
GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
$startbutton = GUICtrlCreateButton("Start", 320, 256, 105, 21, 0)
$pathbutton = GUICtrlCreateButton("(Not allowed)", 392, 320, 38, 22, $BS_BITMAP)
GUICtrlSetImage(-1, "C:\Documents and Settings\user\Desktop\myscripts\shop_ini\folder.bm p", 0)
;$Input5 = GUICtrlCreateInput($gp, 8, 368, 380, 21)
;GUICtrlSetTip(-1, "Path to Dekaron.exe")
;$Label6 = GUICtrlCreateLabel("Path to Dekaron_nsse.exe:", 8, 344, 208, 20)
;GUICtrlSetFont(-1, 10, 800, 0, "MS Sans Serif")
;$gamepathbutton = GUICtrlCreateButton("(Not allowed)", 392, 368, 38, 22, $BS_BITMAP)
;GUICtrlSetImage(-1, "C:\Documents and Settings\user\Desktop\myscripts\shop_ini\folder2.b mp", 0)
GUISetState(@SW_SHOW)
Switch ($c)
Case "1"
GUICtrlSetState($ch1, $GUI_CHECKED)
Case "2"
GUICtrlSetState($ch2, $GUI_CHECKED)
Case "3"
GUICtrlSetState($ch3, $GUI_CHECKED)
Case "4"
GUICtrlSetState($ch4, $GUI_CHECKED)
Case "5"
GUICtrlSetState($ch5, $GUI_CHECKED)
Case "6"
GUICtrlSetState($ch6, $GUI_CHECKED)
EndSwitch
Switch ($s);
Case "1"
GUICtrlSetState($sh1, $GUI_CHECKED)
Case "2"
GUICtrlSetState($sh2, $GUI_CHECKED)
Case "3"
GUICtrlSetState($sh3, $GUI_CHECKED)
Case "4"
GUICtrlSetState($sh4, $GUI_CHECKED)
Case "5"
GUICtrlSetState($sh5, $GUI_CHECKED)
;Case "6"
; GUICtrlSetState($sh6, $GUI_CHECKED)
EndSwitch
Switch ($g)
Case "1"
GUICtrlSetState($Abaddon, $GUI_CHECKED)
Case "2"
GUICtrlSetState($Trieste, $GUI_CHECKED)
EndSwitch
$count = 0
While 1
Switch GUIGetMsg()
Case $startbutton
Call("main")
Case $pathbutton
Call("file")
EndSwitch
WEnd
Func gpath()
;$gamepath = FileOpenDialog("Path to GG Killer Launcher", @DesktopDir , "Shortcut (*.lnk)", 1 + 4)
; GUICtrlSetData ( $input5, $gamepath )
; IniWrite(@ScriptDir & "\shop.ini", "settings", "GP", $gamepath)
Sleep(10)
EndFunc ;==>gpath
Func file()
$path = FileOpenDialog("Path to Gameguard Killer", @DesktopDir & "\Acclaim\2moons\bin", "launcher (*lnk;*.exe)", 1 + 4)
GUICtrlSetData($Input4, $path)
IniWrite(@ScriptDir & "\shop.ini", "settings", "SE", $path)
Sleep(10)
EndFunc ;==>file
Func save();saves settings to shop.ini
IniWrite(@ScriptDir & "\shop.ini", "settings", "ID", GUICtrlRead($Input1))
IniWrite(@ScriptDir & "\shop.ini", "settings", "PW", GUICtrlRead($Input2))
IniWrite(@ScriptDir & "\shop.ini", "settings", "SN", GUICtrlRead($Input3))
IniWrite(@ScriptDir & "\shop.ini", "settings", "SE", GUICtrlRead($Input4))
Select
Case (GUICtrlRead($ch1) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "c", "1")
Case (GUICtrlRead($ch2) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "c", "2")
Case (GUICtrlRead($ch3) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "c", "3")
Case (GUICtrlRead($ch4) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "c", "4")
Case (GUICtrlRead($ch5) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "c", "5")
Case (GUICtrlRead($ch6) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "c", "6")
EndSelect
Select
Case (GUICtrlRead($sh1) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "s", "1")
Case (GUICtrlRead($sh2) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "s", "2")
Case (GUICtrlRead($sh3) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "s", "3")
Case (GUICtrlRead($sh4) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "s", "4")
Case (GUICtrlRead($sh5) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "s", "5")
;case(GUICtrlRead($sh6) == $GUI_CHECKED) related to random shard to be used later
;IniWrite("shop.ini", "settings", "s", "6")
EndSelect
Select
Case (GUICtrlRead($Abaddon) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "g", "1")
Case (GUICtrlRead($Trieste) == $GUI_CHECKED)
IniWrite(@ScriptDir & "\shop.ini", "settings", "g", "2")
EndSelect
EndFunc ;==>save
$count = 0
Func main()
Call("save")
While 1
Select
Case $count = 0
Call("first")
Case $count > 0
Call("sub")
EndSelect
$count = $count + 1
WEnd
EndFunc ;==>main
Func first()
Call("a1")
Call("b")
Call("c")
Call("ca")
Call("d")
Call("e1")
Call("f")
EndFunc ;==>first
Func sub()
Call("a")
Call("b")
Call("c")
Call("ca")
Call("d")
Call("e2")
Call("f")
EndFunc ;==>sub
Func loggedin()
Call("f")
EndFunc ;==>loggedin
Func a1();declares variables with logged in check
Global $username = GUICtrlRead($Input1);calls userid from gui
Global $password = GUICtrlRead($Input2);calls password from gui
Global $shopname = GUICtrlRead($Input3);calls shop name from gui
Global $exe = GUICtrlRead($Input4);call launcher location from gui
;Global $gamepath = GUICtrlRead($Input5);calls dekaron_nsse.exe from gui
If GUICtrlRead($Checkbox1) = $GUI_CHECKED Then
Call("loggedin")
EndIf
Select;declareing server x,y values
Case GUICtrlRead($Abaddon) = $GUI_CHECKED
Global $Serv_X = IniRead(@ScriptDir & "\shop.ini", "coords", "AbbadonX", "")
Global $Serv_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "AbbadonY", "")
Case GUICtrlRead($Trieste) = $GUI_CHECKED
Global $Serv_X = IniRead(@ScriptDir & "\shop.ini", "coords", "TriesteX", "")
Global $Serv_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "TriesteY", "")
EndSelect
Select;declaring shard x,y values
Case GUICtrlRead($sh1) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard1X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard1Y", "")
Case GUICtrlRead($sh2) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard2X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard2Y", "")
Case GUICtrlRead($sh3) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard3X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard3Y", "")
Case GUICtrlRead($sh4) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard4X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard4Y", "")
Case GUICtrlRead($sh5) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard5X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard5Y", "")
EndSelect
Select
Case GUICtrlRead($ch1) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char1X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char1Y", "")
Case GUICtrlRead($ch2) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char2X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char2Y", "")
Case GUICtrlRead($ch3) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char3X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char3Y", "")
Case GUICtrlRead($ch4) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char4X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char4Y", "")
Case GUICtrlRead($ch5) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char5X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char5Y", "")
Case GUICtrlRead($ch6) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char6X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char6Y", "")
EndSelect
;call("b")
EndFunc ;==>a1
Func a();declares variables
Global $username = GUICtrlRead($Input1);calls userid from gui
Global $password = GUICtrlRead($Input2);calls password from gui
Global $shopname = GUICtrlRead($Input3);calls shop name from gui
Global $exe = GUICtrlRead($Input4);call exe location from gui
;Global $gamepath = GUICtrlRead($Input5);calls dekaron_nsse.exe from gui
Select;declareing server x,y values
Case GUICtrlRead($Abaddon) = $GUI_CHECKED
Global $Serv_X = IniRead(@ScriptDir & "\shop.ini", "coords", "AbbadonX", "")
Global $Serv_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "AbbadonY", "")
Case GUICtrlRead($Trieste) = $GUI_CHECKED
Global $Serv_X = IniRead(@ScriptDir & "\shop.ini", "coords", "TriesteX", "")
Global $Serv_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "TriesteY", "")
EndSelect
Select;declaring shard x,y values
Case GUICtrlRead($sh1) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard1X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard1Y", "")
Case GUICtrlRead($sh2) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard2X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard2Y", "")
Case GUICtrlRead($sh3) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard3X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard3Y", "")
Case GUICtrlRead($sh4) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard4X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard4Y", "")
Case GUICtrlRead($sh5) = $GUI_CHECKED
Global $Sh_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard5X", "")
Global $Sh_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Shard5Y", "")
EndSelect
Select
Case GUICtrlRead($ch1) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char1X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char1Y", "")
Case GUICtrlRead($ch2) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char2X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char2Y", "")
Case GUICtrlRead($ch3) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char3X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char3Y", "")
Case GUICtrlRead($ch4) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char4X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char4Y", "")
Case GUICtrlRead($ch5) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char5X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char5Y", "")
Case GUICtrlRead($ch6) = $GUI_CHECKED
Global $ch_X = IniRead(@ScriptDir & "\shop.ini", "coords", "Char6X", "")
Global $ch_Y = IniRead(@ScriptDir & "\shop.ini", "coords", "Char6Y", "")
EndSelect
;call("b")
EndFunc ;==>a
Func b();starts game waits until loading finished
Local $loading = True ;waiting for game to load. time outs and restarts if $time is exceded
Local $time = 360 ;secs 360=6 minutes
$timer = TimerInit()
;FileCopy("C:\Documents and Settings\user\Desktop\2moon Stuff\GameGuard_Killer_v1.0b_(rev1203)\GameGuard\G ameMon.des", "C:\Program Files\Acclaim\2moons_hack\bin\GameGuard\", 1)
;Sleep(500)
;FileCopy("C:\Documents and Settings\user\Desktop\2moon Stuff\GameGuard_Killer_v1.0b_(rev1203)\GameGuard\n pggNT.des", "C:\Program Files\Acclaim\2moons_hack\bin\GameGuard\", 1)
Sleep(500)
ShellExecute($exe)
ProcessWait("launcher.exe")
MouseClick("left", $launch_X, $launch_Y, 1);launch button
Sleep(1000)
WinWait("2Moons")
Do
ToolTip(" ", 0, 0, "Game Loading. ", 1)
Sleep(150)
ToolTip(" ", 0, 0, "Game Loading.. ", 1)
Sleep(150)
ToolTip(" ", 0, 0, "Game Loading...", 1)
Sleep(150)
WinActivate("2Moons")
PixelSearch($check1_X, $check1_Y, $check2_X, $check2_Y, 0xce0000, 10)
$err = @error
If TimerDiff($timer) >= $time * 1000 Then
$loading = False
ExitLoop
EndIf
Until $err < 1
If $loading = True Then
Sleep(1)
Else
Call("kill")
EndIf
;call("c")
EndFunc ;==>b
Func c()
ToolTip(" Selecting Server Group", 0, 0, "Game Loaded", 1)
Sleep(500)
WinActivate("2Moons")
MouseClick("left", $Serv_X, $Serv_Y, 1)
WinActivate("2Moons")
Sleep(200)
MouseClick("left", $OK_X, $OK_Y, 1);clicks ok
ToolTip(" Logging In", 0, 0, "Server Selected", 1)
Sleep(5000) ;wait 5 sec for login to load
EndFunc ;==>c
Func ca()
;ToolTip("Loging in...", 0, 0)
WinActivate("2Moons")
ControlSend("2Moons", "", "", $username);send username
Sleep(200)
WinActivate("2Moons")
ControlSend("2Moons", "", "", "{tab}")
Sleep(200)
WinActivate("2Moons")
ControlSend("2Moons", "", "", $password);send password
Sleep(200)
WinActivate("2Moons")
ControlSend("2Moons", "", "", "{enter}");completes login
Call("cb")
EndFunc ;==>ca
Func cb()
Local $login = True
Local $time = 30 ;sec
$timer = TimerInit()
Do
Sleep(10)
PixelSearch($charcheck1_X, $charcheck1_Y, $charcheck2_X, $charcheck2_Y, 0xfefefe, 10);search for white on char screen
$err2 = @error
If TimerDiff($timer) >= $time * 1000 Then
$login = False
ExitLoop
EndIf
Until $err2 < 1
If $login = True Then
ToolTip(" Selecting Character & Shard", 0, 0, "Login Sucessful!", 1)
Else
ToolTip(" Retrying", 0, 0, "Login Failure!", 3)
MouseClick("left", $login_X, $login_Y, 1);gives focus to user id befor retrying
Call("ca")
EndIf
EndFunc ;==>cb
Func d() ;chooses character and shard
WinActivate("2Moons")
MouseClick("left", $Sh_X, $Sh_Y);clicks selected shard
Sleep(500)
WinActivate("2Moons")
MouseClick("left", $ch_X, $ch_Y, 1); clicks selected character
Sleep(500)
WinActivate("2Moons")
MouseClick("left", $Conn_X, $Conn_Y, 1);clicks connect button
Sleep(100)
Call("d2")
EndFunc ;==>d
Func d2();waits for gamescreen
Local $loading = True ;waiting for MAP to load. time outs and restarts if $time is exceded
Local $time = 300 ;secs 300=5 minutes
$timer = TimerInit()
Do
ToolTip(" Standing By", 0, 0, "Map Loading. ", 1)
Sleep(150)
ToolTip(" Standing By", 0, 0, "Map Loading.. ", 1)
Sleep(150)
ToolTip(" Standing By", 0, 0, "Map Loading...", 1)
Sleep(150)
PixelSearch($Dshop1_X, $Dshop1_Y, $Dshop2_X, $Dshop2_Y, 0xA1141F, 10);search for Dshop button
$err3 = @error
If TimerDiff($timer) >= $time * 1000 Then
$loading = False
ExitLoop
EndIf
Until $err3 < 1
If $loading = True Then
Sleep(1)
Else
Call("kill")
EndIf
ToolTip(" ", 0, 0, "Map Loaded", 1)
Sleep(500)
;call("e")
EndFunc ;==>d2
Func e1()
$iMsgBoxAnswer = MsgBox(49, "Prepare Shop", "Before Continuing:" & @CRLF & "1. Place items to sell in shop" & @CRLF & "2. Start selling" & @CRLF & "Clicking Cancel will automatically start shop with current items." & @CRLF & "This message will close automatically in 60 secs" & @CRLF & "This message will NOT be show on any automatic restarts.", 60)
Select
Case $iMsgBoxAnswer = 1 ;OK
Sleep(1)
Case $iMsgBoxAnswer = 2 ;Cancel
Sleep(500)
Call("e2")
Case $iMsgBoxAnswer = -1 ;Timeout
Sleep(500)
Call("e2")
EndSelect
;call f()
EndFunc ;==>e1
Func e2()
WinActivate("2Moons")
ControlSend("2Moons", "", "", "{/}");opens shop
Sleep(500)
WinActivate("2Moons")
MouseClick("left", $shop_X, $shop_Y, 1);brings focus to shop name input box
WinActivate("2Moons")
ControlSend("2Moons", "", "", $shopname);name shop
WinActivate("2Moons")
MouseClick("left", $shopopen_X, $shopopen_Y, 1);opens shop
Sleep(500)
;call f()
EndFunc ;==>e2
Func f()
If WinExists("2Moons") Then
Do
WinActivate("2Moons")
WinWaitActive("2Moons")
PixelSearch($Dshop1_X, $Dshop1_Y, $Dshop2_X, $Dshop2_Y, 0xf9ffff, 10)
If @error Then
ExitLoop
EndIf
ToolTip(" No errors detected", 0, 0, "Monitoring Game Status", 1)
Sleep(100)
Until WinExists("Fatal Error")
EndIf
ToolTip(" Attempting to Restart.", 0, 0, "Disconnected!", 3)
If ProcessExists("gameguard.exe") Then
ProcessClose("gameguard.exe")
ProcessWaitClose("gameguard.exe")
EndIf
If ProcessExists("GameMon.des") Then
ProcessClose("GameMon.des")
ProcessWaitClose("GameMon.des")
EndIf
If ProcessExists("minilauncher.exe") Then
ProcessClose("minilauncher.exe")
ProcessWaitClose("minilauncher.exe")
EndIf
If ProcessExists("launcher.exe") Then
ProcessClose("launcher.exe")
ProcessWaitClose("launcher.exe")
EndIf
If ProcessExists("dekaron.exe") Then
ProcessClose("dekaron.exe")
ProcessWaitClose("dekaron.exe")
EndIf
If WinExists("2Moons") Then
WinClose("2Moons")
WinWaitClose("2Moons")
EndIf
If WinExists("FATAL ERROR") Then
ControlSend("FATAL ERROR", "", "", "{enter}")
WinWaitClose("FATAL ERROR")
EndIf
Sleep(5000)
EndFunc ;==>f
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip(" Press Pause/Break to Continue", 0, 0, "Auto-Shopkeeper is Paused", 1)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func kill()
ToolTip("Attempting to close 2Moons", 0, 0, "LOADING ERROR!", 3)
If ProcessExists("gameguard.exe") Then
ProcessClose("gameguard.exe")
ProcessWaitClose("gameguard.exe")
EndIf
If ProcessExists("GameMon.des") Then
ProcessClose("GameMon.des")
ProcessWaitClose("GameMon.des")
EndIf
If ProcessExists("minilauncher.exe") Then
ProcessClose("minilauncher.exe")
ProcessWaitClose("minilauncher.exe")
EndIf
If ProcessExists("launcher.exe") Then
ProcessClose("launcher.exe")
ProcessWaitClose("launcher.exe")
EndIf
If ProcessExists("dekaron.exe") Then
ProcessClose("dekaron.exe")
ProcessWaitClose("dekaron.exe")
EndIf
If WinExists("2Moons") Then
WinClose("2Moons")
WinWaitClose("2Moons")
EndIf
If WinExists("FATAL ERROR") Then
ControlSend("FATAL ERROR", "", "", "{enter}")
WinWaitClose("FATAL ERROR")
EndIf
ToolTip(" Attempting to Restart", 0, 0, "2Moons Closed", 3)
Sleep(3000)
Call("main")
EndFunc ;==>kill
Func Terminate()
MsgBox(0, "INFO", "Restarted" & @CRLF & $count & @CRLF & "Times")
MsgBox(4096, "Exiting...", "This Program Courstesy of Mithandir1." & @CRLF & " elitepvpers.com", 5)
Exit 0
EndFunc ;==>Terminate
__________________________________________________ ______________
Here is the trainer:
Global $Paused
HotKeySet("{Pause}", "TogglePause")
HotKeySet("{end}", "Terminate")
$dll = DllOpen("user32.dll")
IniWrite(@ScriptDir & "\shop.ini", "NOTICE", "THIS PROGRAM WAS RELEASED AT elitepvpers.com", "BY Mithandir1")
IniWrite(@ScriptDir & "\shop.ini", "NOTICE", "IF YOU GOT THIS SOMEWHERE ELSE IT WAS LEECHED WITHOUT THE AUTHORS CONSENT!", "LEECHED")
ToolTip("Press ESC to Skip ", 0, 0, "Open GG Bypass Then Press ALT Key", 1)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("b")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
Call("a")
ExitLoop
EndIf
WEnd
Func a()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Launch Button & Press ALT Key", 1)
SplashImageOn("Launch Button", @WorkingDir & "\images\launch.jpg", 444, 195, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("b")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "launchX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "launchY", $pos[1])
Call("b")
ExitLoop
EndIf
Sleep(100)
WEnd
EndFunc ;==>a
Func b()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location & Press ALT Key", 1)
SplashImageOn("Server Select", @WorkingDir & "\images\check1.jpg", 138, 97, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("c")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "Coords", "check1X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "check1Y", $pos[1])
Sleep(1000)
Call("c")
EndIf
WEnd
EndFunc ;==>b
Func c()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location & Press ALT Key", 1)
SplashImageOn("Trieste Server", @WorkingDir & "\images\check2.jpg", 138, 97, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("d")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "Coords", "check2X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "check2Y", $pos[1])
Sleep(1000)
Call("d")
EndIf
WEnd
EndFunc ;==>c
Func d()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Abbadon Server & Press ALT Key", 1)
SplashImageOn("Abbadon Server", @WorkingDir & "\images\server1.jpg", 145, 72, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("e")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "AbbadonX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "AbbadonY", $pos[1])
Sleep(1000)
Call("e")
EndIf
WEnd
EndFunc ;==>d
Func e()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Trieste Server & Press ALT Key", 1)
SplashImageOn("Trieste Server", @WorkingDir & "\images\server2.jpg", 145, 72, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("f")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "TriesteX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "TriesteY", $pos[1])
Sleep(1000)
Call("f")
EndIf
WEnd
EndFunc ;==>e
Func f()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location OK Button & Press ALT Key", 1)
SplashImageOn("Trieste Server", @WorkingDir & "\images\okbutton.jpg", 145, 72, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("g")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "Coords", "OKX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "OKY", $pos[1])
Sleep(1000)
Call("g")
EndIf
WEnd
EndFunc ;==>f
Func g()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Login Box & Press ALT Key", 1)
SplashImageOn("Login Box", @WorkingDir & "\images\login.jpg", 215, 127, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("h")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "LoginX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "LoginY", $pos[1])
Sleep(1000)
Call("h")
EndIf
WEnd
EndFunc ;==>g
Func h()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Shard 1 & Press ALT Key", 1)
SplashImageOn("1st Shard", @WorkingDir & "\images\shard1.jpg", 83, 99, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("i")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard1X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard1Y", $pos[1])
Sleep(1000)
Call("i")
EndIf
WEnd
EndFunc ;==>h
Func i()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Shard 2 & Press ALT Key", 1)
SplashImageOn("2nd Shard", @WorkingDir & "\images\shard2.jpg", 83, 99, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("j")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard2X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard2Y", $pos[1])
Sleep(1000)
Call("j")
EndIf
WEnd
EndFunc ;==>i
Func j()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Shard 3 & Press ALT Key", 1)
SplashImageOn("3rd Shard", @WorkingDir & "\images\shard3.jpg", 83, 99, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("k")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard3X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard3Y", $pos[1])
Sleep(1000)
Call("k")
EndIf
WEnd
EndFunc ;==>j
Func k()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Shard 4 & Press ALT Key", 1)
SplashImageOn("4th Shard", @WorkingDir & "\images\shard4.jpg", 83, 99, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("l")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard4X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard4Y", $pos[1])
Sleep(1000)
Call("l")
EndIf
WEnd
EndFunc ;==>k
Func l()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Shard 5 & Press ALT Key", 1)
SplashImageOn("5th Shard", @WorkingDir & "\images\shard5.jpg", 83, 99, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("m")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard5X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Shard5Y", $pos[1])
Sleep(1000)
Call("m")
EndIf
WEnd
EndFunc ;==>l
Func m()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Character 1 & Press ALT Key", 1)
SplashImageOn("Character 1", @WorkingDir & "\images\character1.jpg", 201, 337, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("n")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char1X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char1Y", $pos[1])
Sleep(1000)
Call("n")
EndIf
WEnd
EndFunc ;==>m
Func n()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Character 2 & Press ALT Key", 1)
SplashImageOn("Character 2", @WorkingDir & "\images\character2.jpg", 201, 337, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("o")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char2X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char2Y", $pos[1])
Sleep(1000)
Call("o")
EndIf
WEnd
EndFunc ;==>n
Func o()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Character 3 & Press ALT Key", 1)
SplashImageOn("Character 3", @WorkingDir & "\images\character3.jpg", 201, 337, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("p")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char3X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char3Y", $pos[1])
Sleep(1000)
Call("p")
EndIf
WEnd
EndFunc ;==>o
Func p()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Character 4 & Press ALT Key", 1)
SplashImageOn("Character 4", @WorkingDir & "\images\character4.jpg", 201, 337, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("q")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char4X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char4Y", $pos[1])
Sleep(1000)
Call("q")
EndIf
WEnd
EndFunc ;==>p
Func q()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Character 5 & Press ALT Key", 1)
SplashImageOn("Character 5", @WorkingDir & "\images\character5.jpg", 201, 337, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("r")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char5X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char5Y", $pos[1])
Sleep(1000)
Call("r")
EndIf
WEnd
EndFunc ;==>q
Func r()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Character 6 & Press ALT Key", 1)
SplashImageOn("Character 6", @WorkingDir & "\images\character6.jpg", 201, 337, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("s")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char6X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Char6Y", $pos[1])
Sleep(1000)
Call("s")
EndIf
WEnd
EndFunc ;==>r
Func s()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Connect Button & Press ALT Key", 1)
SplashImageOn("Character 6", @WorkingDir & "\images\connect.jpg", 148, 37, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("t")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "ConnX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "ConnY", $pos[1])
Sleep(1000)
Call("t")
EndIf
WEnd
EndFunc ;==>s
Func t()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Shop Name & Press ALT Key", 1)
SplashImageOn("Shop Text Box", @WorkingDir & "\images\shop.jpg", 217, 85, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("u")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "shopX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "shopY", $pos[1])
Sleep(1000)
Call("u")
EndIf
WEnd
EndFunc ;==>t
Func u()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location Shop Open & Press ALT Key", 1)
SplashImageOn("Shop Text Box", @WorkingDir & "\images\open.jpg", 217, 85, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("v")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "openX", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "openY", $pos[1])
Sleep(1000)
Call("v")
EndIf
WEnd
EndFunc ;==>u
Func v()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location & Press ALT Key", 1)
SplashImageOn("DShop Location 1", @WorkingDir & "\images\dshop1.jpg", 82, 78, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("w")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Dshop1X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Dshop1Y", $pos[1])
Sleep(1000)
Call("w")
EndIf
WEnd
EndFunc ;==>v
Func w()
ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location & Press ALT Key", 1)
SplashImageOn("DShop Location 2", @WorkingDir & "\images\dshop2.jpg", 82, 78, 1, 54)
Sleep(100)
While 1
If _IsPressed("1b", $dll) Then
Sleep(100)
Call("x")
ExitLoop
EndIf
If _IsPressed(12, $dll) Then
SplashOff()
Sleep(100)
$pos = MouseGetPos()
IniWrite(@ScriptDir & "\shop.ini", "coords", "Dshop2X", $pos[0])
IniWrite(@ScriptDir & "\shop.ini", "coords", "Dshop2Y", $pos[1])
Sleep(1000)
Call("x")
EndIf
WEnd
EndFunc ;==>w
Func x()
;ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location & Press ALT Key", 1)
;SplashImageOn("Fatal Error", @WorkingDir & "\images\error1.jpg", 149, 107, 1, 54)
;Sleep(100)
;While 1
; If _IsPressed("1b", $dll) Then
; Sleep(100)
; Call("y")
; ExitLoop
; EndIf
; If _IsPressed(12, $dll) Then
; SplashOff()
; Sleep(100)
; $pos = MouseGetPos()
; IniWrite(@ScriptDir & "\shop.ini", "coords", "error1X", $pos[0])
; IniWrite(@ScriptDir & "\shop.ini", "coords", "error1Y", $pos[1])
; Sleep(1000)
Call("y")
; EndIf
;WEnd
EndFunc ;==>x
Func y()
;ToolTip("Press ESC to Skip ", 0, 0, "Mouse Over Location & Press ALT Key", 1)
;SplashImageOn("Fatal Error", @WorkingDir & "\images\error2.jpg", 149, 107, 1, 54)
;Sleep(100)
;While 1
; If _IsPressed("1b", $dll) Then
; Sleep(100)
; MsgBox(4096, "Done", "Happy Botting!")
; Exit
; ExitLoop
; EndIf
; If _IsPressed(12, $dll) Then
; SplashOff()
; Sleep(100)
; $pos = MouseGetPos()
; IniWrite(@ScriptDir & "\shop.ini", "coords", "error2X", $pos[0])
; IniWrite(@ScriptDir & "\shop.ini", "coords", "error2Y", $pos[1])
Sleep(1000)
DllClose($dll)
MsgBox(4096, "Done", "Happy Botting!")
Exit
; EndIf
;WEnd
EndFunc ;==>y
Func TogglePause()
$Paused = Not $Paused
While $Paused
Sleep(100)
ToolTip(" Press Pause to Continue", 0, 0, "Setup is Paused", 1)
WEnd
ToolTip("")
EndFunc ;==>TogglePause
Func Terminate()
DllClose($dll)
MsgBox(4096, "Exiting...", "User terminated before complete. Settings may not be valid!")
Exit 0
EndFunc ;==>Terminate
