Stat Control for Mu Online

[Jammer]

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???

expandcollapse popup

; 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

[Jammer]

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 September 12, 2004 by Jammer

[Jon]

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

[Jammer]

and 2 more things...

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

and how to get users resolution of a window,desktop

[Jos]

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

<{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"] )

[TigPT]

I made some MUonline scripts, maybe useful..

MUonline Scripts Post

Hope help you.

[Jos]

I made some MUonline scripts, maybe useful..

MUonline Scripts Post

Hope help you.

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