Permalink
Please sign in to comment.
Browse files
Rewrote the $moodlets_account function in parameterized form.
Adjusted the invocation logic in $newloc - it's now necessary to call the function repeatedly (once per character) instead of one-call-changes-everything. Removed the invocation of $moodlets_account from menu_form and demo_menu_form. These calls were superfluous because $newloc is always invoked along the critical execution path. Reorganized #moodlet_base into character-specific subsections. Added support for configurable mood intensity and psyStatus-based variation in text response. Added short-circuit and cleanup logic to reduce resource consumption. Added regex scanning of the #moodlet_base code (as a replacement for the hardcoded dictionary keys, which were present in the base game). Note that the $moodlets_account function expects 'name' and 'psy_status' to be present within the character dictionary (instead of being separate global variables). There are two extra lines in $newloc which make these assignment (for interoperation with legacy code) but they should be REMOVED as soon as those variables are eliminated from the broader codebase.
- Loading branch information...
Showing
with
317 additions
and 392 deletions.
- +192 −323 src/#moodlet_base.txt
- +118 −65 src/$moodlets_account.txt
- +5 −1 src/$newloc.txt
- +0 −1 src/demo_menu_form.txt
- +2 −1 src/interaction.txt
- +0 −1 src/menu_form.txt
515
src/#moodlet_base.txt
| @@ -1,334 +1,203 @@ | ||
| # #moodlet_base | ||
| !MOODLET DATABASE | ||
| -!list | ||
| -$master_good_mood[1] = 'pos_housing' | ||
| -$master_good_mood[2] = 'pos_house_clean' | ||
| -$master_good_mood[3] = 'pos_statisfied' | ||
| -$master_good_mood[4] = 'pos_nice_slave' | ||
| -$master_good_mood[5] = 'pos_new_slave' | ||
| -$master_good_mood[6] = 'pos_self_clean' | ||
| -$master_good_mood[7] = 'pos_date' | ||
| -$master_good_mood[8] = 'pos_energy' | ||
| -$master_good_mood[9] = 'pos_optimism' | ||
| -$master_good_mood[10] = 'pos_massage' | ||
| -$master_good_mood[11] = 'pos_good_morning' | ||
| -$master_good_mood[12] = 'pos_show' | ||
| -$master_good_mood[13] = 'pos_deal' | ||
| -$master_good_mood[14] = 'pos_self_food' | ||
| -$master_good_mood[15] = 'pos_wealth' | ||
| -$master_good_mood[16] = 'pos_good_pet' | ||
| -$master_good_mood[17] = 'pos_toilet' | ||
| -$master_good_mood[18] = 'pos_master_precious' | ||
| -$master_good_mood[19] = 'pos_drunk' | ||
| -$master_good_mood[20] = 'pos_opium' | ||
| -$master_good_mood[21] = 'pos_bahus' | ||
| -$master_good_mood[22] = 'pos_master_winner' | ||
| -$master_good_mood[23] = 'pos_master_cloth' | ||
| -$master_good_mood[24] = 'pos_kannabis' | ||
| -$master_bad_mood[1] = 'neg_housing' | ||
| -$master_bad_mood[2] = 'neg_house_mess' | ||
| -$master_bad_mood[3] = 'neg_boner' | ||
| -$master_bad_mood[4] = 'neg_softcore' | ||
| -$master_bad_mood[5] = 'neg_rebell' | ||
| -$master_bad_mood[6] = 'neg_cook' | ||
| -$master_bad_mood[7] = 'neg_cleaning' | ||
| -$master_bad_mood[8] = 'neg_dirty' | ||
| -$master_bad_mood[9] = 'neg_tired' | ||
| -$master_bad_mood[10] = 'neg_alone' | ||
| -$master_bad_mood[11] = 'neg_grumpy' | ||
| -$master_bad_mood[12] = 'neg_boring' | ||
| -$master_bad_mood[13] = 'neg_food' | ||
| -$master_bad_mood[14] = 'neg_wealth' | ||
| -$master_bad_mood[15] = 'neg_accounts' | ||
| -$master_bad_mood[16] = 'neg_master_precious' | ||
| -$master_bad_mood[17] = 'neg_drunk' | ||
| -$master_bad_mood[18] = 'neg_wounded' | ||
| -$master_bad_mood[19] = 'neg_no_koffe' | ||
| -$master_bad_mood[20] = 'neg_no_meth' | ||
| -$master_bad_mood[21] = 'neg_no_opium' | ||
| -$master_bad_mood[22] = 'neg_master_ill' | ||
| -$master_bad_mood[23] = 'neg_master_loser' | ||
| -$master_bad_mood[24] = 'neg_master_cloth' | ||
| -$master_bad_mood[25] = 'neg_escape' | ||
| -$master_bad_mood[26] = 'neg_slave_killed' | ||
| -$master_bad_mood[27] = 'neg_slave_starved' | ||
| -$master_bad_mood[28] = 'neg_slave_died' | ||
| +! if the dictionaries are populated then this GOSUB call was superfluous. To conserve resources, we will just RETURN now. | ||
| +if (arrsize('mood_description') > 0): EXIT | ||
| -$slave_good_mod[1] = 'pos_sleep' | ||
| -$slave_good_mod[2] = 'pos_prise' | ||
| -$slave_good_mod[3] = 'pos_slave_date' | ||
| -$slave_good_mod[4] = 'pos_reward' | ||
| -$slave_good_mod[5] = 'pos_orgasm' | ||
| -$slave_good_mod[6] = 'pos_cookie' | ||
| -$slave_good_mod[7] = 'pos_gentle' | ||
| -$slave_good_mod[8] = 'pos_games' | ||
| -$slave_good_mod[9] = 'pos_job' | ||
| -$slave_good_mod[10] = 'pos_clothes' | ||
| -$slave_good_mod[11] = 'pos_moral' | ||
| -$slave_good_mod[12] = 'pos_no_punish' | ||
| -$slave_good_mod[13] = 'pos_desert' | ||
| -$slave_good_mod[14] = 'pos_well_rested' | ||
| -$slave_good_mod[15] = 'pos_slave_clean' | ||
| -$slave_good_mod[16] = 'pos_pony' | ||
| -$slave_good_mod[17] = 'pos_spellguarded' | ||
| -$slave_good_mod[18] = 'pos_artifact' | ||
| -$slave_good_mod[19] = 'pos_slave_kannabis' | ||
| -$slave_good_mod[20] = 'pos_slave_alco' | ||
| -$slave_good_mod[21] = 'pos_slave_opium' | ||
| -$slave_good_mod[22] = 'pos_slave_drunk' | ||
| -$slave_good_mod[23] = 'pos_slave_love' | ||
| -$slave_good_mod[24] = 'pos_slave_winner' | ||
| -$slave_good_mod[25] = 'pos_multiple_orgasm' | ||
| +$master_positive_moodlets = { | ||
| + $mood_description['pos_housing'] = 'I must admit that I have a very decent housing.' | ||
| + $mood_description['pos_house_clean'] = 'The house is in perfect cleanliness and order.' | ||
| + $mood_description['pos_statisfied'] = 'After such a fervent sex, brain inevitably switches to a positive wave!' | ||
| + $mood_description['pos_nice_slave'] = "Girl's education is progressing fine, I'm doing an excellent job." | ||
| + $mood_description['pos_new_slave'] = 'A new day - a new slave. Shopping is always uplifting.' | ||
| + $mood_description['pos_self_clean'] = 'There is nothing better than a good wash. Cleanliness is next to godliness!' | ||
| + $mood_description['pos_date'] = 'I must say that the date went well.' | ||
| + $mood_description['pos_energy'] = 'I am fresh and full of energy. Gotta hangout somewhere.' | ||
| + $mood_description['pos_optimism'] = 'My slave is so cute that I want to communicate with her incessantly.' | ||
| + $mood_description['pos_massage'] = "Mmmm... what a bliss. It's nice to be taken care of by the beautiful and gentle woman..." | ||
| + $mood_description['pos_good_morning'] = 'Morning blowjob - the perfect start of the day.' | ||
| + $mood_description['pos_show'] = 'I had a good time. Just what you need to dispel the boredom!' | ||
| + $mood_description['pos_deal'] = 'Good deal. Now I have more sparks, which can be spent on something nice!' | ||
| + $mood_description['pos_self_food'] = 'I ate well. Simply a holiday flavor!' | ||
| + $mood_description['pos_wealth'] = "It's great when you do not need to limit yourself to money." | ||
| + $mood_description['pos_good_pet'] = "No wonder people get cats - they relieve stress excellently. Even if it's not quite the cat..." | ||
| + $mood_description['pos_toilet'] = 'My slave happened to be a great toilet. Much nicer than a conventional toilet.' | ||
| + $mood_description['pos_master_precious'] = 'This magic decoration is perfectly uplifting. When I touch it I immediately calm down and the world seems better. It is just so lovely!' | ||
| + $mood_description['pos_kannabis'] = 'Cough-cough... This weed is pretty decent I must to say... A sudden calmness and serenity, but collecting thoughts together now is difficult...' | ||
| + $mood_description['pos_drunk'] = 'Now I''m drunk and I feel that this rotten world full of fucking cannibals and sadistic bastards not so bad! And I am also not such a bastard...' | ||
| + $mood_description['pos_opium'] = 'Essence of oblivion gives peace and relief from all worries. I don''t worry about anything right now, except that it can not last forever.' | ||
| + $mood_description['pos_bahus'] = 'Why do I want to bite the shield? And why is it such a positive feeling? Nyaaaaarrrrgh!!!!' | ||
| + $mood_description['pos_master_winner'] = 'Nice to feel like a winner!' | ||
| + $mood_description['pos_master_cloth'] = 'I have a very comfortable wear. It is important for comfort.' | ||
| +} | ||
| -$slave_bad_mod[1] = 'neg_artifact' | ||
| -$slave_bad_mod[2] = 'neg_pain' | ||
| -$slave_bad_mod[3] = 'neg_abuse' | ||
| -$slave_bad_mod[4] = 'neg_disgust' | ||
| -$slave_bad_mod[5] = 'neg_sick' | ||
| -$slave_bad_mod[6] = 'neg_menstruation' | ||
| -$slave_bad_mod[7] = 'neg_slave' | ||
| -$slave_bad_mod[8] = 'neg_slave_dirty' | ||
| -$slave_bad_mod[9] = 'neg_slave_mess' | ||
| -$slave_bad_mod[10] = 'neg_horny' | ||
| -$slave_bad_mod[11] = 'neg_hungry' | ||
| -$slave_bad_mod[12] = 'neg_exhausted' | ||
| -$slave_bad_mod[13] = 'neg_fear' | ||
| -$slave_bad_mod[14] = 'neg_no_prise' | ||
| -$slave_bad_mod[15] = 'neg_angst' | ||
| -$slave_bad_mod[16] = 'neg_spoil' | ||
| -$slave_bad_mod[17] = 'neg_rules' | ||
| -$slave_bad_mod[18] = 'neg_bad_sleep' | ||
| -$slave_bad_mod[19] = 'neg_prisoner' | ||
| -$slave_bad_mod[20] = 'neg_naked' | ||
| -$slave_bad_mod[21] = 'neg_job' | ||
| -$slave_bad_mod[22] = 'neg_defloration' | ||
| -$slave_bad_mod[23] = 'neg_forced' | ||
| -$slave_bad_mod[24] = 'neg_raped' | ||
| -$slave_bad_mod[25] = 'neg_shame' | ||
| -$slave_bad_mod[26] = 'neg_spellbound' | ||
| -$slave_bad_mod[27] = 'neg_slave_food' | ||
| -$slave_bad_mod[28] = 'neg_slave_koffe' | ||
| -$slave_bad_mod[29] = 'neg_slave_meth' | ||
| -$slave_bad_mod[30] = 'neg_slave_opium' | ||
| -$slave_bad_mod[31] = 'neg_slave_drunk' | ||
| -$slave_bad_mod[32] = 'neg_slave_ill' | ||
| -$slave_bad_mod[33] = 'neg_slave_looser' | ||
| -$slave_bad_mod[34] = 'neg_ugly' | ||
| +$master_negative_moodlets = { | ||
| + $mood_description['neg_housing'] = 'I live in decrepit shack. No conditions for work and rest.' | ||
| + $mood_description['neg_house_mess'] = 'The house is a mess and dirt. Just disgusting to be in here.' | ||
| + $mood_description['neg_boner'] = 'My pants are bursting from the boner. I need urgently to relieve stress.' | ||
| + $mood_description['neg_softcore'] = 'Looks like I had too much of sex. Enough is enough, I need a rest.' | ||
| + $mood_description['neg_rebell'] = "Slave doesn't listen me at all. There's still a lot of work to be done..." | ||
| + $mood_description['neg_cook'] = 'To eat properly, I have to tinker in the kitchen with pans and dishes. What the hell?' | ||
| + $mood_description['neg_cleaning'] = "I hate messing around in the mud. I'm a fucking slave trainer. What, there's no one in this house to clean up?!" | ||
| + $mood_description['neg_dirty'] = 'Ugh, I stink. It is necessary to wash, I disgust myself.' | ||
| + $mood_description['neg_tired'] = "Uuuuuhhhh... I'm tired. It is necessary to have a good rest, otherwise it's not hard to lose health." | ||
| + $mood_description['neg_alone'] = "I don't have a single slave at the moment. Somehow, it feels so lonely..." | ||
| + $mood_description['neg_grumpy'] = "Damn, what a dull person my slave is! I don't even want to work - boredom." | ||
| + $mood_description['neg_boring'] = "I'm booooooored... You can not always just work and fuck. It's necessary to have some fun!" | ||
| + $mood_description['neg_food'] = 'This is some kind of shit, not food. Why do I eat worse than some slaves?' | ||
| + $mood_description['neg_wealth'] = "I live just like some kind of beggar. Every penny has to be considered. I'm fed up with this!" | ||
| + $mood_description['neg_accounts'] = 'I have to engage in all the paper work. Need a secretary!' | ||
| + $mood_description['neg_master_precious'] = 'What a pity that I had to take my magic decoration off. It is my precious! I need to put it back and never take it off.' | ||
| + $mood_description['neg_drunk'] = 'My head aches and mouth is dry. I need a drink. It is urgent to have a drink... there should have been a bottle somewhere in the closet...' | ||
| + $mood_description['neg_wounded'] = 'My wounds ache under the bandages. Every wrong move hurts.' | ||
| + $mood_description['neg_no_koffe'] = 'My eyes droop. Where is my morning cup of kamra?' | ||
| + $mood_description['neg_no_meth'] = "Oh, I feel shitty. Need to recover with the use of fairies' pollen - it'll get better immediately and world will become colorful again." | ||
| + $mood_description['neg_no_opium'] = "I'm having agonies. I'll start climbing the wall at this rate. Feels like I'll fucking die if oblivion is not urgently delivered." | ||
| + $mood_description['neg_master_ill'] = 'Damn it. My dick drips and burns whenever I go to the toilet. Some of these whores infected me with rotphilis!' | ||
| + $mood_description['neg_master_loser'] = 'I hate to lose. Although it is not my fault, but slave had to try better!' | ||
| + $mood_description['neg_master_cloth'] = 'My clothes will not do! Just how long can I wash and mend it? I need to update my wardrobe.' | ||
| + !new moodlet for escaped slave | ||
| + $mood_description['neg_escape'] = 'My slave ran away overnight while I was asleep. What a waste of money and time. Now I have to buy a new slave.' | ||
| + !moodlet after killing a slave | ||
| + $mood_description['neg_slave_killed'] = 'The slave died in training. I must be more careful with the merchandise in future.' | ||
| + !moodlet after slave dies due starvation | ||
| + $mood_description['neg_slave_starved'] = 'I should feed the slave as it should. Now I have to take on a new...' | ||
| + !moodlet when slave dies due ill | ||
| + $mood_description['neg_slave_died'] = 'I didn''t save the slave. Maybe I had to take her to the hospital... Now it''s too late.' | ||
| +} | ||
| -!master positive moodlets | ||
| -$mood_description['pos_housing'] = 'I must admit that I have a very decent housing.' | ||
| -$mood_description['pos_house_clean'] = 'The house is in perfect cleanliness and order.' | ||
| -$mood_description['pos_statisfied'] = 'After such a fervent sex, brain inevitably switches to a positive wave!' | ||
| -$mood_description['pos_nice_slave'] = "Girl's education is progressing fine, I'm doing an excellent job." | ||
| -$mood_description['pos_new_slave'] = 'A new day - a new slave. Shopping is always uplifting.' | ||
| -$mood_description['pos_self_clean'] = 'There is nothing better than a good wash. Cleanliness is next to godliness!' | ||
| -$mood_description['pos_date'] = 'I must say that the date went well.' | ||
| -$mood_description['pos_energy'] = 'I am fresh and full of energy. Gotta hangout somewhere.' | ||
| -$mood_description['pos_optimism'] = 'My slave is so cute that I want to communicate with her incessantly.' | ||
| -$mood_description['pos_massage'] = "Mmmm... what a bliss. It's nice to be taken care of by the beautiful and gentle woman..." | ||
| -$mood_description['pos_good_morning'] = 'Morning blowjob - the perfect start of the day.' | ||
| -$mood_description['pos_show'] = 'I had a good time. Just what you need to dispel the boredom!' | ||
| -$mood_description['pos_deal'] = 'Good deal. Now I have more sparks, which can be spent on something nice!' | ||
| -$mood_description['pos_self_food'] = 'I ate well. Simply a holiday flavor!' | ||
| -$mood_description['pos_wealth'] = "It's great when you do not need to limit yourself to money." | ||
| -$mood_description['pos_good_pet'] = "No wonder people get cats - they relieve stress excellently. Even if it's not quite the cat..." | ||
| -$mood_description['pos_toilet'] = 'My slave happened to be a great toilet. Much nicer than a conventional toilet.' | ||
| -$mood_description['pos_master_precious'] = 'This magic decoration is perfectly uplifting. When I touch it I immediately calm down and the world seems better. It is just so lovely!' | ||
| -$mood_description['pos_kannabis'] = 'Cough-cough... This weed is pretty decent I must to say... A sudden calmness and serenity, but collecting thoughts together now is difficult...' | ||
| -$mood_description['pos_drunk'] = 'Now I''m drunk and I feel that this rotten world full of fucking cannibals and sadistic bastards not so bad! And I am also not such a bastard...' | ||
| -$mood_description['pos_opium'] = 'Essence of oblivion gives peace and relief from all worries. I don''t worry about anything right now, except that it can not last forever.' | ||
| -$mood_description['pos_bahus'] = 'Why do I want to bite the shield? And why is it such a positive feeling? Nyaaaaarrrrgh!!!!' | ||
| -$mood_description['pos_master_winner'] = 'Nice to feel like a winner!' | ||
| -$mood_description['pos_master_cloth'] = 'I have a very comfortable wear. It is important for comfort.' | ||
| -$mood_description['pos_'] = '' | ||
| +$girl_positive_moodlets = { | ||
| + $mood_description['pos_prise'] = '- Fair words please the conversation :3' | ||
| + $mood_description['pos_slave_date'] = '- I loved our walk. I would like to spend time together some another time!' | ||
| + $mood_description['pos_reward'] = '- Reward for good behavior is nice. Improves mood.' | ||
| + $mood_description['pos_orgasm'] = '- Well... I was so nice to get a discharge. I would not mind cumming like that once more...' | ||
| + $mood_description['pos_cookie'] = '- I ate very tasty food and it is certainly nice. Food on your table is much better than in my bowl.' | ||
| + $mood_description['pos_sleep'] = '- I got a good night''s sleep in my room. It is so nice sometimes to relax in comfort.' | ||
| + $mood_description['pos_slave_clean'] = '- I washed recently. Nice to feel clean and fresh.' | ||
| + $mood_description['pos_well_rested'] = '- I rested well yesterday, it is pleasant to slack off from time to time.' | ||
| + $mood_description['pos_desert'] = '- I still remember the flavor of sweet treats. Mmmm... yummy!' | ||
| + $mood_description['pos_no_punish'] = '- You decided not to punish me, although I know that I was guilty. Nice to know that you are sorry for me ^ _ ^' | ||
| + $mood_description['pos_moral'] = '- I''m always happy to serve my Master. I''m a good girl, right, Master?' | ||
| + $mood_description['pos_clothes'] = "- I have a very comfortable clothes. Nothing is too tight and doesn't interfere." | ||
| + $mood_description['pos_job'] = '- When I do my favorite thing, I feel relieved.' | ||
| + $mood_description['pos_games'] = '- Free time for entertainment - that''s just awesome! So nice to get away from worries.' | ||
| + $mood_description['pos_gentle'] = "- It''s nice to feel someone''s care and affection..." | ||
| + $mood_description['pos_pony'] = '- I also have my little pony - with her is is always fun!' | ||
| + $mood_description['pos_spellguarded'] = '- My will was stronger than your spell! I feel much more confident.' | ||
| + $mood_description['pos_artifact'] = '- This magic decoration just superb. While I wear it, the world seems a lot better than it is. I will never take it off!' | ||
| + $mood_description['pos_slave_kannabis'] = '- Oooo... duuuuuuuuude... this weed is a thing. Such a bliss, we need to add some relaxing music.' | ||
| + $mood_description['pos_slave_alco'] = '- I... hic... soooooo drunk. Why did you get me drunk, eh? You want to take advantage of my... hic... helpless situation?' | ||
| + $mood_description['pos_slave_opium'] = '- I feel good. I feel oblivion flowing through my veins, carrying away pain and sorrow.' | ||
| + $mood_description['pos_slave_drunk'] = '- I... hic... soooooo drunk. Why did you get me drunk, eh? You want to take advantage of my... hic... helpless situation?' | ||
| + $mood_description['pos_slave_love'] = '- Some kind of irresistible force beckons me to you. I always think of you. I want to be beside you... forever.' | ||
| + $mood_description['pos_multiple_orgasm'] = '- Ohh, it was a great sex! Such a heavenly pleasure... I would like to experience this once again.' | ||
| + $mood_description['pos_slave_winner'] = '- Hooray, we won! That was amazing. I feel much more confident.' | ||
| +} | ||
| -!master negative moodlets | ||
| -$mood_description['neg_housing'] = 'I live in decrepit shack. No conditions for work and rest.' | ||
| -$mood_description['neg_house_mess'] = 'The house is a mess and dirt. Just disgusting to be in here.' | ||
| -$mood_description['neg_boner'] = 'My pants are bursting from the boner. I need urgently to relieve stress.' | ||
| -$mood_description['neg_softcore'] = 'Looks like I had too much of sex. Enough is enough, I need a rest.' | ||
| -$mood_description['neg_rebell'] = "Slave doesn't listen me at all. There's still a lot of work to be done..." | ||
| -$mood_description['neg_cook'] = 'To eat properly, I have to tinker in the kitchen with pans and dishes. What the hell?' | ||
| -$mood_description['neg_cleaning'] = "I hate messing around in the mud. I'm a fucking slave trainer. What, there's no one in this house to clean up?!" | ||
| -$mood_description['neg_dirty'] = 'Ugh, I stink. It is necessary to wash, I disgust myself.' | ||
| -$mood_description['neg_tired'] = "Uuuuuhhhh... I'm tired. It is necessary to have a good rest, otherwise it's not hard to lose health." | ||
| -$mood_description['neg_alone'] = "I don't have a single slave at the moment. Somehow, it feels so lonely..." | ||
| -$mood_description['neg_grumpy'] = "Damn, what a dull person my slave is! I don't even want to work - boredom." | ||
| -$mood_description['neg_boring'] = "I'm booooooored... You can not always just work and fuck. It's necessary to have some fun!" | ||
| -$mood_description['neg_food'] = 'This is some kind of shit, not food. Why do I eat worse than some slaves?' | ||
| -$mood_description['neg_wealth'] = "I live just like some kind of beggar. Every penny has to be considered. I'm fed up with this!" | ||
| -$mood_description['neg_accounts'] = 'I have to engage in all the paper work. Need a secretary!' | ||
| -$mood_description['neg_master_precious'] = 'What a pity that I had to take my magic decoration off. It is my precious! I need to put it back and never take it off.' | ||
| -$mood_description['neg_drunk'] = 'My head aches and mouth is dry. I need a drink. It is urgent to have a drink... there should have been a bottle somewhere in the closet...' | ||
| -$mood_description['neg_wounded'] = 'My wounds ache under the bandages. Every wrong move hurts.' | ||
| -$mood_description['neg_no_koffe'] = 'My eyes droop. Where is my morning cup of kamra?' | ||
| -$mood_description['neg_no_meth'] = "Oh, I feel shitty. Need to recover with the use of fairies' pollen - it'll get better immediately and world will become colorful again." | ||
| -$mood_description['neg_no_opium'] = "I'm having agonies. I'll start climbing the wall at this rate. Feels like I'll fucking die if oblivion is not urgently delivered." | ||
| -$mood_description['neg_master_ill'] = 'Damn it. My dick drips and burns whenever I go to the toilet. Some of these whores infected me with rotphilis!' | ||
| -$mood_description['neg_master_loser'] = 'I hate to lose. Although it is not my fault, but slave had to try better!' | ||
| -$mood_description['neg_master_cloth'] = 'My clothes will not do! Just how long can I wash and mend it? I need to update my wardrobe.' | ||
| -!new moodlet for escaped slave | ||
| -$mood_description['neg_escape'] = 'My slave ran away overnight while I was asleep. What a waste of money and time. Now I have to buy a new slave.' | ||
| -!moodlet after killing a slave | ||
| -$mood_description['neg_slave_killed'] = 'The slave died in training. I must be more careful with the merchandise in future.' | ||
| -!moodlet after slave dies due starvation | ||
| -$mood_description['neg_slave_starved'] = 'I should feed the slave as it should. Now I have to take on a new...' | ||
| -!moodlet when slave dies due ill | ||
| -$mood_description['neg_slave_died'] = 'I didn''t save the slave. Maybe I had to take her to the hospital... Now it''s too late.' | ||
| +$girl_negative_moodlets = { | ||
| + $mood_description['broken'] = '- Nohow, I do not care.' | ||
| + $mood_description['neg_slave'] = '- I got into the strange unfamiliar world and I was immediately made into a slave. How do you think I feel?' | ||
| + $mood_description['neg_pain'] = '- You hurt me. I still feel it, it does not go away.' | ||
| + $mood_description['neg_abuse'] = '- You were swearing at me so strongly that I still feel sick from it.' | ||
| + $mood_description['neg_disgust'] = '- I can not forget all this horror. Even pain is easier to endure than those hideous, horrible things that you are doing to me.' | ||
| + $mood_description['neg_sick'] = "- I feel really bad. I'm dizzy." | ||
| + $mood_description['neg_menstruation'] = '- I have these days... stomach ache. So the mood is not very much.' | ||
| + $mood_description['neg_slave_food'] = '- That food you are giving me, it is not quite tasty. To tell the truth, it is so vile that it is easier to stay hungry than to push it in a throat...' | ||
| + $mood_description['neg_slave_dirty'] = "- I'm itchy from the dirt and bad smell. It would be nice to wash..." | ||
| + $mood_description['neg_slave_mess'] = '- The house now is a terrible mess, dishes are unwashed, everything is upside down. Not the best conditions for life.' | ||
| + $mood_description['neg_horny'] = '- Every woman from time to time needs a little bit of affection. Without this it is so sad...' | ||
| + $mood_description['neg_hungry'] = '- I constantly feel hungry. I want to eat normally.' | ||
| + $mood_description['neg_exhausted'] = "- I'm very tired. Seems like I'll collapse if I continue working." | ||
| + $mood_description['neg_fear'] = '- I know that you can punish me for any wrongdoing, and live in constant fear. Thoughts about various horrors do not go out of my head.' | ||
| + $mood_description['neg_no_prise'] = '- I tried so hard to do well, and you have not even told me a single good word.' | ||
| + $mood_description['neg_angst'] = '- I do not know what will happen to me tomorrow or even the next minute. Why do I live? I feel like howling of hopelessness...' | ||
| + $mood_description['neg_spoil'] = "- You do not appreciate me at all! Look, what kind of conditions are these?! Cheer me up or something! I'm bored!" | ||
| + $mood_description['neg_rules'] = '- All these terrible rules that you are forcing me to do... they do not add to the joy of life, actually.' | ||
| + $mood_description['neg_bad_sleep'] = '- Sleeping conditions are just terrible. My whole body numb and sore from such a "rest".' | ||
| + $mood_description['neg_prisoner'] = '- I spent so much time in prison. Not the most pleasant experience...' | ||
| + $mood_description['neg_naked'] = "- I have to go naked everywhere. It's cold and humiliating." | ||
| + $mood_description['neg_naked_frightened'] = "- I'm frightened by nudity!" | ||
| + $mood_description['neg_naked_fear'] = "- I'm feared by nudity!" | ||
| + $mood_description['neg_naked_optimistic'] = "- I'm optimistic about nudity!" | ||
| + !mood_intensity['neg_naked'] = 5 | ||
| + $mood_description['neg_job'] = '- You make me engage in any boring and unpleasant work. From this I have a bad mood.' | ||
| + $mood_description['neg_defloration'] = '- Sex for the first time is scary and painful. I still hurts down there...' | ||
| + $mood_description['neg_forced'] = '- You have coerced me into doing ugly things. I feel so helpless. And my bruises hurt.' | ||
| + $mood_description['neg_raped'] = '- You raped me! I feel dirty, abused and trampled.' | ||
| + $mood_description['neg_shame'] = "- God, I'm still ashamed. Why did you make me do such nasty things?" | ||
| + $mood_description['neg_spellbound'] = '- Your evil spell put me down. There are strange voices whispering in my head. They drive me crazy!' | ||
| + $mood_description['neg_artifact'] = '- My magic decoration! My... My... precioooous... Angry master took it away from us... gollum... poor... poor us... so lonely...' | ||
| + $mood_description['neg_slave_koffe'] = "- I can not wake up before I drink some kamra. I can't even open my eyes." | ||
| + $mood_description['neg_slave_meth'] = '- I feel sick. I feel very, very sick. My mouth is dry, I feel weak, my muscles ache... I NEED DUST!' | ||
| + $mood_description['neg_slave_opium'] = "- I can't stand it. I NEED A DOSE, URGENTLY! Oh, please... I beg of you..." | ||
| + $mood_description['neg_slave_drunk'] = '- My head still hurts after yesterday. I can not drink so much.' | ||
| + $mood_description['neg_slave_ill'] = '- It hurts to go to the toilet and secretions look strange. I guess I caught something...' | ||
| + $mood_description['neg_slave_looser'] = "- I'm not to blame for this loss! Opponents were too strong..." | ||
| + $mood_description['neg_ugly'] = '- All these bruises and scratches... They mutilated me. I''m scared to look at myself in the mirror.' | ||
| +} | ||
| -!positive slave moodlet | ||
| -$mood_description['pos_prise'] = ' [<<$slave_name>>] | ||
| -- Fair words please the conversation :3' | ||
| -$mood_description['pos_slave_date'] = ' [<<$slave_name>>] | ||
| -- I loved our walk. I would like to spend time together some another time!' | ||
| -$mood_description['pos_reward'] = ' [<<$slave_name>>] | ||
| -- Reward for good behavior is nice. Improves mood.' | ||
| -$mood_description['pos_orgasm'] = ' [<<$slave_name>>] | ||
| -- Well... I was so nice to get a discharge. I would not mind cumming like that once more...' | ||
| -$mood_description['pos_cookie'] = ' [<<$slave_name>>] | ||
| - I ate very tasty food and it is certainly nice. Food on your table is much better than in my bowl.' | ||
| -$mood_description['pos_sleep'] = ' [<<$slave_name>>] | ||
| -- I got a good night''s sleep in my room. It is so nice sometimes to relax in comfort.' | ||
| -$mood_description['pos_slave_clean'] = ' [<<$slave_name>>] | ||
| -- I washed recently. Nice to feel clean and fresh.' | ||
| -$mood_description['pos_well_rested'] = ' [<<$slave_name>>] | ||
| -- I rested well yesterday, it is pleasant to slack off from time to time.' | ||
| -$mood_description['pos_desert'] = ' [<<$slave_name>>] | ||
| -- I still remember the flavor of sweet treats. Mmmm... yummy!' | ||
| -$mood_description['pos_no_punish'] = ' [<<$slave_name>>] | ||
| -- You decided not to punish me, although I know that I was guilty. Nice to know that you are sorry for me ^ _ ^' | ||
| -$mood_description['pos_moral'] = ' [<<$slave_name>>] | ||
| -- I''m always happy to serve my Master. I''m a good girl, right, Master?' | ||
| -$mood_description['pos_clothes'] = " [<<$slave_name>>] | ||
| -- I have a very comfortable clothes. Nothing is too tight and doesn't interfere." | ||
| -$mood_description['pos_job'] = ' [<<$slave_name>>] | ||
| -- When I do my favorite thing, I feel relieved.' | ||
| -$mood_description['pos_games'] = ' [<<$slave_name>>] | ||
| -- Free time for entertainment - that''s just awesome! So nice to get away from worries.' | ||
| -$mood_description['pos_gentle'] = " [<<$slave_name>>] | ||
| -- It''s nice to feel someone''s care and affection..." | ||
| -$mood_description['pos_pony'] = ' [<<$slave_name>>] | ||
| -- I also have my little pony - with her is is always fun!' | ||
| -$mood_description['pos_spellguarded'] = ' [<<$slave_name>>] | ||
| -- My will was stronger than your spell! I feel much more confident.' | ||
| -$mood_description['pos_artifact'] = ' [<<$slave_name>>] | ||
| -- This magic decoration just superb. While I wear it, the world seems a lot better than it is. I will never take it off!' | ||
| -$mood_description['pos_slave_kannabis'] = ' [<<$slave_name>>] | ||
| -- Oooo... duuuuuuuuude... this weed is a thing. Such a bliss, we need to add some relaxing music.' | ||
| -$mood_description['pos_slave_alco'] = ' [<<$slave_name>>] | ||
| -- I... hic... soooooo drunk. Why did you get me drunk, eh? You want to take advantage of my... hic... helpless situation?' | ||
| -$mood_description['pos_slave_opium'] = ' [<<$slave_name>>] | ||
| -- I feel good. I feel oblivion flowing through my veins, carrying away pain and sorrow.' | ||
| -$mood_description['pos_slave_drunk'] = ' [<<$slave_name>>] | ||
| -- I... hic... soooooo drunk. Why did you get me drunk, eh? You want to take advantage of my... hic... helpless situation?' | ||
| -$mood_description['pos_slave_love'] = ' [<<$slave_name>>] | ||
| -- Some kind of irresistible force beckons me to you. I always think of you. I want to be beside you... forever.' | ||
| -$mood_description['pos_multiple_orgasm'] = ' [<<$slave_name>>] | ||
| -- Ohh, it was a great sex! Such a heavenly pleasure... I would like to experience this once again.' | ||
| -$mood_description['pos_slave_winner'] = ' [<<$slave_name>>] | ||
| -- Hooray, we won! That was amazing. I feel much more confident.' | ||
| -$mood_description['pos_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| +$psyStatus_categories = { | ||
| + !$psyStatusCategory['broken'] = '?' ! category not needed; this psyStatus is not involved in text-response variations | ||
| + | ||
| + $psyStatusCategory['servile'] = 'loyal' | ||
| + $psyStatusCategory['obedient'] = 'loyal' | ||
| + $psyStatusCategory['horny'] = 'loyal' | ||
| + $psyStatusCategory['optimistic'] = 'loyal' | ||
| + | ||
| + !$psyStatusCategory['soft'] = '?' ! leave as default until we have an appropriate category (e.g. passive) | ||
| + !$psyStatusCategory['docile'] = '?' ! leave as default until we have an appropriate category (e.g. passive) | ||
| + | ||
| + $psyStatusCategory['frightened'] = 'fear' | ||
| + $psyStatusCategory['depresive'] = 'fear' | ||
| + $psyStatusCategory['hysteric'] = 'fear' | ||
| + $psyStatusCategory['lachrymose'] = 'fear' | ||
| + | ||
| + $psyStatusCategory['reluctant'] = 'defiant' | ||
| + $psyStatusCategory['arrogant'] = 'defiant' | ||
| + $psyStatusCategory['hateful'] = 'defiant' | ||
| + $psyStatusCategory['resistant'] = 'defiant' | ||
| +} | ||
| -!negative slave moodlets | ||
| -$mood_description['neg_slave'] = ' [<<$slave_name>>] | ||
| -- I got into the strange unfamiliar world and I was immediately made into a slave. How do you think I feel?' | ||
| -$mood_description['neg_pain'] = ' [<<$slave_name>>] | ||
| -- You hurt me. I still feel it, it does not go away.' | ||
| -$mood_description['neg_abuse'] = ' [<<$slave_name>>] | ||
| -- You were swearing at me so strongly that I still feel sick from it.' | ||
| -$mood_description['neg_disgust'] = ' [<<$slave_name>>] | ||
| -- I can not forget all this horror. Even pain is easier to endure than those hideous, horrible things that you are doing to me.' | ||
| -$mood_description['neg_sick'] = " [<<$slave_name>>] | ||
| -- I feel really bad. I'm dizzy." | ||
| -$mood_description['neg_menstruation'] = ' [<<$slave_name>>] | ||
| -- I have these days... stomach ache. So the mood is not very much.' | ||
| -$mood_description['neg_slave_food'] = ' [<<$slave_name>>] | ||
| -- That food you are giving me, it is not quite tasty. To tell the truth, it is so vile that it is easier to stay hungry than to push it in a throat...' | ||
| -$mood_description['neg_slave_dirty'] = " [<<$slave_name>>] | ||
| -- I'm itchy from the dirt and bad smell. It would be nice to wash..." | ||
| -$mood_description['neg_slave_mess'] = ' [<<$slave_name>>] | ||
| -- The house now is a terrible mess, dishes are unwashed, everything is upside down. Not the best conditions for life.' | ||
| -$mood_description['neg_horny'] = ' [<<$slave_name>>] | ||
| -- Every woman from time to time needs a little bit of affection. Without this it is so sad...' | ||
| -$mood_description['neg_hungry'] = ' [<<$slave_name>>] | ||
| -- I constantly feel hungry. I want to eat normally.' | ||
| -$mood_description['neg_exhausted'] = " [<<$slave_name>>] | ||
| -- I'm very tired. Seems like I'll collapse if I continue working." | ||
| -$mood_description['neg_fear'] = ' [<<$slave_name>>] | ||
| -- I know that you can punish me for any wrongdoing, and live in constant fear. Thoughts about various horrors do not go out of my head.' | ||
| -$mood_description['neg_no_prise'] = ' [<<$slave_name>>] | ||
| -- I tried so hard to do well, and you have not even told me a single good word.' | ||
| -$mood_description['neg_angst'] = ' [<<$slave_name>>] | ||
| -- I do not know what will happen to me tomorrow or even the next minute. Why do I live? I feel like howling of hopelessness...' | ||
| -$mood_description['neg_spoil'] = " [<<$slave_name>>] | ||
| -- You do not appreciate me at all! Look, what kind of conditions are these?! Cheer me up or something! I'm bored!" | ||
| -$mood_description['neg_rules'] = ' [<<$slave_name>>] | ||
| -- All these terrible rules that you are forcing me to do... they do not add to the joy of life, actually.' | ||
| -$mood_description['neg_bad_sleep'] = ' [<<$slave_name>>] | ||
| -- Sleeping conditions are just terrible. My whole body numb and sore from such a "rest".' | ||
| -$mood_description['neg_prisoner'] = ' [<<$slave_name>>] | ||
| -- I spent so much time in prison. Not the most pleasant experience...' | ||
| -$mood_description['neg_naked'] = " [<<$slave_name>>] | ||
| -- I have to go naked everywhere. It's cold and humiliating." | ||
| -$mood_description['neg_job'] = ' [<<$slave_name>>] | ||
| -- You make me engage in any boring and unpleasant work. From this I have a bad mood.' | ||
| -$mood_description['neg_defloration'] = ' [<<$slave_name>>] | ||
| -- Sex for the first time is scary and painful. I still hurts down there...' | ||
| -$mood_description['neg_forced'] = ' [<<$slave_name>>] | ||
| -- You have coerced me into doing ugly things. I feel so helpless. And my bruises hurt.' | ||
| -$mood_description['neg_raped'] = ' [<<$slave_name>>] | ||
| -- You raped me! I feel dirty, abused and trampled.' | ||
| -$mood_description['neg_shame'] = " [<<$slave_name>>] | ||
| -- God, I'm still ashamed. Why did you make me do such nasty things?" | ||
| -$mood_description['neg_spellbound'] = ' [<<$slave_name>>] | ||
| -- Your evil spell put me down. There are strange voices whispering in my head. They drive me crazy!' | ||
| -$mood_description['neg_artifact'] = ' [<<$slave_name>>] | ||
| -- My magic decoration! My... My... precioooous... Angry master took it away from us... gollum... poor... poor us... so lonely...' | ||
| -$mood_description['neg_slave_koffe'] = " [<<$slave_name>>] | ||
| -- I can not wake up before I drink some kamra. I can't even open my eyes." | ||
| -$mood_description['neg_slave_meth'] = ' [<<$slave_name>>] | ||
| -- I feel sick. I feel very, very sick. My mouth is dry, I feel weak, my muscles ache... I NEED DUST!' | ||
| -$mood_description['neg_slave_opium'] = " [<<$slave_name>>] | ||
| -- I can't stand it. I NEED A DOSE, URGENTLY! Oh, please... I beg of you..." | ||
| -$mood_description['neg_slave_drunk'] = ' [<<$slave_name>>] | ||
| -- My head still hurts after yesterday. I can not drink so much.' | ||
| -$mood_description['neg_slave_ill'] = ' [<<$slave_name>>] | ||
| -- It hurts to go to the toilet and secretions look strange. I guess I caught something...' | ||
| -$mood_description['neg_slave_looser'] = " [<<$slave_name>>] | ||
| -- I'm not to blame for this loss! Opponents were too strong..." | ||
| -$mood_description['neg_ugly'] = ' [<<$slave_name>>] | ||
| -- All these bruises and scratches... They mutilated me. I''m scared to look at myself in the mirror.' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| -$mood_description['neg_'] = ' [<<$slave_name>>] | ||
| -- ' | ||
| +! if the dictionaries are empty then populate them | ||
| +dynamic $master_positive_moodlets | ||
| +dynamic $master_negative_moodlets | ||
| +dynamic $girl_positive_moodlets | ||
| +dynamic $girl_negative_moodlets | ||
| +dynamic $psyStatus_categories | ||
| + | ||
| +! clear the $mood_keys dictionary (just in case) before we start inserting anything into it | ||
| +killvar 'mood_keys' | ||
| + | ||
| +! scan through the moodlet declaration code to extract the dictionary keys | ||
| +$regex = "[^[]+\['([^']+)'\]" | ||
| +$searchString = $master_positive_moodlets + $master_negative_moodlets + $girl_positive_moodlets + $girl_negative_moodlets | ||
| + | ||
| +:moodletKeyExtractionLoop_start | ||
| +! search for a dictionary-key literal | ||
| +$regexMatchString = strfind($searchString, $regex, 1) | ||
| +if (len($regexMatchString) > 0): | ||
| + ! valid match found; add it to the collection | ||
| + if (arrpos('$mood_keys', '<<$regexMatchString>>') = -1): $mood_keys[] = $regexMatchString | ||
| + ! Note: the preceding line has a built-in guard against duplicate content, because the Regex is not especially clever. | ||
| + ! It can easily create duplicate entries (e.g. by parsing a commented-out line of code as if it was live code). | ||
| + | ||
| + ! chop the matching portion off of the searchString (so that we can run the same regex and acquire a new match) | ||
| + regexMatchPos = instr($searchString, $regexMatchString) | ||
| + $searchString = mid($searchString, regexMatchPos + len($regexMatchString)) | ||
| + | ||
| + ! Repeat the process until no more valid matches are found | ||
| + jump 'moodletKeyExtractionLoop_start' | ||
| +END | ||
| + | ||
| +! Cleanup | ||
| +killvar 'master_positive_moodlets' | ||
| +killvar 'master_negative_moodlets' | ||
| +killvar 'girl_positive_moodlets' | ||
| +killvar 'girl_negative_moodlets' | ||
| +killvar 'psyStatus_categories' | ||
| +killvar 'regex' | ||
| +killvar 'searchString' | ||
| +killvar 'regexMatchPos' | ||
| +killvar 'regexMatchString' | ||
| --- #moodlet_base --------------------------------- | ||
183
src/$moodlets_account.txt
| @@ -1,82 +1,135 @@ | ||
| # $moodlets_account | ||
| !calculate the moodlets effect | ||
| -gs '#moodlet_base' | ||
| -master_mood_rate = 0 | ||
| -master_mood = 0 | ||
| - | ||
| -$master_mood_list = '' | ||
| -n = arrsize('$master_good_mood') | ||
| -i = 0 | ||
| -:loop | ||
| - i += 1 | ||
| - $curmod = $master_good_mood[i] | ||
| - IF master_mood['<<$curmod>>'] > 0: | ||
| - $master_mood_list += " <<$mood_description['<<$curmod>>']>><br>" | ||
| - master_mood += 1 | ||
| - END | ||
| -if i < n: jump 'loop' | ||
| +!Arguments | ||
| +!0 = string. The name of the dictionary which defines the current status of the character. e.g. "slave" or "master" | ||
| +!1 = string. The name of the dictionary which contains the moods of the character. e.g. "master_mood". Can be identical to arg 0 | ||
| +!2 = string. The name of a dictionary into which the output will be inserted. | ||
| + ! MUST be included when requesting mood information for a girl. | ||
| + ! If absent, the mood information will be concatenated into a string and returned via the $RESULT keyword. | ||
| -$master_mood_list += '<br>' | ||
| -n = arrsize('$master_bad_mood') | ||
| -i = 0 | ||
| -:loop1 | ||
| - i += 1 | ||
| - $curmod = $master_bad_mood[i] | ||
| +!Run the moodlet_base subroutine. This will populate the various mood_description strings. | ||
| +!If they're already populated then it'll refresh them (which is wasteful but basically harmless) | ||
| +gs '#moodlet_base' | ||
| - IF master_mood['<<$curmod>>'] > 0: | ||
| - !debug | ||
| - !msg 'master_mood[''<<$curmod>>''] = <<master_mood[$curmod]>>' | ||
| - $master_mood_list += " <<$mood_description['<<$curmod>>']>><br>" | ||
| - master_mood -= 1 | ||
| - END | ||
| -if i < n: jump 'loop1' | ||
| +!Verify the arguments | ||
| +if (arrsize('args') = 0): | ||
| + ! If this function was called without arguments then assume that they want the current thoughts of the slave girl | ||
| + $args[0] = "slave" | ||
| + $args[1] = "slave" | ||
| + $args[2] = "slave_mood_list" | ||
| +END | ||
| +if (arrsize($args[0]) = 0): | ||
| + ! The character is undefined. No useful work can be done; abort now to avoid a potential crash | ||
| + EXIT | ||
| +END | ||
| -!slave part | ||
| -slave_rate['mood'] = 0 | ||
| -slave['mood'] = 0 | ||
| +if (arrsize('args') > 2): | ||
| + ! Note: we must nest these IF statement (instead of a simple AND) because QSP does not apply boolean short-circuit logic | ||
| + if (arrsize($args[2]) > 0): | ||
| + ! A non-empty output dictionary was specified. | ||
| + ! Clear it now, so that the subsequent code can insert into it without making any special checks. | ||
| + killvar $args[2] | ||
| + ! Insert an empty string at index 0. The UI logic begins reading at index 1, so if we omit this | ||
| + ! step then the first actual Moodlet will be hidden from the player. | ||
| + dynamic "$<<$args[2]>>[0] = ''" | ||
| + END | ||
| +END | ||
| -killvar '$slave_mood_list' | ||
| +! Zero out the mood and mood_rate values for the specified character | ||
| +dynamic "<<$args[0]>>['mood'] = 0" | ||
| +dynamic "<<$args[0]>>_rate['mood'] = 0" | ||
| -ndex = 0 | ||
| -if $slave_psy_status = 'broken': jump 'loop_broken' | ||
| -n = arrsize('$slave_bad_mod') | ||
| +! Declare variables for iteration/traversal | ||
| i = 0 | ||
| -:loop3 | ||
| - i += 1 | ||
| - $curmod = $slave_bad_mod[i] | ||
| +isFirstNegMoodlet = 1 | ||
| - IF slave['<<$curmod>>'] > 0: | ||
| - ndex += 1 | ||
| - $slave_mood_list[ndex] = " <<$mood_description['<<$curmod>>']>>" | ||
| - slave['mood'] -= 1 | ||
| - END | ||
| -if i < n: jump 'loop3' | ||
| +! Check for mind-break. A mind-broken girl is not supposed to talk about her feelings, so we can skip the dictionary-traversal. | ||
| +dynamic "$characterPsyStatus = $<<$args[0]>>['psy_status']" | ||
| +if ($characterPsyStatus = 'broken'): | ||
| + $currentMoodletDescription = $mood_description['broken'] | ||
| + jump 'moodletLoop_gotDescription' | ||
| +END | ||
| -n = arrsize('$slave_good_mod') | ||
| -i = 0 | ||
| -:loop4 | ||
| - i += 1 | ||
| - $curmod = $slave_good_mod[i] | ||
| +! Iterate through the moodlet dictionary | ||
| +moodDictionarySize = arrsize('mood_keys') | ||
| +:moodletLoop_start | ||
| + ! Lookup the current entry (remember that we are traversing the full set of KNOWN moodlets; not just those that apply to this character) | ||
| + $currentMoodlet = $mood_keys[i] | ||
| + ! Determine whether the moodlet applies to this character | ||
| + dynamic "currentMoodletDuration = <<$args[1]>>['<<$currentMoodlet>>']" | ||
| - IF slave['<<$curmod>>'] > 0: | ||
| - ndex += 1 | ||
| - $slave_mood_list[ndex] = " <<$mood_description['<<$curmod>>']>>" | ||
| - slave['mood'] += 1 | ||
| - END | ||
| -if i < n: jump 'loop4' | ||
| + ! If this character IS under the influence of this moodlet (remaining duration is positive) then ... | ||
| + IF (currentMoodletDuration > 0): | ||
| + ! Lookup the magnitude (intensity) of this moodlet. If no match is found, assume 1. | ||
| + currentMoodletIntensity = mood_intensity[$currentMoodlet] | ||
| + if (currentMoodletIntensity = 0): currentMoodletIntensity = 1 | ||
| + | ||
| + ! Ensure that "emotionally negative" moodlets have a negative integer value (to simplify the arithmetic) | ||
| + if ($mid($currentMoodlet, 1, 3) = "neg"): currentMoodletIntensity = min(currentMoodletIntensity, currentMoodletIntensity * -1) | ||
| + if ($mid($currentMoodlet, 1, 3) = "pos"): currentMoodletIntensity = max(currentMoodletIntensity, currentMoodletIntensity * -1) | ||
| + | ||
| + ! Include a line break between the positive and negative moodlet sections (for ease of reading) | ||
| + if (currentMoodletIntensity < 0 and isFirstNegMoodlet): | ||
| + isFirstNegMoodlet = 0 | ||
| + $result += '<br>' | ||
| + END | ||
| + | ||
| + ! Adjust the character mood accordingly | ||
| + dynamic "<<$args[0]>>['mood'] += <<currentMoodletIntensity>>" | ||
| + | ||
| +:moodletLoop_lookupVariants | ||
| + | ||
| + ! Next, we must find an appropriate string to show the player... | ||
| + ! First, check whether we have an exact match for the psyStatus of the character | ||
| + $currentMoodletDescription = $mood_description['<<$currentMoodlet>>' + '_' + '<<$characterPsyStatus>>'] | ||
| + if (len($currentMoodletDescription) > 0): jump 'moodletLoop_gotDescription' | ||
| + ! No match found. Try to find a match for the general CATEGORY of the psyStatus | ||
| + $currentMoodletDescription = $mood_description[$currentMoodlet + '_' + $psyStatusCategory[$characterPsyStatus]] | ||
| + if (len($currentMoodletDescription) > 0): jump 'moodletLoop_gotDescription' | ||
| + ! No match found. Try to find a generic match for the moodlet itself (ignoring the psyStatus completely) | ||
| + $currentMoodletDescription = $mood_description[$currentMoodlet] | ||
| -if ndex < 1: $slave_mood_list[1] = ' [<<$slave_name>>] | ||
| -- I''m all right. Nothing special...' | ||
| +:moodletLoop_gotDescription | ||
| + | ||
| + if (len($currentMoodletDescription) > 0): | ||
| + ! Match found. Use it. | ||
| + $outputString += ' ' + $currentMoodletDescription + '<br>' | ||
| + else | ||
| + ! No match found. Fallback - just show a generic message which mentions the moodlet name (to assist in debugging) | ||
| + $outputString += ' - I feel ' + $currentMoodlet + '.<br>' | ||
| + END | ||
| + | ||
| + ! If the function-invocation asked us to put the results into an output dictionary, more work is needed | ||
| + if (arrsize('args') > 2): | ||
| + ! Prepend the special characterName caption | ||
| + $outputString = " [" + dyneval ("$result = $<<$args[0]>>['name']", $args[0]) + "] | ||
| +" + $outputString | ||
| + | ||
| + ! Add this message to the output dictionary | ||
| + dynamic "$<<$args[2]>>[] = $outputString" | ||
| + END | ||
| + | ||
| + ! Append the description of this moodlet to the emotional summary of this character | ||
| + $result += $outputString | ||
| + killvar 'outputString' | ||
| + END | ||
| + | ||
| + i += 1 | ||
| +if (i < moodDictionarySize): jump 'moodletLoop_start' | ||
| +:moodletLoop_end | ||
| -:loop_broken | ||
| -if $slave_psy_status = 'broken': $slave_mood_list[1] = ' [<<$slave_name>>] | ||
| -- Nohow, I do not care.' | ||
| +! Enforce the standard range-limits on mood magnitude (-5 ... 5) | ||
| +dynamic "<<$args[0]>>['mood'] = max(-5, min(5, <<$args[0]>>['mood']))" | ||
| -if master_mood > 5: master_mood = 5 | ||
| -if master_mood < -5: master_mood = -5 | ||
| -if slave['mood'] > 5: slave['mood'] = 5 | ||
| -if slave['mood'] < -5: slave['mood'] = -5 | ||
| - | ||
| +! Cleanup | ||
| +killvar 'i' | ||
| +killvar 'moodDictionarySize' | ||
| +killvar 'isFirstNegMoodlet' | ||
| +killvar 'currentMoodlet' | ||
| +killvar 'currentMoodletDuration' | ||
| +killvar 'currentMoodletIntensity' | ||
| +killvar 'characterPsyStatus' | ||
| +killvar 'currentMoodletDescription' | ||
| --- $moodlets_account --------------------------------- | ||
6
src/$newloc.txt
1
src/demo_menu_form.txt
3
src/interaction.txt
1
src/menu_form.txt
0 comments on commit
d270cf0