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

101
story.ni
View File

@@ -89,13 +89,13 @@ 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.[run paragraph on][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]";
Let InvList be the list of tangibles carried by the player; Let InvList be the list of tangibles carried by the player;
say "You are carrying: "; say "[line break]You are carrying: ";
say InvList; 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." 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;
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." say " This is a flight-capable shipping method."
A tangible is a kind of thing. A tangible has a number called the bulk. 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; Now NecromanticStormCooldown is NecromanticStormCooldown - 1;
If DateWeekday is 8: If DateWeekday is 8:
Now DateWeekday is 1; Now DateWeekday is 1;
Charge the player for lodging;
If DateMonthKelkaith is 4: If DateMonthKelkaith is 4:
If DateDayKelkaith is 8: If DateDayKelkaith is 8:
Now DateDayKelkaith is 1; Now DateDayKelkaith is 1;
@@ -538,6 +539,13 @@ To decide on the current weather:
next; next;
now the most recently decided weather is a random item from the weather description entry; 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: To decide whether today is a weekend:
If DateWeekday > 5: If DateWeekday > 5:
yes; 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; 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: 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; 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; Now chargencondition is true;
say "[chargencore]"; say "[chargencore]";
@@ -826,6 +850,24 @@ Complete Chargen "Click Here to Finish Chargen" "[finish chargen]"
To say chargen start: To say chargen start:
Now the species of the player is a random item from the list of random dragon species; 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; Now chargencondition is true;
say "[chargencore]" say "[chargencore]"
@@ -1059,6 +1101,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 1;
Now the strength of the player is the strength of the player + 40; 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;
@@ -1069,6 +1112,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 1;
Now the strength of the player is the strength of the player + 29; 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;
@@ -1078,6 +1122,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 1;
Now the strength of the player is the strength of the player + 11; 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;
@@ -1087,6 +1132,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 1;
Now the strength of the player is the strength of the player + 37; 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;
@@ -1096,6 +1142,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 1;
Now the strength of the player is the strength of the player + 2; 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;
@@ -1105,6 +1152,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 1;
Now the strength of the player is the strength of the player + 29; 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;
@@ -1114,7 +1162,8 @@ 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 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; Now the age of the player is 100;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1123,7 +1172,8 @@ 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 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; Now the age of the player is 1227;
reset the player's skills; reset the player's skills;
Clear the screen; Clear the screen;
@@ -1132,6 +1182,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 1;
Now the strength of the player is the strength of the player + 0; 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;
@@ -1221,7 +1272,7 @@ To say select pottergon:
To say select haulergon: To say select haulergon:
employ the player as a haulergon; employ the player as a haulergon;
calculate the age of the player; calculate the age of the player;
clear the screen; [clear the screen;]
say "[chargencore]"; say "[chargencore]";
To say select lumbergon: To say select lumbergon:
@@ -1417,12 +1468,32 @@ To give (N - a number) XP to (P - a person) in (S - a skill):
otherwise: otherwise:
check for level-up on X, quietly; 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. 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; 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 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;
@@ -1432,6 +1503,7 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -1448,6 +1520,11 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -1457,6 +1534,7 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -1466,6 +1544,7 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -1520,6 +1599,7 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -1570,6 +1650,7 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -1603,6 +1684,7 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -1615,6 +1697,7 @@ To employ (P - a person) as a/an (C - a career):
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; 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 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;
@@ -2265,7 +2348,7 @@ There is a privately-named proper-named genericNPC in Skakel's Games.
Your Sort-Of Home in Ethriel is a room. "This isn't really your home anymore, now that you've quit your job and resolved to go adventuring. You'll be gone for years, so you imagine. This traveling is going to be your new career. Are you going to come back to Ethriel at the end of your journey? If you're just going to move away, you should probably sell your home. Otherwise, it'll sit here gathering dust in your absence. Your Sort-Of Home in Ethriel is a room. "This isn't really your home anymore, now that you've quit your job and resolved to go adventuring. You'll be gone for years, so you imagine. This traveling is going to be your new career. Are you going to come back to Ethriel at the end of your journey? If you're just going to move away, you should probably sell your home. Otherwise, it'll sit here gathering dust in your absence.
Local commands: You have some books and bookgems in the home (potentially quite a lot if you've been an authorgon or philosophygon). 'Check library' will yield a list of notable titles. You can try to amuse yourself with the power of your mind alone using the '[EthrielLink fantasizing at home in Ethriel]' command, but it'll get old pretty quick. If anyone is traveling with you and staying in your room as they do, you may 'talk to' them. [line break] Area Change commands: [Location Command Block in Ethriel] [line break]Personal Commands: [Personal Command Block in Ethriel]" Local commands: You have some books and bookgems in the home (potentially quite a lot if you've been an authorgon or philosophygon). 'Check library' will yield a list of notable titles. You can try to amuse yourself with the power of your mind alone using the '[EthrielLink fantasizing at home in Ethriel]' command, but it'll get old pretty quick. If anyone is traveling with you and staying in your room as they do, you may 'talk to' them. [line break]Area Change commands: [Location Command Block in Ethriel] [line break]Personal Commands: [Personal Command Block in Ethriel]"
To say playin da games: To say playin da games:
try playing games; try playing games;
@@ -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. 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: 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; let card skill check be the mental games level of the player + 2;
now hungerNum of the player is hungerNum of the player - 1; now hungerNum of the player is hungerNum of the player - 1;
If the cardhouseCooldown of the player is 0: 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: 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!)"; 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; 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: Otherwise:
say "You feel like your last visit to the cardhouse was pretty recent. Are you sure you want to go again already?"; 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: 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 card skill check in 30 succeeds:
If a random chance of 1 in 10 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!)"; 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; give 4 XP to the player in mental games;
now cardhouseCooldown of the player is 16; now cardhouseCooldown of the player is 16;
follow the turnpass rule; 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. Understand "visit theatre" or "visit a theatre" as visiting a theatre. Visiting a theatre is an action applying to nothing.