<snip>
####################################################################################
#
# Random talk and rumors
#input
# type is 1 is bartender/Merchant
# 2 is Traveler
# 3 is Red Brotherhood
# 4 is Noble/lady--------not used
# 5 is steward
#
# slot_troop_rumor_date
# changes S3 for output string
####################################################################################
("random_rumor_talk", [
(store_script_param, ":speaker_type", 1),
(store_script_param, ":speaker", 2),
(assign,reg2,":speaker_type"),
(str_store_troop_name,s1,":speaker"),
#(display_log_message, "@ generating rumor speaker type {reg2}, speaker is {s1}. "),
#Determine if they have already told their rumor this week
(troop_get_slot,":lastday",":speaker",slot_troop_rumor_date),
(try_begin),
(eq,":speaker_type",2),(val_add,":lastday",2),# Travelers hear stuff more often
(else_try),
(val_add,":lastday",5),
(try_end),
(store_current_day,":control_day"),
#(assign,reg14,":lastday"), (assign,reg15,":control_day"),## REMOVE
# (display_message, "@ lastday of rumor is {reg14}.. today is {reg15}"), ## REMOVE
#(assign,":lastday",0),(assign,":control_day",0),# testing line remove-------------------generate rumor ----------
# (val_add,":control_day",50),# testing line remove------------------generate a no response-----------
# (str_clear,s1),(str_clear,s3),(str_clear,s4),(str_clear,s5),(str_clear,s6),(str_clear,s7),(str_clear,s
,
# (str_clear,s0),(str_clear,s53), (str_clear,s9),(str_clear,s50),
(try_begin),
(le,":control_day",":lastday"),# catch.. no new rumors
#(display_message, "@ determination made.. no rumor lastday less than today"),
(try_begin),
(eq,":speaker_type",1), #bartender and merchants
(store_random_in_range,":adj_random",10,90),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s5,"@no tidbits of value"),
(else_try),
(lt,":adj_random",2),(str_store_string,s5,"@no information of interest"),
(else_try),
(lt,":adj_random",3),(str_store_string,s5,"@no interesting news to give you"),
(else_try),
(lt,":adj_random",4),(str_store_string,s5,"@no new rumors to report"),
(else_try),
(lt,":adj_random",5),(str_store_string,s5,"@no new information"),
(else_try),
(lt,":adj_random",6),(str_store_string,s5,"@very little worth repeating"),
(else_try),
(lt,":adj_random",7),(str_store_string,s5,"@nothing but worthless gossip and fishwives tales"),
(else_try),
(lt,":adj_random",
,(str_store_string,s5,"@nothing but innuendo and worthless boasts"),
(else_try),
(str_store_string,s5,"@no news worth repeating"),
(try_end),# end for adjective 1 S1
# (display_log_message, "@ {s5}"),
(store_random_in_range,":adj_random",10,60),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s2,"@ My {Captain/Lady},"),
(else_try),
(lt,":adj_random",2),(str_store_string,s2,"@ Business has been brisk and"),
(else_try),
(lt,":adj_random",3),(str_store_string,s2,"@ Well in truth, {playername},"),
(else_try),
(lt,":adj_random",4),(str_store_string,s2,"@ Hmmm, {playername}. My sources have dried up, and"),
(else_try),
(lt,":adj_random",5),(str_store_string,s2,"@ My good {playername}, I have been very busy and"),
(else_try),
(str_store_string,s2,"@ I am sorry, {playername}, "),
(try_end),# end for Starting Sentence
#(display_log_message, "@ {s2}"),
(store_random_in_range,":adj_random",10,100),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s6,"@. Try next week."),
(else_try),
(lt,":adj_random",2), (str_store_string,s6,"@. Perhaps you should go ask someone else."),
(else_try),
(lt,":adj_random",3), (str_store_string,s6,"@. You might have better luck elsewhere."),
(else_try),
(lt,":adj_random",4), (str_store_string,s6,"@. Ask me later, say in about a week."),
(else_try),
(lt,":adj_random",5),(str_store_string,s6,"@. I am sure that there are others that have the information you are looking for."),
(else_try),
(lt,":adj_random",6),(str_store_string,s6,"@. Perhaps later I will overhear something of interest."),
(else_try),
(lt,":adj_random",7),(str_store_string,s6,"@. Come back another time."),
(else_try),
(str_store_string,s6,"@. "),
(try_end), # end for adjective 1 S6
(store_random_in_range,":adj_random",10,80),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s3,"@ {s2} I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",2),(str_store_string,s3,"@ {s2} there have been {s5}{s6}"),
(else_try),
(lt,":adj_random",3),(str_store_string,s3,"@ {s2} I have to say there is {s5}{s6}"),
(else_try),
(lt,":adj_random",4),(str_store_string,s3,"@ {s2} few people have been talking and I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",5),(str_store_string,s3,"@ {s2} I have been ill, so I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",6),(str_store_string,s3,"@ {s2} I have been busy with this shipment so I have {s5} for you{s6}"),
(else_try),
(lt,":adj_random",7),(str_store_string,s3,"@ {s2} I have just have not had the time to listen for such, so unfortunately I have {s5} for you{s6}"),
(else_try),
(str_store_string,s3,"@ {s2} I have been busy with my apprentices, so I have {s5} to tell you{s6}"),
(try_end), # end for adjective 1 S1
# (display_log_message, "@ {s3}"),
(else_try),
(eq,":speaker_type",2), #Traveler------------------------------------------------------------
(store_random_in_range,":adj_random",10,60),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s2,"@ Ah! It is unfortunate My {Lord/Lady}, as"),
(else_try),
(lt,":adj_random",2),(str_store_string,s2,"@ More is the pity good {sir/madame}, as"),
(else_try),
(lt,":adj_random",3),(str_store_string,s2,"@ I have been idle too long, and"),
(else_try),
(lt,":adj_random",4),(str_store_string,s2,"@ I have been been busy with personal matters of late, and"),
(else_try),
(lt,":adj_random",5),(str_store_string,s2,"@ My ears and eyes have been open, but,"),
(else_try),
(str_store_string,s2,"@ I am sorry,"),
(try_end),# end for adjective 1 S1
#(display_log_message, "@ {s2}"),
(store_random_in_range,":adj_random",10,90),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s5,"@no information of value to"),
(else_try),
(lt,":adj_random",2),(str_store_string,s5,"@no information of interest for"),
(else_try),
(lt,":adj_random",3),(str_store_string,s5,"@very little interesting news to share with"),
(else_try),
(lt,":adj_random",4),(str_store_string,s5,"@no valuable news for"),
(else_try),
(lt,":adj_random",5),(str_store_string,s5,"@only worthless whispers to share"),
(else_try),
(lt,":adj_random",6),(str_store_string,s5,"@very little worth repeating to"),
(else_try),
(lt,":adj_random",7),(str_store_string,s5,"@nothing but the change of weather and drunken songs to give to"),
(else_try),
(lt,":adj_random",
,(str_store_string,s5,"@only unconfirmed whispers of no value to tell"),
(else_try),
(str_store_string,s5,"@only unsubstianted gossip for"),
(try_end),# end for adjective 1 S1
# (display_log_message, "@ {s5}"),
(store_random_in_range,":adj_random",10,100),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s6,"@. I am sorry my friend, there are times when I just not privy to the happenings of the land."),
(else_try),
(lt,":adj_random",2), (str_store_string,s6,"@. These things happen. In a day or two I will have some more tantalizing gossip for you."),
(else_try),
(lt,":adj_random",3), (str_store_string,s6,"@. That will change however, as it always does. Then I will hear something of great value."),
(else_try),
(lt,":adj_random",4), (str_store_string,s6,"@. If you are in a hurry, try speaking to the merchants or stewards, sometimes they hear nuggets of information."),
(else_try),
(lt,":adj_random",5),(str_store_string,s6,"@. Never fear, my ear is to the ground and I am bound to hear something soon.. it is, after all, my profession!"),
(else_try),
(lt,":adj_random",6),(str_store_string,s6,"@. Perhaps later I will overhear something of interest."),
(else_try),
(lt,":adj_random",7),(str_store_string,s6,"@. Let me to snoop about and ask some questions. In a day or two come back and I should know more."),
(else_try),
(lt,":adj_random",
,(str_store_string,s6,"@. Perhaps you should come back tomorrow. A few drinks here, a lovers whisper there, and information flows like water."),
(else_try),
(str_store_string,s6,"@. "),
(try_end), # end for adjective 1 S6
(store_random_in_range,":adj_random",10,80),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s3,"@ {s2} I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",2),(str_store_string,s3,"@ {s2} there have been {s5}{s6}"),
(else_try),
(lt,":adj_random",3),(str_store_string,s3,"@ {s2} I have to admit there is {s5}{s6}"),
(else_try),
(lt,":adj_random",4),(str_store_string,s3,"@ {s2} so few people have been gossiping. I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",5),(str_store_string,s3,"@ {s2} I have encountered so few people of late, so I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",6),(str_store_string,s3,"@ {s2} I have been engaged on a secret mission, so I have {s5} you{s6}"),
(else_try),
(lt,":adj_random",7),(str_store_string,s3,"@ {s2} I wish I had better news for you, but as the fates would have it {s5} for you{s6}"),
(else_try),
(str_store_string,s3,"@ {s2} I have been occupied with business of a paying nature, so I have {s5} to tell you{s6}"),
(try_end), # end for adjective 1 S1
(else_try),
(eq,":speaker_type",3), # Red Brotherhood------------------------------------------------------------
(store_random_in_range,":adj_random",10,50),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s2,"@ Ah! It is an unlucky turn of events good {Sir/Lady}, as"),
(else_try),
(lt,":adj_random",2),(str_store_string,s2,"@ Sad tales good {sir/madame}, as"),
(else_try),
(lt,":adj_random",3),(str_store_string,s2,"@ I have been too busy with the flesh trade, and"),
(else_try),
(lt,":adj_random",4),(str_store_string,s2,"@ My ears are open, but,"),
(else_try),
(str_store_string,s2,"@ I am sorry,"),
(try_end),# end for adjective 1 S1
#(display_log_message, "@ {s2}"),
(store_random_in_range,":adj_random",10,90),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s5,"@so little coherent information of value"),
(else_try),
(lt,":adj_random",2),(str_store_string,s5,"@no gossip of interest"),
(else_try),
(lt,":adj_random",3),(str_store_string,s5,"@very little interesting news to share"),
(else_try),
(lt,":adj_random",4),(str_store_string,s5,"@no valuable news"),
(else_try),
(lt,":adj_random",5),(str_store_string,s5,"@only worthless slave talk"),
(else_try),
(lt,":adj_random",6),(str_store_string,s5,"@very little worth repeating"),
(else_try),
(lt,":adj_random",7),(str_store_string,s5,"@nothing but the cries of women and moans of bench slaves"),
(else_try),
(lt,":adj_random",
,(str_store_string,s5,"@only the wild tales of the soon to be shackled"),
(else_try),
(str_store_string,s5,"@only minor gossip and talk of the endless wars"),
(try_end),# end for adjective 1 S1
# (display_log_message, "@ {s5}"),
(store_random_in_range,":adj_random",10,100),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s6,"@. I am sorry, my profession is to enslave the unwilling, not listen to their tales of woe."),
(else_try),
(lt,":adj_random",2), (str_store_string,s6,"@. Information like what you seek comes to me every week or so. Check back then."),
(else_try),
(lt,":adj_random",3), (str_store_string,s6,"@. Pity too, as I could use some juicy gossip to lift my spirits."),
(else_try),
(lt,":adj_random",4), (str_store_string,s6,"@. If you are in a hurry, try speaking to the other patrons in the taverns and maybe even the merchants."),
(else_try),
(lt,":adj_random",5),(str_store_string,s6,"@. If you want to know the real juicy stories, then seek out those wandering spies in the taverns. They know a thing or two."),
(else_try),
(lt,":adj_random",6),(str_store_string,s6,"@. Those guild-rats never tell me anything. Just buy the flesh, pay the coin and staff the galleys! "),
(else_try),
(lt,":adj_random",7),(str_store_string,s6,"@. Hell, I am bound to hear something worth passing on at some point during this next week. I always do."),
(else_try),
(lt,":adj_random",
,(str_store_string,s6,"@. Perhaps you should come back next week. I am expecting a delivery soon and that source always spins a good yarn."),
(else_try),
(str_store_string,s6,"@. "),
(try_end), # end for adjective 1 S6
(store_random_in_range,":adj_random",10,80),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s3,"@ {s2} I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",2),(str_store_string,s3,"@ {s2} there have been {s5}{s6}"),
(else_try),
(lt,":adj_random",3),(str_store_string,s3,"@ {s2} I must tell you I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",4),(str_store_string,s3,"@ {s2} so few people have been willing to speak. I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",5),(str_store_string,s3,"@ {s2} I have encountered only slaves of late, so I have heard {s5}{s6}"),
(else_try),
(lt,":adj_random",6),(str_store_string,s3,"@ {s2} I have been speaking to the guild masters, so I have {s5} for you{s6}"),
(else_try),
(lt,":adj_random",7),(str_store_string,s3,"@ {s2} I wish that my tidings were better. As the fates would have it I have heard {s5}{s6}"),
(else_try),
(str_store_string,s3,"@ {s2} I have been overtaxed with some escaped slaves, so I have {s5} to tell you{s6}"),
(try_end), # end for adjective 1 S1
(else_try),
(eq,":speaker_type",4), # Lady------------------------------------------------------------
(else_try),
(eq,":speaker_type",5), # Steward ------------------------------------------------------------
(store_random_in_range,":adj_random",10,90),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s5,"@no information of value"),
(else_try),
(lt,":adj_random",2),(str_store_string,s5,"@no information of interest"),
(else_try),
(lt,":adj_random",3),(str_store_string,s5,"@no interesting news"),
(else_try),
(lt,":adj_random",4),(str_store_string,s5,"@no news"),
(else_try),
(lt,":adj_random",5),(str_store_string,s5,"@only worthless information"),
(else_try),
(lt,":adj_random",6),(str_store_string,s5,"@very little worth repeating"),
(else_try),
(lt,":adj_random",7),(str_store_string,s5,"@nothing but soldiers tales and the cooks gossip"),
(else_try),
(lt,":adj_random",
,(str_store_string,s5,"@only unconfirmed whispers of no value"),
(else_try),
(str_store_string,s5,"@unsubstianted gossip"),
(try_end),# end for adjective 1 S1
# (display_log_message, "@ {s5}"),
(store_random_in_range,":adj_random",10,50),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s2,"@ My {Lord/Lady},"),
(else_try),
(lt,":adj_random",2),(str_store_string,s2,"@ Castle business is taxing and"),
(else_try),
(lt,":adj_random",3),(str_store_string,s2,"@ Of course good {Lord/Lady},"),
(else_try),
(lt,":adj_random",4),(str_store_string,s2,"@ My sources are muted,"),
(else_try),
(str_store_string,s2,"@ I am sorry,"),
(try_end),# end for adjective 1 S1
#(display_log_message, "@ {s2}"),
(store_random_in_range,":adj_random",10,100),(val_div,":adj_random",10),
(try_begin),
(lt,":adj_random",1), (str_store_string,s6,"@. I am sorry {Lord/Lady}, I will try harder to listen in the future."),
(else_try),
(lt,":adj_random",2), (str_store_string,s6,"@. Perhaps you should ask someone else. A spy perhaps?"),
(else_try),
(lt,":adj_random",3), (str_store_string,s6,"@. Have you tried seeking information in the Taverns?"),
(else_try),
(lt,":adj_random",4), (str_store_string,s6,"@. Have you thought of asking Merchants, they are in contact with many sorts of travelers and hear many rumors and newsworthy tidbits."),
(else_try),
(lt,":adj_random",5),(str_store_string,s6,"@. I am sure that there are others that have the information you seek."),
(else_try),
(lt,":adj_random",6),(str_store_string,s6,"@. Perhaps later I will overhear something of interest."),
(else_try),
(lt,":adj_random",7),(str_store_string,s6,"@. I am not a rumor monger my {Lord/Lady}, so I do not have a tendency to seek out gossip."),
(else_try),
(lt,":adj_random",
,(str_store_string,s6,"@. Perhaps you should come back another time. One never knows what one will overhear in these halls."),
(else_try),
(str_store_string,s6,"@. "),
(try_end), # end for adjective 1 S6
*************************************************