MiniC N.Edition (JS-like Scripting Language)

var e = (func(){return 6;})();
print(e);

if (e == 6 && (func()
			{
				return true;
			})())
{
	print("Hello");
}

i = 0;
while ( c = func(){ return i++; } ) // <-- I just did this to make sure it would work
{
	out = c();
	if ( out == 3 ) continue;
	if ( out > 10 ) break;
	print(out + "Hello World");
}

vector.x(20); // sets x to 20
vector.x; // returns value of x (which is 20)

Test = func()
{
	var onlyVar = 100;
	return this;
};

example = Test();
print(example.onlyVar);
append(example, 'twoVars', 2000);
print(example.twoVars);

data = { var example = 'Hello' };

print(data.example);

ITakeScopes = func( scope )
{
	print(scope.one);
	print(scope.two);
};

ITakeScopes({var one = 'Hello there', var two = 'Number 2'});

ITakeScopes = func( scope )
{
	if ( contains(scope, 'one') )
		print(scope.one);
	if ( contains(scope, 'two') )
		print(scope.two);
};

ITakeScopes({var one = 'Hello there', var two = 'Number 2'});

Function MinicError(line:Int, error:String)
  #If MINIC_USE_SOFTERRORS
   ErrorStack.Push("Error on line " + line + ": " + error)
  #Else
   Error("MiniC Error on line " + line + ": " + error)
  #End
End

myObject = {};
myObject.myNewVar = 123;
print(myObject.myNewVar);

Strict

Function Main:Int()
	Local s := New IntStack()
	s.Push(1)
	s.Push(2)
	s.Push(3)
	Print "start = " + s.Length()
	
	While Not s.IsEmpty()
		Print s.Pop()
	Wend
	Print "end"
	Return True
End

Test = func( data )
{
	var group = {};
	group.name = true ? data.name : null;
	return this;
};

example = Test({var name='abc'});

myvalue = null;

delete myvalue;

test = [];
test['Hello'] = 'World';
print(test['Hello']); // prints 'World'

test = ['Example', 'Data'];
print(test[0]); // prints 'Example'
print(test[1]); // prints 'Data'

test = ['Example', 'Data'];
test['Hello'] = 'World';
print(test[2]); // prints 'World'

foreach( val in {var n=3,var m=5,var o=7} )
	print(val);

for ( var i = 0; i < 10; i++ )
	print(i);

if ( {var i=0} has 'i' )
	print('Yes, it does contain i');

if ( {var i=0} has 'b' )
	print('Yes, it does contain b');
else
	print('No, it does not contain b');

print(!{var i=0} has 'b');
print(!{var i=0} has 'i');

var test = 3.5 as 'int' + 5;
print(test);

test = {var a = 'Hello', var b = 'World'};
print(test['a'] + ' ' + test['b']);

test['c'] = {var i=10};
print(test['c']['i']);

i = func(){ return 10; };
b = &i;
c = i;
i = func(){ return 15; };
print(b());
print(c());

test = func( a )
{
	a = func(){return 10;};
};

b = func(){return 15;};
test(b);
print(b());
test(&b);
print(b());

test = [15, 20, 30, 40, 50, [100]];
print(test[5][0]);
print(test[0]);
print(test[1]);
print(test[2]);
print(test[3]);
print(test[4]);
print(test.pop().top);
test.length = 10;
print("Length: " + test.length);

example = func()
{
	for ( var i = 0; i < arguments.length;  i++ )
		print(arguments[i]);
};

example('a','b','c', 1, 2, 3, null, func(){}, {});

// assign 3 values
a,b,c = 1,2,3;

// create a function that returns 3 values
foo = func() {
	return 1,2,3;
};

// call that function and assign to 3 variables
a,b,c = foo();

// call the function again, but ignore the first two return values
_,_,d = foo();

// Wait 30 frames
var m = 0;
yield (m++ > 30);

print("Start...");

if (false)
{
	print("Hello World");
}
else
{
	print("M");
	yield key_hit(KEY_R);
	print("R");
	yield key_hit(KEY_T);
	print("T");
}

for (var i = 0; i < 4; i++)
{
	yield key_hit(KEY_F);
	print("F --> " + i);
	var w = 0;
	yield ((w++ % 2) == 1);
}

var i = 0;
while (i++ < 4)
{
	yield key_hit(KEY_W);
	print("W --> " + i);
	var w = 0;
	yield ((w++ % 2) == 1);
}

print("End...");

// Freezes at end
yield false;

for (var i = 0; i < 4; i++)
{
	yield key_hit(KEY_F);
	print("F --> " + i);
	yield;
}

var run = func()
{
	yield key_hit(KEY_SPACE);
	print("Hello Monkeys");
	yield;
	run();
};

run();

* Fixed if-else conditional null scope bug
* FIxed single and multiline comment detection
* Fixed function call yield bug *** (updated)

var show_text = func(text)
{
	var mm = 0;
	var clickTime = millisecs();
	
	var yielder = func(itext, upto, tf, mm)
	{
		set_color(100, 80, 80);
		draw_rect(10, 440, 620, 35);
		set_color(255, 255, 255);
		draw_text(str_substr(itext, 0, upto), 14, 443);
		if (tf)
			return (mm++ % 3) == 2;
		return true;
	};
	
	for (var i = 0; i < text.length; i++)
	{
		yield yielder(text, i, true, &mm);
		if ((millisecs() - clickTime > 200) && key_down(KEY_SPACE))
		{
			i = text.length - 1;
			clickTime = millisecs();
		}
	}
	
	yield yielder(text, text.length, false, 0) && (millisecs() - clickTime > 200) && key_down(KEY_SPACE);
	return true;
};

yield show_text("Press the spacebar after this is done...");
yield show_text("Hello World of Tomorrow!");
yield show_text("Look, a different message is appearing!");

yield false;

Local scriptData:String = LoadString("scripts/script.mc")
Local myScript:VMScope = vm.LoadScript(script, Null, "script.mc")

var t = "Hello World".split(" ");
print(t[0]);

//////////////////////////////////////////////////
func fibonacci( n )
{
	var a = 0;
	var b = 0;
	for (var i = 0; i < n; i++)
	{
		var t = a;
		a = b;
		b = t + b;
	}
	return a;
}

var fib = fibonacci(8);
print(fib);

//////////////////////////////////////////////////
Meta Code	Func Name	Table ID	Min Params	Max Parameters	Code		Size	External Object
.extfunc	"print"		0		1		-1 (n)		0xFFFFFFFF	-1		(MCPrintExtern Instance)
.function	"fibonacci"	1		1		1		0x0000002A	 ?		Null

//////////////////////////////////////////////////

; starting at 0x00000000
alstack
push float 8 ; accepts in "human" or hex form
call fibonacci ; push current addr to call stack (call stack is size of 65535 max, min is 512)
popt fib
push fib
call print
dlstack

; starting at 0x0000002A (for example purposes)
alstack ; allocates local stack
ppopt n ; pop from parent stack and assign (n=0x0000); ppopt [0x0000002A]+0x0000
tload a, 0 ; (a=0x0001) ; tload [0x0000002A]+0x0001, 0
tload b, 0 ; (b=0x0002) ; tload [0x0000002A]+0x0002, 0
.for_0R2EW2B
alstack ; 0x0000002A+0x12 = 0x0000003C
tload i, 0 ; (i=0x0000) tload [0x0000003C]+0x0000, 0
jlt rel forf ; jumps if less than to addr with relative proximity ; jlt rel 0x0000004A+<.forf_0R2EW2B>
tload t, a
copy a, b ; push b : push a : asn - optimization
fadd2 b, t ; push t : push b : fadd - optimization
popt b ; push b : asn - optimization
inc i
jmp nrel for_0R2EW2B
.forf_0R2EW2B
dlstack
.endfor_0R2EW2B
ppush a ; push to parent stack
dlstack
ret ; pop current addr from call stack and jump to addr

var b = func(xx, yy)
{
	var c = { var d = [0] };
	c.d.length = 10;

	for (var i = 0; i < 10; i++)
		c.d[i] = {var x = 0, var y = 0};
	
	return c;
};

var e = b(3, 4);

if (3 != 3 && 4 == 4 || 5 == 5) {
    "bleep" + 3;
}

blah = hello
include("somefile.mc")
if (true)
{
    // the jumps are misplaced...
}
// this is problematic

var collection = { "Hello", "World" };
print(collection[0] + collection[1]);
collection.push("!");
print(collection[0] + collection[1] + collection[2]);
collection[99999] = "Banana";
collection["Banana"] = "MX"
foreach (var item in collection)
{
    print(item.index);
    print(item.key);
    print(item.value);
}
print(collection.length); // prints "5"

var a = func()
{
    if (1) {
        return "early";
    }
};
a();

x = 0;
if (1) { x++; ++x; }

var a = { var b = 1, var c = { var d = 3, var e = 5 } };
a.c.d = (a.b = 16) + a.c.e;

a:
  b = 16
  c:
    d = 21
    e = 5

c.d(4).s + 5;

(c.d(4)).s + 5;

var a = 5
var b = 6

var a = new String(); // id = 3
a[0] = 72;
var b = 'H';
var c = a === b;

String.prototype.thing = function( something ) // new object identification is created because of this statement
{
    return this.length + something
}

var a = "Hello"
print(a.thing(4));

	Local pOptions:ParserOptions = New ParserOptions()
	pOptions.softSemicolons = True
	
	Local vm:VM = new VM()
	Local myScript:VMScope = vm.LoadScript(script, Null, "script.mc", pOptions)

message("message 1");
yield message_confirmed(); // waits until player confirms message 1
message("message 2");

var a = b ?? "example"

var a = b?.example

switch (value)
{
    case example:
        break;
}

switchif (value > 5; value)
{

}

for (var i = 0; i < 10; i++)
    doAction();

loop (10) doAction();

loop (10) print(li);

var example = { var value = 3 };
var a = "@example";
a.value = 5;
print(example.value); // prints 5

outerScopeVariable = "Hi";
(func(){ outerScopeVariable = "Hello"; })();
print(outerScopeVariable); // prints "Hello"

outerScopeVariable = "Hi";
(func(){ var outerScopeVariable = "Hello"; })();
print(outerScopeVariable); // prints "Hi"

(func(){ var outerScopeVariable = "Hello"; })();
print(outerScopeVariable); // error, outerScopeVariable is not defined

var start = func(actionId, userId, targetId) {
  // code
};

print(actionId); // prints the passed value

var HeroId = func(userId) {
	var id = battle_userid(userId) + 1;
	return "hero" + (id as 'int');
};

(something as 'int') as 'str'