kai/assaultcube-
1
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new map checks and statistics menu

Browse Source 
Visualise the results of "mapareacheck".
This commit is contained in:
ac-stef
2016-08-26 14:08:56 +02:00
parent 084be76825
commit 6454a645ae
1 changed files with 78 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
config/menus_edit.cfg
+78
View File
@@ -12,6 +12,7 @@ menuitem "Ambient sounds..." [ showmenu [Ambient sounds] ]
menuitem "Arches and slopes..." [ showmenu Arches ]
menuitem "Map operations..." [ showmenu [Map operations] ]
menuitem "Map config operations..." [ showmenu [Map config operations] ]
menuitem "Map checks and statistics..." [ showmenu [Map checks and statistics] ]
menuitem "Bots..." [ showmenu [Creating bot waypoints] ]
menuitem "Settings..." [ showmenu [Editing settings] ]
menuitem "Deleted entities" [ showmenu "deleted entities" ]
@@ -185,6 +186,18 @@ menuitem "Sort mapsound slots..." [ showmenu [Sort mapsound slots] ]
menuitem "" -1
menuitem "Update mapmodel menus" "mapmodelchanged 1"
// Map checks
newmenu [Map checks and statistics]
menuinit [
resetmenu
if $editing [
menuitem "Map area checks..." [ showmenu [Map area checks] ]
menuitem "Entity statistics" [ showmenu [Entity statistics] ]
] [
menuitem "menu only available in edit mode" -1
]
]
tempalias __lastwatchedmapmodel ""
tempalias __mmslot ""
@@ -800,4 +813,69 @@ tempalias _sndmenu_exec [
if $editing [ showmenu "Pick mapsound" ]
]
tempalias __showslopes [
push i 0
looplist (mapareacheck vdelta) n [
if $n [ echo $n cubes with slopes $i .. (+ $i 2) ]
i = (+ $i 2)
]
pop i
]
tempalias __clearprobepointdummies [ clearents dummy ]
tempalias __placeprobepointdummies [
__clearprobepointdummies
looplist (mapareacheck pp) [x y z area vol avgh] [
if (> $vol 32767) [ vol = 32767 ]
editentity (addentity dummy) $x $y (+ $z 5) $area "" "" "" $vol "" $avgh
]
]
newmenu [Map area checks]
menuitem "Heightfield slope stats" __showslopes
menuitem "Goto steepest heightfield position" [ push p (mapareacheck steepest) ; gotoposition (at $p 0) (at $p 1) (at (pop p) 2)]
menuitem "Place probe point dummies" __placeprobepointdummies
menuitem "Walk probe point dummies..." [ showmenu [Walk probe point dummies] ]
menuitem "Clear probe point dummies" __clearprobepointdummies
newmenu [Walk probe point dummies]
menuinit [
resetmenu
__placeprobepointdummies
menuitem "\f4(return to previous position)" (concat gotoposition (gotoposition)) (concat gotoposition (gotoposition))
push i 0
push ents (enumentities dummy)
looplist (mapareacheck pp) [x y z area vol avgh] [
menuitem (concatword "#" $i " area: " $area " volume: " $vol " avg height: " $avgh " (" $x "|" $y ")") (concat gotoentity (at $ents $i)) (concat gotoentity (at $ents $i))
+= i 1
]
pop i ents
]
push __a "resetmenu ; menuitem [\f4(return to previous position)] (concat gotoposition (gotoposition)) (concat gotoposition (gotoposition)) ;"
push __b "looplist $ents i [ menuitem (concatword # $i) (concat gotoentity $i) (concat gotoentity $i) ] ; pop ents"
looplist (listoptions ents) e [
newmenu (concat Walk $e entities)
menuinit (concat $__a "push ents (enumentities" $e ") ;" $__b)
]
pop __a __b
newmenu [Entity statistics]
menuinit [
resetmenu
push s 1
looplist (listoptions ents) e [
push n (listlen (enumentities $e))
if $n [
menuitem (concatword $n " entities of type " $e) (concat showmenu "[Walk" $e "entities]")
s = 0
]
pop n
]
if (pop s) [
menuitem "No entities" -1
]
]
persistidents 1