;; Map-Editor mit MySQL


timer = CreateTimer(60);


Graphics 1024, 768, 0, 2
SetBuffer BackBuffer();


Include "connection.bb"


world$ = "world01";


act_world_query = SQLQuery(stream, "SELECT * FROM tbl_world, tbl_textur WHERE FK_textur=PK_textur AND world_name='"+world+"';");


act_world_row = SQLFetchRow(act_world_query);

textur_path$ = ReadSQLField( act_world_row , "textur_path");
world_id	 = ReadSQLField( act_world_row , "PK_world");


textur_img = LoadImage(textur_path);


s_x = 0;
s_y = 0;


query_entities = SQLQuery(stream, "SELECT * FROM tbl_entity;");

anz_elements% = SQLRowCount(query_entities);

Dim entity_image(anz_elements);
	
For i = 1 To anz_elements
	
		row = SQLFetchRow(query_entities);
		
		Print ReadSQLField$( row , "entity_path");
		
		PK = ReadSQLField( row , "PK_entity");
		
		Print "PK: "+PK
		
		entity_image(PK) = LoadImage(ReadSQLField$( row , "entity_path"));
		
		MaskImage entity_image(PK),   ReadSQLField( row , "entity_mask_r"),   ReadSQLField( row , "entity_mask_g"),   ReadSQLField( row , "entity_mask_b")

		FreeSQLRow(row)
		
Next

FreeSQLQuery(query_entities)

; Einstellungen für Editor
Const scroll_spead = 5;


Repeat


	Cls
	
	TileBlock textur_img, s_x, s_y;
	
	Text 10, 10, "Test";
	Text 10, 30, s_x;
	Text 10, 50, s_y;


	; Elemente darstellen	
	query_entities = SQLQuery(stream, "SELECT * FROM tbl_content WHERE FK_world="+world_id);

	anz_elements% = SQLRowCount(query_entities);
	
	For i = 1 To anz_elements
	
		row = SQLFetchRow(query_entities);
		
		x = ReadSQLField( row , "content_x")
		y = ReadSQLField( row , "content_y")
		
		PK_entity = ReadSQLField( row , "FK_entity"); 
		
		FreeSQLRow(row)
		
		DrawImage entity_image(PK_entity), x+s_x, y+s_y 
	
	Next

	FreeSQLQuery(query_entities)

	; Steuerung
	If(KeyDown(203))
		s_x = s_x + scroll_spead;
	EndIf
	
	If(KeyDown(205))
		s_x = s_x - scroll_spead;
	EndIf
	
	If(KeyDown(200))
		s_y = s_y + scroll_spead;
	EndIf
	
	If(KeyDown(208))
		s_y = s_y - scroll_spead;
	EndIf

	
	
	WaitTimer(timer);
	
	Flip 0

Until KeyHit(1)


End