From 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e Mon Sep 17 00:00:00 2001
From: Trygve Laugstøl <trygvis@inamo.no>
Date: Fri, 23 Feb 2024 07:08:18 +0100
Subject: wip

---
 .../apps/processquest-1.1.0/src/pq_market.erl      | 77 ++++++++++++++++++++++
 1 file changed, 77 insertions(+)
 create mode 100644 learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_market.erl

(limited to 'learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_market.erl')

diff --git a/learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_market.erl b/learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_market.erl
new file mode 100644
index 0000000..241e9cd
--- /dev/null
+++ b/learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_market.erl
@@ -0,0 +1,77 @@
+%%% Can be used to obtain weapons and pieces of equipment of various types
+%%% to be equipped by the hero. The standard format is:
+%%%  {Name, LevelModifier, Level, Price}.
+-module(pq_market).
+-export([helmet/2, weapon/2, shield/2, armor/2]).
+
+weapon(CombinedLvl, Money) ->
+    L = [
+     {<<"plastic knife">>, -1, 1, 2},
+     {<<"plastic knife">>, 0, 1, 3},
+     {<<"plastic knife">>, 1, 1, 5},
+     {<<"metal spoon">>, -1, 4, 3},
+     {<<"metal spoon">>, 0, 4, 4},
+     {<<"butter knife">>, -1, 6, 5},
+     {<<"butter knife">>, 0, 6, 7},
+     {<<"butter knife">>, 1, 6, 9},
+     {<<"machete">>, -1, 9, 15},
+     {<<"machete">>, 0, 9, 20},
+     {<<"machete">>, 1, 9, 25},
+     {<<"broad sword">>, -1, 12, 23},
+     {<<"broad sword">>, 0, 12, 30},
+     {<<"broad sword">>, 1, 12, 38},
+     {<<"lance">>, -1, 15, 32},
+     {<<"lance">>, 0, 15, 44},
+     {<<"lance">>, 1, 15, 57},
+     {<<"pistol">>, -1, 25, 95},
+     {<<"pistol">>, 0, 25, 105},
+     {<<"pistol">>, 1, 25, 155},
+     {<<"submachine gun">>, -1, 40, 200},
+     {<<"submachine gun">>, 0, 40, 245},
+     {<<"submachine gun">>, 1, 40, 365}
+    ],
+    first_match(fun(W = {_, Modifier, Lvl, Price}) ->
+            if Modifier+Lvl > CombinedLvl, Price =< Money -> W;
+                true -> continue
+            end
+        end, L).
+
+helmet(CombinedLvl, Money) -> pick_material(CombinedLvl, Money).
+shield(CombinedLvl, Money) -> pick_material(CombinedLvl, Money).
+armor(CombinedLvl, Money) -> pick_material(CombinedLvl, Money).
+
+pick_material(CombinedLvl, Money) ->
+    L = materials(),
+    first_match(fun(W = {_, Modifier, Lvl, Price}) ->
+            if Modifier+Lvl > CombinedLvl, Price =< Money -> W;
+                true -> continue
+            end
+        end, L).
+
+
+first_match(_, []) -> undefined;
+first_match(F, [H|T]) ->
+    case F(H) of
+        continue -> first_match(F,T);
+        Val -> Val
+    end.
+
+materials() ->
+    [{<<"wool">>, 0, 1, 25},
+     {<<"pleather">>, 0, 2, 45},
+     {<<"pleather">>, 1, 2, 50},
+     {<<"pleather">>, 2, 2, 65},
+     {<<"leather">>, -2, 7, 30},
+     {<<"leather">>, -1, 7, 35},
+     {<<"leather">>, 0, 7, 45},
+     {<<"leather">>, 2, 7, 65},
+     {<<"chain mail">>, -2, 12, 70},
+     {<<"chain mail">>, 0, 12, 85},
+     {<<"chain mail">>, 1, 12, 95},
+     {<<"chain mail">>, 2, 12, 105},
+     {<<"plate mail">>, -2, 17, 90},
+     {<<"plate mail">>, -1, 17, 95},
+     {<<"plate mail">>, 0, 17, 105},
+     {<<"plate mail">>, 1, 17, 115},
+     {<<"plate mail">>, 2, 17, 135}].
+
-- 
cgit v1.2.3