re-add (disabled) air crash disaster

[micropolis] / res / whead.tcl

diff --git a/res/whead.tcl b/res/whead.tcl
index 1255d5b714e80190b34382d116ac5f73cbe8fd83..7e9df1f4f2a3bc15d24439815b13037ff9d59615 100644 (file)
--- a/res/whead.tcl
+++ b/res/whead.tcl
@@ -269,6 +269,11 @@ bind $win.col1.w1.f1.disasters.m <Mod2-Key> {tk_traverseToMenu %W %A}
   $win.col1.w1.f1.disasters.m add command\
     -label {Meltdown}\
     -command "UIDisaster $win \"sim MakeMeltdown\" \"have a nuclear meltdown?\""
+  if {[sim HasAirCrash]} {
+    $win.col1.w1.f1.disasters.m add command\
+      -label {Air Crash}\
+      -command "UIDisaster $win \"sim MakeAirCrash\" \"crash an airplane?\""
+  }
   $win.col1.w1.f1.disasters.m add command\
     -label {Tornado}\
     -command "UIDisaster $win \"sim MakeTornado\" \"spin up a tornado?\""