Advanced Adventure Game on Haskell