// Custom map menu, ported from Sauerbraten, 7Year aka Xolatile.

octabase = "^f7"
octamain = "^f1"
unmapsx  = 4
unmapsy  = 24

custommaps = ""

loopfiles curmap "packages/maps" "ogz" [
	if (< (indexof $allmaps $curmap) 0) [
		custommaps = (concat $custommaps $curmap)
	]
]

sy_nume = (listlen $custommaps)

showcustommaps = [sy_remaps; showgui sy_unmaps]

sy_remaps = [
	custommaps = ""
	loopfiles curmap "packages/maps" "ogz" [
		if (< (indexof $allmaps $curmap) 0) [
			custommaps = (concat $custommaps $curmap)
		]
	]
	custommaps = (sortlist $custommaps x y [<=s $x $y])
	amountxy = (+ (div (listlen $custommaps) $unmapsy) 1)
	loop syxy $amountxy [
		(concatword "custommaps" $syxy) = ""
	]; syxy = 0
	loop syxy $amountxy [
		(concatword "custommaps" $syxy)
		loop unto $unmapsy [
			(concatword "custommaps" $syxy) = (concat $(concatword "custommaps" $syxy) (at $custommaps (+ (* $unmapsy $syxy) $unto)))
		]
	]; syxy = 0; unto = 0
	sy_nume = (listlen $custommaps)
]

newgui sy_unmaps [
	if (mod $amountxy $unmapsx) [
		sy_unpage = (+ (div $amountxy $unmapsx) 1)
	] [
		sy_unpage = (div $amountxy $unmapsx)
	]
	loop syi $sy_unpage [
		guilist [
			loop syj $unmapsx [
				if (< (+ (* $syi $unmapsx) $syj) $amountxy) [
					guistrut $unmapsy 1
					guilist [
						guistrut 27 1
						looplist unto $(concatword "custommaps" (+ (* $syi $unmapsx) $syj )) [
							guibutton (concatword $octabase $unto) (concat map $unto) "cube"
						]
					]
				]
			]
			guibar
			if (< (+ (* $syi $unmapsx) $syj) $amountxy) [
				guiimage (concatword "packages/maps/" (strreplace $guirolloveraction "map " "") ".jpg") $guirolloveraction 6 1 "data/cube.png"
			]
		]
		if (= (+ $syi 1) $sy_unpage) [

		] [
			guitab (concatword $octamain (+ $syi 2))
		]
	]
] (concatword $octamain "Custom Maps (" $sy_nume ")")