BlitzC - A Blitz Syntax Alternative - Thoughts???

// include a bb file
#include <a_file.bb>
// include a cx (BlitzC) file
#include <another_file.cx>

/* 
 Use block comments like these
 to comment larger sections at a time.
*/

// declaring a type
type texture() {
	field cTexID$, cFilename$;
	field nWidth#, nHeight#;
	field nIndex;
}

// a while loop
while (condition = true) {
    if (this_condition = true) {
        debugLog("Condition is true.");
    } else {
        debugLog("Condition is false.");
    }
}

// standard function
function doStuff(cText$) {
    print("Printing " & cText);
    for(1 to 10 step 2) {
        print("A line");
        // break out of any loop
        break;
    }

    // create an instance of a type
    tTex.texture = New texture;
    tTex->cTexID$ = "texture 1";
    tTex->cFilename$ = "a texture filename";
}



// you get the picture

// a while loop
while (condition = true) {
    if (this_condition = true) {
        debugLog("Condition is true.");
    } else {
        debugLog("Condition is false.");
    }
}

; a while loop
While condition = True
    If this_condition = True
        DebugLog "Condition is true."
    Else
        DebugLog "Condition is false."
    EndIf
Wend

// a while loop
while (condition = true) 
{
    if (this_condition = true) 
    {
        debugLog("Condition is true.");
    }
    else
    {
        debugLog("Condition is false.");
    }
}

debuglog "Condition is "+(this_condition?"true":"false")+"."

CKillerRabbit krA
krA.fluffiness = 200000000

             /Type\
$If a=5\     "    C
       T     o    a
       h     o    r
       e     m    *
       n     "    *
       \Print/    *
     /#deepS dleiF/
     M
     e
     t
     h
     o
     d   epyT dnE\
     \Crash\     d
           P     o
           l     h
           a     t
           y     e
           S     M
           o
           u     d
           n     n
           d     E
           \crash/

// a while loop
while (condition = true) {
    if (this_condition = true) 
        debugLog("Condition is true.");
    } else {
        debugLog("Condition is false.")
    }
}

' a while loop
while (condition = true)
 if (this_condition = true)
   debugLog "Condition is true."
 else
   debugLog "Condition is false."
 endif
wend

// a while loop
while (condition = true)
{
    if (this_condition = true) 
        debugLog("Condition is true.");
    } 
    else 
    {
        debugLog("Condition is false.")
    }
}

while( condition )
{
    if( this_condition ) 
        debugLog("Condition is true.");
    else 
        debugLog("Condition is false.");
}

CallToFunction(5,5,5
               7,7,7
               12,.5,80
               True,True,GL_BGRA) ;no particular function i'm quoting the arguments of

// coming soon
i++;
i--;
i+=3;
i-=3;

// works now
// != doesnt work yet so you have to use <> still
if (i/(10*40) <> 30) { /* do something */ }

switch(i)
{
    case 1:
        functiona();
    default:
        // like case else
}

; a while loop
while condition = true
    if this_condition = true
        debugLog "Condition is true."
    else
        debugLog("Condition is false."
    endif
wend

// a while loop
while (condition = true) {
    if (this_condition = true) {
        debugLog("Condition is true.");
    } else {
        debugLog("Condition is false.");
    }
}

char (*(*x[3])()())[5]

#include "Blitz.h"

int main(int argc, char* argv[])
{
	int cube;
	int cam;
	cube=CreateCube();

	cam=CreateCamera();
	PositionEnity(cam,0,0,-5); 
	
	while (KeyHit(1)==0)
	{
		TurnEntity(cube,1,1,1);
		RenderWorld();
		Flip();
	}

	return 0;
}

cube=CreateCube();
cam=CreateCamera();

PositionEnity(cam,0,0,-5); 

while (KeyHit(1)=0)
{
	TurnEntity(cube,1,1,1);
	RenderWorld();
	Flip();
}

float yourFunction( A#, B# )
     Return A*B;
}

C# = yourFunction( Rnd(1,200),Rnd(1,200) );

D# = C#;
for N% = 0 to 200
     D++;
}

// pseudo-C styled syntax

D# -= Rnd(64);
D# /= Rnd(64);
D# *= Rnd(32);
D# --;

Print D#;


;; NOPARSE
; NOPARSE areas are areas that do not get parsed by the translator

If D# > 0 Then
     Print "> 0"
Else
     Print "< 0"
EndIf

;; OPENPARSE

E% = Rand(4)
switch e
     case 0;
          print "case 0";
     case 1;
          print "case 1";
     case 2;
          print "case 2";
     case 3;
          print "case 3";
     case 4;
          print "case 4";
}

For k=1 to 100
 ;Do Somthing
 If condition Then Goto Continue1
 ;Do Somthing Else
 .Continue1
Next

// include a bb file
#include <a_file.bb>
// include a cx (BlitzC) file
#include <another_file.cx>

/* 
 Use block comments like these
 to comment larger sections at a time.
*/

// declaring a type
struct {
	char cTexID[255], cFilename[255];
	float nWidth, nHeight;
	int nIndex;
}

// a while loop
while (condition == true) {
    if (this_condition == true) {
        debugLog("Condition is true.");
    } else {
        debugLog("Condition is false.");
    }
}
...

While condition
  If this_condition s$="Condition is true." else s="Condition is false."
  Debuglog s
  Wend

if 0
    ...your code here...
endif

for (i=1 to 10) 
{
    if (this = true) 
    {
        continue; 
    } else {
        break;
    }
}

Type Application
	Field W,H
	Field Title$
	Field Windowed
	Field BPP
	Field Uses3D
	Field Camera

	Method Application(Width=800,Height=600,BPP=32,Windowed=0,Uses3D=0,Title$="My Application")
		\W = Width
		\H = Height
		\Title = Title
		\BPP = BPP
		\Uses3D = Uses3D
		\Windowed = Windowed
		If \Uses3D Then
		   Graphics3D \W,\H,\BPP,1+\Windowed
		   \Camera = CreateCamera()
		Else
		    Graphics \W,\H,\BPP,1+\Windowed
		EndIf

		AppTitle Title$,"Close application?"
	End Method

	Method MainLoop()
	       Repeat
	       	     UpdateWorld
	       	     RenderWorld
	       	     Text 4,4,Millisecs()
	       	     Flip
	       Until KeyHit(1)
	End Method

	Method GetCamera()
		Return \Camera
	End Method

	Method Free()
		FreeEntity \Camera
		ClearWorld
		EndGraphics
		Delete this
	End Method
End Type

Type Entity
     Field X#
     Field Y#
     Field Z#
     Field Pitch#
     Field Yaw#
     Field Roll#
     Field ObjHandle
End Type

Type Mesh Extends Entity
     Method Mesh(Path$)
     	    \ObjHandle = LoadMesh(Path$)
	End MEthod
End Type

Type Sprite Extends Entity
     Field Width
     Field Height
     Field Alpha
     Method Sprite(Path$,Alpha=1)
     	    \ObjHandle = LoadSprite(Path$,1+2*Alpha)
     End Method
End Type

Type AnimSprite Extends Sprite
     Field Frames
     Field CurrentFrame
     Method Sprite(Path$,Frames,Alpha=1)
     	    \Frames = Frames
     	    \ObjHandle = LoadSprite(Path$,1+2*Alpha)
     	End Method
End Type

Global A.Application = New Application(320,240,32,1,1,"Test")
YourCam = A\GetCamera()
A\MainLoop()
A\Free()