Add a null transition to the game state machine on a wrong guess

IntersectMBO · Nov 27, 2020 · 93c31ff · 93c31ff
1 parent 99f9e85
commit 93c31ff
Showing 1 changed file with 9 additions and 0 deletions.
diff --git a/plutus-use-cases/src/Language/PlutusTx/Coordination/Contracts/GameStateMachine.hs b/plutus-use-cases/src/Language/PlutusTx/Coordination/Contracts/GameStateMachine.hs
@@ -158,6 +158,15 @@ transition State{stateData=oldData, stateValue=oldValue} input = case (oldData,
                 , stateValue = oldValue - takenOut
                 }
              )
+    (Locked mph tn currentSecret, Guess theGuess nextSecret takenOut)
+         ->
+        let constraints = Constraints.mustSpendValue (token mph tn) <> Constraints.mustForgeCurrency mph tn 0 in
+        Just ( constraints
+             , State
+                { stateData = Locked mph tn currentSecret
+                , stateValue = oldValue
+                }
+             )
     _ -> Nothing
 
 {-# INLINABLE machine #-}