rakeela/To-Wander-Theoma
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Money System Instituted

Browse Source 
You now start with coins.  There is no use for them yet.
This commit is contained in:
Rakeela Windrider
2025-10-15 02:35:05 +00:00
parent e79f8aa3ca
commit aa32223709
1 changed files with 41 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

49
story.ni
View File

@@ -54,7 +54,8 @@ A person has a number called sleepinghour. Sleepinghour is usually 3.
A person has a number called workinghour. Workinghour is usually 1. A person has a number called workinghour. Workinghour is usually 1.
A person has a room called a preferred hangout. A person has a room called a preferred hangout.
A person has a number called Hungernum. A person has a number called hungerNum.
A person has a number called coinsNum. [I'm thinking five coins per night is a normal price for an inn, and three coins per meal is a normal price for a meal. Every term of a remunerative career will be worth 42,424 coins, and every term of a non-remunerative career will be worth 4,554.]
An aquatic semblance is a kind of value. The aquatic semblances are fish-like, orca-like, dolphin-like, vrash-passing, and not fishy. A person has an aquatic semblance. The aquatic semblance of a person is usually not fishy. An aquatic semblance is a kind of value. The aquatic semblances are fish-like, orca-like, dolphin-like, vrash-passing, and not fishy. A person has an aquatic semblance. The aquatic semblance of a person is usually not fishy.
@@ -74,10 +75,8 @@ A conveyance is a kind of thing. A person has a conveyance. The conveyances ar
Table of Conveyance Definitions Table of Conveyance Definitions
Conveyance Bulk Limit Strength Requirement Blocks Flight Conveyance Bulk Limit Strength Requirement Blocks Flight
a pfod 10 1 False a backpack 40 1 False
your hands 20 1 False a greatpack 70 3 False
a backpack 40 2 False
a greatpack 70 4 False
a flightpack 90 5 False a flightpack 90 5 False
an izerah cart 400 10 True an izerah cart 400 10 True
a myrghon gearwagon 2000 1 True a myrghon gearwagon 2000 1 True
@@ -88,8 +87,11 @@ a grand flying wagon 6000 5 False
Instead of taking inventory: Instead of taking inventory:
let currentconveyance be the conveyance of the player; let currentconveyance be the conveyance of the player;
say "You are using [a currentconveyance] for carrying capacity. It has [the bulk limit of currentconveyance] units of carrying capacity.[Canyouflywiththis]"; say "You are using [a currentconveyance] for carrying capacity. It has [the bulk limit of currentconveyance] units of carrying capacity.[run paragraph on][Canyouflywiththis]";
say "Debug. Inventory implementation incomplete."; Let InvList be the list of tangibles carried by the player;
say "You are carrying: ";
say InvList;
say "[line break]You have [coinsNum of the player] gold coins worth of liquid wealth saved up, mostly represented by an accounts book."
To say canyouflywiththis: To say canyouflywiththis:
let conveyance be the conveyance of the player; let conveyance be the conveyance of the player;
@@ -109,7 +111,7 @@ Check taking a tangible:
Let X be the noun; Let X be the noun;
let C be the conveyance of the player; let C be the conveyance of the player;
Let B be the bulk of X; Let B be the bulk of X;
If the load of the player plus B is greater than the carrying capacity of C: If the load of the player plus B is greater than the Bulk Limit of C:
say "You're carrying too much stuff already. You'll have to drop something or get a bigger conveyance."; say "You're carrying too much stuff already. You'll have to drop something or get a bigger conveyance.";
Stop the action. Stop the action.
@@ -1057,6 +1059,7 @@ To say select vrash:
Now the species of the player is vrash; Now the species of the player is vrash;
Now the aquatic semblance of the player is not fishy; Now the aquatic semblance of the player is not fishy;
Now the career history of the player is {}; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 40;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1066,6 +1069,7 @@ To say select vashael:
Now the species of the player is vashael; Now the species of the player is vashael;
Now the aquatic semblance of the player is not fishy; Now the aquatic semblance of the player is not fishy;
Now the career history of the player is {}; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 29;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1074,6 +1078,7 @@ To say select vashael:
To say select izerah: To say select izerah:
Now the species of the player is izerah; Now the species of the player is izerah;
Now the aquatic semblance of the player is not fishy; Now the career history of the player is {}; Now the aquatic semblance of the player is not fishy; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 11;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1082,6 +1087,7 @@ To say select izerah:
To say select veserus: To say select veserus:
Now the species of the player is veserus; Now the species of the player is veserus;
Now the aquatic semblance of the player is a random item from the list of veserus aquatic semblances; Now the career history of the player is {}; Now the aquatic semblance of the player is a random item from the list of veserus aquatic semblances; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 37;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1090,6 +1096,7 @@ To say select veserus:
To say select kalla: To say select kalla:
Now the species of the player is kalla; Now the species of the player is kalla;
Now the aquatic semblance of the player is not fishy; Now the career history of the player is {}; Now the aquatic semblance of the player is not fishy; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 2;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1098,6 +1105,7 @@ To say select kalla:
To say select swaivshon: To say select swaivshon:
Now the species of the player is swaivshon; Now the species of the player is swaivshon;
Now the aquatic semblance of the player is not fishy; Now the career history of the player is {}; Now the aquatic semblance of the player is not fishy; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 29;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1106,6 +1114,7 @@ To say select swaivshon:
To say select myrskor: To say select myrskor:
Now the species of the player is myrskor; Now the species of the player is myrskor;
Now the aquatic semblance of the player is not fishy; Now the career history of the player is {}; Now the aquatic semblance of the player is not fishy; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 1;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1114,6 +1123,7 @@ To say select myrskor:
To say select myrghon: To say select myrghon:
Now the species of the player is myrghon; Now the species of the player is myrghon;
Now the aquatic semblance of the player is not fishy; Now the career history of the player is {}; Now the aquatic semblance of the player is not fishy; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 39;
Now the age of the player is 1227; Now the age of the player is 1227;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1122,6 +1132,7 @@ To say select myrghon:
To say select vohntrai: To say select vohntrai:
Now the species of the player is vohntrai; Now the species of the player is vohntrai;
Now the aquatic semblance of the player is not fishy; Now the career history of the player is {}; Now the aquatic semblance of the player is not fishy; Now the career history of the player is {};
Now the strength of the player is the strength of the player + 0;
Now the age of the player is 100; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1411,6 +1422,7 @@ A person has a list of careers called a career history.
To employ (P - a person) as a/an (C - a career): To employ (P - a person) as a/an (C - a career):
Add C to the career history of P; Add C to the career history of P;
If C is lumbergon: If C is lumbergon:
now the coinsNum of P is the coinsNum of P + 42424;
give 645 XP to P in lumbering; give 645 XP to P in lumbering;
give 100 XP to P in physical games; give 100 XP to P in physical games;
give 100 XP to P in hunting; give 100 XP to P in hunting;
@@ -1419,6 +1431,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is huntgon: If C is huntgon:
now the coinsNum of P is the coinsNum of P + 42424;
give 645 XP to P in hunting; give 645 XP to P in hunting;
give 410 XP to P in gathering; give 410 XP to P in gathering;
give 100 XP to P in physical games; give 100 XP to P in physical games;
@@ -1426,6 +1439,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is pottergon: If C is pottergon:
now the coinsNum of P is the coinsNum of P + 42424;
give 645 XP to P in pottery; give 645 XP to P in pottery;
give 233 XP to P in visual arts; give 233 XP to P in visual arts;
give 100 XP to P in mental games; give 100 XP to P in mental games;
@@ -1433,6 +1447,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is haulergon: If C is haulergon:
now the coinsNum of P is the coinsNum of P + 42424;
give 410 XP to P in mercantile; give 410 XP to P in mercantile;
give 410 XP to P in bookgems; give 410 XP to P in bookgems;
give 233 XP to P in song; give 233 XP to P in song;
@@ -1441,6 +1456,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is smithgon: If C is smithgon:
now the coinsNum of P is the coinsNum of P + 42424;
give 645 XP to P in smithing; give 645 XP to P in smithing;
give 100 XP to P in physical games; give 100 XP to P in physical games;
give 100 XP to P in carousing; give 100 XP to P in carousing;
@@ -1449,6 +1465,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is farmgon: If C is farmgon:
now the coinsNum of P is the coinsNum of P + 42424;
give 410 XP to P in farming; give 410 XP to P in farming;
give 233 XP to P in song; give 233 XP to P in song;
give 233 XP to P in physical games; give 233 XP to P in physical games;
@@ -1458,6 +1475,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is authorgon: If C is authorgon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in writing; give 645 XP to P in writing;
give 645 XP to P in bookgems; give 645 XP to P in bookgems;
give 233 XP to P in kaima; give 233 XP to P in kaima;
@@ -1470,6 +1488,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is philosophygon: If C is philosophygon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in teaching; give 645 XP to P in teaching;
give 410 XP to P in theology; give 410 XP to P in theology;
give 410 XP to P in writing; give 410 XP to P in writing;
@@ -1480,6 +1499,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in influence; give 100 XP to P in influence;
give 100 XP to P in ecology; give 100 XP to P in ecology;
If C is sex pest: If C is sex pest:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in sex appeal; give 645 XP to P in sex appeal;
give 645 XP to P in erotic art; give 645 XP to P in erotic art;
give 233 XP to P in carousing; give 233 XP to P in carousing;
@@ -1489,6 +1509,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in song; give 100 XP to P in song;
give 100 XP to P in instrument; give 100 XP to P in instrument;
If C is charitygon: If C is charitygon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in influence; give 645 XP to P in influence;
give 645 XP to P in panhandling; give 645 XP to P in panhandling;
give 410 XP to P in teaching; give 410 XP to P in teaching;
@@ -1498,6 +1519,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is rangergon: If C is rangergon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in hunting; give 645 XP to P in hunting;
give 410 XP to P in trophy hunter; give 410 XP to P in trophy hunter;
give 410 XP to P in ecology; give 410 XP to P in ecology;
@@ -1508,6 +1530,7 @@ To employ (P - a person) as a/an (C - a career):
give 233 XP to P in sex appeal; give 233 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is physical dissolutionist: If C is physical dissolutionist:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in carousing; give 645 XP to P in carousing;
If the alloace spectrum of the player is not sex-repulsed asexual: If the alloace spectrum of the player is not sex-repulsed asexual:
give 410 XP to P in erotic art; give 410 XP to P in erotic art;
@@ -1519,6 +1542,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in trophy hunter; give 100 XP to P in trophy hunter;
give 100 XP to P in song; give 100 XP to P in song;
If C is mental dissolutionist: If C is mental dissolutionist:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in mental games; give 645 XP to P in mental games;
give 410 XP to P in theology; give 410 XP to P in theology;
give 233 XP to P in writing; give 233 XP to P in writing;
@@ -1535,6 +1559,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is holygon: If C is holygon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in theology; give 645 XP to P in theology;
give 645 XP to P in bookgems; give 645 XP to P in bookgems;
give 410 XP to P in teaching; give 410 XP to P in teaching;
@@ -1544,6 +1569,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is lutragon: If C is lutragon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in carousing; give 645 XP to P in carousing;
give 410 XP to P in past world knowledge; give 410 XP to P in past world knowledge;
give 233 XP to P in mental games; give 233 XP to P in mental games;
@@ -1553,6 +1579,7 @@ To employ (P - a person) as a/an (C - a career):
give 233 XP to P in erotic art; give 233 XP to P in erotic art;
give 100 XP to P in hunting; give 100 XP to P in hunting;
If C is petgon: If C is petgon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in visual arts; give 645 XP to P in visual arts;
If the alloace spectrum of the player is not sex-repulsed asexual: If the alloace spectrum of the player is not sex-repulsed asexual:
give 410 XP to P in sex appeal; give 410 XP to P in sex appeal;
@@ -1564,6 +1591,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in bookgems; give 100 XP to P in bookgems;
give 100 XP to P in skillgems; give 100 XP to P in skillgems;
If C is musicgon: If C is musicgon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in instrument; give 645 XP to P in instrument;
give 645 XP to P in song; give 645 XP to P in song;
If the alloace spectrum of the player is not sex-repulsed asexual: If the alloace spectrum of the player is not sex-repulsed asexual:
@@ -1574,6 +1602,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in carousing; give 100 XP to P in carousing;
give 100 XP to P in mental games; give 100 XP to P in mental games;
If C is flygon: If C is flygon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in panhandling; give 645 XP to P in panhandling;
give 410 XP to P in physical games; give 410 XP to P in physical games;
give 233 XP to P in song; give 233 XP to P in song;
@@ -1585,6 +1614,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in sex appeal; give 100 XP to P in sex appeal;
give 100 XP to P in erotic art; give 100 XP to P in erotic art;
If C is sportsgon: If C is sportsgon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in physical games; give 645 XP to P in physical games;
give 233 XP to P in mental games; give 233 XP to P in mental games;
give 233 XP to P in teaching; give 233 XP to P in teaching;
@@ -1596,6 +1626,7 @@ To employ (P - a person) as a/an (C - a career):
Otherwise if the alloace spectrum of the player is sex-positive asexual: Otherwise if the alloace spectrum of the player is sex-positive asexual:
give 233 XP to P in sex appeal; give 233 XP to P in sex appeal;
If C is kaimagon: If C is kaimagon:
now the coinsNum of P is the coinsNum of P + 4554;
give 645 XP to P in kaima; give 645 XP to P in kaima;
give 410 XP to P in theology; give 410 XP to P in theology;
give 410 XP to P in panhandling; give 410 XP to P in panhandling;
@@ -2224,6 +2255,8 @@ Local commands: You can '[EthrielLink Relaxing in an Ethriel Bathhouse]' here,
There are 2 privately-named proper-named genericNPCs in Your Favorite Bathhouse in Ethriel. There are 2 privately-named proper-named genericNPCs in Your Favorite Bathhouse in Ethriel.
The gold ring is a tangible in Your Favorite Bathhouse in Ethriel. The bulk of the gold ring is 1. The description of the gold ring is "Someone has lost a gold ring here... or so it seems. A quick divination tells you that the land god Indarian created this ring here for you to find."
Skakel's Games is a room. Skakel's games is a cardhouse. "Skakel's Games is a place to buy and sell board games and card games, but more than that it's a place to play them. A table can be rented for a petty sum. There are usually gamesgons hanging around to recruit into a game, and games to spectate when you're waiting for a slot to open or a group to come apart and seek other entertainments. Failing all else, Skakel zirself is there most of the time and willing to play any game zie knows (of which zie knows a great many). And there are finger-friendly snacks and drinks available here or in adjacent businesses. Skakel's Games is a room. Skakel's games is a cardhouse. "Skakel's Games is a place to buy and sell board games and card games, but more than that it's a place to play them. A table can be rented for a petty sum. There are usually gamesgons hanging around to recruit into a game, and games to spectate when you're waiting for a slot to open or a group to come apart and seek other entertainments. Failing all else, Skakel zirself is there most of the time and willing to play any game zie knows (of which zie knows a great many). And there are finger-friendly snacks and drinks available here or in adjacent businesses.
Local commands: You can '[EthrielLink Playing Games in Ethriel]' here, or 'talk to' a local. [line break]Area Change commands: [Location Command Block in Ethriel][line break]Personal Commands: [Personal Command Block in Ethriel]" Local commands: You can '[EthrielLink Playing Games in Ethriel]' here, or 'talk to' a local. [line break]Area Change commands: [Location Command Block in Ethriel][line break]Personal Commands: [Personal Command Block in Ethriel]"