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

Adds some commented out ideas.

Browse Source
This commit is contained in:
Tom Hicks
2023-02-26 00:04:11 -08:00
parent 043c7bac7c
commit e6c22cd3c9
1 changed files with 143 additions and 98 deletions
Download Patch File Download Diff File Expand all files Collapse all files

241
dos/sbf/sbf.bas
View File

@@ -278,29 +278,29 @@ Wend
Let choice = 0 Let choice = 0
Do Do
Cls Cls
Print "╔══════════════════════════════════════════════════════════════════════════════╗" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
Print "║ What are you going to do? ║" Print "<EFBFBD> What are you going to do? <EFBFBD>"
Print "║ 1 = Character Generator ║" Print "<EFBFBD> 1 = Character Generator <EFBFBD>"
Print "║ 2 = Character Generator for Dummies ║" Print "<EFBFBD> 2 = Character Generator for Dummies <EFBFBD>"
Print "║ 3 = Combat Computer ║" Print "<EFBFBD> 3 = Combat Computer <EFBFBD>"
Print "║ 4 = Dice Roller ║" Print "<EFBFBD> 4 = Dice Roller <EFBFBD>"
Print "║ 5 = Random Character Generator ║" Print "<EFBFBD> 5 = Random Character Generator <EFBFBD>"
Print "║ 6 = ║" Print "<EFBFBD> 6 = <EFBFBD>"
Print "║ 7 = Vehicle Generator ║" Print "<EFBFBD> 7 = Vehicle Generator <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ 0 = End ║" Print "<EFBFBD> 0 = End <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "╚══════════════════════════════════════════════════════════════════════════════╝" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
choice = GetChoice(0, 7) choice = GetChoice(0, 7)
Select Case choice Select Case choice
Case 1 Case 1
@@ -319,29 +319,29 @@ Do
Loop Until choice = 0 Loop Until choice = 0
Sub BlankScreen Sub BlankScreen
Print "╔══════════════════════════════════════════════════════════════════════════════╗" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "╚══════════════════════════════════════════════════════════════════════════════╝" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
End Sub End Sub
Function GetChoice (min As Integer, max As Integer) Function GetChoice (min As Integer, max As Integer)
@@ -358,7 +358,7 @@ End Function
Sub PrintMenu (items() As String, num_items As Integer) Sub PrintMenu (items() As String, num_items As Integer)
' TODO: allow opting out of the random item. ' TODO: allow opting out of the random item.
' TODO: allow printing inside of a box ║ 1 = item ║. ' TODO: allow printing inside of a box <EFBFBD> 1 = item <EFBFBD>.
index_length = Len(Str$(num_items)) index_length = Len(Str$(num_items))
max_item_length = Len("Random") max_item_length = Len("Random")
For i = 1 To num_items For i = 1 To num_items
@@ -880,13 +880,42 @@ Sub CharacterGenerator ()
DisciplinePoints = DisciplinePoints - 1 DisciplinePoints = DisciplinePoints - 1
Wend Wend
Const All_Attributes_Count = 3 ' This would work, but I want a Print... function to print something like a sparse array to hide the already selected option.
Dim All_Attributes(1 To All_Attributes_Count) As String ' It seems like a lot of work to support other sets of attributes and the code is only reused once for abilities.
All_Attributes(1) = "Physical" 'Const All_Attribute_Groups_Count = 3
All_Attributes(2) = "Social" 'Dim All_Attribute_Groups(1 To All_Attribute_Groups_Count) As String
All_Attributes(3) = "Mental" 'Const ATTRIBUTE_GROUP_PHYSICAL = 1
'Const ATTRIBUTE_GROUP_SOCIAL = 2
'Const ATTRIBUTE_GROUP_MENTAL = 3
'All_Attribute_Groups(ATTRIBUTE_GROUP_PHYSICAL) = "Physical"
'All_Attribute_Groups(ATTRIBUTE_GROUP_SOCIAL) = "Social"
'All_Attribute_Groups(ATTRIBUTE_GROUP_MENTAL) = "Mental"
'Const ATTRIBUTE_STRENGTH = 1
'Const ATTRIBUTE_DEXTERITY = 2
'Const ATTRIBUTE_STAMINA = 3
'Const ATTRIBUTE_APPEARANCE = 1
'Const ATTRIBUTE_CHARISMA = 2
'Const ATTRIBUTE_MANIPULATION = 3
'Const ATTRIBUTE_INTELLIGENCE = 1
'Const ATTRIBUTE_PERCEPTION = 2
'Const ATTRIBUTE_WITS = 3
'Dim PrimaryAttributeGroup As Integer
'Do
' Cls
' For index = 1 To All_Attribute_Groups_Count
' Print Str$(index) + " = " + All_Attribute_Groups(index) + " ";
' Next
' Print "0 = Random"
' Input "Choose your primary attribute?", PrimaryAttribute
' If PrimaryAttribute = 0 Then PrimaryAttribute = GetRandomInt(1, All_Attribute_Groups_Count)
'Loop While PrimaryAttribute > All_Attribute_Groups_Count And PrimaryAttribute < 1
'SetAttribute(ch, group, attr, value)
' TODO: Find a more general form for this that stores the chosen attributes in an array ' TODO: Find a more general form for this that stores the chosen attributes in an array
' Most of the way this works just pisses me off. The second do loop is the worst part. I want it to be 1 = ..., 2 = ..., 0 = Random
' If I can't have that then maybe at least something with less code or less reliance on there being 3 attribute groups.
Dim PrimaryAttribute As Integer Dim PrimaryAttribute As Integer
Do Do
Cls Cls
@@ -971,6 +1000,22 @@ Sub CharacterGenerator ()
PhysicalPoints = PhysicalPoints - 1 PhysicalPoints = PhysicalPoints - 1
Loop While PhysicalPoints > 0 Loop While PhysicalPoints > 0
' Something like this might work better
'attr_group_index = 0 ' for 1 to all_attribute_groups_count
'Points = 0
'Do
' Cls
' attr_count = GetAttributeCountInAttributeGroup(attr_group_index)
' Dim attrs(attr_count) As String
' Call FillAttributesFromGroup(attrs, attr_group_index)
' Print "Which attribute would you like to spend 1 of your " + Str$(Points) + " points on?"
' PrintMenuWithValues(attrs, values, states, showRandom)
' attr = GetChoice(states, showRandom)
' if (attr = 0 then attr = GetRandomIndex(1, attr_count, states)
' SetAttribute(ch, attr_group_index, attr, GetAttribute(ch, attr_group_index, attr) + 1)
' points = points - 1
'Loop While Points > 0
' Spend social points ' Spend social points
Do Do
Cls Cls
@@ -1145,18 +1190,18 @@ Sub CharacterGenerator ()
'Which virtue do you wish to add one of your 7 points to? 'Which virtue do you wish to add one of your 7 points to?
'... 0123456789 '... 0123456789
'160 áíóúñѪº¿⌐ '160 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'170 ¬½¼¡«»░▒▓│ '170 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'180 ┤╡╢╖╕╣║╗╝╜ '180 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'190 ╛┐└┴┬├─┼╞╟ '190 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'200 ╚╔╩╦╠═╬╧╨╤ '200 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'210 ╥╙╘╒╓╫╪┘┌█ '210 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'220 ▄▌▐▀αßΓπΣσσ '220 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>
'230 µτΦΘΩδ2∞φε∩ '230 <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>2<EFBFBD><EFBFBD><EFBFBD><EFBFBD>
' Where do you want the file to be saved? (default is C:\Windows\Desktop)? ' Where do you want the file to be saved? (default is C:\Windows\Desktop)?
' What do you want the file to be called? (default is CHAR1)? ' What do you want the file to be called? (default is CHAR1)?
' enquote forms s/^([╔║╚═╠].*[╗║╝╣])$/print "$1"/g ' enquote forms s/^([ɺ<EFBFBD><EFBFBD><EFBFBD>].*[<5B><><EFBFBD><EFBFBD>])$/print "$1"/g
' TODO: figure out how to actually calculate generation; seems like a combination of 13 or 15 depending on clan and your generation background count ' TODO: figure out how to actually calculate generation; seems like a combination of 13 or 15 depending on clan and your generation background count
generation$ = "13" generation$ = "13"
@@ -1188,46 +1233,46 @@ Sub CharacterGenerator ()
Next Next
Cls Cls
Print "╔══════════════════════════════════════╦═══════════════════════════════════════╗" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
Print "║ Name: " + MakeFitL$(ch.name, 30, " ") + " ║ Sex: " + MakeFitL$(sex_string$, 10, " ") + " Generation: " + MakeFitL$(generation$, 9, " ") + " ║" Print "<EFBFBD> Name: " + MakeFitL$(ch.name, 30, " ") + " <EFBFBD> Sex: " + MakeFitL$(sex_string$, 10, " ") + " Generation: " + MakeFitL$(generation$, 9, " ") + " <EFBFBD>"
Print "║ Clan: " + MakeFitL$(clan_string$, 30, " ") + " ║ Age: " + MakeFitL$(age$, 32, " ") + " ║" Print "<EFBFBD> Clan: " + MakeFitL$(clan_string$, 30, " ") + " <EFBFBD> Age: " + MakeFitL$(age$, 32, " ") + " <EFBFBD>"
Print "╠══════════════════════════════════════╣ Player: " + MakeFitL$(player$, 29, " ") + " ║" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹ Player: " + MakeFitL$(player$, 29, " ") + " <EFBFBD>"
Print "║ Attributes ║ Chronicle: " + MakeFitL$(chronicle$, 26, " ") + " ║" Print "<EFBFBD> Attributes <EFBFBD> Chronicle: " + MakeFitL$(chronicle$, 26, " ") + " <EFBFBD>"
Print "║ Physical Social Mental ║ Haven: " + MakeFitL$(haven$, 30, " ") + " ║" Print "<EFBFBD> Physical Social Mental <EFBFBD> Haven: " + MakeFitL$(haven$, 30, " ") + " <EFBFBD>"
Print "║ Str. " + MakeFitL$(Str$(ch.attr_strength), 7, " ") + " App. " + MakeFitL$(Str$(ch.attr_appearance), 7, " ") + " Int. " + MakeFitL$(Str$(ch.attr_intelligence), 5, " ") + " ║ Concept: " + MakeFitL$(concept$, 28, " ") + " ║" Print "<EFBFBD> Str. " + MakeFitL$(Str$(ch.attr_strength), 7, " ") + " App. " + MakeFitL$(Str$(ch.attr_appearance), 7, " ") + " Int. " + MakeFitL$(Str$(ch.attr_intelligence), 5, " ") + " <EFBFBD> Concept: " + MakeFitL$(concept$, 28, " ") + " <EFBFBD>"
Print "║ Dex. " + MakeFitL$(Str$(ch.attr_dexterity), 7, " ") + " Cha. " + MakeFitL$(Str$(ch.attr_charisma), 7, " ") + " Per. " + MakeFitL$(Str$(ch.attr_perception), 5, " ") + " ╠═══════════════════════════════════════╣" Print "<EFBFBD> Dex. " + MakeFitL$(Str$(ch.attr_dexterity), 7, " ") + " Cha. " + MakeFitL$(Str$(ch.attr_charisma), 7, " ") + " Per. " + MakeFitL$(Str$(ch.attr_perception), 5, " ") + " <EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹"
Print "║ Sta. " + MakeFitL$(Str$(ch.attr_stamina), 7, " ") + " Man. " + MakeFitL$(Str$(ch.attr_manipulation), 7, " ") + " Wit. " + MakeFitL$(Str$(ch.attr_wits), 5, " ") + " ║ Derangements: ║" Print "<EFBFBD> Sta. " + MakeFitL$(Str$(ch.attr_stamina), 7, " ") + " Man. " + MakeFitL$(Str$(ch.attr_manipulation), 7, " ") + " Wit. " + MakeFitL$(Str$(ch.attr_wits), 5, " ") + " <EFBFBD> Derangements: <EFBFBD>"
Print "╠══════════════════════════════════════╣ Regression,__________________________ ║" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹ Regression,__________________________ <EFBFBD>"
Print "║ Disciplines: ║ _____________________________________ ║" Print "<EFBFBD> Disciplines: <EFBFBD> _____________________________________ <EFBFBD>"
Print "║ " + MakeFitL$(discipline_strings(0), 36, " ") + " ║ _____________________________________ ║" Print "<EFBFBD> " + MakeFitL$(discipline_strings(0), 36, " ") + " <EFBFBD> _____________________________________ <EFBFBD>"
Print "║ " + MakeFitL$(discipline_strings(1), 36, " ") + " ║ _____________________________________ ║" Print "<EFBFBD> " + MakeFitL$(discipline_strings(1), 36, " ") + " <EFBFBD> _____________________________________ <EFBFBD>"
Print "║ " + MakeFitL$(discipline_strings(2), 36, " ") + " ║ _____________________________________ ║" Print "<EFBFBD> " + MakeFitL$(discipline_strings(2), 36, " ") + " <EFBFBD> _____________________________________ <EFBFBD>"
Print "╠══════════════════════════════════════╬═══════════════════════════════════════╣" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹"
Print "║ Typhon: 7 ║ Nature: " + MakeFitL$(All_Archetypes(ch.nature), 29, " ") + " ║" Print "<EFBFBD> Typhon: 7 <EFBFBD> Nature: " + MakeFitL$(All_Archetypes(ch.nature), 29, " ") + " <EFBFBD>"
Print "║ Willpower: 3 ║ Demeanor: " + MakeFitL$(All_Archetypes(ch.demeanor), 27, " ") + " ║" Print "<EFBFBD> Willpower: 3 <EFBFBD> Demeanor: " + MakeFitL$(All_Archetypes(ch.demeanor), 27, " ") + " <EFBFBD>"
Print "╠══════════════════════════════════════╩═══════════════════════════════════════╣" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ ║" Print "<EFBFBD> <EFBFBD>"
Print "║ <<PRESS ANY KEY TO CONTINUE>> ║" Print "<EFBFBD> <<PRESS ANY KEY TO CONTINUE>> <EFBFBD>"
Print "╚══════════════════════════════════════════════════════════════════════════════╝" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
Input A Input A
Print "╔══════════════════════════════════════════════════════════════════════════════╗" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͻ"
Print "║ " + MakeFitC$("Abilities", 76, " ") + " ║" Print "<EFBFBD> " + MakeFitC$("Abilities", 76, " ") + " <EFBFBD>"
Print "║ " + MakeFitC$("Talents", 25, " ") + " " + MakeFitC$("Skills", 25, " ") + " " + MakeFitC$("Knowledges", 24, " ") + " ║" Print "<EFBFBD> " + MakeFitC$("Talents", 25, " ") + " " + MakeFitC$("Skills", 25, " ") + " " + MakeFitC$("Knowledges", 24, " ") + " <EFBFBD>"
For index = 1 To 10 For index = 1 To 10
Print "║ " + MakeFitC(MakeFitL$(All_Talents(index) + ":", 14, " ") + Str$(GetTalent(ch, index)), 25, " ") + " " + MakeFitC(MakeFitL$(All_Skills(index) + ":", 14, " ") + Str$(GetSkill(ch, index)), 25, " ") + " " + MakeFitC(MakeFitL$(All_Knowledges(index) + ":", 14, " ") + Str$(GetKnowledge(ch, index)), 24, " ") + " ║" Print "<EFBFBD> " + MakeFitC(MakeFitL$(All_Talents(index) + ":", 14, " ") + Str$(GetTalent(ch, index)), 25, " ") + " " + MakeFitC(MakeFitL$(All_Skills(index) + ":", 14, " ") + Str$(GetSkill(ch, index)), 25, " ") + " " + MakeFitC(MakeFitL$(All_Knowledges(index) + ":", 14, " ") + Str$(GetKnowledge(ch, index)), 24, " ") + " <EFBFBD>"
Next Next
Print "╠══════════════════════════════════════╦═══════════════════════════════════════╣" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹"
Print "║ Backgrounds: ║ Virtues: ║" Print "<EFBFBD> Backgrounds: <EFBFBD> Virtues: <EFBFBD>"
Print "║ " + MakeFitL$(background_strings(0), 36, " ") + " ║ " + MakeFitL$(MakeFitL$("Conscience:", 14, " ") + MakeFitR$(Str$(ch.conscience), 2, " "), 37, " ") + " ║" Print "<EFBFBD> " + MakeFitL$(background_strings(0), 36, " ") + " <EFBFBD> " + MakeFitL$(MakeFitL$("Conscience:", 14, " ") + MakeFitR$(Str$(ch.conscience), 2, " "), 37, " ") + " <EFBFBD>"
Print "║ " + MakeFitL$(background_strings(1), 36, " ") + " ║ " + MakeFitL$(MakeFitR$("Conviction:", 14, " ") + MakeFitR$(Str$(ch.conviction), 2, " "), 37, " ") + " ║" Print "<EFBFBD> " + MakeFitL$(background_strings(1), 36, " ") + " <EFBFBD> " + MakeFitL$(MakeFitR$("Conviction:", 14, " ") + MakeFitR$(Str$(ch.conviction), 2, " "), 37, " ") + " <EFBFBD>"
Print "║ " + MakeFitL$(background_strings(2), 36, " ") + " ║ " + MakeFitL$(MakeFitR$("Instinct:", 14, " ") + MakeFitR$(Str$(ch.instinct), 2, " "), 37, " ") + " ║" Print "<EFBFBD> " + MakeFitL$(background_strings(2), 36, " ") + " <EFBFBD> " + MakeFitL$(MakeFitR$("Instinct:", 14, " ") + MakeFitR$(Str$(ch.instinct), 2, " "), 37, " ") + " <EFBFBD>"
Print "║ " + MakeFitL$(background_strings(3), 36, " ") + " ║ " + MakeFitL$(MakeFitR$("Self-Control:", 14, " ") + MakeFitR$(Str$(ch.selfControl), 2, " "), 37, " ") + " ║" Print "<EFBFBD> " + MakeFitL$(background_strings(3), 36, " ") + " <EFBFBD> " + MakeFitL$(MakeFitR$("Self-Control:", 14, " ") + MakeFitR$(Str$(ch.selfControl), 2, " "), 37, " ") + " <EFBFBD>"
Print "║ " + MakeFitL$(background_strings(4), 36, " ") + " ║ " + MakeFitL$(MakeFitR$("Courage:", 14, " ") + MakeFitR$(Str$(ch.courage), 2, " "), 37, " ") + " ║" Print "<EFBFBD> " + MakeFitL$(background_strings(4), 36, " ") + " <EFBFBD> " + MakeFitL$(MakeFitR$("Courage:", 14, " ") + MakeFitR$(Str$(ch.courage), 2, " "), 37, " ") + " <EFBFBD>"
Print "╠══════════════════════════════════════╩═══════════════════════════════════════╣" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>͹"
Print "║ <<PRESS ANY KEY TO CONTINUE>> ║" Print "<EFBFBD> <<PRESS ANY KEY TO CONTINUE>> <EFBFBD>"
Print "╚══════════════════════════════════════════════════════════════════════════════╝" Print "<EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD><EFBFBD>ͼ"
While InKey$ = "": Wend While InKey$ = "": Wend
End Sub End Sub