From 6de153293f0ba70aed1f7714f626bc5652a9bd32 Mon Sep 17 00:00:00 2001
From: xolatile
Date: Mon, 21 Jul 2025 12:59:59 +0200
Subject: Removed steep fur, changed script names, grass textures...

---
 custommapsmenu.cfg | 71 ------------------------------------------------------
 1 file changed, 71 deletions(-)
 delete mode 100755 custommapsmenu.cfg

(limited to 'custommapsmenu.cfg')

diff --git a/custommapsmenu.cfg b/custommapsmenu.cfg
deleted file mode 100755
index cac660a..0000000
--- a/custommapsmenu.cfg
+++ /dev/null
@@ -1,71 +0,0 @@
-// 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 ")")
-- 
cgit v1.2.3