I got:
Code
Jejey
Rapeo
Bake
Togaf (Fagot backwards...)
Zuzu
Baram
I will use these names (or at least the decent ones
) to name the DnD Characters for my campaign. Or I will Implement it into a random name array that generates random names for the amount of people you enter. And then it assigns them classes and races.
EDIT:
Well here is a very simple cahracter maker that produces First and Last names and displays the class and race of the character, feel free to use this for your games guys. I'm not dont though, I have probably 16-20 more types to make, 1 for each race and class, then I have to do stat rolls based on the classes order of what stats they need highest and what they need lowest, then I need to use racial modifiers on these stats, and also add in an initiative bonus (based off of one of the stats) an Armor bonus (Based off of stats) and save bonuses (based off of class) and then I might add in like 20 starting items and have it randomly select a weapon and an armor. And calculate the weight.
Ill keep this updated.
type people
namer as string
class as string
race as string
namel as string
stre as integer
dext as integer
cons as integer
wisd as integer
char as integer
inte as integer
endtype
scrh#=screen height()-20
dop:
do
` set color for help thing
ink rgb(255,255,255),0
text 0,scrh#,"Click left mouse to make people, right mouse to view them."
` If left click then make people
if mouseclick()=1 then goto start
` If right click then view the people
if mouseclick()=2
cls
lalaland:
ink rgb(200,200,200),0
` get which person you want to view, it doesn't matter since the are all random,
` but I will add in a way to make characters and save their stats to an array so that
` there is actually a reason to view a specific character.
input "Which person? ",array
` if below 1
if array < 1
ink rgb(255,0,0),0
text 0,400,"ABOVE 1 PLEASE"
goto lalaland
endif
` if above what you set the number of people to, tell the user to make it a lower number
if array > int(array count (name(0))-1)
ink rgb(255,0,0),0
text 0,400,"BELOW " +str$(array count (name(0))) +" PLEASE"
goto lalaland
endif
` list all the stats pretty and colored
ink RGB(0,255,0),0
text 0,100,"Name: "
ink rgb(0,128,255),0
text 0+ text width ("Name: "),100, name(array).namer + " " + name(array).namel
ink RGB(0,255,0),0
text 0,120,"Class: "
ink rgb(0,128,255),0
text 0+ text width ("Class: "),120, name(array).class
ink RGB(0,255,0),0
text 0,140,"Race: "+name(array).race
ink rgb(0,128,255),0
text 0+ text width ("Race: "),140, name(array).race
endif
loop
start:
randomize timer()
cls
`Get how many people you want to make.
input "How many people? ",ppl
`Make an array for that many people
dim name(0) as people
` For 1 to how many people
for L=1 to ppl+1
`place these values that are coming up at the bottom slot of array.
index = array count(name(0))
array insert at bottom name(0)
`Randomly select class
eclass = RND(3)+1
select eclass
case 1 : name(index).class = "Sorcerer" : ENDCASE
case 2 : name(index).class = "Wizard" : ENDCASE
case 3 : name(index).class = "Barbarian" : ENDCASE
case 4 : name(index).class = "Rogue" : ENDCASE
endselect
`Randomly select race
erace = rnd(3)+1
select erace
case 1 : name(index).race = "Human" : ENDCASE
case 2 : name(index).race = "Elf" : ENDCASE
case 3 : name(index).race = "Dwarf" : ENDCASE
case 4 : name(index).race = "Gnome" : ENDCASE
endselect
` Randomly select first name
A$="BCDFGHJKLMNPRSTVWYZ"
B$="AEIOU"
Z=RND(2)+2
FOR X=1 TO Z
B=RND(19)+1
C$=C$+MID$(A$,B)
IF LEN(C$)>4
B$="AEIOUY"
ELSE
ENDIF
B=RND(4)+1
C$=C$+MID$(B$,B)
NEXT X
B=RND(4)
IF B=>1 AND LEN(C$)>5
C$=LEFT$(C$,LEN(C$)-1)
ELSE
ENDIF
` Set this weird name to the characters name
name(index).namer=C$
` Randomly select last name
C$=""
A$="BCDFGHJKLMNPRSTVWYZ"
B$="AEIOU"
Z=RND(2)+2
FOR X=1 TO Z
B=RND(19)+1
C$=C$+MID$(A$,B)
IF LEN(C$)>4
B$="AEIOUY"
ELSE
ENDIF
B=RND(4)+1
C$=C$+MID$(B$,B)
NEXT X
B=RND(4)
IF B=>1 AND LEN(C$)>5
C$=LEFT$(C$,LEN(C$)-1)
ELSE
ENDIF
` Set this equally weird name to characters name.
name(index).namel=C$
C$=""
next L
goto dop
` this is a rolldice function im trying to get to work for dnd, its not used in
` this program
function roll(sides,howman)
droll=0
for dice = 1 to howman
pdr=rnd(sides-1)+1
droll = droll + pdr
next dice
endfunction droll
AMD Athlon 64 3200 - GeForce 6800 GT - 320GB Hard Drive
1024MB RAM
