hummm : Myth of Soma - Discussion

[acepower]

ok i tryed this script in the xunleashed v3: directx 9 test and it works fine
but when itry it in game when it cums to run the macro it makes the arrow go all over the screen any help wud he gratfull ty

the script i used

Randomize(timer)


Dim iUpperbound
Dim iLowerbound
Dim iDelay
iUpperbound = 6000
iLowerbound = 1000

Dim objMacroHelper

Set objMacroHelper = CreateObject("XUMacroHelper.MacroWindow")

objMacroHelper.SetPlayOnce()

Dim iCounter

For iCounter = 2 to 2

objMacroHelper.Play("cooking")

Do While (objMacroHelper.MacroPlaying)
XUScriptHost.Sleep(500)
Loop


iDelay = Int((iUpperbound - iLowerbound + 1) * Rnd + iLowerbound)
XUScriptHost.Sleep(iDelay)
next

[j0n0]

hmm and to me that means....squat

that just looks like the newspaper after 1 to many beers

[..]

...

[Admin]

can you run the macro in soma fine?

ie your cooking macro?

[acepower]

yes the macro runs fine when not used in script

[Admin]

Hmm.. there might be a bug in the way macros are handled through the script plugin. I think you need to tell the script engine to use DirectInput instead of windows input.

Let me check on this and let you know. Or add the command if it is not there.

[Guest]

kk ty m8:)

[Admin]

Ok, I think this will fix it.

Change this line:
Set objMacroHelper = CreateObject("XUMacroHelper.MacroWindow")


to

Set objMacroHelper = XUScriptPlugin.GetService("XUMacroHelper.MacroWindow")

[acepower]

ya k 1sec ill test it

[Guest]

nop script dont work at all now o0

[Admin]

ACK.

Ok, hold that thought.

I am going to add a few lines to the Macro Plugin that will let it work. The problem is I described. It is running the script with WindowsInput instead of DirectInput.

[Admin]

PS, if you use the Createobject it should work for keyboard only macros if you recorded it as a keyboard only macro.

So, you might try recording a keyboard macro and testing with the original code you used.


Also, you can not use the macroplugin at all and do everything via scripts. Using KeyDown KeyUp and SendKeys, LMouseDown, etc.

[acepower]

nop still dont work

[Admin]

What doesnt work?

Did you change it back to CreateObject

Did you double click it in windows to look for errors?


Did you record a keyboard only macro?

Did you change the name in the script to reflect the change?

[acepower]

this work whith text only macro


Randomize(timer)


Dim iUpperbound
Dim iLowerbound
Dim iDelay
iUpperbound = 6000
iLowerbound = 1000

Dim objMacroHelper

Set objMacroHelper = CreateObject("XUMacroHelper.MacroWindow")

objMacroHelper.SetPlayOnce()

Dim iCounter

For iCounter = 2 to 2

objMacroHelper.Play("test2")

Do While (objMacroHelper.MacroPlaying)
XUScriptHost.Sleep(500)
Loop


iDelay = Int((iUpperbound - iLowerbound + 1) * Rnd + iLowerbound)
XUScriptHost.Sleep(iDelay)
next