Public Sub GenerateCrew() Dim i As Integer Dim x As Integer For i = 1 To UBound(VarCrew) Call CrewGenetics(i) 'Attributes Call CrewClass(i) 'Traits 'Call CrewTraits(i) 'Equipment Call EquipCrew(i) Next i End Sub Public Sub GeneratePhysicist(ByVal i As Integer) 'Attributes With VarCrew(i) .aStrength = Rand(10, 12) .aStrength_maxexp = VarCrew(i).aStrength * 10 .aStrength_exp = Rand(0, (VarCrew(i).aStrength * 10 - 1)) .aDexterity = Rand(10, 16) .aDexterity_maxexp = VarCrew(i).aDexterity * 10 .aDexterity_exp = Rand(0, (VarCrew(i).aDexterity * 10 - 1)) .aPerception = Rand(10, 14) .aPerception_maxexp = VarCrew(i).aPerception * 10 .aPerception_exp = Rand(0, (VarCrew(i).aPerception * 10 - 1)) .aIntelligence = Rand(10, 18) .aIntelligence_maxexp = VarCrew(i).aIntelligence * 10 .aIntelligence_exp = Rand(0, (VarCrew(i).aIntelligence * 10 - 1)) .aCharisma = Rand(10, 16) .aCharisma_maxexp = VarCrew(i).aCharisma * 10 .aCharisma_exp = Rand(0, (VarCrew(i).aCharisma * 10 - 1)) .aStamina = Rand(10, 12) .aStamina_maxexp = VarCrew(i).aStamina * 10 .aStamina_exp = Rand(0, (VarCrew(i).aStamina * 10 - 1)) .aPhysique = Rand(10, 12) .aPhysique_maxexp = VarCrew(i).aPhysique * 10 .aPhysique_exp = Rand(0, (VarCrew(i).aPhysique * 10 - 1)) End With 'Skills With VarCrew(i) .sSmallArms = Rand(0, 3) .sMediumArms = Rand(0, 2) .sHeavyArms = 0 .sMelee = Rand(0, 1) .sUnarmed = Rand(0, 2) .sPiloting = Rand(0, 1) .sNavigating = Rand(0, 2) .sDiplomacy = Rand(0, 3) .sPhysics = Rand(7, 10) .sChemistry = Rand(2, 5) .sAstrophysics = Rand(5, 8) .sEcology = Rand(0, 1) .sGenetics = Rand(0, 3) .sGeology = Rand(1, 3) .sXenology = Rand(0, 1) .sBiology = Rand(0, 3) .sArchaeology = 0 .sPsychology = 0 .sPsychiatry = 0 .sRobotics = 0 .sElectricalEngineering = 0 .sComputerEngineering = 0 .sNuclearEngineering = 0 .sMechanicalEngineering = 0 .sDiagnosing = Rand(0, 2) .sSurgery = 0 .sPharmacology = Rand(0, 1) .sFirstAid = Rand(0, 2) .sPracticalMining = 0 .sRemoteMining = 0 .sShipMining = 0 .Cooking = Rand(0, 3) ''''''''''''''''' '' EXPERIENCES '' ''''''''''''''''' Call SkillExperienceSettings(i) End With End Sub Public Sub GenerateChemist(ByVal i As Integer) 'Attributes With VarCrew(i) .aStrength = Rand(10, 12) .aStrength_maxexp = VarCrew(i).aStrength * 10 .aStrength_exp = Rand(0, (VarCrew(i).aStrength * 10 - 1)) .aDexterity = Rand(10, 16) .aDexterity_maxexp = VarCrew(i).aDexterity * 10 .aDexterity_exp = Rand(0, (VarCrew(i).aDexterity * 10 - 1)) .aPerception = Rand(10, 14) .aPerception_maxexp = VarCrew(i).aPerception * 10 .aPerception_exp = Rand(0, (VarCrew(i).aPerception * 10 - 1)) .aIntelligence = Rand(10, 18) .aIntelligence_maxexp = VarCrew(i).aIntelligence * 10 .aIntelligence_exp = Rand(0, (VarCrew(i).aIntelligence * 10 - 1)) .aCharisma = Rand(10, 16) .aCharisma_maxexp = VarCrew(i).aCharisma * 10 .aCharisma_exp = Rand(0, (VarCrew(i).aCharisma * 10 - 1)) .aStamina = Rand(10, 12) .aStamina_maxexp = VarCrew(i).aStamina * 10 .aStamina_exp = Rand(0, (VarCrew(i).aStamina * 10 - 1)) .aPhysique = Rand(10, 12) .aPhysique_maxexp = VarCrew(i).aPhysique * 10 .aPhysique_exp = Rand(0, (VarCrew(i).aPhysique * 10 - 1)) End With 'Skills With VarCrew(i) .sSmallArms = Rand(0, 3) .sSmallArms_maxexp = VarCrew(i).sSmallArms * 100 .sSmallArms_exp = Rand(0, (VarCrew(i).sSmallArms_maxexp - 1)) .sMediumArms = Rand(0, 2) .sMediumArms_maxexp = VarCrew(i).sMediumArms * 100 .sMediumArms_exp = Rand(0, (VarCrew(i).sMediumArms_maxexp - 1)) .sHeavyArms = 0 .sHeavyArms_maxexp = VarCrew(i).sHeavyArms * 100 .sHeavyArms_exp = Rand(0, (VarCrew(i).sHeavyArms_maxexp - 1)) .sMelee = Rand(0, 1) .sMelee_maxexp = VarCrew(i).sMelee * 100 .sMelee_exp = Rand(0, (VarCrew(i).sMelee_maxexp - 1)) .sUnarmed = Rand(0, 2) .sUnarmed_maxexp = VarCrew(i).sUnarmed * 100 .sUnarmed_exp = Rand(0, (VarCrew(i).sUnarmed_maxexp - 1)) .sPiloting = Rand(0, 1) .sPiloting_maxexp = VarCrew(i).sPiloting * 100 .sPiloting_exp = Rand(0, (VarCrew(i).sPiloting_maxexp - 1)) .sNavigating = Rand(0, 2) .sNavigating_maxexp = VarCrew(i).sNavigating * 100 .sNavigating_exp = Rand(0, (VarCrew(i).sNavigating_maxexp - 1)) .sDiplomacy = Rand(0, 3) .sDiplomacy_maxexp = VarCrew(i).sDiplomacy * 100 .sDiplomacy_exp = Rand(0, (VarCrew(i).sDiplomacy_maxexp - 1)) .sPhysics = Rand(2, 5) .sPhysics_maxexp = VarCrew(i).sPhysics * 100 .sPhysics_exp = Rand(0, (VarCrew(i).sPhysics_maxexp - 1)) .sChemistry = Rand(5, 10) .sChemistry_maxexp = VarCrew(i).sChemistry * 100 .sChemistry_exp = Rand(0, (VarCrew(i).sChemistry_maxexp - 1)) .sAstrophysics = Rand(1, 4) .sAstrophysics_maxexp = VarCrew(i).sAstrophysics * 100 .sAstrophysics_exp = Rand(0, (VarCrew(i).sAstrophysics_maxexp - 1)) .sEcology = Rand(0, 1) .sEcology_maxexp = VarCrew(i).sEcology * 100 .sEcology_exp = Rand(0, (VarCrew(i).sEcology_maxexp - 1)) .sGenetics = Rand(0, 3) .sGenetics_maxexp = VarCrew(i).sGenetics * 100 .sGenetics_exp = Rand(0, (VarCrew(i).sGenetics_maxexp - 1)) .sGeology = Rand(1, 3) .sGeology_maxexp = VarCrew(i).sGeology * 100 .sGeology_exp = Rand(0, (VarCrew(i).sGeology_maxexp - 1)) .sXenology = Rand(0, 1) .sXenology_maxexp = VarCrew(i).sXenology * 100 .sXenology_exp = Rand(0, (VarCrew(i).sXenology_maxexp - 1)) .sBiology = Rand(0, 3) .sBiology_maxexp = VarCrew(i).sBiology * 100 .sBiology_exp = Rand(0, (VarCrew(i).sBiology_maxexp - 1)) .sArchaeology = 0 .sArchaeology_maxexp = VarCrew(i).sArchaeology * 100 .sArchaeology_exp = Rand(0, (VarCrew(i).sArchaeology_maxexp - 1)) .sPsychology = 0 .sPsychology_maxexp = VarCrew(i).sPsychology * 100 .sPsychology_exp = Rand(0, (VarCrew(i).sPsychology_maxexp - 1)) .sPsychiatry = 0 .sPsychiatry_maxexp = VarCrew(i).sPsychiatry * 100 .sPsychiatry_exp = Rand(0, (VarCrew(i).sPsychiatry_maxexp - 1)) .sRobotics = 0 .sRobotics_maxexp = VarCrew(i).sRobotics * 100 .sRobotics_exp = Rand(0, (VarCrew(i).sRobotics_maxexp - 1)) .sElectricalEngineering = 0 .sElectricalEngineering_maxexp = VarCrew(i).sElectricalEngineering * 100 .sElectricalEngineering_exp = Rand(0, (VarCrew(i).sElectricalEngineering_maxexp - 1)) .sComputerEngineering = 0 .sComputerEngineering_maxexp = VarCrew(i).sComputerEngineering * 100 .sComputerEngineering_exp = Rand(0, (VarCrew(i).sComputerEngineering_maxexp - 1)) .sNuclearEngineering = 0 .sNuclearEngineering_maxexp = VarCrew(i).sNuclearEngineering * 100 .sNuclearEngineering_exp = Rand(0, (VarCrew(i).sNuclearEngineering_maxexp - 1)) .sMechanicalEngineering = 0 .sMechanicalEngineering_maxexp = VarCrew(i).sMechanicalEngineering * 100 .sMechanicalEngineering_exp = Rand(0, (VarCrew(i).sMechanicalEngineering_maxexp - 1)) .sDiagnosing = Rand(0, 2) .sDiagnosing_maxexp = VarCrew(i).sDiagnosing * 100 .sDiagnosing_exp = Rand(0, (VarCrew(i).sDiagnosing_maxexp - 1)) .sSurgery = 0 .sSurgery_maxexp = VarCrew(i).sSurgery * 100 .sSurgery_exp = Rand(0, (VarCrew(i).sSurgery_maxexp - 1)) .sPharmacology = Rand(0, 1) .sPharmacology_maxexp = VarCrew(i).sPharmacology * 100 .sPharmacology_exp = Rand(0, (VarCrew(i).sPharmacology_maxexp - 1)) .sFirstAid = Rand(0, 2) .sFirstAid_maxexp = VarCrew(i).sFirstAid * 100 .sFirstAid_exp = Rand(0, (VarCrew(i).sFirstAid_maxexp - 1)) .sPracticalMining = 0 .sPracticalMining_maxexp = VarCrew(i).sPracticalMining * 100 .sPracticalMining_exp = Rand(0, (VarCrew(i).sPracticalMining_maxexp - 1)) .sRemoteMining = 0 .sRemoteMining_maxexp = VarCrew(i).sRemoteMining * 100 .sRemoteMining_exp = Rand(0, (VarCrew(i).sRemoteMining_maxexp - 1)) .sShipMining = 0 .sShipMining_maxexp = VarCrew(i).sShipMining * 100 .sShipMining_exp = Rand(0, (VarCrew(i).sShipMining_maxexp - 1)) .Cooking = Rand(0, 3) .Cooking_maxexp = VarCrew(i).Cooking * 100 .Cooking_exp = Rand(0, (VarCrew(i).Cooking_maxexp - 1)) End With End Sub Public Sub SkillExperienceSettings(ByVal i As Integer) With VarCrew(i) .sSmallArms_maxexp = VarCrew(i).sSmallArms * 100 .sSmallArms_exp = Rand(0, (VarCrew(i).sSmallArms_maxexp - 1)) .sMediumArms_maxexp = VarCrew(i).sMediumArms * 100 .sMediumArms_exp = Rand(0, (VarCrew(i).sMediumArms_maxexp - 1)) .sHeavyArms_maxexp = VarCrew(i).sHeavyArms * 100 .sHeavyArms_exp = Rand(0, (VarCrew(i).sHeavyArms_maxexp - 1)) .sMelee_maxexp = VarCrew(i).sMelee * 100 .sMelee_exp = Rand(0, (VarCrew(i).sMelee_maxexp - 1)) .sUnarmed_maxexp = VarCrew(i).sUnarmed * 100 .sUnarmed_exp = Rand(0, (VarCrew(i).sUnarmed_maxexp - 1)) .sPiloting_maxexp = VarCrew(i).sPiloting * 100 .sPiloting_exp = Rand(0, (VarCrew(i).sPiloting_maxexp - 1)) .sNavigating_maxexp = VarCrew(i).sNavigating * 100 .sNavigating_exp = Rand(0, (VarCrew(i).sNavigating_maxexp - 1)) .sDiplomacy_maxexp = VarCrew(i).sDiplomacy * 100 .sDiplomacy_exp = Rand(0, (VarCrew(i).sDiplomacy_maxexp - 1)) .sPhysics_maxexp = VarCrew(i).sPhysics * 100 .sPhysics_exp = Rand(0, (VarCrew(i).sPhysics_maxexp - 1)) .sChemistry_maxexp = VarCrew(i).sChemistry * 100 .sChemistry_exp = Rand(0, (VarCrew(i).sChemistry_maxexp - 1)) .sAstrophysics_maxexp = VarCrew(i).sAstrophysics * 100 .sAstrophysics_exp = Rand(0, (VarCrew(i).sAstrophysics_maxexp - 1)) .sEcology_maxexp = VarCrew(i).sEcology * 100 .sEcology_exp = Rand(0, (VarCrew(i).sEcology_maxexp - 1)) .sGenetics_maxexp = VarCrew(i).sGenetics * 100 .sGenetics_exp = Rand(0, (VarCrew(i).sGenetics_maxexp - 1)) .sGeology_maxexp = VarCrew(i).sGeology * 100 .sGeology_exp = Rand(0, (VarCrew(i).sGeology_maxexp - 1)) .sXenology_maxexp = VarCrew(i).sXenology * 100 .sXenology_exp = Rand(0, (VarCrew(i).sXenology_maxexp - 1)) .sBiology_maxexp = VarCrew(i).sBiology * 100 .sBiology_exp = Rand(0, (VarCrew(i).sBiology_maxexp - 1)) .sArchaeology_maxexp = VarCrew(i).sArchaeology * 100 .sArchaeology_exp = Rand(0, (VarCrew(i).sArchaeology_maxexp - 1)) .sPsychology_maxexp = VarCrew(i).sPsychology * 100 .sPsychology_exp = Rand(0, (VarCrew(i).sPsychology_maxexp - 1)) .sPsychiatry_maxexp = VarCrew(i).sPsychiatry * 100 .sPsychiatry_exp = Rand(0, (VarCrew(i).sPsychiatry_maxexp - 1)) .sRobotics_maxexp = VarCrew(i).sRobotics * 100 .sRobotics_exp = Rand(0, (VarCrew(i).sRobotics_maxexp - 1)) .sElectricalEngineering_maxexp = VarCrew(i).sElectricalEngineering * 100 .sElectricalEngineering_exp = Rand(0, (VarCrew(i).sElectricalEngineering_maxexp - 1)) .sComputerEngineering_maxexp = VarCrew(i).sComputerEngineering * 100 .sComputerEngineering_exp = Rand(0, (VarCrew(i).sComputerEngineering_maxexp - 1)) .sNuclearEngineering_maxexp = VarCrew(i).sNuclearEngineering * 100 .sNuclearEngineering_exp = Rand(0, (VarCrew(i).sNuclearEngineering_maxexp - 1)) .sMechanicalEngineering_maxexp = VarCrew(i).sMechanicalEngineering * 100 .sMechanicalEngineering_exp = Rand(0, (VarCrew(i).sMechanicalEngineering_maxexp - 1)) .sDiagnosing_maxexp = VarCrew(i).sDiagnosing * 100 .sDiagnosing_exp = Rand(0, (VarCrew(i).sDiagnosing_maxexp - 1)) .sSurgery_maxexp = VarCrew(i).sSurgery * 100 .sSurgery_exp = Rand(0, (VarCrew(i).sSurgery_maxexp - 1)) .sPharmacology_maxexp = VarCrew(i).sPharmacology * 100 .sPharmacology_exp = Rand(0, (VarCrew(i).sPharmacology_maxexp - 1)) .sFirstAid_maxexp = VarCrew(i).sFirstAid * 100 .sFirstAid_exp = Rand(0, (VarCrew(i).sFirstAid_maxexp - 1)) .sPracticalMining_maxexp = VarCrew(i).sPracticalMining * 100 .sPracticalMining_exp = Rand(0, (VarCrew(i).sPracticalMining_maxexp - 1)) .sRemoteMining_maxexp = VarCrew(i).sRemoteMining * 100 .sRemoteMining_exp = Rand(0, (VarCrew(i).sRemoteMining_maxexp - 1)) .sShipMining_maxexp = VarCrew(i).sShipMining * 100 .sShipMining_exp = Rand(0, (VarCrew(i).sShipMining_maxexp - 1)) .Cooking_maxexp = VarCrew(i).Cooking * 100 .Cooking_exp = Rand(0, (VarCrew(i).Cooking_maxexp - 1)) End With End Sub Public Sub CrewClass(ByVal i As Integer) x = Rand(1, 1) Select Case x Case 1: Call GeneratePhysicist(i) 'Case 2: Call GenerateChemist(i) 'Case 3: Call GenerateAstrophysicist(i) 'Case 4: Call GenerateEcologist(i) 'Case 5: Call GenerateGeneticist(i) 'Case 6: Call GenerateXenologist(i) 'Case 7: Call GenerateBiologist(i) 'Case 8: Call GenerateArchaeologist(i) 'Case 9: Call GeneratePhyscologist(i) 'Case 10: Call GeneratePhyschiatrist(i) 'Case 11: Call GenerateRobotocist(i) 'Case 12: Call GenerateLekky(i) 'Case 13: Call GenerateProgrammer(i) 'Case 14: Call GenerateNuclearEngineer(i) 'Case 15: Call GenerateEngineer(i) 'Case 16: Call GenerateDoctor(i) 'Case 17: Call GenerateMiner(i) 'Case 18: Call GenerateSoldier(i) 'Case 19: Call GeneratePilot(i) End Select End Sub Public Sub CrewTraits(ByVal i As Integer) 'Bad Eyesight? x = Rand(1, 2) If x = 1 Then x = Rand(1, 2) Select Case x Case 1: VarCrew(i).PersonalityTrait(1).Name = "Short-sighted" .PersonalityTrait(1).ID = 1 Case 2: VarCrew(i).PersonalityTrait(1).Name = "Far-sighted" VarCrew(i).PersonalityTrait(1).ID = 1 End If End Sub Public Sub CrewGenetics(ByVal i As Integer) x = Rand(2, 2) If x = 1 Then VarCrew(i).Gender = "Male" Else VarCrew(i).Gender = "Female" End If VarCrew(i).Job = "None" x = Rand(1, 4) Select Case x Case 1 VarCrew(i).Ethnicity = "European" Case 2 VarCrew(i).Ethnicity = "Asian" Case 3 VarCrew(i).Ethnicity = "African" Case 4 VarCrew(i).Ethnicity = "American" End Select If VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "European" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "Edward" VarCrew(i).Nationality = "English" Case 1 VarCrew(i).fName = "Alexander" VarCrew(i).Nationality = "German" Case 2 VarCrew(i).fName = "Lucas" VarCrew(i).Nationality = "Danish" Case 3 VarCrew(i).fName = "Alejandro" VarCrew(i).Nationality = "Spanish" Case 4 VarCrew(i).fName = "Oscar" VarCrew(i).Nationality = "Swedish" Case 5 VarCrew(i).fName = "David" VarCrew(i).Nationality = "Swiss" Case 6 VarCrew(i).fName = "Adam" VarCrew(i).Nationality = "Czech" Case 7 VarCrew(i).fName = "Jan" VarCrew(i).Nationality = "Polish" End Select ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "European" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "Jessica" VarCrew(i).Nationality = "English" Case 1 VarCrew(i).fName = "Mathilde" VarCrew(i).Nationality = "Danish" Case 2 VarCrew(i).fName = "Anna" VarCrew(i).Nationality = "Polish" Case 3 VarCrew(i).fName = "Lucia" VarCrew(i).Nationality = "Spanish" Case 4 VarCrew(i).fName = "Emma" VarCrew(i).Nationality = "Swedish" Case 5 VarCrew(i).fName = "Sarah" VarCrew(i).Nationality = "Austrian" Case 6 VarCrew(i).fName = "Tereza" VarCrew(i).Nationality = "Czech" Case 7 VarCrew(i).fName = "Clara" VarCrew(i).Nationality = "French" End Select ElseIf VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "Asian" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "Wei" VarCrew(i).Nationality = "Chinese" Case 1 VarCrew(i).fName = "Shou" VarCrew(i).Nationality = "Japanese" Case 2 VarCrew(i).fName = "Rahul" VarCrew(i).Nationality = "Indian" Case 3 VarCrew(i).fName = "Mohammed" VarCrew(i).Nationality = "Arabian" Case 4 VarCrew(i).fName = "Min-Jun" VarCrew(i).Nationality = "Korean" Case 5 VarCrew(i).fName = "Yusuf" VarCrew(i).Nationality = "Turkish" Case 6 VarCrew(i).fName = "Ali" VarCrew(i).Nationality = "Iraqi" Case 7 VarCrew(i).fName = "Bataar" VarCrew(i).Nationality = "Mongolian" End Select ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "Asian" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "Ying" VarCrew(i).Nationality = "Chinese" Case 1 VarCrew(i).fName = "Yui" VarCrew(i).Nationality = "Japanese" Case 2 VarCrew(i).fName = "Priya" VarCrew(i).Nationality = "Indian" Case 3 VarCrew(i).fName = "Maryam" VarCrew(i).Nationality = "Arabian" Case 4 VarCrew(i).fName = "Noa" VarCrew(i).Nationality = "Israeli" Case 5 VarCrew(i).fName = "Odval" VarCrew(i).Nationality = "Mongolian" Case 6 VarCrew(i).fName = "Elif" VarCrew(i).Nationality = "Turkish" Case 7 VarCrew(i).fName = "Seo-yeon" VarCrew(i).Nationality = "Korean" End Select ElseIf VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "African" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "Ahmed" VarCrew(i).Nationality = "Egyptian" Case 1 VarCrew(i).fName = "Hamza" VarCrew(i).Nationality = "Lybian" Case 2 VarCrew(i).fName = "Ajagbe" VarCrew(i).Nationality = "Nigerian" Case 3 VarCrew(i).fName = "Rabia" VarCrew(i).Nationality = "Kenyan" Case 4 VarCrew(i).fName = "Jelani" VarCrew(i).Nationality = "Swahili" Case 5 VarCrew(i).fName = "Kevin" VarCrew(i).Nationality = "South African" Case 6 VarCrew(i).fName = "Malusi Dosi" VarCrew(i).Nationality = "Sudanese" Case 7 VarCrew(i).fName = "Ansela" VarCrew(i).Nationality = "Angolian" End Select ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "African" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "Shaimaa" VarCrew(i).Nationality = "Egyptian" Case 1 VarCrew(i).fName = "Aya" VarCrew(i).Nationality = "Lybian" Case 2 VarCrew(i).fName = "Sade" VarCrew(i).Nationality = "Ghanaian" Case 3 VarCrew(i).fName = "Sudi" VarCrew(i).Nationality = "Swahili" Case 4 VarCrew(i).fName = "Nicole" VarCrew(i).Nationality = "South African" Case 5 VarCrew(i).fName = "Crystal" VarCrew(i).Nationality = "Sudanese" Case 6 VarCrew(i).fName = "Lara" VarCrew(i).Nationality = "Angolian" Case 7 VarCrew(i).fName = "Anele" VarCrew(i).Nationality = "Zimbabwean" End Select ElseIf VarCrew(i).Gender = "Male" And VarCrew(i).Ethnicity = "American" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "John" VarCrew(i).Nationality = "American" Case 1 VarCrew(i).fName = "Miguel" VarCrew(i).Nationality = "Brazilian" Case 2 VarCrew(i).fName = "Jacob" VarCrew(i).Nationality = "Canadian" Case 3 VarCrew(i).fName = "Benjamin" VarCrew(i).Nationality = "Chilean" Case 4 VarCrew(i).fName = "Diego" VarCrew(i).Nationality = "Mexican" Case 5 VarCrew(i).fName = "Sebastien" VarCrew(i).Nationality = "Venezuealian" Case 6 VarCrew(i).fName = "Juan" VarCrew(i).Nationality = "Argentinian" Case 7 VarCrew(i).fName = "Jayden" VarCrew(i).Nationality = "Jamaican" End Select ElseIf VarCrew(i).Gender = "Female" And VarCrew(i).Ethnicity = "American" Then x = Rand(0, 7) Select Case x Case 0 VarCrew(i).fName = "Sofia" VarCrew(i).Nationality = "Argentinian" Case 1 VarCrew(i).fName = "Olivia" VarCrew(i).Nationality = "Canadian" Case 2 VarCrew(i).fName = "Gabrielle" VarCrew(i).Nationality = "Jamaican" Case 3 VarCrew(i).fName = "Isabella" VarCrew(i).Nationality = "Mexican" Case 4 VarCrew(i).fName = "Madis" VarCrew(i).Nationality = "American" Case 5 VarCrew(i).fName = "Florencia" VarCrew(i).Nationality = "Uruguayan" Case 6 VarCrew(i).fName = "Camila" VarCrew(i).Nationality = "Venezualian" Case 7 VarCrew(i).fName = "Isidora" VarCrew(i).Nationality = "Chilean" End Select End If VarCrew(i).sName = "TEMPNAME" End Sub Public Sub EquipCrew(ByVal i As Integer) 'Start Naked With VarCrew(i) .eHead = 0 eFace = 0 eBody = 0 eUnderBody = 0 ePelvis = 0 eLegs = 0 eUnderLegs = 0 eFeet = 0 eUnderFeet = 0 eHands = 0 End With If VarCrew(i).Gender = "Male" Then With VarCrew(i) 'EQUIP TO THE FACE If VarCrew(i).PersonalityTrait(1).ID = 1 Then x = Rand(1, 5) Select Case x Case 1: VarString = "Black" Case 2: VarString = "Blue" Case 3: VarString = "Green" Case 4: VarString = "Thick-rimmed" Case 5: VarString = "Red" End Select Call GenerateItem("Glasses", VarString, 12, "Glasses", True, i, True, i, 1) .eFace = x End If 'EQUIP TO THE BODY x = Rand(1, 3) Select Case x Case 1: VarString = "Jacket" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Leather" Case 2: VarString2 = "Wooly" Case 3: VarString2 = "High-collar" End Select Call GenerateItem(VarString, VarString2, 13, "Coat", True, i, True, i, 3) Case 2: VarString = "Coat" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Leather" Case 2: VarString2 = "Long" Case 3: VarString2 = "High-collar" End Select Call GenerateItem(VarString, VarString2, 13, "Coat", True, i, True, i, 2) Case 3: VarString = "Jumpsuit" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Plain" Case 2: VarString2 = "Black" Case 3: VarString2 = "Formal" End Select Call GenerateItem(VarString, VarString2, 13, "Coat", True, i, True, i, 5) End Select .eBody = x .eLegs = x 'EQUIP TO THE UNDERBODY If Item(VarCrew(i).eBody).Name = "Jumpsuit" Then x = Rand(0, 1) Else x = Rand(1, 3) End If Select Case x Case 0: x = 0 Case 1: VarString = "Vest" x = Rand(1, 6): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "Tight" Case 6: VarString2 = "Long" End Select Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) Case 2: VarString = "Shirt" x = Rand(1, 7): Select Case x Case 1: VarString2 = "Black" Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) Case 2: VarString2 = "Blue" Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) Case 3: VarString2 = "Green" Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) Case 4: VarString2 = "Red" Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) Case 5: VarString2 = "Formal" Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 5) Case 6: VarString2 = "Casual" Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) Case 7: VarString2 = "White" Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) End Select Case 3: VarString = "T-Shirt" x = Rand(1, 8): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "Band" Case 6: VarString2 = "Inspirational" Case 7: VarString2 = "Funny" Case 8: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 2) End Select .eUnderBody = x 'EQUIP TO THE PELVIS x = Rand(1, 2) Select Case x Case 1: VarString = "Pants" x = Rand(1, 5): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 15, "Underwear", True, i, True, i, 2) Case 2: VarString = "Boxers" x = Rand(1, 5): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 15, "Underwear", True, i, True, i, 1) End Select ePelvis = x 'EQUIP TO THE LEGS x = Rand(1, 2) Select Case x Case 1: VarString = "Trousers" x = Rand(1, 4): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Navy" Case 3: VarString2 = "Crimson" Case 4: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 1) Case 2: VarString = "Jeans" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Black" Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 1) Case 2: VarString2 = "Blue" Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 1) Case 3: VarString2 = "Ripped" Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 3) End Select End Select eLegs = x 'EQUIP TO THE UNDERLEGS eUnderLegs = 0 'EQUIP TO THE UNDERFEET VarString = "Socks" x = Rand(1, 5): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Navy" Case 3: VarString2 = "Thick" Case 4: VarString2 = "White" Case 5: VarString2 = "Trainer" End Select Call GenerateItem(VarString, VarString2, 17, "Socks", True, i, True, i, 1) eUnderFeet = x 'EQUIP TO THE LEGS x = Rand(1, 2) Select Case x Case 1: VarString = "Shoes" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Formal" Case 3: VarString2 = "Casual" End Select Call GenerateItem(VarString, VarString2, 16, "Footwear", True, i, True, i, 1) Case 2: VarString = "Boots" x = Rand(1, 4): Select Case x Case 1: VarString2 = "Leather" Case 2: VarString2 = "Black" Case 3: VarString2 = "Casual" Case 4: VarString2 = "Rigger" Call GenerateItem(VarString, VarString2, 16, "Footwear", True, i, True, i, 1) End Select End Select eFeet = x End With Else With VarCrew(i) 'EQUIP TO THE FACE If VarCrew(i).PersonalityTrait(1).ID = 1 Then x = Rand(1, 5) Select Case x Case 1: VarString = "Black" Case 2: VarString = "Pink" Case 3: VarString = "Green" Case 4: VarString = "Thick-rimmed" Case 5: VarString = "Red" End Select Call GenerateItem("Glasses", VarString, 12, "Glasses", True, i, True, i, 1) .eFace = x End If 'EQUIP TO THE BODY x = Rand(1, 4) Select Case x Case 1: VarString = "Jacket" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Leather" Case 2: VarString2 = "Wooly" Case 3: VarString2 = "High-collar" End Select Call GenerateItem(VarString, VarString2, 13, "Jacket", True, i, True, i, 1) .eBody = x Case 2: VarString = "Coat" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Leather" Case 2: VarString2 = "Long" Case 3: VarString2 = "High-collar" End Select Call GenerateItem(VarString, VarString2, 13, "Coat", True, i, True, i, 1) .eBody = x Case 3: VarString = "Jumpsuit" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Plain" Case 2: VarString2 = "Black" Case 3: VarString2 = "Formal" End Select Call GenerateItem(VarString, VarString2, 13, "Jumpsuit", True, i, True, i, 5) .eBody = x .eLegs = x Case 3: VarString = "Dress" x = Rand(1, 5): Select Case x Case 1: VarString2 = "Floral" Call GenerateItem(VarString, VarString2, 13, "Dress", True, i, True, i, 2) Case 2: VarString2 = "Formal" Call GenerateItem(VarString, VarString2, 13, "Dress", True, i, True, i, 4) Case 3: VarString2 = "Party" Call GenerateItem(VarString, VarString2, 13, "Dress", True, i, True, i, 5) Case 4: VarString2 = "Short" Call GenerateItem(VarString, VarString2, 13, "Dress", True, i, True, i, 6) Case 5: VarString2 = "Casual" Call GenerateItem(VarString, VarString2, 13, "Dress", True, i, True, i, 3) End Select .eBody = x .eLegs = x End Select 'EQUIP TO THE UNDERBODY If Item(VarCrew(i).eBody).Name = "Jumpsuit" Or Item(VarCrew(i).eBody).Name = "Dress" Then x = Rand(0, 1) Else x = Rand(1, 3) End If Select Case x Case 0: x = 0 Case 1: VarString = "Vest" x = Rand(1, 6): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "Tight" Case 6: VarString2 = "Long" End Select Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 5) Case 2: VarString = "Shirt" x = Rand(1, 7): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "Formal" Case 6: VarString2 = "Casual" Case 7: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 3) Case 3: VarString = "T-Shirt" x = Rand(1, 8): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Low-cut" Case 4: VarString2 = "Red" Case 5: VarString2 = "Band" Case 6: VarString2 = "Geeky" Case 7: VarString2 = "Funny" Case 8: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 14, "Shirt", True, i, True, i, 2) End Select .eUnderBody = x 'EQUIP TO THE PELVIS x = Rand(1, 2) Select Case x Case 1: VarString = "Briefs" x = Rand(1, 5): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 15, "Underwear", True, i, True, i, 1) Case 2: VarString = "Thong" x = Rand(1, 5): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Green" Case 4: VarString2 = "Red" Case 5: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 15, "Underwear", True, i, True, i, 3) End Select ePelvis = x 'EQUIP TO THE LEGS x = Rand(1, 3) If Item(VarCrew(i).eBody).Name = "Jumpsuit" Or Item(VarCrew(i).eBody).Name = "Dress" Then x = 0 Else x = Rand(1, 3) End If Select Case x Case 0: x = 0 Case 1: VarString = "Trousers" x = Rand(1, 4): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Navy" Case 3: VarString2 = "Crimson" Case 4: VarString2 = "White" End Select Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 1) Case 2: VarString = "Jeans" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Blue" Case 3: VarString2 = "Ripped" End Select Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 2) Case 3: VarString = "Skirt" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Long" Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 2) Case 2: VarString2 = "Pencil" Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 4) Case 3: VarString2 = "Mini" Call GenerateItem(VarString, VarString2, 16, "Legwear", True, i, True, i, 7) End Select End Select eLegs = x 'EQUIP TO THE UNDERLEGS If Item(VarCrew(i).eLegs).Name = "Skirt" Or Item(VarCrew(i).eLegs).Name = "Dress" Then x = Rand(0, 3) Select Case x Case 0: x = 0 Case 1: VarString = "Tights" x = Rand(1, 6): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Navy" Case 3: VarString2 = "Near-Black" Case 4: VarString2 = "White" Case 5: VarString2 = "Natural" Case 6: VarString2 = "Shiny" Call GenerateItem(VarString, VarString2, 17, "Underlegwear", True, i, True, i, 3) End Select Case 2: VarString = "Leggings" x = Rand(1, 6): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Navy" Case 3: VarString2 = "Near-Black" Case 4: VarString2 = "White" Case 5: VarString2 = "Natural" Case 6: VarString2 = "Shiny" Call GenerateItem(VarString, VarString2, 17, "Underlegwear", True, i, True, i, 1) End Select Case 3: VarString = "Stockings" x = Rand(1, 6): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Navy" Case 3: VarString2 = "Near-Black" Case 4: VarString2 = "White" Case 5: VarString2 = "Natural" Case 6: VarString2 = "Shiny" Call GenerateItem(VarString, VarString2, 17, "Underlegwear", True, i, True, i, 5) End Select End Select Else x = 0 End If eUnderLegs = x 'EQUIP TO THE UNDERFEET If Item(VarCrew(i).eUnderLegs).Name = "stockings" Then VarString = "None" Else VarString = "Socks" x = Rand(1, 5): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Navy" Case 3: VarString2 = "Thick" Case 4: VarString2 = "White" Case 5: VarString2 = "Trainer" End Select End If If VarString = "None" Then x = 0 Else Call GenerateItem(VarString, VarString2, 19, "Socks", True, i, True, i, 1) End If eUnderFeet = x 'EQUIP TO THE FEET x = Rand(1, 3) Select Case x Case 1: VarString = "Shoes" x = Rand(1, 3): Select Case x Case 1: VarString2 = "Black" Case 2: VarString2 = "Formal" Case 3: VarString2 = "Casual" End Select Call GenerateItem(VarString, VarString2, 18, "Footwear", True, i, True, i, 1) Case 2: VarString = "Boots" x = Rand(1, 6): Select Case x Case 1: VarString2 = "Leather" Case 2: VarString2 = "Black" Case 3: VarString2 = "Fold-top" Case 4: VarString2 = "Rigger" Case 5: VarString2 = "Furry" Case 6: VarString2 = "Knee-high" End Select Call GenerateItem(VarString, VarString2, 18, "Footwear", True, i, True, i, 5) Case 3: VarString = "Heels" x = Rand(1, 4): Select Case x Case 1: VarString2 = "Low" Case 2: VarString2 = "High" Case 3: VarString2 = "Black" Case 4: VarString2 = "Formal" End Select Call GenerateItem(VarString, VarString2, 18, "Footwear", True, i, True, i, 5) End Select eFeet = x End With VarString = Item(0).adjective & Item(0).Name VarString = Item(1).adjective & Item(1).Name VarString = Item(2).adjective & Item(2).Name VarString = Item(3).adjective & Item(3).Name VarString = Item(4).adjective & Item(4).Name VarString = Item(5).adjective & Item(5).Name VarString = Item(6).adjective & Item(6).Name VarString = Item(7).adjective & Item(7).Name VarString = Item(8).adjective & Item(8).Name VarString = Item(9).adjective & Item(9).Name End If End Sub