ADA MakerSpace Examples 1

playground.marlowe

When
    [Case
        (Deposit
            (Role "escrow")
            (Role "buyer")
            (Token "" "")
            (Constant 500)
        )
        (When
            [Case
                (Choice
                    (ChoiceId
                        "jobDone"
                        (Role "seller")
                    )
                    [Bound 0 1]
                )
                (If
                    (ValueEQ
                        (ChoiceValue
                            (ChoiceId
                                "jobDone"
                                (Role "seller")
                            ))
                        (Constant 1)
                    )
                    (When
                        [Case
                            (Choice
                                (ChoiceId
                                    "jobDone"
                                    (Role "buyer")
                                )
                                [Bound 0 1]
                            )
                            (If
                                (ValueEQ
                                    (ChoiceValue
                                        (ChoiceId
                                            "jobDone"
                                            (Role "buyer")
                                        ))
                                    (ChoiceValue
                                        (ChoiceId
                                            "jobDone"
                                            (Role "seller")
                                        ))
                                )
                                (When
                                    [Case
                                        (Choice
                                            (ChoiceId
                                                "jobDone"
                                                (Role "escrow")
                                            )
                                            [Bound 0 1]
                                        )
                                        (If
                                            (ValueEQ
                                                (ChoiceValue
                                                    (ChoiceId
                                                        "jobDone"
                                                        (Role "escrow")
                                                    ))
                                                (ChoiceValue
                                                    (ChoiceId
                                                        "jobDone"
                                                        (Role "seller")
                                                    ))
                                            )
                                            (Pay
                                                (Role "escrow")
                                                (Account (Role "seller"))
                                                (Token "" "")
                                                (Constant 500)
                                                Close 
                                            )
                                            (Pay
                                                (Role "escrow")
                                                (Account (Role "seller"))
                                                (Token "" "")
                                                (Constant 500)
                                                Close 
                                            )
                                        )]
                                    50
                                    (Pay
                                        (Role "escrow")
                                        (Account (Role "buyer"))
                                        (Token "" "")
                                        (Constant 500)
                                        Close 
                                    )
                                )
                                Close 
                            )]
                        25
                        (Pay
                            (Role "escrow")
                            (Account (Role "seller"))
                            (Token "" "")
                            (Constant 500)
                            Close 
                        )
                    )
                    (Pay
                        (Role "escrow")
                        (Account (Role "buyer"))
                        (Token "" "")
                        (Constant 500)
                        Close 
                    )
                )]
            15
            (Pay
                (Role "escrow")
                (Account (Role "buyer"))
                (Token "" "")
                (Constant 500)
                Close 
            )
        )]
    5 Close 

playground.marlowe.json

{}