Const max_size = 512
Dim map(max_size, max_size)

;TODO: Mehr bzw. "kreativere" Charsets 
Dim charset$(10)
charset$(0) = " "
charset$(1) = "#"
;charset(2) = " "
;charset(3) = " "

Print "Größe festlegen (max. "+max_size+" x "+max_size+")"
Global map_width, map_height

Repeat
	map_width = Input("map-width: ")
Until map_width > 0 And map_width <= max_size
Repeat
	map_height = Input("map-height: ")
Until map_height > 0 And map_height <= max_size

Print "Modus wählen, Möglichkeiten:"
Print "1 -> Einfaches Labyrinth"
Print "2 -> Einfache Arena (kreisförmig)"
mode = Input(": ")

char$ = Input("Zu verwendendes Zeichen (Standard #): ")
If char$ <> "" Then charset$(1) = char$

Select mode
	Case 1
		simple_maze()
	Case 2
		simple_arena()
	Default
		Print "Sorry, unerkannte Eingabe"
End Select

;In Datei schreiben & Datei öffnen
Local writer = WriteFile("output.txt")

write_map(writer)

CloseFile writer
Print "Fertig - Drücke Taste"
WaitKey()
ExecFile("output.txt")
End

Function simple_maze()
	;"Labyrinth" mit horizontalen Wänden - jeweils an einer Stelle durchlässig
	do_rect(0,0,map_width,map_height, 1)
	For y = 2 To map_height - 2 Step 2
		do_line(0,y, map_width,y, 1)
		do_dot(Rand(2,map_width - 2), y, 0)
	Next
End Function

Function simple_arena()
	;Kreis mit punkt-Hindernissen darin
	cx = map_width / 2
	cy = map_height / 2
	
	If map_width < map_height Then
		r = map_width / 2
	Else
		r = map_height / 2
	EndIf
	
	do_circle(cx, cy, r, 1)
	
	If r < 2 Then
		;Abbrechen, weil in zu kleinen Kreisen können wir keine Punkte reinsetzen...
		Return
	EndIf
	
	count = 0
	tries = 0
	Repeat
		x = Rand(1, map_width - 1)
		y = Rand(1, map_height - 1)
		
		dx = cx - x
		dy = cy - y
		dist# = Sqr(dx*dx + dy*dy)
		
		If dist < r Then
			do_dot(x, y, 1)
			count=count+1
		EndIf
		tries=tries+1
	Until count > r Or tries > r*r
End Function

Function do_dot(x, y, index)
	map(x, y) = index
End Function

Function do_line(x1,y1, x2,y2, index)
	dx = x2-x1
	dy = y2-y1
	w# = ATan2(dy,dx)
	dist# = Sqr(dx*dx + dy*dy)
	
	For i = 0 To dist#
		x = x1 + i * Cos(w#)
		y = y1 + i * Sin(w#)
		do_dot(x,y, index)
	Next
End Function

Function do_rect(x1,y1, x2,y2, index)
	do_line(x1,y1, x1,y2, index)
	do_line(x1,y1, x2,y1, index)
	do_line(x2,y1, x2,y2, index)
	do_line(x1,y2, x2,y2, index)
End Function

Function do_circle(cx, cy, r, index)
	s = 60 / r
	If s < 1 Then s = 1
	For w = 0 To 360 Step 5
		x = cx + Cos(w) * r
		y = cy + Sin(w) * r
		do_dot(x, y, index)
	Next
End Function

Function write_map(writer)
	For y = 0 To map_height
		txt$ = ""
		For x = 0 To map_width
			txt$ = txt$ + charset( map(x,y) )
		Next
		WriteLine writer, txt$
	Next
End Function

• Die Ausgabe erfolgt in eine Datei
  
• Man kann die Grösse wählen
  
• Verschiedene Einstellungen können vorgenommen werden

• Der Labyrinth-Algo scheint sehr einfältig zu arbeiten
  
• Du willst dich vor der Teilnahme drücken? Das kommt nicht in Frage!