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

Strength System Updated

Browse Source 
More work on the economy.
This commit is contained in:
Rakeela Windrider
2025-10-15 04:54:09 +00:00
parent aa32223709
commit 2e8c97d78d
1 changed files with 186 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

99
story.ni
View File

@@ -89,13 +89,13 @@ Instead of taking inventory:
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.[run paragraph on][Canyouflywiththis]";
Let InvList be the list of tangibles carried by the player;
say "You are carrying: ";
say "[line break]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:
let conveyance be the conveyance of the player;
If the Blocks Flight of conveyance is False and the player is not kalla and the player is not vohntrai and the player is not myrghon and the player is not myrskor:
If the Blocks Flight of conveyance is False and the species of the player is not kalla and the species of the player is not vohntrai and the species of the player is not myrghon and the species of the player is not myrskor:
say " This is a flight-capable shipping method."
A tangible is a kind of thing. A tangible has a number called the bulk.
@@ -441,6 +441,7 @@ This is the turnpass rule:
Now NecromanticStormCooldown is NecromanticStormCooldown - 1;
If DateWeekday is 8:
Now DateWeekday is 1;
Charge the player for lodging;
If DateMonthKelkaith is 4:
If DateDayKelkaith is 8:
Now DateDayKelkaith is 1;
@@ -538,6 +539,13 @@ To decide on the current weather:
next;
now the most recently decided weather is a random item from the weather description entry;
To charge the player for lodging: [remember to update this when creating new cities]
If current city is Ethriel and a home in Ethriel is false:
If coinsNum of the player < 5:
say "You can't pay for a night at the inn, but the inn extends you charity and doesn't kick you out.";
Otherwise:
now coinsNum of the player is the coinsNum of the player - 5.
To decide whether today is a weekend:
If DateWeekday > 5:
yes;
@@ -762,6 +770,22 @@ Understand "chargen" as initial character generation. Initial character generat
Now the species of the player is a random item from the list of random dragon species;
While the species of the player is veserus:
now the species of the player is a random item from the list of random dragon species;
If species of player is vrash:
now strength of player is 41;
If species of player is vashael:
now strength of player is 30;
If species of player is izerah:
now strength of player is 12;
If species of player is kalla:
now strength of player is 3;
If species of player is swaivshon:
now strength of player is 30;
If species of player is myrskor:
now strength of player is 40;
If species of player is myrghon:
now strength of player is 2;
If species of player is vohntrai:
now strength of player is 1;
Now chargencondition is true;
say "[chargencore]";
@@ -826,6 +850,24 @@ Complete Chargen "Click Here to Finish Chargen" "[finish chargen]"
To say chargen start:
Now the species of the player is a random item from the list of random dragon species;
If species of player is vrash:
now strength of player is 41;
If species of player is vashael:
now strength of player is 30;
If species of player is izerah:
now strength of player is 12;
If species of player is veserus:
now strength of player is 38;
If species of player is kalla:
now strength of player is 3;
If species of player is swaivshon:
now strength of player is 30;
If species of player is myrskor:
now strength of player is 40;
If species of player is myrghon:
now strength of player is 2;
If species of player is vohntrai:
now strength of player is 1;
Now chargencondition is true;
say "[chargencore]"
@@ -1059,6 +1101,7 @@ To say select vrash:
Now the species of the player is vrash;
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 1;
Now the strength of the player is the strength of the player + 40;
Now the age of the player is 100;
reset the player's skills;
@@ -1069,6 +1112,7 @@ To say select vashael:
Now the species of the player is vashael;
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 1;
Now the strength of the player is the strength of the player + 29;
Now the age of the player is 100;
reset the player's skills;
@@ -1078,6 +1122,7 @@ To say select vashael:
To say select 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 strength of the player is 1;
Now the strength of the player is the strength of the player + 11;
Now the age of the player is 100;
reset the player's skills;
@@ -1087,6 +1132,7 @@ To say select izerah:
To say select 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 strength of the player is 1;
Now the strength of the player is the strength of the player + 37;
Now the age of the player is 100;
reset the player's skills;
@@ -1096,6 +1142,7 @@ To say select veserus:
To say select 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 strength of the player is 1;
Now the strength of the player is the strength of the player + 2;
Now the age of the player is 100;
reset the player's skills;
@@ -1105,6 +1152,7 @@ To say select kalla:
To say select 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 strength of the player is 1;
Now the strength of the player is the strength of the player + 29;
Now the age of the player is 100;
reset the player's skills;
@@ -1114,7 +1162,8 @@ To say select swaivshon:
To say select 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 strength of the player is the strength of the player + 1;
now the strength of the player is 1;
Now the strength of the player is the strength of the player + 39;
Now the age of the player is 100;
reset the player's skills;
Clear the screen;
@@ -1123,7 +1172,8 @@ To say select myrskor:
To say select 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 strength of the player is the strength of the player + 39;
now the strength of the player is 1;
Now the strength of the player is the strength of the player + 1;
Now the age of the player is 1227;
reset the player's skills;
Clear the screen;
@@ -1132,6 +1182,7 @@ To say select myrghon:
To say select 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 strength of the player is 1;
Now the strength of the player is the strength of the player + 0;
Now the age of the player is 100;
reset the player's skills;
@@ -1221,7 +1272,7 @@ To say select pottergon:
To say select haulergon:
employ the player as a haulergon;
calculate the age of the player;
clear the screen;
[clear the screen;]
say "[chargencore]";
To say select lumbergon:
@@ -1417,12 +1468,32 @@ To give (N - a number) XP to (P - a person) in (S - a skill):
otherwise:
check for level-up on X, quietly;
To decide which conveyance is the heaviest conveyance (P - a person) can use:
say "Debug -- heaviest conveyance logic starts.";
showme P;
showme strength of P;
If strength of P is at least 55:
Decide on grandwagon;
Otherwise if species of P is myrghon:
Decide on myrghon gearwagon;
Otherwise if strength of P is at least 35:
Decide on wagon;
Otherwise if strength of P is at least 10:
Decide on izerah cart;
Otherwise if strength of P is at least 5:
Decide on flightpack;
Otherwise if strength of P is at least 3:
Decide on greatpack;
Otherwise:
Decide on backpack.
A person has a list of careers called a career history.
To employ (P - a person) as a/an (C - a career):
Add C to the career history of P;
If C is lumbergon:
now the coinsNum of P is the coinsNum of P + 42424;
now strength of P is strength of P + 2;
give 645 XP to P in lumbering;
give 100 XP to P in physical games;
give 100 XP to P in hunting;
@@ -1432,6 +1503,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in erotic art;
If C is huntgon:
now the coinsNum of P is the coinsNum of P + 42424;
now strength of P is strength of P + 1;
give 645 XP to P in hunting;
give 410 XP to P in gathering;
give 100 XP to P in physical games;
@@ -1448,6 +1520,11 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in erotic art;
If C is haulergon:
now the coinsNum of P is the coinsNum of P + 42424;
If species of P is myrghon:
now strength of P is strength of P + 1;
Otherwise:
now strength of P is strength of P + 3;
now the conveyance of P is the heaviest conveyance P can use;
give 410 XP to P in mercantile;
give 410 XP to P in bookgems;
give 233 XP to P in song;
@@ -1457,6 +1534,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in erotic art;
If C is smithgon:
now the coinsNum of P is the coinsNum of P + 42424;
now strength of P is strength of P + 1;
give 645 XP to P in smithing;
give 100 XP to P in physical games;
give 100 XP to P in carousing;
@@ -1466,6 +1544,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in erotic art;
If C is farmgon:
now the coinsNum of P is the coinsNum of P + 42424;
now strength of P is strength of P + 1;
give 410 XP to P in farming;
give 233 XP to P in song;
give 233 XP to P in physical games;
@@ -1520,6 +1599,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in erotic art;
If C is rangergon:
now the coinsNum of P is the coinsNum of P + 4554;
now strength of P is strength of P + 1;
give 645 XP to P in hunting;
give 410 XP to P in trophy hunter;
give 410 XP to P in ecology;
@@ -1570,6 +1650,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in erotic art;
If C is lutragon:
now the coinsNum of P is the coinsNum of P + 4554;
now strength of P is strength of P + 1;
give 645 XP to P in carousing;
give 410 XP to P in past world knowledge;
give 233 XP to P in mental games;
@@ -1603,6 +1684,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in mental games;
If C is flygon:
now the coinsNum of P is the coinsNum of P + 4554;
now strength of P is strength of P + 1;
give 645 XP to P in panhandling;
give 410 XP to P in physical games;
give 233 XP to P in song;
@@ -1615,6 +1697,7 @@ To employ (P - a person) as a/an (C - a career):
give 100 XP to P in erotic art;
If C is sportsgon:
now the coinsNum of P is the coinsNum of P + 4554;
now strength of P is strength of P + 3;
give 645 XP to P in physical games;
give 233 XP to P in mental games;
give 233 XP to P in teaching;
@@ -2375,9 +2458,12 @@ Understand "visit cardhouse" or "visit a cardhouse" or "visit card house" or "vi
Understand "play games" as playing games. Playing games is an action applying to nothing.
Instead of playing games when the player is in Skakel's Games:
say "This will cost 2 coins. Do you want to do it?";
If the player consents:
let card skill check be the mental games level of the player + 2;
now hungerNum of the player is hungerNum of the player - 1;
If the cardhouseCooldown of the player is 0:
now the coinsNum of the player is the coinsNum of the player - 2;
If a random chance of 1 in 10 succeeds:
say "You have a run of excellent luck at the cardhouse. Nobody's playing for stakes — that just provokes geomantic cheating — but you still get that rush of turning up the right cards at the right times to make your clever strategies work out. You're looking forward to your next session. (Cardhouse cooldown reset!)";
now entertainNum of the player is entertainNum of the player + 2;
@@ -2414,6 +2500,7 @@ Instead of playing games when the player is in Skakel's Games:
Otherwise:
say "You feel like your last visit to the cardhouse was pretty recent. Are you sure you want to go again already?";
if player consents:
now the coinsNum of the player is the coinsNum of the player - 2;
if a random chance of card skill check in 30 succeeds:
If a random chance of 1 in 10 succeeds:
say "You have a run of excellent luck at the cardhouse. Nobody's playing for stakes — that just provokes geomantic cheating — but you still get that rush of turning up the right cards at the right times to make your clever strategies work out. You're looking forward to your next session. (Cardhouse cooldown reset!)";
@@ -2472,6 +2559,8 @@ Instead of playing games when the player is in Skakel's Games:
give 4 XP to the player in mental games;
now cardhouseCooldown of the player is 16;
follow the turnpass rule;
Otherwise:
stop the action;
Understand "visit theatre" or "visit a theatre" as visiting a theatre. Visiting a theatre is an action applying to nothing.