Mysterious programming language

Question

I found some random code while cleaning out a server at work, no one seems to know what programming language it is.

There are no semi colons at the end of lines It uses the keywords "if", "then", "for", "to", "do" but not "end" It uses the keyword "as" so is probably Object Oriented

So far it looks like F# or Haskell syntax however

It also uses #0

We think this is Pascal-style notation for representing chars, so #0 would be the equivalent of '\0' in C

Any help would be great.

Below is an extract of the code.

bc=(ay*ax*az)
check1 = ((bc+bc)*(ax+acx)*(az+acz))
check2 = p_ar.count-9
if check1!=check2 then change(messagebox "rebuild")

--position
dmorr1=#0
dmar2=#0
dmar3=#0

--Y update
if acy>0 and bc
{
    dmar1=#0
    dmar2=#0
    rnum = (bp+ch)
    for i=1 to pcount do
    {
        if (sag m)!=0 then
        {
            append dmar2(getUserProp cnode("cp" + (i as string)))
        }
        else
        }
            append dmar2(getUserProp dconde("cp" + (i as string)))
            append imgt1 dmar2
            dmar2=#0
        }

Answer 1

Like mentioned, looks like MaxScript for 3ds / AutoDesk. Always up for easy point gluttony :)