Children of Morrowind and a Family

[gabrielman]

Well.... I have been gone a while... haven't I?

Anywho, got a new computer, re added everything to Morrowind downloaded the romance mod (which is somewhat confusing as I can't seem to get some topics to work.... but that is for another topic and possibly another forum.....) and thought I would throw out there that I can get the scripts in english if anyone is interested.

Also, I added my wonderful wife to the game, which she is happy about, as she like the TES games a lot and has fun playing as a Breaton like I do

Also, how is everyone?

[Jac]

I'd like a copy of it with English comments, but there's no rush for it.

[gabrielman]

I will be unable to keep the script structure, IE the spacing it needs to run (though I have had scripts run without the spaces) but yes, I could get them all up for you, probably starting Sunday, when I have time off of work. Still trying to figure it out myself so I can marry my wife in game though, lol not sure how that works, but I will figure it out!

[Jac]

Scripts don't actually need spaces, they're just there to make them more readable. As long as you had the spaces on each line, it'll run even if it's all on one line (e.g. set count to ( count + 1 ) ).

[gabrielman]

Here is one that works for the "friendship" topic. This is it in english, if you want the french equivalent then let me know: Note! [()] anything in those brackets is my own text added to it. Just some of my thoughts. I did that about three times I think..... Anyway, the script.....:

begin _TLR_a_Friendship
, This script is run when using the topic Friendship. He stops himself at the end.


Bonus float
Var1 float; characteristic variable affecting the action
float Var2
short Var

,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
, Management Actions: Friendship
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, ,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,

if ("_TLR_Action" == 0)
return
endif

Set Var1 to (player-> GetIntelligence)
Set to Var2 (GetDisposition)

, "Talking about the weather." 1
if ("_TLR_Action" == 1)
if (Var2 <10)
MessageBox "I do not want to talk about it with you ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
else
if (GetCurrentWeather> = 4)
MessageBox "Terrible weather today."
elseif (GetCurrentWeather> = 2)
MessageBox "The weather is changeable."
else
MessageBox "I like it When the weather's fine"
endif
ModDisposition, 1
Set Bonus to (1 * Var1 Var2 * / 1000)
endif

, "Talking about literature." 2
elseif ("_TLR_Action" == 2)
if (Var2 <10)
MessageBox "I do not want to talk about it with you ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
else
Set to Var (Random 100)
if (Var> = 80)
MessageBox "That book I really liked ..." [(maybe it should be "I really liked that book)]
elseif (Var> = 60)
MessageBox "I have not read it ..."
elseif (Var> = 40)
MessageBox "This volume is very informative ..."
elseif (Var> = 20)
MessageBox "This book is extremely rare ..."
else
MessageBox "It's a series of five volumes ..."
endif
ModDisposition, 1
Set Bonus to (1 * Var1 Var2 * / 1000)
endif

, "Play on." 3
elseif ("_TLR_Action" == 3)
if (Var2 <10)
MessageBox "I do not want to play with you ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
else
StartScript, "_TLR_Fade"
Set "_TLR_Fade." Time to 1
Set to Var (Random 100)
if (Var> = (player-> GetLuck))
MessageBox "I won ..."
player-> RemoveItem Gold_001, 1
AddItem Gold_001, 1
ModDisposition, 5
else
if ("_TLR_PCsex" == 1)
MessageBox "You were lucky That roll ..."
else
MessageBox "You were lucky That roll ..."
endif
RemoveItem Gold_001, 1
player-> AddItem Gold_001, 1
ModDisposition, -1
endif
Set Bonus to (1 * Var1 Var2 * / 1000)
endif

, "Joke." 4
elseif ("_TLR_Action" == 4)
if (Var2 <20)
MessageBox "I do not feel like joking around with you ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
elseif ("_TLR_Friendship_ct"> = 20)
Set to Var (Random 100)
if (Var> = 80)
MessageBox, "Ha ha ha ha ha ..."
elseif (Var> = 60)
MessageBox "That's really funny ..."
elseif (Var> = 40)
MessageBox "I did not know that ..."
elseif (Var> = 20)
MessageBox "I really like your sense of humor ..."
else
MessageBox "That's amusing ..."
endif
ModDisposition, 1
Set Bonus to (2 * Var1 Var2 * / 1000)
else
MessageBox, "I do not feel close enough to you to joke around ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
endif

, "Telling his adventures." 5
elseif ("_TLR_Action" == 5)
if (Var2 <30)
MessageBox "Your stories do not interest me ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
elseif ("_TLR_Friendship_ct"> = 30)
Set to Var (Random 100)
if (Var> = 80)
MessageBox "Did you really do that? ..."
elseif (Var> = 60)
MessageBox "Interesting ..."
elseif (Var> = 40)
MessageBox, "How did that happen? ..."
elseif (Var> = 20)
MessageBox "That's passionate ..."
else
MessageBox "Impressive! ..."
endif
ModDisposition, 1
Set Bonus to (3 * Var1 Var2 * / 1000)
else
MessageBox "Your stories do not interest me ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
endif

, "Making a secret." 6 [(maybe it should be telling a secret?)]
elseif ("_TLR_Action" == 6)
if (Var2 <40)
MessageBox "Your stories do not interest me ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
elseif ("_TLR_Friendship_ct"> = 40)
Set to Var (Random 100)
if (Var> = 80)
MessageBox, "Really? ..."
elseif (Var> = 60)
MessageBox "I've never imagined something like that ..."
elseif (Var> = 40)
MessageBox, "Is that really possible? ..."
elseif (Var> = 20)
MessageBox "Unbelievable ..."
else
MessageBox, "Really? ..."
endif
ModDisposition, 1
Set Bonus to (4 * Var1 Var2 * / 1000)
else
MessageBox "Your stories do not interest me ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
endif

, "Say a secret." 7 [(again maybe tell a secret?)]
elseif ("_TLR_Friendship" == 7)
if (Var2 <50)
MessageBox "Your stories do not interest me ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
elseif ("_TLR_Friendship_ct"> = 50)
Set to Var (Random 100)
if (Var> = 80)
MessageBox, "Really? ..."
elseif (Var> = 60)
MessageBox "I've never imagined something like that ..."
elseif (Var> = 40)
MessageBox, "Is that really possible? ..."
elseif (Var> = 20)
MessageBox "Unbelievable ..."
else
MessageBox, "Really? ..."
endif
ModDisposition, 1
Set Bonus to (5 * Var1 Var2 * / 1000)
else
MessageBox "Your stories do not interest me ..."
Set Bonus to (-1 * Var1 Var2 * / 1000)
endif
endif

Set "_TLR_Friendship_ct" to ("_TLR_Friendship_ct" + Bonus)
Set to 0 Bonus
Set "_TLR_Action" to 0
StopScript "_TLR_a_Friendship"

end