Add unsafe blink gun

src/Dodge/Room/Warning.hs

@@ -17,7 +17,6 @@ import Dodge.Room.Link
 --import Dodge.Room.RoadBlock
 import Dodge.Placement.Instance
 --import Dodge.Default.Room
---import Dodge.Item.Weapon.BulletGuns
 --import Dodge.Item.Weapon.Utility
 --import Dodge.LevelGen.Data
 --import Geometry.Data
@@ -57,11 +56,6 @@ addWarningTerminal outplid = (rmName .++~ "warningTerm-")
     termMessages trid _ = defaultTermParams & addInputLine
             [unlockCommand trid,quitCommand] 
             [helpCommand,infoCommand theinfo,commandsCommand]
-    --termMessages trid = ops trid (genTermMessage $ const ["OPEN DOOR?"]) 
-    --ops trid f gw w = f gw w & termFutureLines ++.~ [ TerminalLineInput 0 
-    --        [unlockCommand trid,quitCommand,damageCodeCommand] 
-    --        [helpCommand,infoCommand theinfo,commandsCommand]
-    --    ]
     unlockCommand trid = singleCommand "OPEN" ["YES","Y"] "OPEN THE CONNECTED DOOR." (toggledoor trid)
     toggledoor trid w' = w' & triggers . ix (fromJust $ _plMID trid) .~ const True
     theinfo = "DOOR CONTROLABLE WITH THE \"OPEN\" COMMAND. THIS TERMINAL CANNOT CLOSE THE DOOR."