BlitzScript3D

let a=1
let b=2
let c=a*b+a/b
if a=b then print a else print b
end

//tbasic startup...1
  sub  edx,edx
//let a=1 
  mov  eax,1
  mov  [_a],eax
//let b=2 
  mov  eax,2
  mov  [_b],eax
//let c=a*b+a/b 
  mov  eax,[_a]
  push eax
  mov  eax,[_b]
  pop  ecx
  imul eax,ecx
  push eax
  mov  eax,[_a]
  push eax
  mov  eax,[_b]
  mov  ecx,eax
  pop  ecx
  shl eax,ecx
  pop  ecx
  add  eax,ecx
  mov  [_c],eax
//if a<b then print a else print b 
  mov  eax,[_a]
  push eax
  mov  eax,[_b]
  pop  ecx
  cmp  ecx,eax
  slt  eax
  and  eax,255
  and  eax,eax
  jz  __1
  call print:64
  mov  eax,[_a]
  jmp  __2
__1:
  call print:64
  mov  eax,[_b]
__2:
//end 
  ret

_a:
  dd  0
_b:
  dd  0
_c:
  dd  0
Done!

;opcode
mov eax,2

;pcode equivalent
01 2

Type script_inst

;basic stuff

 Field Name$
 Field ID%                   ;used for classifying scripts 
 Field Pcode                 ;handle to a bank
 Field variables             ;handle to another bank
 Field Messages              ;handle to another bank  
 Field pcodepointer%
 
 
;VM active/inactive list stuff

 Field flags%                ;is script active, etc..
 Field previous.script_inst  
 Field next.script_inst

;instance parent child stuff

 Field parent.script_inst
 Field child.script_inst

end type

Dim active.script_inst[1]
Dim inactive.script_inst[1]

Graphics 1024,768
n=Input("Number of Array Dimensions: ")
ascii= 96
element$=Chr(ascii+loop+1)
dimensions$="a"
For loop = 1 To n
	Print "Dim Array("+dimensions+")"
	Print "linear_index=base_index+"+String("(",loop)+"a_index)" + expressions$ + "*element_size_in_bytes"
	Print 
	element$=Chr(ascii+loop+1) 
	expression$="*"+element$+"_size+"+element$+"_index)"
	expressions$=expressions$+expression$
	dimensions$=dimensions$+","+element$
Next

bscvmCompiler.bb:  Function bscvmCompilerCallIndex

Purpose: Compiler Call Selector. Makes Commands Calls recognizable by compiler from scripts.
The Return values match the Command Index# called in the bscvmThreadCallIndex. You can easily
 add new commands to the scripting engine by adding a case here and the bscvmThreadCallIndex.

Add a New Command:
	Case "your_command_label" Return Index#
		
Parameters: bscvmCompiler Object

Return: bscvmThreadCallIndex#

bscvmThread.bb: Function bscvmThreadCallIndex 

Purpose: VirtualMachine Call Selector. Called by bscvmThreadProcess to executes Command calls.
Parameter values are stored in the this\arg[0-15] and the Return value is stored in this\ax. 
The Select Case Values are matched to the command labels in the bscvmCompilerCallIndex. 
You can easily add new commands to the scripting engine by adding a case here and the 
bscvmCompilerCallIndex.

Add a Command w/ Arguments:		
	Case Index# Your_Function(this\arg[0])

Add a Command w/ Return Value:	
	Case Index# this\ax=Your_Function(this\arg[0]) 

Add a Command with no Arguments:
	Case Index# Your_Function()

Add a Command w/Return Value and no Arguments:
	Case Index# this\ax=Your_Function() 

Parameters: bscvmThread Object
Return: None.

Include "Engine" ; The custom types and functions u've made.
Include "Main" ; controls and such

**now you put your custom per level coding here"

Example:
If n=1 Then dostuff()
If n=2 Then dostuff()
If n=3 Then dostuff()
;you get the point

Type bscvmThread
	;Purpose: bscvmThread Script Object.
	Field id%
	Field parentid%
	Field typeid%
	Field label$
	Field filename$
	Field instruction$[BSCVMTHREAD_INSTRUCTION_MAX%]
	Field instructionPTR%
	Field instructionsize%
	Field stack$[BSCVMTHREAD_STACK_MAX%]
	Field stackPTR%
	Field arg$[BSCVMTHREAD_ARG_MAX%]
	Field call%
	Field ax$
	Field cx$
	Field zero%
	Field run% ;state -1:Infinite loop, 0:halt, >0:Specified Loops  
	Field schedule%
	Field scheduleCTR%
End Type

Function bscvmThreadUpdate()
	;Purpose: Updates all Virtual Machine bscvmThreads see bscvmUpdate Function 
	;Parameters: None
	;Return: None
	For this.bscvmThread=Each bscvmThread

		If this\schedule>0
			this\scheduleCTR=this\scheduleCTR+1
			If this\scheduleCTR=this\schedule 
				this\run=1
				this\scheduleCTR=0
			EndIf	
		EndIf
		
		If this\run
			Repeat
				bscvmThreadProcess(this)
			Until this\instructionPTR>this\instructionSize
			this\instructionPTR=0 ;reset instruction
			If this\run>0 this\run=this\run-1
		EndIf	
		
	Next
End Function

cmp  ecx,eax
slt  eax
and  eax,255
and  eax,eax

BSCVM_OP_SLT

	Case TOKEN_IF
		GSC_ParseExpression()
		If GSC_TokenType <> TOKEN_THEN Then
			GSC_AddError("Expected "+Chr(34)+"Then"+Chr(34))
			GSC_SkipLine(): GSC_NextToken()
			Return
		End If
		LabelElse = GSC_UniqueLabel()
		WriteLine GSC_OutputFile, "    jz    _" + LabelElse
		
		GSC_NextToken()
		If GSC_TokenType = TOKEN_TERMINATOR Then
			;Multi-line IF statement
			Repeat
				GSC_ParseStatement()
				If GSC_Done Then
					GSC_AddError("Expected "+Chr(34)+"Else"+Chr(34)+" or "+Chr(34)+"EndIf"+Chr(34))
					Return
				End If
			Until GSC_TokenType = TOKEN_ELSE Or GSC_TokenType = TOKEN_ENDIF
			If GSC_TokenType = TOKEN_ELSE
				LabelEndif = GSC_UniqueLabel()
				WriteLine GSC_OutputFile, "    jmp   _" + LabelEndif
				WriteLine GSC_OutputFile, "_" + LabelElse + ":"
				GSC_NextToken()
				If GSC_TokenType = TOKEN_IF Then GSC_AddWarning("Ambiguous coding style (may cause unexpected errors - see language manual)")
				Repeat
					GSC_ParseStatement()
					If GSC_Done Then
						GSC_AddError("Expected "+Chr(34)+"EndIf"+Chr(34))
						Return
					End If
				Until GSC_TokenType = TOKEN_ENDIF
				WriteLine GSC_OutputFile, "_" + LabelEndif + ":"
				GSC_NextToken()
			Else ;EndIf
				WriteLine GSC_OutputFile, "_" + LabelElse + ":"
				GSC_NextToken()
			EndIf
		Else
			;Single-line IF statement
			GSC_ParseStatement(False)
			If GSC_TokenType = TOKEN_ELSE
				LabelEndif = GSC_UniqueLabel()
				WriteLine GSC_OutputFile, "    jmp   _" + LabelEndif
				WriteLine GSC_OutputFile, "_" + LabelElse + ":"
				GSC_NextToken()
				GSC_ParseStatement()
				WriteLine GSC_OutputFile, "_" + LabelEndif + ":"
			Else
				WriteLine GSC_OutputFile, "_" + LabelElse + ":"
			EndIf
		End If
		
	Case TOKEN_ELSE, TOKEN_ENDIF
		GSC_AddError("Keyword is out of place (there are no open "+Chr(34)+"If"+Chr(34)+" statements)")
		GSC_NextToken()
		Return

mfc  a, b
  Moves the contents of the ecx."b" (type ecx, field "b") into "a"

mfa  a, b
  Moves the contents of the eax."b" (type eax, field "b") into "a" (same as mfc except uses eax instead of ecx)

xfc  a, b
  Moves the contents of "b" into ecx."a" (type ecx, field "a")

xfa  a, b
  Moves the contents of "b" into eax."a" (type eax, field "a") (same as xfc except uses eax instead of ecx)

Type Car 
  Field a:Int, b:Float
EndType

Local test:Car, tmp:Float

test = New Car

test.a = 23

tmp = test.a * 10

Delete test

;test = New Car
    new   eax,{car}
    mov   [test], eax
;test.a = 23
    mov   eax,23
    mov   ecx, [test]
    xfc   <a>, eax
;tmp = test.a * 10
    mov   eax,[test]
    mfa   eax,<a>
    push  eax
    mov   eax,10
    pop   ecx
    mul   eax,ecx
    mov   [tmp], eax
    mov   eax,[test]
;Delete test
    del   eax

    end

get varname			;select							
If var=value		;first case
ElseIf var=value	;next case
ElseIf var=value	;ditto
.
.
.
Else				;default case
EndIf				;end select

If GSC_TokenType = TOKEN_IF Then GSC_AddWarning("Ambiguous coding style (may cause unexpected errors - see language manual)")

 
object = New model
object.entity = entityload("dude.b3d")
object.rotate()

vs

object.model = New model
object\entity = entityload("dude.b3d")
object\rotate() ;doesent exist

If GSC_TokenType = TOKEN_IF Then GSC_AddWarning("Ambiguous coding style (may cause unexpected errors - see language manual)")

If <condition> Then
  <statements>
Else If <condition> Then 'This is not elseif to the compiler
  <statemtnts>
EndIf

If <condition> Then
  <statements>
Else
  If <condition> Then 'Unclosed if

EndIf

If <condition> Then 
	If <condition> Then 
		If <condition> Then 
			value = True
		EndIf
	EndIf
EndIf

Local a:Float

Select a
Case 1
  a=2
Case 2, 0
  a=1
Default
  a=0
EndSelect

;Select a
    mov   eax,[a]
    mov ebx, eax

;Case 1
_Flow_2
    mov   eax,1
    cEQ eax, ebx
    jz  _Flow_3

;a=2
    mov   eax,2
    mov   [a], eax
    jmp _Flow_1

;Case 2
_Flow_3
    mov   eax,2
    push  eax
    mov   eax,0
    pop   ecx
    or    eax, ecx
    cEQ eax, ebx
    jz  _Flow_4

;a=1
    mov   eax,1
    mov   [a], eax
    jmp _Flow_1

;Default
_Flow_4

;a=0
    mov   eax,0
    mov   [a], eax
    jmp _Flow_1

;EndSelect
_Flow_5
_Flow_1

    end

Local a:Int, b:Int

'--------------------------------------
'While..Wend
'--------------------------------------
While a<10
  a=a+1
Wend

'--------------------------------------
'Repeat..Until
'--------------------------------------
Repeat
  a=a-1
Until a=0

'--------------------------------------
'Repeat..Forever
'--------------------------------------
Repeat
  a=a-1
Forever

'--------------------------------------
'For..Step..Next
'--------------------------------------
For a = 1 To 10 Step 2
  b=1
Next

'--------------------------------------
'While..Wend
'--------------------------------------

While a<10
_Flow_2
    mov   eax,[a]
    push  eax
    mov   eax,10
    pop   ecx
    cLT   ecx,eax
    jz  _Flow_1

;a=a+1
    mov   eax,[a]
    push  eax
    mov   eax,1
    pop   ecx
    add   eax,ecx
    mov   [a], eax

;Wend
    jmp _Flow_2
_Flow_1


'--------------------------------------
'Repeat..Until
'--------------------------------------

;Repeat
_Flow_4

;a=a-1
    mov   eax,[a]
    push  eax
    mov   eax,1
    pop   ecx
    sub   eax,ecx
    mov   [a], eax

;Until a=0
    mov   eax,[a]
    push  eax
    mov   eax,0
    pop   ecx
    cEQ   ecx,eax
    jz  _Flow_4
_Flow_3


'--------------------------------------
'Repeat..Forever
'--------------------------------------

;Repeat
_Flow_6

;a=a-1
    mov   eax,[a]
    push  eax
    mov   eax,1
    pop   ecx
    sub   eax,ecx
    mov   [a], eax

;Forever
    jmp _Flow_6
_Flow_5


'--------------------------------------
'For..Step..Next
'--------------------------------------

;For a = 1 To 10 Step 2
    mov   eax,1
    mov   [a], eax
_Flow_8
    mov   eax, [a]
    push  eax
    mov   eax,10
    pop   ecx
    cLT   eax, ecx
    jz    _Flow_7

;b=1
    mov   eax,1
    mov   [b], eax

;Next
    mov   eax, [a]
    add   eax, 2.0
    mov   [a], eax
    jmp _Flow_8
_Flow_7


    end

Frank Taylor's Distorted Opcode for Select...Case

;Select expression
mov eax,<expression>
push eax
jz start
 
;dummycase
 
;Case <expression>
label_next
mov eax,<expression>
seq eax  ;auto pops stack -> ecx and compares
push ecx ;push ecx back to stack
jz next
;statements
jmp last
 
;Case expression$
label_next
mov eax,<expression$>
seq eax str ;auto pops stack to ecx and compare strings
push ecx ;push ecx back to stack
jz next
;statements
jmp last

;Default
label_next
;statements

;EndSelect
label_last

pop ecx
cEQ eax, ecx

seq eax  ;auto pops stack -> ecx and compares

mov eax, 10
mov [a], eax
mov eax, [a]
mov [b], eax
mov eax, 5

mov [a], 10
mov [b], 10
mov eax, 5

mov eax, 5
mov [a], 10
mov [b], 10

;Select a
    mov   eax,[a]
    mov ebx, eax

;Select a
    mov   eax,[a]
    push eax

;Case 1
_Flow_2
    mov   eax,1
    pop ebx
    cEQ eax, ebx
    push ebx
    jz  _Flow_3

   {statements}
    jmp _Flow_1

'Prime number search

Local prime:Int, i:Int

Print "Prime Numbers:"

prime = 1
For i = 1 To 20
  prime = NextPrime(prime)
  Print prime
Next

End



'Prime number search function
Function NextPrime:Int(current:Int)
  Local i:Int
  Local found:Int

  While Not found
    current = current + 1; Found = True
    For i = 2 To current-1
      If (current Mod i) = 0 Then
        Found = False
        Exit
      EndIf
    Next
  Wend

  Return current
EndFunction