Files
assaultcube-/config/menus_edit.cfg
T
Bukz c9304f1f99 fixes/updates
git-svn-id: svn://svn.code.sf.net/p/actiongame/code/trunk/ac@6255 e016b1c5-ed68-44aa-a2f7-31cac88cffde
2011-04-16 13:55:31 +00:00

427 lines
22 KiB
INI

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 "Help?" [ echo (c 2)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 (c 3)Error: (c 2) $arg1 (c 5)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 " 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 " 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 " 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: (c 3)/docs/mapediting5.html to find out how to PERMANENTLY add a custom skymap to your map... ]
menuitem "Steini2 skymap" [ loadsky "textures/skymaps/steini/steini2" ]
menuitem "Steini3 skymap" [ loadsky "textures/skymaps/steini/steini3" ]
menuitem "Steini4 skymap" [ loadsky "textures/skymaps/steini/steini4" ]
menuitem "Rocky skymap" [ loadsky "textures/skymaps/makke/rocky" ]
menuitem "Mountain skymap" [ loadsky "textures/skymaps/makke/mountain" ]
menuitem "Iceflow skymap" [ loadsky "textures/skymaps/iceflow/iceflow" ]
menuitem "Inhcanyons1 skymap" [ loadsky "textures/skymaps/ladynighthawk/inhcanyons1" ]
menuitem "Nightball skymap" [ loadsky "textures/skymaps/socksky/nightball" ]
menuitem "Grave skymap" [ loadsky "textures/skymaps/socksky/grave" ]
menuitem "At sea skymap" [ loadsky "textures/skymaps/kothic/atsea" ]
_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
menumapmsg = [ if (= (strcmp (getmapmsg) "Untitled Map by Unknown") 1) [ 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 " 2 [ OK ]" [ mapmsg $menumapmsgtext ]
newmenu "Edit a map message"
menuinit [ menumapmsgtext = "" ]
menuitemtextinput "Edit your map message: " "getmapmsg" [ menumapmsgtext = $arg1 ] "" 256
menuitem " 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 " 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 "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 " ]
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
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 " ]
// The ceiling fan model is repeated in the "office" menu so it's easy to find, as it could be either office or home.
menuitem "Window" [ newent mapmodel 126 ]
menuitem "Shelf" [ newent mapmodel 128 ]
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! ]
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 "Drainpipe" [ newent mapmodel 59 ]
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 ]
tree_warning = "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 (c 3) $tree_warning ]
menuitem "Tree 2" "newent mapmodel 117" [ echo (c 3) $tree_warning ]
menuitem "Pine tree" "newent mapmodel 118" [ echo (c 3) $tree_warning ]
menuitem "Palm tree" "newent mapmodel 115" [ echo (c 3) $tree_warning ]
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 " ]
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 "Large concrete pipe" [ newent mapmodel 108 ]
menuitem "Medium metal pipe" [ newent mapmodel 109 ]
menuitem "Small metal pipe" [ newent mapmodel 110 ]
menuitem "Vent flap" [ newent mapmodel 134 ]
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 ]
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 " 2 [ OK ]" [ newent sound $ambientsoundmenu $soundrad $soundsize $ambientsoundvol ]