2Moons auto launcher help

[blackheaf]

Any can help with this auto login script dont work for me ....

I need a Aulologin for my selling char

;~ 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(200000)
ShellExecute("minilauncher.exe", "", "C:\Program Files\Acclaim\2Moons\")
Sleep(12000)
MouseClick("Left", 1144,690,1)
Sleep(100000)
MouseClick("Left", 558,635,1)
Sleep(3000)
MouseClick("Left", 576,786,1)
Sleep(3000)
MouseClick("Left", 591,743,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "MyUsername")
Sleep(3000)
ControlSend ( "2Moons", "", "", "{TAB}")
Sleep(2000)
ControlSend ( "2Moons", "", "", "MyPassword")
Sleep(2000)
ControlSend ( "2Moons", "", "", "{ENTER}")
Sleep(21000)
MouseClick("Left", 826,81,1)
Sleep(4000)
MouseClick("Left", 576,746,1)
Sleep(120000)
MouseClick("Left", 1128,753,1)
Sleep(10000)
MouseClick("Left", 213,390,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "DarkKnight Discounts")
Sleep(4000)
MouseClick("Left", 272,396,1)
MouseClick("Left", 272,396,1)
Sleep(2000)
MouseClick("Left", 996,25,1)
EndIf
EndFunc

func _Exit ()
Exit
EndFunc

func _start ()
AdlibEnable("Adlibfunc", 10)
TrayTip("2Moons notice:", "script has been started", 5)
EndFunc

;~ func _stop ()
;~ AdlibDisable()
;~ TrayTip("2Moons notice:", "script has been stopped", 5)
;~ EndFunc

While 1
Sleep(10)
WEnd

[CosmosTunes]

whats the problem on your script? where did it stuck? (can't try out here at work)

i have an autologin script at home for 1024x768 window mode and it works fine

btw try to focus on the window and use these options:

; === options ===
AutoItSetOption ("CaretCoordMode", 0) ; new -> 1=absolute, 0=relative
AutoItSetOption ("ColorMode", 1)
AutoItSetOption ("WinTitleMatchMode", 4)
AutoItSetOption ("WinWaitDelay", 250)
AutoItSetOption ("PixelCoordMode", 0)
AutoItSetOption ("MouseCoordMode", 0)
AutoItSetOption ("MouseClickDownDelay", 100)
AutoItSetOption ("TrayIconHide", 1) ; hide autoit icon

that makes life much easier... my bot works great with these.

[blackheaf]

oki i test it out ty for the info

EDIT 2moons dont open please post your script 2

[CosmosTunes]

here is my start client function. but its just very noob coded. there are no security checks right now. my priorities are on other functions at moment

but maybe it helps ya.

Func startClient()
Run("E:Games2Moonsminilauncher.exe")
ToolTip("Launcher started", 5, 5)
Sleep(5000) ; launcher loading
MouseClick("left", 420, 470, 1)
Sleep(10000) ; gameguard loading
WinMove(, "", 228, 100)
WinSetState(, "", @SW_SHOW)
WinActivate()
Sleep(50000) ; sleep while loading
ToolTip("Client started", 5, 5)
; === Login ===
MouseClick("left", 505, 560, 1)
Sleep(500)
MouseClick("left", 515, 715, 1)
Sleep(1500)
Send("id")
Sleep(200)
Send("{TAB}")
Sleep(200)
Send("password")
Sleep(200)
MouseClick("left", 450, 725, 1)
Sleep(15000)
; === server change ===
MouseClick("left", 700, 175, 1)
Sleep(200)
MouseClick("left", 515, 673, 1)
Sleep(25000)
ToolTip("Ingame - Acclaim owned :>", 5, 5)
MouseClick("middle")
Sleep(200)
Return True
EndFunc

[blackheaf]

Ty for your script but i found my proplems only must change 5 strings

and i add auto shop ^^_^^ never closed shop when i sleep

i use it with rev 1140:900 100% work

Copper 650 k is the shop name

;~ 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(50000)
MouseClick("Left", 720,672,1)
Sleep(1500)
MouseClick("Left", 719,825,1)
Sleep(1500)
ControlSend ( "2Moons", "", "", "username")
Sleep(3000)
ControlSend ( "2Moons", "", "", "{TAB}")
Sleep(2000)
ControlSend ( "2Moons", "", "", "password")
Sleep(2000)
ControlSend ( "2Moons", "", "", "{ENTER}")
Sleep(6500)
MouseClick("Left", 1112,77,1)
Sleep(6500)
MouseClick("Left", 724,786,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "DarkKnight Discounts")
Sleep(25000)
ControlSend ( "2Moons", "", "", "{v}")
Sleep(4000)
ControlSend ( "2Moons", "", "", "{#}")
Sleep(4000)
MouseClick("Left", 103,397,1)
Sleep(3000)
ControlSend ( "2Moons", "", "", "Copper 650k Copper 650k")
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 kosmos", 5)
EndFunc

;~ func _stop ()
;~ AdlibDisable()
;~ TrayTip("2Moons notice:", "script has been stopped", 5)
;~ EndFunc

While 1
Sleep(10)
WEnd

[CosmosTunes]

hehe my bot starts itself even on computer reset after bluescreen, disconnects etc. lol

i hope the shop name in your script doesnt contain your right name, otherwise you should remove it