persistidents 0

newmenu editing

menuitem (_ [Mapmodels...])         [ showmenu Mapmodels ]
menuitem (_ [Lighting...])          [ showmenu Lighting ]
menuitem (_ [Entities...])          [ showmenu Entities ]
menuitem (_ [Pickups...])           [ showmenu Pickups ]
menuitem (_ [Test a skymap...])     [ showmenu skymaps ]
menuitem (_ [Ambient sounds...])    [ showmenu [Ambient sounds] ]
menuitem (_ [Arches and slopes...]) [ showmenu Arches ]
menuitem (_ [Map operations...])    [ showmenu [Map operations] ]
menuitem (_ [Bots...])              [ showmenu [Creating bot waypoints] ]
menuitem (_ [Settings...])          [ showmenu [Editing settings] ]
menuitem (_ Help?) [ echo (yellow) (_ [Please read the AssaultCube README which has a detailed guide on mapediting...]) ]

tmp_cradius = 12

//Lighting menu.
newmenu Lighting

menuitem (_ [Add white lights ])   [ showmenu [White light] ]
menuitem (_ [Add coloured lights ]) [ showmenu [Coloured light] ]
menuitem [] -1
menuitemcheckbox (_ [Enable fullbright: ]) "$fullbright" [ fullbright $arg1 ]
menuitem [] -1
menuitem (_ [Random coloured light: ]) -1
menuitemtextinput (_ [Radius: ]) [ result $tmp_cradius ] [ if (&& (! (> $arg1 32)) (! (< $arg1 1))) [ tmp_cradius = $arg1 ] [ echo (red)Error: (yellow) $arg1 (white)is not a valid radius for a light entity. ] ]
menuitem (_ [Place random light...]) [ gencl $tmp_cradius ]
menuitem (_ [Update random light...]) gencl

wlight = 1; wlight1 = 1

newmenu [White light]

menuitemslider (_ [Light radius: ]) 1 32 "$wlight" 1 [] [ wlight = $arg1 ]
menuitemslider (_ [Brightness: ]) 1 255 "$wlight1" 5 [] [ wlight1 = $arg1 ]
menuitem [] -1
menuitem (concatword (c 2) [		    ] "[ OK ]" [		]) [ newent light $wlight $wlight1 ]

clight = 1; clight1 = 1; clight2 = 1; clight3 = 1

newmenu [Coloured light]

menuitemslider (_ [Light radius: ]) 1 32 "$clight" 1 []  [ clight = $arg1 ]
menuitem [] -1
menuitemslider (_ [Red light: ]) 1 255 "$clight1" 5 []   [ clight1 = $arg1 ]
menuitemslider (_ [Green light: ]) 1 255 "$clight2" 5 [] [ clight2 = $arg1 ]
menuitemslider (_ [Blue light: ]) 1 255 "$clight3" 5 []  [ clight3 = $arg1 ]
menuitem [] -1
menuitem (concatword (c 2) [		    ] "[ OK ]") [ newent light $clight $clight1 $clight2 $clight3 ]

//Entities menu
newmenu Entities

menuitem (_ [RVSF Spawn point])	[ newent playerstart 1 ]
menuitem (_ [CLA Spawn point])	[ newent playerstart 0 ]
menuitem (_ [FFA Spawn point])	[ newent playerstart 100 ]
menuitem [] -1
menuitem (_ [RVSF CTF Flag])	  [ newent ctf-flag 1 ]
menuitem (_ [CLA CTF Flag])		  [ newent ctf-flag 0 ]
menuitem [] -1
menuitem (_ [Ladder entity]) "saycommand /newent ladder " [ echo "Ensure that you have placed the ladder mapmodel first (found in the mapmodels menu)..." ]
menuitem (_ [Clip entity])   [ showmenu Clips ] [ echo Clips can be used to block off areas that players shouldn't be able to access... ]

_clip00 = clip; _clip00status = 0; _clip01 = 0; _clip02 = 1; _clip03 = 1; _clip04 = 1 // Give aliases an initial value.

newmenu Clips

menuitemslider (_ [Clip type: ]) 0 1 "$_clip00status" 1 [ Clip [Player Clip] ] [ _clip00 = (at [clip plclip] $arg1); _clip00status = $arg1 ]
menuitemslider (_ [Elevation from ground: ]) 0 50 "$_clip01" 1 [] [ _clip01 = $arg1 ]
menuitemslider (_ "Length of clip	(X): ") 0 50 "$_clip02" 1 []   [ _clip02 = $arg1 ]
menuitemslider (_ "Width of clip	(Y): ") 0 50 "$_clip03" 1 []     [ _clip03 = $arg1 ]
menuitemslider (_ "Height of clip	(Z): ") 0 50 "$_clip04" 1 []   [ _clip04 = $arg1 ]
menuitem [] -1
menuitem (concatword (c 2) [		     ] "[ OK ]") [ newent $_clip00 $_clip01 $_clip02 $_clip03 $_clip04 ]

//Pickups menu
newmenu Pickups

menuitem (_ Health)            [ newent health ]
menuitem (_ [Pistol Magazine]) [ newent pistol ]
menuitem (_ [Box of Ammo])     [ newent ammobox ]
menuitem (_ [Kevlar Vest])     [ newent armour ]
menuitem (_ Helmet)            [ newent helmet ]
menuitem (_ Akimbo)            [ newent akimbo ]
menuitem (_ Grenades)          [ newent grenades ]

//Arch and slope menu
newmenu Arches

menuitem (_ [Arch with no sideways curves]) [ heightfield 2; arch 0 ]
menuitem (_ [Arch with sideways curves (delta 1)]) [ heightfield 2; arch 1 ]
menuitem (_ [Arch with sideways curves (delta 2)]) [ heightfield 2; arch 2 ]
menuitem (_ [Arch with sideways curves (delta 3)]) [ heightfield 2; arch 3 ]
menuitem (_ [Arch with sideways curves (delta 4)]) [ heightfield 2; arch 4 ]
menuitem [] -1
menuitem (_ [Slope increase 2 left-right]) [ heightfield 0; slope 2 0 ]
menuitem (_ [Slope decrease 2 left-right]) [ heightfield 0; slope -2 0 ]
menuitem (_ [Slope increase 2 top-bottom]) [ heightfield 0; slope 0 2 ]
menuitem (_ [Slope decrease 2 top-bottom]) [ heightfield 0; slope 0 -2 ]
menuitem (_ [Slope increase 1 left-right]) [ heightfield 0; slope 1 0 ]
menuitem (_ [Slope decrease 1 left-right]) [ heightfield 0; slope -1 0 ]
menuitem (_ [Slope increase 1 top-bottom]) [ heightfield 0; slope 0 1 ]
menuitem (_ [Slope decrease 1 top-bottom]) [ heightfield 0; slope 0 -1 ]
menuitem [] -1
menuitem (_ [Fix heightfielding]) [ solid 0; slope 0 0 ]

newmenu skymaps

menuinit [ echo Please read: (red)/docs/mapediting5.html to find out how to PERMANENTLY add a custom skymap to your map... ]

menuitem (_ [At sea skymap])      [ loadsky "textures/skymaps/kothic/atsea" ]
menuitem (_ [Canyons1 skymap])    [ loadsky "textures/skymaps/ladynighthawk/inhcanyons1" ]
menuitem (_ [Graveyard skymap])	  [ loadsky "textures/skymaps/socksky/grave" ]
menuitem (_ [Ice Station skymap])	[ loadsky "textures/skymaps/iceflow/iceflow" ]
menuitem (_ [Mountain skymap])	  [ loadsky "textures/skymaps/makke/mountain" ]
menuitem (_ [Nightball skymap])	  [ loadsky "textures/skymaps/socksky/nightball" ]
menuitem (_ [Powerlines skymap])  [ loadsky "textures/skymaps/humus/powerlines" ]
menuitem (_ [Rocky skymap])		    [ loadsky "textures/skymaps/makke/rocky" ]
menuitem (_ [Sand skymap])		    [ loadsky "textures/skymaps/makke/sand" ]
menuitem (_ [Steini2 skymap])	    [ loadsky "textures/skymaps/steini/steini2" ]
menuitem (_ [Steini3 skymap])	    [ loadsky "textures/skymaps/steini/steini3" ]
menuitem (_ [Steini4 skymap])	    [ loadsky "textures/skymaps/steini/steini4" ]


_closestenttypestatus = 0
//Map operations
newmenu [Map operations]

menuitem (_ [Newmap (128x128 cubes - recommended)]) [ newmap 7 ]
menuitem (_ [Newmap (256x256 cubes)])               [ newmap 8 ]
menuitem (_ [Increase mapsize (2x)])                [ mapenlarge; echo The map size has been increased by 2. However, the new space is solid. To utilize it, you will need to turn it into non-solid space, by selecting it and pressing G. ]
menuitem (_ [Create/edit a map message])            menumapmsg
menuitem (_ [Change waterlevel])                    [ saycommand [/waterlevel ] ]
menuitem (_ [Change watercolour])                   [ showmenu [Water colour] ]
menuitem (_ [Generate a random watercolour])        genwc
menuitem (_ [Generate a random fogcolour])          [ fogcolour (genhex) ]
menuitem (_ [Print entity stats])                   entstats
menuitem (_ [Select the next closest entity])       nextclosestent
menuitem (_ [Copy the current closest entity])      copyent
menuitem (_ [Paste a previously copied entity])     pasteent
menuitemcheckbox (_ [Show mapmodel clippings: ]) "$showmodelclipping" [ showmodelclipping $arg1 ]
menuitemslider (_ [Select only these entities: ]) 0 15 "$_closestenttypestatus" 1 [All Light Playerstart Pistol Ammobox Grenades Health Armour Akimbo Mapmodel Ladder CTF-flag Sound Clip Helmet PlayerClip] [ _closestentslider $arg1 ]

// "closestenttype" slider...
_closestentslider = [ closestenttype (at ["" light playerstart pistol ammobox grenades health armour akimbo mapmodel ladder ctf-flag sound clip helmet plclip] $arg1); _closestenttypestatus = $arg1 ]

// Map-message edit/creation menu
const menumapmsg [ if (strcmp (getmapmsg) [Untitled Map by Unknown]) [ showmenu [Create a map message] ] [ showmenu [Edit a map message] ] ]

newmenu [Create a map message]
menuinit [ menumapmsgtext = [] ]
menuitemtextinput (_ [Enter your map message: ]) [] [ menumapmsgtext = $arg1 ] [] 256
menuitem (concatword (c 2) [			] "[ OK ]") [ mapmsg $menumapmsgtext ]

newmenu [Edit a map message]
menuinit [ menumapmsgtext = [] ]
menuitemtextinput (_ [Edit your map message: ])	getmapmsg	[ menumapmsgtext = $arg1 ] [] 256
menuitem (concatword (c 2) [		      ] "[ OK ]") [ mapmsg $menumapmsgtext ]

redw = 1; greenw = 1; bluew = 1

newmenu [Water colour]

menuitemslider (_ [Red pigment: ]) 1 255 "$redw" 5 []     [ redw = $arg1 ]
menuitemslider (_ [Green pigment: ]) 1 255 "$greenw" 5 [] [ greenw = $arg1 ]
menuitemslider (_ [Blue pigment: ]) 1 255 "$bluew" 5 []   [ bluew = $arg1 ]
menuitem [] -1
menuitem (concatword (c 2) [		     ] "[ OK ]") [ watercolour $redw $greenw $bluew ]

//Mapmodels
newmenu Mapmodels

menuitem (_ Platforms)        [ showmenu Platforms ]
menuitem (_ [Ladders/Stairs]) [ showmenu Ladders/Stairs ]
menuitem (_ Fencing)          [ showmenu Fencing ]
menuitem (_ Plants)           [ showmenu Plants ]
menuitem (_ Lights)           [ showmenu Lights ]
menuitem (_ Street)           [ showmenu Street ]
menuitem (_ Pipes)            [showmenu Pipes]
menuitem (_ Office)           [ showmenu Office ]
menuitem (_ Computers)        [ showmenu Computers ]
menuitem (_ Home)             [ showmenu Home ]
menuitem (_ Industrial)       [ showmenu Industrial ]
menuitem (_ Military)         [ showmenu Military ]
menuitem (_ Signs)            [ showmenu Signs ]
menuitem (_ Other)            [ showmenu Other ]

newmenu Platforms

menuitem (_ [Bridge (8x8)])        [ saycommand "/newent mapmodel 1 " ]
menuitem (_ [Platform (8x8)])      [ saycommand "/newent mapmodel 57 " ]
menuitem (_ [Wire platform (8x8)]) [ saycommand "/newent mapmodel 73 " ]
menuitem (_ [Ledge (4x1)])		     [ saycommand "/newent mapmodel 155 " ]
menuitem (_ [Ledge (8x1)])		     [ saycommand "/newent mapmodel 156 " ]
menuitem (_ [Ledge (16x1)])        [ saycommand "/newent mapmodel 157 " ]
menuitem (_ [Ledge Corner])        [ saycommand "/newent mapmodel 158 " ]


newmenu Ladders/Stairs

menuitem (_ [Single ladder rung (1)]) [ saycommand "/newent mapmodel 58 " ]
menuitem (_ [Ladder(7)])  [ newent mapmodel 2 ]
menuitem (_ [Ladder(8)])  [ newent mapmodel 3 ]
menuitem (_ [Ladder(10)]) [ newent mapmodel 4 ]
menuitem (_ [Ladder(11)]) [ newent mapmodel 5 ]
menuitem (_ [Ladder(15)]) [ newent mapmodel 6 ]
menuitem [] -1
menuitem (_ [Hangable Ladder (2)])         [ saycommand "/newent mapmodel 136 " ]
menuitem (_ [Hangable Ladder (6)])         [ saycommand "/newent mapmodel 137 " ]
menuitem (_ [Hangable Ladder (Top, Over)]) [ saycommand "/newent mapmodel 138 " ]
menuitem (_ [Hangable Ladder (Top, Side)]) [ saycommand "/newent mapmodel 139 " ]
menuitem (_ [Hangable Ladder (Bottom)])    [ saycommand "/newent mapmodel 140 " ]
menuitem [] -1
menuitem (_ [Wire stairs (Top)])           [ saycommand "/newent mapmodel 79 " ]
menuitem (_ [Wire stairs (Bottom)])        [ saycommand "/newent mapmodel 80 " ]

newmenu Home
// Some of these models are doubled-up in the office menu.
menuitem (_ [Picture frame])     [ saycommand "/newent mapmodel 29 " ]
menuitem (_ Milk)                [ newent mapmodel 69 ]
menuitem (_ [CRT TV])            [ newent mapmodel 86 ]
menuitem (_ [CRT TV in stand])   [ saycommand "/newent mapmodel 70 " ]
menuitem (_ [Plasma TV])         [ newent mapmodel 72 ]
menuitem (_ [Power meter])       [ newent mapmodel 74 ]
menuitem (_ Rack)                [ newent mapmodel 75 ]
menuitem (_ [Utility table])     [ newent mapmodel 87 ]
menuitem (_ [Ceiling fan])       [ saycommand "/newent mapmodel 113 " ]
menuitem (_ Window)		           [ newent mapmodel 126 ]
menuitem (_ Shelf)		           [ newent mapmodel 128 ]
menuitem (_ [Wall switch])       [ saycommand "/newent mapmodel 150 " ]
menuitem (_ [Wall power outlet]) [ saycommand "/newent mapmodel 151 " ]

newmenu Military

menuitem (_ Bullet)          [ newent mapmodel 61 ]
menuitem (_ [Shotgun shell]) [ newent mapmodel 78 ]
menuitem (_ Target)          [ newent mapmodel 100 ]
menuitem (_ [Radar console]) [ newent mapmodel 76 ]
menuitem (_ [Razor wire])    [ newent mapmodel 116 ]
menuitem (_ [Guard tower])   [ newent mapmodel 129 ] [ echo (c 3) (_ [This mapmodel will need to be properly clipped!]) ]
menuitem (_ [Weapon rack])	 [ newent mapmodel 183 ]

newmenu Computers

menuitem (_ Laptop)                  [ newent mapmodel 28 ]
menuitem (_ PC)                      [ newent mapmodel 101 ]
menuitem (_ [Computer interfaces])   [ newent mapmodel 65 ]
menuitem (_ [Communications rack])   [ newent mapmodel 63 ]
menuitem (_ [Communications rack 2]) [ newent mapmodel 64 ]
menuitem (_ [Server rack])           [ newent mapmodel 119 ]
menuitem (_ [Server cluster 1])      [ saycommand "/newent mapmodel 120 " ]
menuitem (_ [Server cluster 2])      [ saycommand "/newent mapmodel 121 " ]
menuitem (_ [Server cluster 3])      [ saycommand "/newent mapmodel 122 " ]
menuitem (_ [Server cluster 4])      [ saycommand "/newent mapmodel 123 " ]
menuitem (_ [Server cluster 5])      [ saycommand "/newent mapmodel 124 " ]
menuitem (_ [Server cluster 6])      [ saycommand "/newent mapmodel 125 " ]

newmenu Street

menuitem (_ [Park Bench])          [ newent mapmodel 9 ]
menuitem (_ Dumpster)              [ newent mapmodel 10 ]
menuitem (_ Trashbag)              [ newent mapmodel 84 ]
menuitem (_ Trashcan)              [ newent mapmodel 85 ]
menuitem (_ Roadblock/Barrier)     [ newent mapmodel 11 ]
menuitem (_ [Roadblock/Barrier 2]) [ newent mapmodel 12 ]
menuitem (_ [Barrier 3])           [ newent mapmodel 168 ]
menuitem (_ Cone)                  [ newent mapmodel 173 ]
menuitem (_ [Fallen cone])         [ newent mapmodel 174 ]
menuitem (_ [Wheel: Vertical])     [ newent mapmodel 88 ]
menuitem (_ [Tyre: Horizontal])    [ newent mapmodel 83 ]
menuitem (_ [Gray milk crate])     [ newent mapmodel 112 ]
menuitem (_ [Red milk crate])      [ newent mapmodel 134 ]
menuitem (_ [Blue milk crate])     [ newent mapmodel 135 ]
menuitem (_ [Car battery])         [ newent mapmodel 152 ]
menuitem (_ Antenna)               [ newent mapmodel 153 ]
menuitem (_ [Hotel sign])          [ saycommand "/newent mapmodel 169 " ]
menuitem (_ [Fire alarm])          [ saycommand "/newent mapmodel 184 " ]
menuitem (_ [Electric box (1)])    [ newent mapmodel 186 ]
menuitem (_ [Electric box (2)])    [ newent mapmodel 187 ]

const tree_warning (concatword (c 3) (_ [Trees are expensive mapmodels. Please only use a maximum of 1 or 2 in a map.]))

newmenu Plants

menuitem (_ [Grass 1])        [ newent mapmodel 17 ]
menuitem (_ [Grass 1 (Dry)])  [ newent mapmodel 18 ]
menuitem (_ [Grass 1 (Snow)]) [ newent mapmodel 19 ]
menuitem (_ [Grass 2])        [ newent mapmodel 20 ]
menuitem (_ [Grass 2 (Dry)])  [ newent mapmodel 21 ]
menuitem (_ [Grass 2 (Snow)]) [ newent mapmodel 22 ]
menuitem (_ [Plant 1])        [ newent mapmodel 23 ]
menuitem (_ [Plant 1 (Dry)])  [ newent mapmodel 24 ]
menuitem (_ [Plant 1 (Snow)]) [ newent mapmodel 25 ]
menuitem (_ [Tree trunk])     [ newent mapmodel 130 ]
menuitem (_ [Tree 1])         [ newent mapmodel 114 ] [ echo $tree_warning ]
menuitem (_ [Tree 2])         [ newent mapmodel 117 ] [ echo $tree_warning ]
menuitem (_ [Pine tree])      [ newent mapmodel 118 ] [ echo $tree_warning ]
menuitem (_ [Palm tree])      [ newent mapmodel 115 ] [ echo $tree_warning ]
menuitem (_ Bush)             [newent mapmodel 170]
menuitem (_ [Small tree])     [newent mapmodel 171]
menuitem (_ Grasses)           [newent mapmodel 172]

newmenu Office

menuitem (_ [Office chair])             [ newent mapmodel 27 ]
menuitem (_ Locker)                     [ newent mapmodel 30 ]
menuitem (_ [Air Conditioner (Outer)])  [ newent mapmodel 60 ]
menuitem (_ [Air Conditioner (Inner)])  [ newent mapmodel 107 ]
menuitem (_ [Office desk])              [ newent mapmodel 71 ]
menuitem (_ [Ceiling fan])              [ saycommand "/newent mapmodel 113 " ]
menuitem (_ [Wall switch])              [ saycommand "/newent mapmodel 150 " ]
menuitem (_ [Wall power outlet])        [ saycommand "/newent mapmodel 151 " ]
menuitem (_ Pinboard)                   [ saycommand "/newent mapmodel 154 " ]
menuitem (_ [Fire extinguisher])        [ newent mapmodel 175 ]
menuitem (_ [Fire extinguisher box])    [ newent mapmodel 182 ]
menuitem (_ [Dropped ceiling, frame])   [ saycommand "/newent mapmodel 177 " ]
menuitem (_ [Dropped ceiling, tiles])   [ saycommand "/newent mapmodel 178 " ]
menuitem (_ [Dropped ceiling, single])  [ saycommand "/newent mapmodel 179 " ]
menuitem (_ [Dropped ceiling, light 1]) [ saycommand "/newent mapmodel 180 " ]
menuitem (_ [Dropped ceiling, light 2]) [ saycommand "/newent mapmodel 181 " ]
menuitem (_ [World map])                [ saycommand "/newent mapmodel 185 " ]

newmenu Pipes

menuitem (_ [Large concrete pipe])  [ newent mapmodel 108 ]
menuitem (_ [Medium metal pipe])    [ newent mapmodel 109 ]
menuitem (_ [Small metal pipe])     [ newent mapmodel 110 ]
menuitem (_ Drainpipe)              [ newent mapmodel 59 ]
menuitem (_ [Closed pipe, horz])    [ saycommand "/newent mapmodel 144" ]
menuitem (_ [Closed pipe, l-down])  [ saycommand "/newent mapmodel 145" ]
menuitem (_ [Closed pipe, l-left])  [ saycommand "/newent mapmodel 146" ]
menuitem (_ [Closed pipe, l-right]) [ saycommand "/newent mapmodel 147" ]
menuitem (_ [Closed pipe, l-up])    [ saycommand "/newent mapmodel 148" ]
menuitem (_ [Closed pipe, vert])    [ saycommand "/newent mapmodel 149" ]

newmenu Lights

menuitem (_ Strahler)           [ saycommand /newent mapmodel 31 ]
menuitem (_ [Fluorescent lamp]) [ saycommand "/newent mapmodel 32 " ]
menuitem (_ LightBulb)          [ saycommand "/newent mapmodel 33 " ]
menuitem (_ [Hanging lamp])     [ saycommand "/newent mapmodel 132 " ]
menuitem (_ [Alarm lamp])       [ saycommand "/newent mapmodel 141 " ]
menuitem (_ [Plate lamp])       [ saycommand "/newent mapmodel 142 " ]
menuitem (_ [Street light])     [ newent mapmodel 7 ]
menuitem (_ [Street light (2)]) [ newent mapmodel 143 ]

newmenu Industrial

menuitem (_ Barrel)                          [ newent mapmodel 34 ]
menuitem (_ [Knocked-over barrel])           [ newent mapmodel 35 ]
menuitem (_ [Electric meter])                [ newent mapmodel 36 ]
menuitem (_ Pallette)                        [ newent mapmodel 37 ]
menuitem (_ Gastank)                         [ newent mapmodel 38 ]
menuitem (_ [Grate (horizontal)])            [ newent mapmodel 39 ]
menuitem (_ [Grate (vertical)])              [ newent mapmodel 40 ]
menuitem (_ Wrench)                          [ newent mapmodel 41 ]
menuitem (_ Bolt)                            [ newent mapmodel 42 ]
menuitem (_ Hook)                            [ newent mapmodel 52 ]
menuitem (_ Cinderblock)                     [ newent mapmodel 62 ]
menuitem (_ [Radioactive drum])              [ newent mapmodel 81 ]
menuitem (_ [Knocked-over radioactive drum]) [ newent mapmodel 82 ]
menuitem (_ [Swiveling security camera])     [ saycommand "/newent mapmodel 77 " ]
menuitem (_ [Camera mount (Vertical)])       [ saycommand "/newent mapmodel 104 " ]
menuitem (_ [Camera mount (Wall)])           [ saycommand "/newent mapmodel 105 " ]
menuitem (_ [Vent flap])                     [ newent mapmodel 133 ]
menuitem (_ [Pickaxe, horz])                 [ newent mapmodel 164 ]
menuitem (_ [Pickaxe, vert])                 [ newent mapmodel 165 ]
menuitem (_ [Shovel, vert])                  [ newent mapmodel 188 ]
menuitem (_ [Shovel, free-standing])         [ newent mapmodel 189 ]
menuitem (_ [Shovel, horz])                  [ newent mapmodel 190 ]

newmenu Fencing

menuitem (_ [Wire fence])             [ newent mapmodel 13 ]
menuitem (_ [Wire fencepost])         [ newent mapmodel 14 ]
menuitem (_ [Open wire fence-gate])   [ newent mapmodel 15 ]
menuitem (_ [Closed wire fence-gate]) [ newent mapmodel 16 ]
menuitem (_ [Barbwire fence-top])     [ newent mapmodel 127 ]
menuitem [] -1
menuitem (_ [Corrugated fence])       [ newent mapmodel 102 ]
menuitem (_ [Corrugated fence 2])     [ newent mapmodel 103 ]
menuitem (_ [Corrugated fence post])  [ newent mapmodel 66 ]
menuitem [] -1
menuitem (_ [Guard rail])             [ newent mapmodel 67 ]
menuitem (_ [Guard rail 2])           [ newent mapmodel 68 ]
menuitem (_ [Guard rail pole])        [ newent mapmodel 106 ]

newmenu Signs

menuitem (_ Flammable)         [ saycommand "/newent mapmodel 43 " ]
menuitem (_ [Speed Limit 5])   [ saycommand "/newent mapmodel 44 " ]
menuitem (_ Maintenance)       [ saycommand "/newent mapmodel 45 " ]
menuitem (_ Caution)           [ saycommand "/newent mapmodel 46 " ]
menuitem (_ Biohazard)         [ saycommand "/newent mapmodel 47 " ]
menuitem (_ Toxic)             [ saycommand "/newent mapmodel 92 " ]
menuitem (_ [Biohazard (2)])   [ saycommand "/newent mapmodel 89 " ]
menuitem (_ Chemicals)         [ saycommand "/newent mapmodel 90 " ]
menuitem (_ [Confined space])  [ saycommand "/newent mapmodel 91 " ]
menuitem (_ [Do not enter!])   [ saycommand "/newent mapmodel 93 " ]
menuitem (_ Explosives)        [ saycommand "/newent mapmodel 94 " ]
menuitem (_ [First aid])       [ saycommand "/newent mapmodel 95 " ]
menuitem (_ [No entry])        [ saycommand "/newent mapmodel 96 " ]
menuitem (_ [No smoking])      [ saycommand "/newent mapmodel 97 " ]
menuitem (_ Radioactive)       [ saycommand "/newent mapmodel 98 " ]
menuitem (_ [Restricted area]) [ saycommand "/newent mapmodel 99 " ]
menuitem (_ Arab)              [ saycommand "/newent mapmodel 111 " ]
menuitem (_ [Wanted Poster])   [ saycommand "/newent mapmodel 55 " ]

newmenu Other

menuitem (_ Cigarette)                 [ newent mapmodel 48 ]
menuitem (_ Can)                       [ newent mapmodel 49 ]
menuitem (_ [Fallen Can])              [ newent mapmodel 50 ]
menuitem (_ [Broken Wood])             [ newent mapmodel 51 ]
menuitem (_ Coffee)                    [ newent mapmodel 53 ]
menuitem (_ Flyer)                     [ newent mapmodel 54 ]
menuitem (_ [Tree Flyer])              [ newent mapmodel 26 ]
menuitem (_ [Potato box])              [ newent mapmodel 56 ]
menuitem (_ [Cardboard box])           [ newent mapmodel 131 ]
menuitem (_ [Chinese take-out])        [ newent mapmodel 159 ]
menuitem (_ [Plastic bottle])		       [ newent mapmodel 160 ]
menuitem (_ [Squashed plastic bottle]) [ newent mapmodel 161 ]
menuitem (_ [Plastic bag, white])      [ newent mapmodel 162 ]
menuitem (_ [Plastic bag, yellow])     [ newent mapmodel 163 ]
menuitem (_ [Newspaper (1)])           [ newent mapmodel 166 ]
menuitem (_ [Newspaper (2)])           [ newent mapmodel 167 ]
menuitem (_ Paintcan)                  [ newent mapmodel 176 ]


newmenu [Ambient sounds]

menuinit [ ambientsoundmenu = [] ]
menuitem (_ [Cave drip])                    [ ambientsoundmenu = 0; showmenu "Ambient sound settings" ]
menuitem (_ [Cars driving in the distance]) [ ambientsoundmenu = 1; showmenu "Ambient sound settings" ]
menuitem (_ [Humm (01)])                    [ ambientsoundmenu = 2; showmenu "Ambient sound settings" ]
menuitem (_ [Humm (02)])                    [ ambientsoundmenu = 3; showmenu "Ambient sound settings" ]
menuitem (_ [Crickets at night])            [ ambientsoundmenu = 4; showmenu "Ambient sound settings" ]
menuitem (_ [Water (01)])                   [ ambientsoundmenu = 5; showmenu "Ambient sound settings" ]
menuitem (_ Wind)                           [ ambientsoundmenu = 6; showmenu "Ambient sound settings" ]
menuitem (_ [Air conditioner])              [ ambientsoundmenu = 7; showmenu "Ambient sound settings" ]
menuitem (_ Compressor)                     [ ambientsoundmenu = 8; showmenu "Ambient sound settings" ]
menuitem (_ Crow)                           [ ambientsoundmenu = 9; showmenu "Ambient sound settings" ]
menuitem (_ [Dogs (01)])                    [ ambientsoundmenu = 10; showmenu "Ambient sound settings" ]
menuitem (_ Helicopter)                     [ ambientsoundmenu = 11; showmenu "Ambient sound settings" ]
menuitem (_ [Humm (03)])                    [ ambientsoundmenu = 12; showmenu "Ambient sound settings" ]
menuitem (_ [Humm (04)])                    [ ambientsoundmenu = 13; showmenu "Ambient sound settings" ]
menuitem (_ [Humm (05)])                    [ ambientsoundmenu = 14; showmenu "Ambient sound settings" ]
menuitem (_ [Humm (06)])                    [ ambientsoundmenu = 15; showmenu "Ambient sound settings" ]
menuitem (_ [Dogs (02)])                    [ ambientsoundmenu = 16; showmenu "Ambient sound settings" ]
menuitem (_ [Night (01)])                   [ ambientsoundmenu = 17; showmenu "Ambient sound settings" ]
menuitem (_ [Night (02)])                   [ ambientsoundmenu = 18; showmenu "Ambient sound settings" ]
menuitem (_ [Radio comms])                  [ ambientsoundmenu = 19; showmenu "Ambient sound settings" ]
menuitem (_ [Radio static])                 [ ambientsoundmenu = 20; showmenu "Ambient sound settings" ]
menuitem (_ [Sat-coms])                     [ ambientsoundmenu = 21; showmenu "Ambient sound settings" ]
menuitem (_ [Sludge])                       [ ambientsoundmenu = 22; showmenu "Ambient sound settings" ]
menuitem (_ [Static (01)])                  [ ambientsoundmenu = 23; showmenu "Ambient sound settings" ]
menuitem (_ [Static (02)])                  [ ambientsoundmenu = 24; showmenu "Ambient sound settings" ]
menuitem (_ [Vent (01)])                    [ ambientsoundmenu = 25; showmenu "Ambient sound settings" ]
menuitem (_ [Vent (02)])                    [ ambientsoundmenu = 26; showmenu "Ambient sound settings" ]
menuitem (_ [Water owl])                    [ ambientsoundmenu = 27; showmenu "Ambient sound settings" ]
menuitem (_ [Water (02)])                   [ ambientsoundmenu = 28; showmenu "Ambient sound settings" ]
menuitem (_ [Water drip])                   [ ambientsoundmenu = 29; showmenu "Ambient sound settings" ]
menuitem (_ [Wind (02)])                    [ ambientsoundmenu = 30; showmenu "Ambient sound settings" ]
menuitem (_ [Waterpipes (01)])              [ ambientsoundmenu = 31; showmenu "Ambient sound settings" ]
menuitem (_ [Waterpipes (02)])              [ ambientsoundmenu = 32; showmenu "Ambient sound settings" ]
menuitem (_ [Warning alarm])                [ ambientsoundmenu = 33; showmenu "Ambient sound settings" ]
menuitem (_ Gastank)                        [ ambientsoundmenu = 34; showmenu "Ambient sound settings" ]
menuitem (_ Keyboard)                       [ ambientsoundmenu = 35; showmenu "Ambient sound settings" ]
menuitem (_ Factory)                        [ ambientsoundmenu = 36; showmenu "Ambient sound settings" ]
menuitem (_ [Vent (03)])                    [ ambientsoundmenu = 37; showmenu "Ambient sound settings" ]
menuitem (_ Waterfront)                     [ ambientsoundmenu = 38; showmenu "Ambient sound settings" ]
menuitem (_ Generator)                      [ ambientsoundmenu = 39; showmenu "Ambient sound settings" ]
menuitem (_ [Electric buzz])                [ ambientsoundmenu = 40; showmenu "Ambient sound settings" ]
menuitem (_ Alarm)                          [ ambientsoundmenu = 41; showmenu "Ambient sound settings" ]
menuitem (_ Flies)                          [ ambientsoundmenu = 42; showmenu "Ambient sound settings" ]
menuitem (_ [Desert hawk])                  [ ambientsoundmenu = 43; showmenu "Ambient sound settings" ]
menuitem (_ Owl)                            [ ambientsoundmenu = 44; showmenu "Ambient sound settings" ]
menuitem (_ [City birds])                   [ ambientsoundmenu = 45; showmenu "Ambient sound settings" ]

soundrad = 1; soundsize = 0; ambientsoundvol = 255

newmenu [Ambient sound settings]
menuinit [ soundrad = 1; soundsize = 0; ambientsoundvol = 255 ]
menuitemslider (_ [Sound radius: ]) 1 25 "$soundrad" 1 [] [ soundrad = $arg1 ]
menuitemslider (_ [Sound size: ]) 0 25 "$soundsize" 1 []  [ soundsize = $arg1 ]
menuitemslider (_ [Sound volume: ]) 1 255 "$ambientsoundvol" 5 [] [ ambientsoundvol = $arg1 ]
menuitem (concatword (c 2) [		     ] "[ OK ]") [ newent sound $ambientsoundmenu $soundrad $soundsize $ambientsoundvol ]

showedBAKinfo = 0

newmenu [Editing settings]
menuitemslider (_ [Grid/Selection style: ]) 0 1 "$oldselstyle" 1 [triangles "squares (default)"] [ oldselstyle $arg1 ]
menuitemslider (_ [Fly speeds multiplier: ]) 1 5 "$flyspeed" 1 [] [ flyspeed $arg1 ]
menuitemcheckbox (_ [Enable auto save map: ]) "$autosavemap" [ autosavemap = $arg1 ]
menuitemslider (_ [Time between auto saves (in minutes): ]) 2 60 "(div $timeBetAutoSaves 60000)" 1 [] [ timeBetAutoSaves = (* $arg1 60000) ]
menuitemtextinput (_ [Make a map backup (.BAK) every: ]) "$numAutoSaveBackups" [ numAutoSaveBackups = $arg1 ] [ if (! $showedBAKinfo) [ echo This setting effects the number of autosavemaps between making a map backup file. "(.BAK)"; showedBAKinfo = 1 ] ] 4

persistidents 1