This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
// --------------------------------- //
// Project: GLBScript
// Start: Monday, November 14, 2011
// IDE Version: 10.159
FUNCTION MyEvent: Name$, Attributes[] AS xmlAttribute
STDOUT "Node: "+Name$+"\n"
FOREACH Att IN Attributes[]
STDOUT "\t"+Att.Name$+": '"+Att.Value$+"'\n"
NEXT
ENDFUNCTION
LOCAL xml AS XML
xml.ReadXML(LoadFile$("Media/GLBScript2.gbap"), MyEvent)
FUNCTION LoadFile$: Path$
LOCAL Text$
LOCAL File% = GENFILE()
IF OPENFILE(File,Path$,1)
WHILE ENDOFFILE(File)=FALSE
LOCAL Line$
READLINE File,Line$
Text$=Text$+Line$+"\n"
WEND
CLOSEFILE File
ELSE
STDOUT "Cannot find file: " + Path$ + "\n"
ENDIF
RETURN Text$
ENDFUNCTION
TYPE xmlAttribute
Name$
Value$
ENDTYPE
PROTOTYPE XMLEvent: Name$, Attributes[] AS xmlAttribute
TYPE XML
Text$; Event AS XMLEvent; Position%; DontCall% = FALSE
FUNCTION ReadXML: Text$, event AS XMLEvent
STDOUT "Parse XML: \n" + Text$
self.Event = event
self.Text$ = Text$
self.Position = 0
self.OverjumpWhitespaces()
//überspringe <? >
IF LEFT$(self.Text$, 2) = "<?"
WHILE self.Get$() <> ">"
INC self.Position
WEND
INC self.Position
ENDIF
self.OverjumpWhitespaces()
TRY
ParseNode()
CATCH Err$
STDOUT Err$
KEYWAIT
FINALLY
ENDFUNCTION
FUNCTION ParseLayer:
self.OverjumpWhitespaces()
WHILE self.Get$() = "<"
// ist es /?
LOCAL HasSlash% = FALSE
INC self.Position
self.OverjumpWhitespaces()
IF self.Get$() = "/"
HasSlash = TRUE
ENDIF
WHILE self.Get$() <> "<"
DEC self.Position
WEND
IF HasSlash THEN RETURN 0
self.ParseNode()
WEND
RETURN 1
ENDFUNCTION
FUNCTION ParseNode:
IF self.Get$() <> "<" THEN THROW "XML Error - Expecting '<'"
INC self.Position
self.OverjumpWhitespaces()
LOCAL Name$ = ParseIdentifier$()
LOCAL Attributes[] AS xmlAttribute
//Attribute holen
IF self.Get$() = " "
self.OverjumpWhitespaces()
WHILE self.Get$() <> "/" AND self.Get$() <> ">"
self.OverjumpWhitespaces()
LOCAL Att AS xmlAttribute
Att.Name$ = self.ParseIdentifier$()
self.OverjumpWhitespaces()
IF self.Get$() <> "=" THEN THROW "XML Error - Expecting '='"
INC self.Position
self.OverjumpWhitespaces()
IF self.Get$() <> "\"" THEN THROW "XML Error - Expecting '\"'"
INC self.Position
LOCAL Pos% = self.Position
WHILE self.Get$() <> "\""
INC self.Position
WEND
INC self.Position
Att.Value$ = MID$(self.Text$, Pos, self.Position - Pos - 1)
self.OverjumpWhitespaces()
DIMPUSH Attributes[], Att
WEND
ENDIF
self.Event(Name$, Attributes[]) //führe event aus
SELECT self.Get$()
CASE ">"
INC self.Position
self.OverjumpWhitespaces()
IF ParseLayer() THEN THROW "XML Error - Unexpected End of File, expecting </"+Name$+">"
self.OverjumpWhitespaces()
IF self.Get$() <> "<" THEN THROW "XML Error - Expecting '<'"
INC self.Position
self.OverjumpWhitespaces()
IF self.Get$() <> "/" THEN THROW "XML Error - Expecting '/'"
INC self.Position
IF Name$ <> self.ParseIdentifier$() THEN THROW "XML Error - Nodes do not match"
IF self.Get$() <> ">" THEN THROW "XML Error Expecting '>'"
INC self.Position
self.OverjumpWhitespaces()
CASE "/"
INC self.Position
IF self.Get$() <> ">" THEN THROW "XML Error - Expecting '>'"
INC self.Position
self.OverjumpWhitespaces()
DEFAULT
THROW "XML Error"
ENDSELECT
ENDFUNCTION
FUNCTION ParseIdentifier$:
LOCAL Pos% = self.Position
WHILE self.Get$() <> " " AND self.Get$() <> "/" AND self.Get$() <> ">" AND self.Get$() <> "="
INC self.Position
WEND
IF self.Position >= LEN(self.Text$) THEN THROW "XML Error"
RETURN MID$(self.Text$, Pos, self.Position - Pos)
ENDFUNCTION
FUNCTION Get$:
IF self.Position >= LEN(self.Text$)
THROW "XML Error - Unexpected End Of File"
ELSE
//DEBUG MID$(self.Text$, self.Position, 1)
RETURN MID$(self.Text$, self.Position, 1)
ENDIF
ENDFUNCTION
FUNCTION OverjumpWhitespaces:
WHILE self.Position < LEN(self.Text$) AND (self.Get$() = " " OR self.Get$() = "\n" OR self.Get$() = CHR$(13))
INC self.Position
WEND
ENDFUNCTION
ENDTYPEGLOBAL Players$[]
DIM Players$[2]
Players$[0] = "Player1"
Players$[1] = "Player2"
FOREACH P$ IN Players$
STDOUT "Hallo: "+P$
NEXT
STDOUT 100*9-8*(4-10/2)
?IF GLB_VERSION > 0
STDOUT "Oha nice GLB version!"
?ENDIF
?IF 100*5 > 10 AND 4-9 = -5
STDOUT "nice expression dude"
?ENDIF
?IFNDEF HTML5
//Compatibility!
GOSUB GLB_ON_INIT
WHILE TRUE
GOSUB GLB_ON_LOOP
WEND
?ENDIF
//init globals, default value!!
var global11_Players_Str = GLBArray();
function main(){
//line: 3
DIM(global11_Players_Str, [2], [""]);
//line: 4
global11_Players_Str.values[0] = "Player1";
//line: 5
global11_Players_Str.values[1] = "Player2";
//line: 8
var forEachSaver1 = global11_Players_Str;
for(forEachCounter1 = 0 ; forEachCounter1 < forEachSaver1.values.length; forEachCounter1++) {
local5_P_Str = forEachSaver1.values[forEachCounter1];
{
//line: 7
STDOUT("Hallo: " + local5_P_Str);
}
forEachSaver1.values[forEachCounter1] = local5_P_Str;
};
//line: 9
STDOUT(CAST2STRING(908));
//line: 10
STDOUT("Oha nice GLB version!");
//line: 11
STDOUT("nice expression dude");
}
// set default statics:
TYPE TPlayer
X;Y
VX
KLeft%; KRight%
Score%
FUNCTION Update:
LOCAL W, H
GETSCREENSIZE W, H
IF KEY(self.KLeft)
self.VX = self.VX - 2
ENDIF
IF KEY(self.KRight)
self.VX = self.VX + 2
ENDIF
SELECT self.VX
CASE >6
self.VX = 6
CASE <-6
self.VX = -6
ENDSELECT
SELECT self.X
CASE >W-100
self.X = W-100
CASE <0
self.X = 0
ENDSELECT
self.VX = self.VX*0.9
self.X = self.X + self.VX
ENDFUNCTION
FUNCTION Render:
DRAWRECT self.X, self.Y, 100,40, RGB(255,0,0)
ENDFUNCTION
FUNCTION Init: X, Y, KLeft, KRight
self.X = X
self.Y = Y
self.VX = 0
self.KLeft = KLeft
self.KRight = KRight
ENDFUNCTION
ENDTYPE
TYPE TBall
X;Y;VX;VY
FUNCTION Update:
LOCAL W, H
GETSCREENSIZE W, H
LOCAL OldX = self.X, OldY = self.Y
self.Y = self.Y + self.VY
IF self.AnyCollision()
self.VY = -self.VY
self.Y = OldY + self.VY
ENDIF
self.X = self.X + self.VX
IF self.AnyCollision()
self.VX = -self.VX
self.X = OldX + self.VX
ENDIF
IF self.X < 0 OR self.X > W - 20 THEN self.VX = -self.VX
IF self.Y < -20
self.Reset
Player1.Score = Player1.Score + 1
ENDIF
IF self.Y > H
self.Reset
Player2.Score = Player2.Score + 1
ENDIF
ENDFUNCTION
FUNCTION Render:
DRAWRECT self.X, self.Y, 20,20, RGB(0,255,0)
ENDFUNCTION
FUNCTION Init: X, Y, VX, VY
self.X = X
self.Y = Y
self.VX = VX
self.VY = VY
ENDFUNCTION
FUNCTION Reset:
LOCAL W, H
GETSCREENSIZE W, H
Ball.Init W/2 - 10, H/2 - 10, (RND(8) - 4)*2, (RND(8) - 4)*2
ENDFUNCTION
FUNCTION AnyCollision%:
IF BOXCOLL(self.X, self.Y, 20, 20, Player1.X, Player1.Y, 100, 40) OR BOXCOLL(self.X, self.Y, 20, 20, Player2.X, Player2.Y, 100, 40)
RETURN TRUE
ELSE
RETURN FALSE
ENDIF
ENDFUNCTION
ENDTYPE
GLOBAL Player1 AS TPlayer
GLOBAL Player2 AS TPlayer
GLOBAL Ball AS TBall
SUB GLB_ON_INIT:
LOCAL W, H
GETSCREENSIZE W, H
Player1.Init 10,10, 37,39 //left arrow, right arrow, there are no scancodes like in GLB :/
Player2.Init 10,H-50, 65, 68 //a, d
Ball.Reset
ENDSUB
SUB GLB_ON_LOOP:
Player1.Update
Player2.Update
Ball.Update
Player1.Render
Player2.Render
Ball.Render
PRINT "Score: "+Player1.Score+" : "+Player2.Score, 10, 10
SHOWSCREEN
ENDSUB
