[Bug 35762] New: Tic Tac Toe Game (vbscript) cannot be played (parenthesis syntax for specifying arrays as function arguments)

https://bugs.winehq.org/show_bug.cgi?id=35762

Bug ID: 35762
           Summary: Tic Tac Toe Game (vbscript) cannot be played
                    (parenthesis syntax for specifying arrays as function
                    arguments)
           Product: Wine
           Version: 1.7.14
          Hardware: x86
                OS: Linux
            Status: NEW
          Severity: normal
          Priority: P2
         Component: vbscript
          Assignee: [e-mail]
          Reporter: [e-mail]

Hello folks,

continuation of bug 27831

The parser still fails:

--- snip ---
$ wine iexplore file:///c:/Game.htm
...
fixme:vbscript:parse_script parser failed around L"b
FindWinLines(p,a())\n\t'find win lines for player p and return them into a()
array. a(0) will count, a(1) to a(a(0)) will be line indexes\n\tdim
i,j,c,k\n\ti=0:j=0:c=0\n\ta(0)=0'counts\n\tfor i=0 to 7 'count
StrightLines\n\t\tk=0 'we choose each line that all of it's cells are free or
occupied by p"...
...
--- snip ---

Wine's VBScript parser fails on parenthesis syntax for specifying arrays as
function arguments.

Example script code, extracted from html:

--- snip ---
Sub FindWinLines(p,a())
    'find win lines for player p and return them into a() array. a(0) will
count, a(1) to a(a(0)) will be line indexes
    dim i,j,c,k
    i=0:j=0:c=0
    a(0)=0'counts
    for i=0 to 7 'count StrightLines
        k=0 'we choose each line that all of it's cells are free or occupied by
player p, in addition atleast one of them must be occupied by the player p
        for j=0 to 2 'cells for each stright line
            c=BoardCell(StrightLines(i,j)) 'line i - cell j
            if c=p+1 then k=k+1 else if c<>0 then k=0:exit for
        next
        if k>0 then 'this is a Win-Line , so add it to a()
            a(0)=a(0)+1:a(a(0))=i
        end if
    next
End Sub
--- snip ---

$ sha1sum Tic_Tac_To164186962003.zip 
f8790fd7eb0365bd4b686eb5e48baaf844026253  Tic_Tac_To164186962003.zip

$ du -sh Tic_Tac_To164186962003.zip 
8.0K    Tic_Tac_To164186962003.zip

$ wine --version
wine-1.7.14-23-g770213e

Regards