Example.save.ste

(PlayerStatus (LocName "Basement",Location {lcDescList = fromList [(DescOrder 0,LocDesc "This is Basement description"),(DescOrder 1,LocDescCond CondLocal (CondId 0) "There is an axe on the floor.")], lcTravelList = fromList [(LocName "House",LocCanTravel)], lcObjects = fromList [], lcItems = fromList [], lcActions = [ActionUnique {auCommands = ["clean","tidy"], aObjectM = Nothing, aComment = "Your basement is shining!", aResults = [ArAddLocationItems [],ArRemoveObjects []]}], lcConditions = fromList [(CondId 0,Condition [] [Item "Axe"] [])]}) (fromList [Item "Axe"]),(GameOptions {goGameName = "XXX", goGameVersion = "1", goPlayerCapacity = 5, goEndingLocation = LocName "Outside", goConditions = fromList [(CondId 0,Condition [] [] [Item "Wood"])], goIntro = "This is a Demo game.\nTry to finish it.\nYour goal is to go out from the house.\nGood luck!", goOutro = "You win!"},fromList [(LocName "Basement",Location {lcDescList = fromList [(DescOrder 0,LocDesc "This is Basement description"),(DescOrder 1,LocDescCond CondLocal (CondId 0) "There is an axe on the floor.")], lcTravelList = fromList [(LocName "House",LocCanTravel)], lcObjects = fromList [], lcItems = fromList [Item "Axe"], lcActions = [ActionUnique {auCommands = ["clean","tidy"], aObjectM = Nothing, aComment = "Your basement is shining!", aResults = [ArAddLocationItems [],ArRemoveObjects []]}], lcConditions = fromList [(CondId 0,Condition [] [Item "Axe"] [])]}),(LocName "House",Location {lcDescList = fromList [(DescOrder 0,LocDesc "This is House description."),(DescOrder 1,LocDescCond CondLocal (CondId 0) "The wooden door are completly destroyed.")], lcTravelList = fromList [(LocName "Basement",LocCanTravel),(LocName "Outside",LocCannotTravel CondLocal (CondId 0) "The wooden door seems to be locked.")], lcObjects = fromList [Object "Door"], lcItems = fromList [], lcActions = [ActionUnique {auCommands = ["kick"], aObjectM = Just (Object "Door"), aComment = "Door is solid, your legs are weak... Nothing happens.", aResults = [ArAddLocationItems [],ArRemoveObjects []]},ActionUseItemsOnObject {aItemsUsed = fromList [Item "Axe"], aObject = Object "Door", aComment = "You destroyed the door!", aResults = [ArAddLocationItems [Item "Wood"],ArRemoveObjects [Object "Door"]]}], lcConditions = fromList [(CondId 0,Condition [Object "Door"] [] [])]}),(LocName "Outside",Location {lcDescList = fromList [(DescOrder 0,LocDesc "You are free!")], lcTravelList = fromList [(LocName "House",LocCanTravel)], lcObjects = fromList [], lcItems = fromList [], lcActions = [], lcConditions = fromList []})]))