Ok noticed alotta DB threads about, just thought i'd throw some code i found awhile ago.
As title says its a name gen, Very basic, not styling to it so expected the usal big black screen lol
Code:
sync on
sync rate 60
sync
sync
randomize timer()
start:
cls
choice = 0
repeat
print "1-save 100 random names to a file"
print "2-choose a certain length, create names of that length, and save them to a file"
print "3-choose a first letter, create names that use it, and save them to a file"
print "4-do both option 2 and 3 (set your own length AND first letter)"
print "5-Exit"
print "What would you like to do?"
sync
input "",choice
if choice > 0 and choice < 6
valid = 1
else
valid = 0
CLS
print "You must enter a number between 1 and 5"
print " "
sync
endif
until valid=1
sync
if choice = 1
cls
file$ = getfilename()
if file exist(file$ + ".txt") then delete file file$ + ".txt"
open to write 1, file$ + ".txt"
for i=1 to 100
length = rnd(4)+3
write string 1, name(length, "")
sync
next i
close file 1
print "The 100 names have been saved to '" + file$ + ".txt'"
print "Press any key to continue"
sync
wait key
goto start
endif
if choice = 2
cls
length = getlength()
num = 0
print "How many names do you want to save to the file?"
sync
input "",num
file$ = getfilename()
if file exist(file$ + ".txt") then delete file file$ + ".txt"
open to write 1, file$ + ".txt"
for i=1 to num
write string 1, name(length, "")
sync
next i
close file 1
print "The names have been saved to '" + file$ + ".txt'"
print "Press any key to continue"
sync
wait key
goto start
endif
if choice = 3
cls
first$ = ""
length = 0
print "Enter the letter you want your names to start with"
sync
input "",first$
num = 0
print "How many names do you want to save to the file?"
sync
input "",num
file$ = getfilename()
if file exist(file$ + ".txt") then delete file file$ + ".txt"
open to write 1, file$ + ".txt"
for i=1 to num
length = rnd(4)+3
write string 1, name(length, first$)
sync
next i
close file 1
print "The names have been saved to '" + file$ + ".txt'"
print "Press any key to continue"
sync
wait key
goto start
endif
if choice = 4
cls
first$ = ""
length = 0
print "Enter the letter you want your names to start with"
sync
input "",first$
length = getlength()
num = 0
print "How many names do you want to save to the file?"
sync
input "",num
file$ = getfilename()
if file exist(file$ + ".txt") then delete file file$ + ".txt"
open to write 1, file$ + ".txt"
for i=1 to num
write string 1, name(length, first$)
sync
next i
close file 1
print "The names have been saved to '" + file$ + ".txt'"
print "Press any key to continue"
sync
wait key
goto start
endif
if choice = 5
end
endif
function name(length, first$)
select length
case 3
name$ = firstletter(first$) + lower$(midletter()) + lower$(lastletter())
break
endcase
case 4
name$ = firstletter(first$) + lower$(midletter()) + lower$(lastletter()) + lower$(midletter())
break
endcase
case 5
name$ = firstletter(first$) + lower$(midletter()) + lower$(lastletter()) + lower$(midletter()) + lower$(lastletter())
break
endcase
case 6
name$ = firstletter(first$) + lower$(midletter()) + lower$(lastletter()) + lower$(midletter()) + lower$(firstletter("")) + lower$(midletter())
break
endcase
case 7
name$ = firstletter(first$) + lower$(midletter()) + lower$(lastletter()) + lower$(midletter()) + lower$(firstletter("")) + lower$(midletter()) + lower$(lastletter())
break
endcase
endselect
endfunction name$
function firstletter(rule$)
if rule$=""
num = rnd(2)+1
select num
case 1
letters$ = "BCDLMNRS"
endcase
case 2
letters$ = "BCDFGHKLMNPRSTW"
endcase
case 3
letters$ = "BCDFGHJKLMNPQRSTVWXYZ"
endcase
endselect
a$ = mid$(letters$, rnd(len(letters$)-1)+1)
else
a$ = rule$
endif
endfunction a$
function midletter()
letters$ = "AEIOU"
a$ = mid$(letters$, rnd(len(letters$)-1)+1)
endfunction a$
function lastletter()
letters$ = "RTNHLMNB"
a$ = mid$(letters$, rnd(len(letters$)-1)+1)
endfunction a$
function getlength()
length = 0
print "Enter the length you want your names to be. From 3 to 7"
sync
input "",length
repeat
if length > 2 and length < 8
complete = 1
else
cls
print "That is an illegal length! please enter a length between 3 and 7"
sync
input "",length
complete = 0
endif
until complete = 1
endfunction length
function getfilename()
complete = 0
repeat
file$ = ""
print "Enter a name for the file"
sync
input "",file$
ask$ = ""
if file exist(file$ + ".txt")
print "That file exists, overwrite? y/n"
sync
input "",ask$
if ask$ = "y"
complete = 1
else
complete = 0
cls
endif
else
complete = 1
endif
until complete = 1
endfunction file$
As i said i found this but i think am gonna try and build on this one and make a wow name gen (Yea i know theres loads but the names are pretty common gonna try make this one create more unique names and replace the file dump to onscreen dump, or maybe both)
Post in here what name gens you come up with using Darkbasic pro only.
Neer, DarkBASIC and DarkBASIC Pro can both run the same code. Pro just has a slightly different syntax for some things, and better net support. It also has a more traditional editor view.
On to the code, nice find! I had a quick look over it and don't see anything wrong with it, syntax wise. As to a WoW name generator, it'd just have to have a whole boatload of names and randomly pick one. Only way it could feasibly work.
[DarkBASIC] Name Gen
