diff options
Diffstat (limited to 'custommapsmenu.cfg')
| -rwxr-xr-x | custommapsmenu.cfg | 71 |
1 files changed, 0 insertions, 71 deletions
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 ")") |