diff options
| author | Trygve Laugstøl <trygvis@inamo.no> | 2024-02-23 07:08:18 +0100 |
|---|---|---|
| committer | Trygve Laugstøl <trygvis@inamo.no> | 2024-02-23 07:08:18 +0100 |
| commit | 5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e (patch) | |
| tree | 982ca2e7f9ac4e8c350dfb5c4f60bcfdfff5afaf /learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_quest.erl | |
| parent | 05ae56e5e89abf2993f84e6d52b250131f247c35 (diff) | |
| download | erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.tar.gz erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.tar.bz2 erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.tar.xz erlang-workshop-5a9cdd3cc89507d4d74f8bded56ce5e037b3b56e.zip | |
wip
Diffstat (limited to 'learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_quest.erl')
| -rw-r--r-- | learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_quest.erl | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_quest.erl b/learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_quest.erl new file mode 100644 index 0000000..b8294fb --- /dev/null +++ b/learn-you-some-erlang/processquest/apps/processquest-1.1.0/src/pq_quest.erl @@ -0,0 +1,15 @@ +-module(pq_quest). +-export([fetch/0]). + +fetch() -> + L = quests(), + lists:nth(random:uniform(length(L)), L). + +quests() -> + [{<<"Fetch me a nut">>, [{experience, 150}, {kills, 20}]}, + {<<"Cancel the festival">>, [{experience, 65}, {kills, 8}]}, + {<<"Summon the dragon">>, [{experience, 1000}, {kills, 100}]}, + {<<"Meet the invisible man">>, [{experience, 200}, {kills, 25}]}, + {<<"Find quest ideas">>, [{experience, 340}, {kills, 32}]}, + {<<"Invent maple syrup">>, [{experience, 1500}, {kills, 175}]}, + {<<"Slay the Bieber">>, [{experience, 500}, {kills, 45}]}]. |