Why CorelScript files doesn't work in X3

Hello.

Why CorelScript files from CD9 doesn't work with CDX3 even I'll fix objects name to 13? Error message is: Script <name> contains an error and could not be run. I tried to run blank script but it doesn't work to. How I can run old script files in CDX3?

[shelbym]

If you want to send me the script I can look at it for you and let you know.

shelbym@v-cut.com

Thanks,

Shelby

Why this script doesn't work?

REM

WITHOBJECT "CorelDraw.Automation.13"
.StartOfRecording
.SuppressPainting
.RecorderStorePreselectedObjects TRUE
.RecorderSelectObjectByIndex TRUE, 1
.ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
.RecorderSelectObjectByIndex TRUE, 1
.ApplyOutline 84582, 1, 1, 1, 100, -900, 0, -1, -1, FALSE, 2, 0, TRUE
.StoreColor 2, 40, 40, 0, 60
.SetOutlineColor
.RecorderSelectObjectByIndex TRUE, 1
.DuplicateObject 0, 0
.RecorderSelectObjectByIndex TRUE, 2
.ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
.RecorderSelectObjectByIndex TRUE, 2
.ApplyOutline 7112, 1, 1, 1, 100, -900, 0, -1, -1, FALSE, 2, 0, TRUE
.StoreColor 2, 100, 100, 0, 0
.SetOutlineColor
.RecorderSelectPreselectedObjects TRUE
.RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
.ApplyBlend TRUE, 20, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
.ResumePainting
.EndOfRecording
END WITHOBJECT

[shelbym]

This will work for X3 place in your GMS:

Sub ApplicationCorelScript()

Dim cs As Object
Set cs = CorelScript

With cs
    .StartOfRecording
    .SuppressPainting
    .RecorderStorePreselectedObjects True
    .RecorderSelectObjectByIndex True, 1
    .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, False, 0, 0, False
    .RecorderSelectObjectByIndex True, 1
    .ApplyOutline 84582, 1, 1, 1, 100, -900, 0, -1, -1, False, 2, 0, True
    .StoreColor 2, 40, 40, 0, 60
    .SetOutlineColor
    .RecorderSelectObjectByIndex True, 1
    .DuplicateObject 0, 0
    .RecorderSelectObjectByIndex True, 2
    .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, False, 0, 0, False
    .RecorderSelectObjectByIndex True, 2
    .ApplyOutline 7112, 1, 1, 1, 100, -900, 0, -1, -1, False, 2, 0, True
    .StoreColor 2, 100, 100, 0, 0
    .SetOutlineColor
    .RecorderSelectPreselectedObjects True
    .RecorderSelectObjectsByIndex False, 2, -1, -1, -1, -1
    .ApplyBlend True, 20, 0, False, 0, False, False, 0, 0, 0, True, True, False, False, 0, 0, 0, 0
    .ResumePainting
    .EndOfRecording
End With

End Sub

Good Luck,

Shelby

Thanks. Your solution works excellent.

Hello.

Your solution works but I have a hundreds of old scripts with a lot of syntax incompatibility so it will a hell to fix them all. Can anybody find an easy way to fix old scripts?

Thanks.

I DID IT!

Thanks to everybody, I found a problem myself. Fixed CorelScript files would work if you add two breakline symbols to the end of a script file (or something like this).

Sorry for sounding stupid, but we lack the experience of script editing. We have many v.9 scripts that we would love to be able to use in X3.

Could or would elaborate visually on how you made these corrections. It would be a little easier for us to understand.

[Alex]

You need to open a script file (.csc) in a text editor such as the Notepad. You'll see a line similar to this somewhere close to the top of the file:

WITHOBJECT "CorelDraw.Automation.9"

Replace the 9 for 13 so that this line reads:

WITHOBJECT "CorelDraw.Automation.13"

and save the file back.

If you have a search and replace utility that can do text replacing in multiple files you can do this on all your CSC files and replace "CorelDRAW.Automation.9" with "CorelDRAW.Automation.13"

This should do the trick.

Thank you!!