From 2a8d5ff78245782c2bdd9b7a7d49b2e070b18297 Mon Sep 17 00:00:00 2001
From: Ian Holmes <ihh@berkeley.edu>
Date: Fri, 2 Sep 2016 00:15:05 -0700
Subject: [PATCH] template/dilemma.letter

---
 template/dilemma.letter | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 template/dilemma.letter

diff --git a/template/dilemma.letter b/template/dilemma.letter
new file mode 100644
index 0000000..74a6ed9
--- /dev/null
+++ b/template/dilemma.letter
@@ -0,0 +1,34 @@
+title {Prisoner's Dilemma}
+roles 2
+score $#sc
+@start => [@init_names
+@init_scores
+@init_moods||Let's play Prisoner's Dilemma.|]{@dilemma}
+#= random @init_names => {$player[1] = "Player 1";
+$player[2] = "Player 2";
+}
+#= random @init_moods => {$mood[1] = "happy";
+$mood[2] = "happy";}
+#= random @init_scores => {$reward = -1;
+$sucker = -3;
+$temptation = 0;
+$punishment = -2;}
+#= random @dilemma => [@moods|||@select_moods]{@select_strategy1 @select_strategy2 @payoff
+}
+#= random @moods => {Player 1 is $mood[1];, player 2 is $mood[2];.}
+#1 pause @select_strategy1 => [
+||Player 1, what's your strategy?|]{Co-operate=>$#defect = 0;|Defect=>$#defect = 1;}
+#2 pause @select_strategy2 => [||Player 2, what's your strategy?|]{Co-operate=>$#defect = 0;|Defect=>$#defect = 1;}
+#= random @payoff => [|||]{&mul(&eq($defect[1],1),&eq($defect[2],1))==>$sc[1] += $punishment;
+$sc[2] += $punishment;
+Both players are punished.
+|&mul(&eq($defect[1],1),&eq($defect[2],0))==>$sc[1] += $temptation;
+$sc[2] += $sucker;
+Player 2 is the sucker.|&mul(&eq($defect[1],0),&eq($defect[2],1))==>$sc[1] += $sucker;
+$sc[2] += $temptation;
+Player 1 is the sucker.|&mul(&eq($defect[1],0),&eq($defect[2],0))==>$sc[1] += $reward;
+$sc[2] += $reward;
+Both players are rewarded.}
+#= random @select_moods => {@select_mood1 @select_mood2 @moods}
+#1 pause @select_mood1 => [||What's your mood now, $#player?|]{Happy=>$#mood = "happy";|Sad=>$#mood = "sad";|Afraid=>$#mood = "afraid";|Angry=>$#mood = "angry";|Surprised=>$#mood = "surprised";|Disgusted=>$#mood = "disgusted";}
+#2 pause @select_mood2 => [||What's your mood now, $#player;?|]{Happy=>$#mood = "happy";|Sad=>$#mood = "sad";|Afraid=>$#mood = "afraid";|Angry=>$#mood = "angry";|Surprised=>$#mood = "surprised";|Disgusted=>$#mood = "disgusted";}