2Moons auto launcher help

02/13/2008 12:42 blackheaf#1
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
02/13/2008 13:06 CosmosTunes#2
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:

Quote:
; === 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.
02/13/2008 14:06 blackheaf#3
oki i test it out ty for the info

EDIT 2moons dont open please post your script 2
02/13/2008 18:35 CosmosTunes#4
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.

Quote:
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
02/14/2008 12:56 blackheaf#5
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 :D

i use it with rev 1140:900 100% work :D

Copper 650 k is the shop name :D

;~ 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
02/14/2008 16:17 CosmosTunes#6
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 ;)