elite*gold: 0
Join Date: Oct 2007
Posts: 180
Received Thanks: 84
|
Here this works 101 % with auto reconnect when game close and autoshop open.
--------------------------------------------------------------------------
you need to edit the X-Y cord dont know is for 1440x900 i think ...
edit ControlSend ( "2Moons", "", "", "User<<<")
edit ControlSend ( "2Moons", "", "", "Password<<<")
edit ControlSend ( "2Moons", "", "", "ShopName")
edit ShellExecute("minilauncher.exe", "", "C:\Programme\Acclaim\2Moons\")
--------------------------------------------------------------------------
;~ HotKeySet( "{F10}" , "_Stop")
Opt("TrayMenuMode", 1)
Opt("WinTitleMatchMode", 2)
$tray_exit = TrayCreateItem("Exit")
Opt("TrayOnEventMode",1)
TrayItemSetOnEvent($tray_exit, "_Exit")
TraySetState()
TrayTip("2Moons auto launcher", "Press F11 to start, or F10 to stop script", 5)
call("_start")
Func Adlibfunc ()
if Not ProcessExists("dekaron.exe") Then
Sleep(6000)
ShellExecute("minilauncher.exe", "", "C:\Programme\Acclaim\2Moons\")
Sleep(6000)
MouseClick("Left", 894,603,1)
Sleep(9300)
MouseClick("Left", 594,503,1)
Sleep(2000)
MouseClick("Left", 394,303,1)
Sleep(60000)
MouseClick("Left", 720,672,1)
Sleep(1500)
MouseClick("Left", 719,825,1)
Sleep(3500)
ControlSend ( "2Moons", "", "", "User<<<")
Sleep(3000)
ControlSend ( "2Moons", "", "", "{TAB}")
Sleep(2000)
ControlSend ( "2Moons", "", "", "Password<<<")
Sleep(2000)
ControlSend ( "2Moons", "", "", "{ENTER}")
Sleep(7500)
MouseClick("Left", 1112,77,1)
Sleep(6500)
MouseClick("Left", 724,786,1)
Sleep(28000)
ControlSend ( "2Moons", "", "", "{v}")
Sleep(4000)
ControlSend ( "2Moons", "", "", "{#}")
Sleep(4000)
MouseClick("Left", 103,397,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "ShopName")
Sleep(3000)
MouseClick("Left", 271,397,1)
EndIf
EndFunc
func _Exit ()
Exit
EndFunc
func _start ()
AdlibEnable("Adlibfunc", 10)
TrayTip("2Moons notice:", "2Moons auto launcher_v2 By blackheaf", 5)
EndFunc
;~ func _stop ()
;~ AdlibDisable()
;~ TrayTip("2Moons notice:", "script has been stopped", 5)
;~ EndFunc
While 1
Sleep(10)
WEnd
|