Sign in to follow this  
Followers 0
Jammer

Stat Control for Mu Online

7 posts in this topic

Ok, here is my 1st script

Tell me this:

1. Is the clicking set up right?

2. Is the sleep(100) enought?

3. Bugs

4. Is it possible to check Windows and Game resolution? If yes, how?

5. Should this work??? :ph34r:

; Target: Mu Online game
; Purpose: Easy stat control
; Author: Kewalas
; Version: 0.1b
; Extra Notes: Must be run in 1024x764 resolution 



;Run script?
$answer = MsgBox(4, "Paleisti Manual Point Control by Kewalas?") 
If $answer = 7 Then     
    Exit
EndIf
;Notifys that resolution has to be 1024x764
MsgBox(0, "Manual Point Control by Kewalas", "Nustatyk desktopo rezoliucija 1024x768")
;Ask's if resolution is 1024x764
$answer = MsgBox(4, "Nustatei desktopo rezoliucija i 1024x768?")
If $answer = 7 Then     
    Exit
EndIf
;Dunno what thsi do :)))
AutoItSetOption("MouseCoordMode", 0)
;Ask's if he uses launcher
$answerb = MsgBox(4, "Naudoji launcheri?")
If $answerb = 7 Then
    MsgBox(0, "Klaida", "Siai programai reik launcherio.Parsisiusk ji is http://muonline.marinet.lt/files/launcher.rar")
    Exit
EndIf
;Says: Run launcher, run game in 1024x764 throu launcher
MsgBox(0, "Manual Point Control by Kewalas", "Paleisk launcheri, parink 1024x768 rezoliucija,spausk Add,Irasyk serverio duomenis spausk Add,Parink serveri ir spausk Run ")
;Says: Select charcher and join the game
MsgBox(0, "Manual Point Control by Kewalas", "Prisilogink,pasirink characteri,prisijunk i zaidima")
;Says: Press F12 F12 and F11 to minimize the game
MsgBox(0, "Manual Point Control by Kewalas", "Tada spausk F12 F12 F11")
;Dunno why did i make this :DD
Func Stap()
    Exit
EndFunc
;Set how many stats u want to add
$str = InputBox("Irashyk kiek kelt Strenth", "Kiek kart spaust Streanth knopke?")
$agi = InputBox("Irashyk kiek kelt Agility", "Kiek kart spaust Agility knopke?")
$vit = InputBox("Irashyk kiek kelt Vitality", "Kiek kart spaust Vitality knopke?")
$ene = InputBox("Irashyk kiek kelt Energy", "Kiek kart spaust Energy knopke?")
;Notifys to maximize game
MsgBox(0, "Manual Point Control by Kewalas", "Spausk F11")
;Waits for MU to activate
WinWaitActive("MU")
;Advertisment function :D
Func Rek()
Send("{Enter}I use Manual Point Control by Kewalas{Enter}")
EndFunc
;Advertisment
Rek
;Opens stats window
Send("C")
;Advertisment again :D
Rek
;While loop for streanth clicks
$s = 0
while $s <= $str 
    MouseClick("Left", 941, 205)

    sleep(100)
    MouseClick("Right", 941, 205)
    $s = $s + 1
WEnd
;Agility loop
$a = 0
while $a <= $agi 
    MouseClick("Left", 941, 302)
    sleep(100)
    MouseClick("Right", 941, 302)
    $a = $a + 1
WEnd
;Vitality loop
$v = 0
while $v <= $vit 
    MouseClick("Left", 941, 394)
    sleep(100)
    MouseClick("Right", 941, 394)
    $v = $v + 1
WEnd
;Energy loop
$e = 0
while $e <= $ene 
    MouseClick("Left", 941, 491)
    sleep(100)
    MouseClick("Right", 941, 491)
    $e = $e + 1
WEnd
;Exit
Stap

Share this post


Link to post
Share on other sites



#2 ·  Posted (edited)

So, iv tested my self... is there any way to make Send("text") faster and mouse movement faster?

ive spotted a couple of bugs ive fixed them...

the $answer variable duplicates...

the yes/no dialogs has no title....

function errors...

Edited by Jammer

Share this post


Link to post
Share on other sites

So, iv tested my self... is there any way to make Send("text") faster and mouse movement faster?

ive spotted a couple of bugs ive fixed them...

the $answer variable duplicates...

the yes/no dialogs has no title....

function errors...

AutoItSetOption

Look up Mouse/Send delay options in there.

http://www.autoitscript.com/autoit3/docs/f...ItSetOption.htm

Share this post


Link to post
Share on other sites

and 2 more things...

anyway to enlarge MsgBox? my text does not fit in it :ph34r:)))

and how to get users resolution of a window,desktop

Share this post


Link to post
Share on other sites

anyway to enlarge MsgBox? my text does not fit in it :ph34r:)))

<{POST_SNAPBACK}>

The MsgBox resizes to the text ... can you give an example that doesn't fit ?

and how to get users resolution of a window,desktop

<{POST_SNAPBACK}>

For the desktop size:

@DesktopWidth

Width of the desktop screen in pixels. (vertical resolution)

@DesktopHeight

Height of the desktop screen in pixels. (horizontal resolution)

For the window size check WinGetPos ( "title" [, "text"] )


Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

I made some MUonline scripts, maybe useful..

MUonline Scripts Post

Hope help you.

Please stop spamming the same answer to so many old topics...

Visit the SciTE4AutoIt3 Download page for the latest versions        Beta files                                                          Forum Rules
 
Live for the present,
Dream of the future,
Learn from the past.
  :)

Share this post


Link to post
Share on other sites

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
Sign in to follow this  
Followers 0