From 7adffb704be5425f5c90ea2247df0347ecab9bf0 Mon Sep 17 00:00:00 2001 From: Tom Hicks Date: Wed, 22 Feb 2023 01:47:56 -0800 Subject: [PATCH] Adds a bunch of the character generator. --- dos/sbf/sbf.bas | 480 ++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 480 insertions(+) create mode 100644 dos/sbf/sbf.bas diff --git a/dos/sbf/sbf.bas b/dos/sbf/sbf.bas new file mode 100644 index 0000000..45fd5fa --- /dev/null +++ b/dos/sbf/sbf.bas @@ -0,0 +1,480 @@ +$Debug +' Setup +' TODO: See if other combinations of clan and other variables cause sub questions. +Randomize Timer + +' TODO: maybe make these some kind of typedef with an id and a label constants or enums would be great +Const All_Clans_Count = 18 +Dim Shared All_Clans(1 To All_Clans_Count) As String +All_Clans(1) = "Anarch" +All_Clans(2) = "Assamite" +All_Clans(3) = "Baali" +All_Clans(4) = "Brujah" +All_Clans(5) = "Caitiff" +All_Clans(6) = "Cappadocian" +All_Clans(7) = "Gangrel" +All_Clans(8) = "Giovanni" +All_Clans(9) = "Inconnu" +All_Clans(10) = "Lasombra" +All_Clans(11) = "Malkavian" +All_Clans(12) = "Nosferatu" +All_Clans(13) = "Ravanos" +All_Clans(14) = "Settite" +All_Clans(15) = "Tremere" +All_Clans(16) = "Toreador" +All_Clans(17) = "Tzismice" +All_Clans(18) = "Ventrue" + +' TODO: Find a word that encapsulates both nature and demeanor. There is probably one in the book. +Const All_Natures_Count = 30 +Dim Shared All_Natures(1 To All_Natures_Count) As String +All_Natures(1) = "Architect" +All_Natures(2) = "Autocrat" +All_Natures(3) = "Barbarian" +All_Natures(4) = "Bon Vivant" +All_Natures(5) = "Bravo" +All_Natures(6) = "Caregiver" +All_Natures(7) = "Caretaker" +All_Natures(8) = "Celebrant" +All_Natures(9) = "Child" +All_Natures(10) = "Conformist" +All_Natures(11) = "Conniver" +All_Natures(12) = "Curmudgeon" +All_Natures(13) = "Defender" +All_Natures(14) = "Deviant" +All_Natures(15) = "Director" +All_Natures(16) = "Fanatic" +All_Natures(17) = "Gallant" +All_Natures(18) = "Innovator" +All_Natures(19) = "Jester" +All_Natures(20) = "Judge" +All_Natures(21) = "Loner" +All_Natures(22) = "Martyr" +All_Natures(23) = "Monster" +All_Natures(24) = "Penitent" +All_Natures(25) = "Rebel" +All_Natures(26) = "Rogue" +All_Natures(27) = "Survivor" +All_Natures(28) = "Traditionalist" +All_Natures(29) = "Tyrant" +All_Natures(30) = "Visionary" + +Const All_Disciplines_Count = 24 +Dim Shared All_Disciplines(1 To All_Disciplines_Count) As String +All_Disciplines(1) = "Animalism" +All_Disciplines(2) = "Auspex" +All_Disciplines(3) = "Bardo" +All_Disciplines(4) = "Celerity" +All_Disciplines(5) = "Chimestry" +All_Disciplines(6) = "Dementation" +All_Disciplines(7) = "Dominate" +All_Disciplines(8) = "Fortitude" +All_Disciplines(9) = "Melpominee" +All_Disciplines(10) = "Mortis" +All_Disciplines(11) = "Mytherceria" +All_Disciplines(12) = "Necromancy" +All_Disciplines(13) = "Obeah" +All_Disciplines(14) = "Obfuscate" +All_Disciplines(15) = "Obtenebration" +All_Disciplines(16) = "Potence" +All_Disciplines(17) = "Presence" +All_Disciplines(18) = "Protean" +All_Disciplines(19) = "Quietus" +All_Disciplines(20) = "Serpentis" +All_Disciplines(21) = "Spiritus" +All_Disciplines(22) = "Thanantosis" +All_Disciplines(23) = "Thaumaturgy" +All_Disciplines(24) = "Vicissitude" + +' Splash screen +Cls +Print " Welcome to Tom's Storyteller's Best Friend. This is a program that is meant" +Print "to aid Storytellers in running Vampire: the Masquerade Chronicles and Vampire:" +Print "the Dark Ages Chronicles. It is distributed as freeware until I think it is" +Print "worth something.This program could aid in running campaigns for other" +Print "role-playing games especially those from White Wolf(tm). If you would like" +Print "anything added please e-mail me at locutus2001@hotmail.com." +Print " Press any key to continue" +While InKey$ = "" +Wend + +' Main menu +Let choice = 0 +Do + Cls + Print "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" + Print "º What are you going to do? º" + Print "º 1 = Character Generator º" + Print "º 2 = Character Generator for Dummies º" + Print "º 3 = Combat Computer º" + Print "º 4 = Dice Roller º" + Print "º 5 = Random Character Generator º" + Print "º 6 = º" + Print "º 7 = Vehicle Generator º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º 0 = End º" + Print "º º" + Print "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" + choice = GetChoice(0, 7) + Select Case choice + Case 1 + CharacterGenerator + Case 2 + CharacterGeneratorForDummies + Case 3 + CombatComputer + Case 4 + DiceRoller + Case 5 + RandomCharacterGenerator + Case 7 + VehicleGenerator + End Select +Loop Until choice = 0 + +Sub BlankScreen + Print "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "º º" + Print "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ" +End Sub + +Function GetChoice (min As Integer, max As Integer) + Dim choice + Do + Input choice + Loop Until choice <= max And choice >= min + GetChoice = choice +End Function + +Function GetRandomInt (min As Integer, max As Integer) + GetRandomInt = Int(Rnd * (max - min + 1)) + min +End Function + +Sub PrintMenu (items() As String, num_items As Integer) + ' TODO: allow opting out of the random item. + ' TODO: allow printing inside of a box º 1 = item º. + index_length = Len(Str$(num_items)) + max_item_length = Len("Random") + For i = 1 To num_items + max_item_length = MaxI(max_item_length, Len(items(i))) + Next + + For i = 1 To num_items + Print MakeFit$(Str$(i), index_length, " ") + " = " + MakeFitR$(items(i), max_item_length, " "); + Next + Print MakeFit$("0", index_length, " ") + " = " + MakeFitR$("Random", max_item_length, " ") +End Sub + +Sub PrintMenuWithValues (items() As String, values() As Integer, num_items As Integer) + ' TODO: @see PrintMenu + max_index_length = Len(Str$(num_items)) + max_item_length = Len("Random") + max_value_length = 0 + For i = 1 To num_items + max_item_length = MaxI(max_item_length, Len(items(i))) + max_value_length = MaxI(max_value_length, Len(Str$(values(i)))) + Next + + For i = 1 To num_items + Print MakeFit$(Str$(i), max_index_length, " ") + " = " + MakeFitR$(items(i), max_item_length, " ") + MakeFit$(Str$(values(i)), max_value_length, " "); + Next + Print MakeFit$("0", index_length, " ") + " = " + MakeFitR$("Random", max_item_length, " ") +End Sub + +Function MakeFit$ (text As String, length As Integer, pad As String) + MakeFit = Right$(String$(length, pad) + text, length) +End Function + +Function MakeFitR$ (text As String, length As Integer, pad As String) + MakeFitR = Left$(text + String$(length, pad), length) +End Function + +Function MaxI (val1 As Integer, val2 As Integer) + If (val1 > val2) Then + MaxI = val1 + Else + MaxI = val2 + End If +End Function + +Sub CharacterGenerator () + Input "What is the character's name? ", name$ + Input "Who is the player? ", player$ + Input "What chronicle is the character going to be used for? ", chronicle$ + Input "What is the character's Haven? ", haven$ + Input "What is the character's concept? ", concept$ + Input "How old is the character? ", age$ + Print "What is the sex of the character? 1 = Male 2 = Female 0 = Random" + sex = GetChoice(0, 2) + If sex > 2 Or sex < 1 Then sex = GetRandomInt(1, 2) + Cls + Print "What Clan is the character from?" + Call PrintMenu(All_Clans(), All_Clans_Count) + clan = GetChoice(0, All_Clans_Count) + If clan > All_Clans_Count Or clan < 1 Then clan = GetRandomInt(1, All_Clans_Count) + Cls + Print "What is your character's Nature?" + Call PrintMenu(All_Natures(), All_Natures_Count) + nature = GetChoice(0, All_Natures_Count) + If nature > All_Natures_Count Or nature < 1 Then nature = GetRandomInt(1, All_Natures_Count) + Cls + Print "What is your character's Demeanor?" + Call PrintMenu(All_Natures(), All_Natures_Count) + demeanor = GetChoice(0, All_Natures_Count) + If demeanor > All_Natures_Count Or demeanor < 1 Then demeanor = GetRandomInt(1, All_Natures_Count) + + ' The character starts with 3 discipline points and they can spend them on one or more disciplines + Dim disciplines(1 To All_Disciplines_Count) As Integer + For i = 1 To All_Disciplines_Count + disciplines(i) = 0 + Next + discipline_points = 3 + + While discipline_points > 0 + Cls + Print "Which discipline do you want to spend " + Str$(discipline_points) + " discipline points on?" + Call PrintMenuWithValues(All_Disciplines(), disciplines(), All_Disciplines_Count) + discipline = GetChoice(0, All_Disciplines_Count) + If discipline = 0 Then discipline = GetRandomInt(1, All_Disciplines_Count) + disciplines(discipline) = disciplines(discipline) + 1 + discipline_points = discipline_points - 1 + Wend + + ' TODO: Choose primary/secondary/tertiary attributes + 'Print "1 = Physical 2 = Social 3 = Mental 0 = Random" + 'Print "Which is your primary Attribute? " + 'Print "Which is your secondary attribute? " + 'Print "Which is your tertiary attribute? " + + ' TODO: Spend attribute points order should be physical mental social not primary secondary tertiary + 'Print "Your mental attributes are:" + 'Print "Intelligence 1 Perception 1 Wits 1" + 'Print "Which would you like to add 1 of your 7 points to?" + 'Print "1 = Intelligence 2 = Perception 3 = Wits 0 = Random" + + 'Print "Your physical attributes are:" + 'Print "Strength 1 Dexterity 1 Stamina 1" + 'Print "Which would you like to add 1 of your 5 points to?" + 'Print "1 = Strength 2 = Dexterity 3 = Stamina 0 = Random" + + 'Print "Your social attributes are:" + 'Print "Appearance 1 Charisma 1 Manipulation 1" + 'Print "Which would you like to add 1 of your 3 points to?" + 'Print "1 = Appearance 2 = Charisma 3 = Manipulation 0 = Random" + + ' TODO: Choose priorities for talents/skills/knowledges + 'Print "1 = Talents 2 = Skills 3 = Knowledges 0 = Random" + 'Print "Which is your primary Ability? " + 'Print "Which is your secondary Ability? " + 'Print "Which is your tertiary Ability? " + + ' TODO: Spend talent points + 'Your Talents are: + ' 1 = Acting: 0 + ' 2 = Alertness: 0 + ' 3 = Athletics: 0 + ' 4 = Brawl: 0 + ' 5 = Dodge: 0 + ' 6 = Empathy: 0 + ' 7 = Intimidation: 0 + ' 8 = Leadership: 0 + ' 9 = Streetwise: 0 + '10 = Subterfuge: 0 + 'Which would you like to add 1 of your 5 points to? + + ' TODO: Spend skill points + 'Your Skills are: + ' 1 = Animal Ken: 0 + ' 2 = Drive: 0 + ' 3 = Etiquette: 0 + ' 4 = Firearms: 0 + ' 5 = Melee: 0 + ' 6 = Music: 0 + ' 7 = Repair: 0 + ' 8 = Security: 0 + ' 9 = Stealth: 0 + '10 = Survival: 0 + 'Which would you like to add 1 of your 13 points to? + + ' TODO: Spend knowledge points + 'Your Knowledges are: + ' 1 = Bureaucracy: 0 + ' 2 = Computer: 0 + ' 3 = Finance: 0 + ' 4 = Investigation: 0 + ' 5 = Law: 0 + ' 6 = Linguistics: 0 + ' 7 = Medicine: 0 + ' 8 = Occult: 0 + ' 9 = Politics: 0 + '10 = Science: 0 + 'Which would you like to add 1 of your 9 points to? + + ' TODO: Spend background points + ' 1 = Allies 0 + ' 2 = Contacts 0 + ' 3 = Fame 0 + ' 4 = Generation 0 + ' 5 = Herd 0 + ' 6 = Influence 0 + ' 7 = Mentor 0 + ' 8 = Resources 0 + ' 9 = Retainers 0 + '10 = Status 0 + 'Which Background would you like to spend 1 of your remaining 5 on? + + ' TODO: Choose your road + '1 = Road of the Beast - Feed the beast so it will not break loose. + '2 = Road of Blood - Blood grants the power for revenge. + '3 = Road of Chivalry - Treat your equals with honor and your betters with respect. + '4 = Road of the Devil - We are created evil and must play our part. + '5 = Road of Heaven - God made us vampires to exact his wrath. + '6 = Road of Humanity - The struggle to maintain one's humanity. + '7 = Road of Paradox - Existence is a lie change reality for the better. + '8 = Road of Typhon - Sin and corruption are the keys to understanding. + 'Which road does the character follow? + + ' TODO: Spend virtue points + 'Conscience 1 + 'Self-Control 1 + 'Courage 1 + 'Which virtue do you wish to add one of your 7 points to? + + '... 0123456789 + '160  ¡¢£¤¥¦§¨© + '170 ª«¬­®¯°±²³ + '180 ´µ¶·¸¹º»¼½ + '190 ¾¿ÀÁÂÃÄÅÆÇ + '200 ÈÉÊËÌÍÎÏÐÑ + '210 ÒÓÔÕÖ×ØÙÚÛ + '220 ÜÝÞßàáâãäåå + '230 æçèéêë2ìíîï + 'ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ» + 'º Name: Steve º Sex: Male Generation 13 º + 'º Clan: Giovanni º Age: 182 º + 'ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ Player: kevin º + 'º Attributes º Chronicle: chron º + 'º Physical Social Mental º Haven: haven º + 'º Str. 3 App. 3 Int. 4 º Concept: concept º + 'º Dex. 3 Cha. 1 Per. 4 ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ + 'º Sta. 2 Man. 2 Wit. 2 º Derangements: º + 'ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ _______ º + 'º Disciplines: º _______ º + 'º Thaumaturgy º _______ º + 'º Fortitude º _______ º + 'º Celerity º _______ º + 'ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ + 'º Heaven: 6 º Nature: Architect º + 'º Willpower: 4 º Demeanor: Autocrat º + 'ÌÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹ + 'º º + 'º º + 'º º + 'º <> º + 'ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ + + '|------------------------------------------------------------------------------| + '| Abilities | + '| Talents Skills Knowledges + '| Acting: 0 Animal Ken: 0 Bureaucracy: 0 + '| Alertness: 0 Drive: 0 Computer: 0 + '| Athletics: 0 Etiquette: 0 Finance: 0 + '| Brawl: 0 Firearms: 0 Investigation: 0 + '| Dodge: 0 Melee: 0 Law: 0 + '| Empathy: 0 Music: 0 Linguistics: 0 + '| Intimidation: 0 Repair: 0 Medicine: 0 + '| Leadership: 0 Security: 0 Occult: 0 + '| Streetwise: 0 Stealth: 0 Politics: 0 + '| Subterfuge: 0 Survival: 0 Science: 0 + '|---|---| + '| Backgrounds: | Virtues: + '| Status | Conscience: 3 + '| Resources | Conviction: 0 + '| Status | Instinct: 0 + '| Contacts | Self-Control: 3 + '| Retainers | Courage: 4 + '|------|---| + '| <> + '|----| + ' Do you want to save the character to a file? (Y/N) + ' 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)? + + + + + + + + + + + + + + + + + + + + + While InKey$ = "": Wend +End Sub + +Sub CharacterGeneratorForDummies + Print "CharacterGeneratorForDummies" +End Sub + +Sub CombatComputer + Print "CombatComputer" +End Sub + +Sub DiceRoller + Print "DiceRoller" +End Sub + +Sub RandomCharacterGenerator + Print "RandomCharacterGenerator" +End Sub + +Sub Choice6 + Print "Unnamed choice 6" +End Sub + +Sub VehicleGenerator + Print "VehicleGenerator" +End Sub + + +