maj/StorytellersBestFriend
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Makes other header multiple-choice questions work like gender does.

Browse Source
This commit is contained in:
Tom Hicks
2023-03-01 02:22:16 -08:00
parent e412da06e8
commit 3ebcd60a3f
1 changed files with 4 additions and 18 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
dos/sbf/sbf.bas
View File

@@ -1212,21 +1212,9 @@ Sub CGGetHeader (ch As CharacterType)
Input "What is the character's concept? ", ch.concept
Input "How old is the character? ", ch.age
ch.gender = ChooseStringId(Genders(), ms, GENDERS_COUNT, "What is the character's gender?")
Cls
Print "What Clan is the character from?"
Call PrintMenu(Clans(), CLANS_COUNT)
ch.clan = GetChoice(0, CLANS_COUNT)
If ch.clan = 0 Then ch.clan = GetRandomInt(1, CLANS_COUNT)
Cls
Print "What is your character's Nature?"
Call PrintMenu(Archetypes(), ARCHETYPES_COUNT)
ch.nature = GetChoice(0, ARCHETYPES_COUNT)
If ch.nature = 0 Then ch.nature = GetRandomInt(1, ARCHETYPES_COUNT)
Cls
Print "What is your character's Demeanor?"
Call PrintMenu(Archetypes(), ARCHETYPES_COUNT)
ch.demeanor = GetChoice(0, ARCHETYPES_COUNT)
If ch.demeanor = 0 Then ch.demeanor = GetRandomInt(1, ARCHETYPES_COUNT)
ch.clan = ChooseStringId(Clans(), ms, CLANS_COUNT, "What clan is the character from?")
ch.nature = ChooseStringId(Archetypes(), ms, ARCHETYPES_COUNT, "What is the character's nature?")
ch.demeanor = ChooseStringId(Archetypes(), ms, ARCHETYPES_COUNT, "What is the character's demeanor?")
End Sub
Sub CGGetDisciplines (ch As CharacterType)
@@ -1445,8 +1433,6 @@ Sub ShowCharacterSheet (ch As CharacterType)
'230 æçèéêë2ìíîï
' enquote forms s/^([ɺÈÍÌ].*[»º¼¹])$/print "$1"/g
clanName$ = Clans(ch.clan)
Dim disciplineStrings(3) As String
disciplineStringsIndex = 0
For index = 1 To DISCIPLINES_COUNT
@@ -1476,7 +1462,7 @@ Sub ShowCharacterSheet (ch As CharacterType)
Cls
Print "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
Print "º Name: " + MakeFitL$(ch.name, 30, " ") + " º Sex: " + MakeFitL$(Genders(ch.gender), 10, " ") + " Generation: " + MakeFitL$(itos$(ch.generation), 9, " ") + " º"
Print "º Clan: " + MakeFitL$(clanName$, 30, " ") + " º Age: " + MakeFitL$(ch.age$, 32, " ") + " º"
Print "º Clan: " + MakeFitL$(Clans(ch.clan), 30, " ") + " º Age: " + MakeFitL$(ch.age$, 32, " ") + " º"
Print "ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ Player: " + MakeFitL$(ch.player$, 29, " ") + " º"
Print "º Attributes º Chronicle: " + MakeFitL$(ch.chronicle$, 26, " ") + " º"
Print "º Physical Social Mental º Haven: " + MakeFitL$(ch.haven$, 30, " ") + " º"