diff --git a/story.ni b/story.ni index 086a06b..45aa985 100644 --- a/story.ni +++ b/story.ni @@ -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 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. @@ -74,10 +75,8 @@ A conveyance is a kind of thing. A person has a conveyance. The conveyances ar Table of Conveyance Definitions Conveyance Bulk Limit Strength Requirement Blocks Flight -a pfod 10 1 False -your hands 20 1 False -a backpack 40 2 False -a greatpack 70 4 False +a backpack 40 1 False +a greatpack 70 3 False a flightpack 90 5 False an izerah cart 400 10 True a myrghon gearwagon 2000 1 True @@ -88,8 +87,11 @@ a grand flying wagon 6000 5 False 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.[Canyouflywiththis]"; - say "Debug. Inventory implementation incomplete."; + 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 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; @@ -109,7 +111,7 @@ Check taking a tangible: Let X be the noun; let C be the conveyance of the player; 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."; Stop the action. @@ -1057,6 +1059,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 the strength of the player + 40; Now the age of the player is 100; reset the player's skills; Clear the screen; @@ -1066,6 +1069,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 the strength of the player + 29; Now the age of the player is 100; reset the player's skills; Clear the screen; @@ -1074,6 +1078,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 the strength of the player + 11; Now the age of the player is 100; reset the player's skills; Clear the screen; @@ -1082,6 +1087,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 the strength of the player + 37; Now the age of the player is 100; reset the player's skills; Clear the screen; @@ -1090,6 +1096,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 the strength of the player + 2; Now the age of the player is 100; reset the player's skills; Clear the screen; @@ -1098,6 +1105,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 the strength of the player + 29; Now the age of the player is 100; reset the player's skills; Clear the screen; @@ -1106,6 +1114,7 @@ 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 age of the player is 100; reset the player's skills; Clear the screen; @@ -1114,6 +1123,7 @@ 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 age of the player is 1227; reset the player's skills; Clear the screen; @@ -1122,6 +1132,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 the strength of the player + 0; Now the age of the player is 100; reset the player's skills; 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): Add C to the career history of P; If C is lumbergon: + now the coinsNum of P is the coinsNum of P + 42424; give 645 XP to P in lumbering; give 100 XP to P in physical games; 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 erotic art; If C is huntgon: + now the coinsNum of P is the coinsNum of P + 42424; give 645 XP to P in hunting; give 410 XP to P in gathering; 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 erotic art; If C is pottergon: + now the coinsNum of P is the coinsNum of P + 42424; give 645 XP to P in pottery; give 233 XP to P in visual arts; 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 erotic art; 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 bookgems; 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 erotic art; If C is smithgon: + now the coinsNum of P is the coinsNum of P + 42424; give 645 XP to P in smithing; give 100 XP to P in physical games; 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 erotic art; If C is farmgon: + now the coinsNum of P is the coinsNum of P + 42424; give 410 XP to P in farming; give 233 XP to P in song; 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 erotic art; 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 bookgems; 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 erotic art; If C is philosophygon: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in teaching; give 410 XP to P in theology; 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 ecology; 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 erotic art; 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 instrument; 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 panhandling; 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 erotic art; If C is rangergon: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in hunting; give 410 XP to P in trophy hunter; 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 100 XP to P in erotic art; If C is physical dissolutionist: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in carousing; If the alloace spectrum of the player is not sex-repulsed asexual: 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 song; 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 410 XP to P in theology; 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 erotic art; 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 bookgems; 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 erotic art; If C is lutragon: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in carousing; give 410 XP to P in past world knowledge; 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 100 XP to P in hunting; If C is petgon: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in visual arts; If the alloace spectrum of the player is not sex-repulsed asexual: 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 skillgems; 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 song; 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 mental games; If C is flygon: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in panhandling; give 410 XP to P in physical games; 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 erotic art; If C is sportsgon: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in physical games; give 233 XP to P in mental games; 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: give 233 XP to P in sex appeal; If C is kaimagon: + now the coinsNum of P is the coinsNum of P + 4554; give 645 XP to P in kaima; give 410 XP to P in theology; 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. +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. 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]"