Option Explicit Randomize Timer screen 17 'screenres 640,480,24,1,1 Type charTP nm As String ' name ra As String ' race cl As String ' class hp As Integer ' hit points mh As Integer ' max hit points mp As Integer ' magic points mm As Integer ' max magic points st As Integer ' strength dx As Integer ' dexterity it As Integer ' intelligence End Type Type extraPT mh As Integer ' max hit points mp As Integer ' magic points mm As Integer ' max magic points st As Integer ' strength dx As Integer ' dexterity it As Integer ' intelligence End type Type extraSAY mh As String ' max hit points mp As String ' magic points mm As String ' max magic points st As String ' strength dx As String ' dexterity it As String ' intelligence End type Dim extra As extraPT Dim player As charTP Dim say as extraSAY Dim choice As String Do Cls Print "Character Generation" : Print Print "What is your name?" Input " > ", choice Loop Until len(choice) > 0 player.nm = choice Do Cls Print "Character Generation" : Print Print "Name : " ; player.nm : Print Print "1. Human." Print "2. Elf." Print "3. Dwarf." Print : Print "Pick a race : ( 1 to 3 )" Input " > ", choice Loop Until choice >= "1" And choice <= "3" If choice = "1" Then player.ra = "Human" extra.mh = 0 extra.mm = 0 extra.st = 2 extra.it = 2 extra.dx = 2 endif If choice = "2" Then player.ra = "Elf" extra.mh = 0 extra.mm = 0 extra.st = 0 extra.it = 3 extra.dx = 3 endif If choice = "3" Then player.ra = "Dwarf" extra.mh = 1 extra.mm = 2 extra.st = 3 extra.it = 0 extra.dx = 0 endif Do Cls Print "Character Generation" : Print Print "Name : " ; player.nm Print "Race : " ; player.ra : Print Print "1. Fighter." Print "2. Mage." Print "3. Thief." Print : Print "Pick a class : ( 1 to 3 )" Input " > ", choice Loop Until choice >= "1" And choice <= "3" If choice = "1" Then player.cl = "Fighter" extra.mh += 3 extra.mm += 1 extra.st += 4 extra.it += 1 extra.dx += 2 endif If choice = "2" Then player.cl = "Mage" extra.mh += 1 extra.mm += 4 extra.st += 1 extra.it += 3 extra.dx+ = 2 endif If choice = "3" Then player.cl = "Thief" extra.mh += 1 extra.mm += 2 extra.st += 2 extra.it += 2 extra.dx += 4 endif Do player.mh = Int(Rnd(1)*20)+20 player.mm = Int(Rnd(1)*20)+20 player.st = Int(Rnd(1)*20)+20 player.it = Int(Rnd(1)*20)+20 player.dx = Int(Rnd(1)*20)+20 Cls Print "Character Generation" : Print Print "Name : " ; player.nm Print "Race : " ; player.ra Print "Class : " ; player.cl : Print Print "Your stats are :" Print "Hit Points : " ; player.mh; " +";extra.mh; "("; player.mh + extra.mh; " )" Print "Magic Points : " ; player.mm; " +";extra.mm; "("; player.mm + extra.mm; " )" Print "Strength : " ; player.st; " +";extra.st; "("; player.st + extra.st; " )" Print "Dexterity : " ; player.dx; " +";extra.dx; "("; player.dx + extra.dx; " )" Print "Intelligence : " ; player.it; " +";extra.it; "("; player.it + extra.it; " )" Print : Print "Press a key to re-roll." Print "Press k to keep." Input " > ", choice Loop Until LCase(choice) = "k" player.mh += extra.mh player.mm += extra.mm player.st += extra.st player.it += extra.it player.dx += extra.dx Cls Sleep 1000, 1 ? "" ? "Prepare to enter the dungeon." ? "" Sleep 1500, 1 ? " Thanks for trying this sample." sleep 2000, 1 ? "" ? " Perhaps this will become a game, who knows." sleep 2500, 1 ? "" ? " See you, hehe." sleep 1500, 1 ? " Press a key to exit." while inkey = "":wend End