Sorry your browser is not supported!

Open To Read 1 ,"firstname.txt"
DataBump = 0
While not File End(1)
    Array Insert At Bottom firstname()
    Read String 1, firstname(DataBump)
    Print "First name array: " ; firstname(DataBump)
    Inc DataBump
Endwhile
Close File 1

Rem Project: Function Test
Rem Created: Saturday, December 11, 2010

Rem ***** Main Source File *****

dim arraydump() as string
dim firstname() as string
dim lastname() as string

loadtextintoarray("firstname.txt")

Open To Read 1 ,"arraydump.txt"
DataBump = 0
While not File End(1)
    Array Insert At Bottom firstname()
    Read String 1, firstname(DataBump)
    Print "First name array: " ; firstname(DataBump)
    Inc DataBump
Endwhile
Close File 1

loadtextintoarray("lastname.txt")

Open To Read 1 ,"arraydump.txt"
DataBump = 0
While not File End(1)
    Array Insert At Bottom lastname()
    Read String 1, lastname(DataBump)
    Print "Last name array: " ; lastname(DataBump)
    Inc DataBump
Endwhile
Close File 1

wait key
End

function loadtextintoarray(filename$)
    undim arraydump()
    dim arraydump() as string
    Open To Read 1 ,filename$
    DataBump = 0
    While not File End(1)
    Array Insert At Bottom arraydump()
    Read String 1, arraydump(DataBump)
    Print arraydump(DataBump)
    Inc Databump
    Endwhile
    Close File 1
    Save array "arraydump.txt", arraydump()
    Wait Key
ENDFUNCTION

Rem Project: Function Test
Rem Created: Saturday, December 11, 2010

Rem ***** Main Source File *****


Type tPopulation
    first_name  as String
    last_name   as String
    nick_name   as String
    age         as Byte
Endtype

Databump as DWord
Dim Population() as tPopulation

Open to Read 1, "firstname.txt"
Databump = 0
While not File End (1)
    Array Insert At Bottom Population(0).first_name
    Read String 1, Population(Databump).first_name
    Print "First name: " ; Population(Databump).first_name
    Inc Databump    
ENDWHILE
Close File 1

Wait key

Open to Read 1, "lastname.txt"
Databump = 0
While not File End (1)
    Array Insert At Bottom Population()
    Read String 1, Population(Databump).last_name
    Print "full name: " ; Population(Databump).first_name ; " "; Population(Databump).last_name
    Inc Databump    
ENDWHILE
Close File 1

wait key
end

Rem Project: BurningFeetMan
Rem Created: Saturday, December 11, 2010

Rem ***** Main Source File *****

Type tPopulationStats
    first_name  as String
    last_name   as String
    age as byte
Endtype

    MaxPopulation   as DWord     = 20
    
    Databump        as DWord

Dim FirstNamePool(0) as String
Dim LastNamePool(0)  as String

Dim PopulationWild(MaxPopulation)        as tPopulationStats 

REM Generate the population pool ^_^

Print "A List of First Names"
Open to Read 1, "firstname.txt"
Databump = 0
While not File End (1)
    Array Insert At Bottom FirstNamePool()
    Read String 1, FirstNamePool(Databump)
    Print "First name: " ; FirstNamePool(Databump); " " ; Array Count(FirstNamePool())
    Inc Databump    
ENDWHILE
Close File 1

Wait key

Print "A List of Last Names"
Open to Read 1, "lastname.txt"
Databump = 0
While not File End (1)
    Array Insert At Bottom LastNamePool()
    Read String 1, LastNamePool(Databump)
    Print "last name: " ; LastNamePool(Databump) ; " "; Array Count(LastNamePool())
    Inc Databump    
ENDWHILE
Close File 1

Print " "
Print "Array Count Detail:"
Print "Array Count First: " ; Array Count(FirstNamePool())
Print "Array Count Last: " ; Array Count(LastNamePool())
Print " "
Print "Press Any Key To Generate a Population of " ; MaxPopulation

wait key

For PeopleMaker = 1 to MaxPopulation
    PopulationWild(PeopleMaker).first_name  = FirstNamePool(RND(Array Count(FirstNamePool())-1))
    PopulationWild(PeopleMaker).last_name   = LastNamePool(RND(Array Count(LastNamePool())-1))    
    PopulationWild(PeopleMaker).age = RND(65)
Next PeopleMaker

For RollCall = 1 to MaxPopulation
Print PopulationWild(RollCall).first_name ; " " ; PopulationWild(RollCall).last_name ; " "; PopulationWild(RollCall).age
Next RollCall

wait key
end

open datafile to write 1,"output.txt"
Save Array To Datafile PopulationWild(), 1

Rem Project: Population Maker
Rem Created: Saturday, December 11, 2010
Rem ***** Main Source File *****
REM Please note that Matrix1 Utilites have been employed in this source.

REM TO DO - Create a tidy text output system, also generated from txt files 

Type tPopulationStats
    Tag         as Integer
    first_name  as String
    last_name   as String
    age         as byte
    switch      as boolean 
Endtype

    UniqueName      as Integer    
    Databump        as Integer
    MaxPopulation   as Integer     = 0
    SexRatio        as Integer     = 0
  

    Dim FirstNamePool(0)                as String
    Dim LastNamePool(0)                 as String
    Dim PopulationWild(0)               as tPopulationStats 
    Dim PopulationSelect(0)             as tPopulationStats


        Print "Welcome to BFM's people maker!"
        Print "This program combines first & last names against an ID number."
        Print " "

While MaxPopulation = 0
    Input  "Enter the maximum number of people you'd like to generate: ", MaxPopulation
EndWhile

    UnDim PopulationWild()
    Dim PopulationWild(MaxPopulation)               as tPopulationStats 
cls

        Print "Generating a population of " ; MaxPopulation
        Print " "
    Input "Please indcate the Male to Female ratio, 1 being 10% males, and 9 being 10% females: ", SexRatio

cls

        Print "Generating a population of " ; MaxPopulation ; 
        Print "With " ; SexRatio ; "/" ; (10-SexRatio) ; " male to female ratio."
        Print " "
        Print "Press Enter to load the first names, then enter again to load last names."
        Print "(The names are loaded from an inputdata folder, located next to the Application.exe)"
    Wait Key


Rem: The UniqueName will overwrite MaxPopulation, using the formula Firstname x Lastname if equal or less than MaxPopulation. 
Rem: It might be better to implement a system, that use's all last names, then matches a first name up randomly, rather than randomizing both names. 
Rem: In further thinking, build a list of all possible names, then extract random names from the list. 
Rem: Input options to control if the population list is to contain duplicate names, or if a unique list is to be built. 
Rem: Review the construction of the name.txt builders, then use the same technique on the Population array.
   
        Print "A List of First Names"

Open to Read 1, "inputdata/firstname.txt"
Databump = 0
While not File End (1)
    Array Insert At Bottom FirstNamePool()
    Read String 1, FirstNamePool(Databump)
    Print "First name: " ; FirstNamePool(Databump); " " ; Array Count(FirstNamePool())
    Inc Databump    
ENDWHILE
Close File 1

    Wait key
    
        Print "A List of Last Names"

Open to Read 1, "inputdata/lastname.txt"
Databump = 0
While not File End (1)
    Array Insert At Bottom LastNamePool()
    Read String 1, LastNamePool(Databump)
    Print "last name: " ; LastNamePool(Databump) ; " "; Array Count(LastNamePool())
    Inc Databump    
ENDWHILE
Close File 1

UniqueName = Array Count(LastNamePool())*Array Count(FirstNamePool())

If UniqueName < MaxPopulation 
    MaxPopulation = UniqueName
Endif

    Wait Key
    CLS
        Print " "
        Print "Array Count Detail:"
        Print "Array Count First: " ; Array Count(FirstNamePool())
        Print "Array Count Last: " ; Array Count(LastNamePool())
        Print "Total possible names to be generated: " ; UniqueName
        Print " "
        Print "Press Any Key To Generate a Population of " ; MaxPopulation
    wait key

cCircle = 0
cTriangle = 0
cSquare = 1

For cCircle = 0 to 3
        PopulationWild(cSquare).first_name   = FirstNamePool(cCircle)
        PopulationWild(cSquare).last_name    = LastNamePool(cTriangle)
    Inc cSquare
    Inc cTriangle
        PopulationWild(cSquare).first_name   = FirstNamePool(cCircle)
        PopulationWild(cSquare).last_name    = LastNamePool(cTriangle)
    Inc cSquare
    Inc cTriangle
        PopulationWild(cSquare).first_name   = FirstNamePool(cCircle)
        PopulationWild(cSquare).last_name    = LastNamePool(cTriangle)
    cTriangle = 0
Next cCircle

For TagWild = 1 to MaxPopulation
    PopulationWild(TagWild).tag = TagWild
Next

For RollCall = 1 to MaxPopulation
        Print PopulationWild(RollCall).tag; " " ; PopulationWild(RollCall).first_name ; " " ; PopulationWild(RollCall).last_name 
Next RollCall

open datafile to write 1,"output.txt"
Save Array To Datafile PopulationWild(), 1
close datafile 1
        Print "end"
    wait key
end

Rem Project: Population Maker 2
Rem Created: Tuesday, December 21, 2010

Rem ***** Main Source File *****

Type tPopulationStats
    Tag         as Integer
    first_name  as String
    last_name   as String
    age         as byte
    switch      as boolean 
Endtype

    Databump        as Integer
    Datalimiter     as Integer
    DataStop        as Integer
    UniqueName      as Integer = 0
    sTest           as String
     
    Dim FirstNamePool(0)                        as String
    Dim LastNamePool(0)                         as String
    Dim CombinedNamePool(UniqueName,UniqueName) as String 
    Dim PopulationSelect(0)                     as tPopulationStats

Print "Welcome to BFM's people maker!"
Print ""

Databump = 1
Open to Read 1, "inputdata/firstname.txt"
While not File End (1)
    Array Insert At Bottom FirstNamePool()
    Read String 1, FirstNamePool(Databump)
    Print "First name: " ; FirstNamePool(Databump); ", " ; Array Count(FirstNamePool()) ; ", " ; Databump
    Inc Databump    
ENDWHILE
Close File 1

   Waitasec()
    
        Print "A List of Last Names"

Databump = 1
Open to Read 1, "inputdata/lastname.txt"
While not File End (1)
    Array Insert At Bottom LastNamePool()
    Read String 1, LastNamePool(Databump)
    Print "last name: " ; LastNamePool(Databump) ; ", "; Array Count(LastNamePool()); ", " ; Databump
    Inc Databump    
ENDWHILE
Close File 1
    
UniqueName = Array Count(FirstNamePool()) * Array Count(LastNamePool())
Print Array Count(FirstNamePool()) ; " * " ; Array Count(LastNamePool()) ;" = " ; UniqueName ; " unique names"
    
    Undim CombinedNamePool()
    Dim CombinedNamePool(1,UniqueName) as String

    Waitasec()    
    
    Databump    = 1
    Datalimiter = 1
    Datastop    = Array Count(LastNamePool())
For AddFirstName = 1 to UniqueName
    If Datalimiter > Datastop
       Datalimiter = 1
       Inc Databump
    EndIf
      CombinedNamePool(0, AddFirstName) = FirstNamePool(DataBump)
      Inc Datalimiter

Next AddFirstName
    
    Databump = 1
For AddLastName = 1 to UniqueName  
    If Databump > Array Count(LastNamePool())
       Databump = 1
    Endif
    CombinedNamePool(1, AddLastName) = LastNamePool(DataBump)
    Inc Databump    
Next AddLastName

For RollCall = 0 to UniqueName
        Print CombinedNamePool(0, RollCall) ; " " ; CombinedNamePool(1, RollCall) ; " " ; RollCall
Next RollCall
    
    Waitasec()
End 


Function Waitasec()
    Nice Wait 500
    Nice Wait Key
    Print ""
Endfunction

element_to_be_deleted = 5
dim dummy$(array count(original$()))

for x = 1 to array count(original$())
  dummy$(x) = original$(x)
next x

undim original$()
dim original$(array count(dummy$())-1)

count = 0
for x = 1 to array count(dummy$())
  if x <> element_to_be_deleted
    inc count
    original$(count) = dummy$(x)
  endif
next x

undim dummy$()

    Databump    = 1
    Datalimiter = 1
    Datastop    = Array Count(LastNamePool())
For AddFirstName = 1 to UniqueName
    If Datalimiter > Datastop
       Datalimiter = 1
       Inc Databump
    EndIf
      CombinedNamePool(0, AddFirstName) = FirstNamePool(DataBump)
      Inc Datalimiter

Next AddFirstName
    
    Databump = 1
For AddLastName = 1 to UniqueName  
    If Databump > Array Count(LastNamePool())
       Databump = 1
    Endif
    CombinedNamePool(1, AddLastName) = LastNamePool(DataBump)
    Inc Databump    
Next AddLastName

x = 0
y = 0
WHILE x < array count(firstnamepool()) and y < array count(lastnamepool())
  INC x
  INC y
  combinednamepool(0, x) = firstnamepool(x)
  combinednamepool(1, y) = lastnamepool(x)
ENDWHILE

fullnamecount = 0
FOR x = 1 to ARRAY COUNT(lastnames())
    FOR y = 1 to ARRAY COUNT(firstnames())
        INC fullnamecount
        combinednamepool(0, fullnamecount) = firstnames(y)
        combinednamepool(1, fullnamecount) = lastnames(x) 
    NEXT y
NEXT x

fullnamecount = 0
FOR x = 1 to ARRAY COUNT(lastnames())
    FOR y = 1 to ARRAY COUNT(firstnames())
        INC fullnamecount
        combinednamepool(0, fullnamecount) = firstnames(y)
        combinednamepool(1, fullnamecount) = lastnames(x) 
    NEXT y
NEXT x

Remstart
Project:    Population Maker Ver 3
Created:    12/12/2010
By:         Burningfeetman

Credits:
Hats Off to Agent & Lucas Tiridath for helping me with this code

Notes:
* Although input via CSV file is possible, it is an over complicated solution for the simple input of first and last names.

To Do:
* Boy and Girl names will have to be sourced from two different input txt files.
* Tidy up input files and code:
* Name/Male.txt, Name/Female.txt, Name/Family.txt
* Add ID tag for final population
* Add control regarding male to female ratio
* Add age along with age controls
* Add control to alphabatise the output and re-assign sorted ID tag. 
* Export Final Population using Matrix1 Utilities, User Define Type Expor - SAVE ARRAY TO DATAFILE Array(), Datafile Id
* Exported list can then be imported and used in future games.
Remend

#Constant funcdebug 1 `Function Debug - Simply change between 0 or 1 to toggle debug mode.
 
RANDOMIZE TIMER()

Type tPopulationStats `WIP
    tag         as Integer
    first_name  as String
    last_name   as String
    age         as byte
    sex         as boolean
Endtype
    
    Databump            as Integer
    UniqueName          as Integer = 0
    DesiredPopulation   as Integer
     
    Dim DataRandom(0)           as Integer             
    Dim FirstNamePool(0)        as String
    Dim LastNamePool(0)         as String
    Dim CombinedNamePool(0,0)   as String 
    Dim PopulationSelect(0)     as tPopulationStats `WIP

Print "Welcome to BFM's people maker!"
Print ""
Print "A List of First Names"
Print "" 

Databump = 1
Open to Read 1, "inputdata/firstname.txt"
While not File End (1)
    Array Insert At Bottom FirstNamePool()
    Read String 1, FirstNamePool(Databump)
        Print "First name: " ; FirstNamePool(Databump); ", " ; Array Count(FirstNamePool()) ; ", " ; Databump
    Inc Databump    
ENDWHILE
Close File 1

   Waitasec(funcdebug)
    
        Print "A List of Last Names"

Databump = 1
Open to Read 1, "inputdata/lastname.txt"
While not File End (1)
    Array Insert At Bottom LastNamePool()
    Read String 1, LastNamePool(Databump)
        Print "last name: " ; LastNamePool(Databump) ; ", "; Array Count(LastNamePool()); ", " ; Databump
    Inc Databump    
ENDWHILE
Close File 1
    
UniqueName = Array Count(FirstNamePool()) * Array Count(LastNamePool())
        Print Array Count(FirstNamePool()) ; " * " ; Array Count(LastNamePool()) ;" = " ; UniqueName ; " unique names"
    
    Undim CombinedNamePool()
    Dim CombinedNamePool(1,UniqueName) as String

    Waitasec(funcdebug)    
    
    Databump = 1
FOR x = 1 to ARRAY COUNT(LastNamePool())
    FOR y = 1 to ARRAY COUNT(FirstNamePool())
        combinednamepool(0, Databump) = FirstNamePool(y)
        combinednamepool(1, Databump) = LastNamePool(x)
        INC Databump 
    NEXT y
NEXT x
       
For RollCall = 0 to UniqueName
        Print CombinedNamePool(0, RollCall) ; " " ; CombinedNamePool(1, RollCall) ; " " ; RollCall
Next RollCall
    
        Print "End list of " ; UniqueName ; " unique Full Names. Begining population attribute sequence"
    Waitasec(funcdebug) : CLS

Input "Please enter the desired population. (Maximum of " ; UniqueName ; ") ", DesiredPopulation

    UnDim PopulationSelect()
    Dim PopulationSelect(DesiredPopulation)     as tPopulationStats

Rem - Scramble The Unique Name Array - Only need to scramble the amount of required names, 

For Order = 1 to DesiredPopulation
    swap = rnd(UniqueName-1) + 1
    
    temp$ = CombinedNamePool(0,Order)
    CombinedNamePool(0,Order) = CombinedNamePool(0,swap)
    CombinedNamePool(0,swap) = temp$
    
    temp$ = CombinedNamePool(1,Order)
    CombinedNamePool(1,Order) = CombinedNamePool(1,swap)
    CombinedNamePool(1,swap) = temp$    
    
Next Order

For RollCall = 1 to DesiredPopulation
    Print CombinedNamePool(0,RollCall) ; " " ; CombinedNamePool(1,RollCall)
Next RollCall

Waitasec(1)

End 

Function Waitasec(X)
    Print ""
    If X = 0
        Exitfunction
    ENDIF
    Nice Wait 500
    Nice Wait Key
Endfunction

Databump = 1
Open to Read 1, "inputdata/Name Spreadsheet.csv"
While not File End (1)
    Array Insert At Bottom FirstNamePool()
    Read String 1, Temp
    Split Csv String Temp
    Print Split Count()
    FirstNamePool(Databump) = Get Split Word$(1)
    Print "First name: " ; FirstNamePool(Databump); ", " ; Array Count(FirstNamePool()) ; ", " ; Databump
    Inc Databump    
ENDWHILE
Close File 1

Rem Project: Population Maker - Pointers
Rem Created: Monday, January 31, 2011

Rem ***** Main Source File *****
`----------------------------------------------------------------------------------
`                           Load Name TXT Files
`----------------------------------------------------------------------------------

Dim First_Name(0) as String : ptr = Get Arrayptr( First_Name() )   : Unlink Array First_Name()
ptr = Load_TXT(Get Arrayptr ( First_Name() ), "inputdata/firstname.txt") : Link Array First_Name(), ptr

Dim Last_Name(0) as String : ptr = Get Arrayptr( Last_Name() )      : Unlink Array Last_Name()
ptr = Load_TXT(Get Arrayptr ( Last_Name() ), "inputdata/lastname.txt") : Link Array Last_Name(), ptr

`----------------------------------------------------------------------------------
`                           Calculate total number of unique names
`----------------------------------------------------------------------------------

Unique_Name = Array Count(First_Name()) * Array Count(Last_Name())
Undim Combined_Name()
Dim Combined_Name(1,Unique_Name) as String

Increment = 1
For X = 1 to Array Count(Last_Name())
    For Y = 1 to Array Count(First_Name())
        Combined_Name(0, Increment) = First_Name(Y)
        Combined_Name(1, Increment) = Last_Name(X)
        Inc Increment
    Next Y
Next X

For Roll_Call = 0 to Unique_Name
    Print Combined_Name(0, Roll_Call) ; " " ; Combined_Name(1, Roll_Call) ; " " ; Roll_Call
Next Roll_Call

`----------------------------------------------------------------------------------
`                           Output desired number of complete names
`----------------------------------------------------------------------------------

Input "Please enter the desired population. (Maximum of " ; Unique_Name ; ") ", Desired_Population

If Desired_Population > Unique_Name
    Desired_Population = Unique_Name
Endif

For Order = 1 to Desired_Population
    swap = rnd(Unique_Name-1) + 1
    
    temp$ = Combined_Name(0,Order)
    Combined_Name(0,Order) = Combined_Name(0,swap)
    Combined_Name(0,swap) = temp$
    
    temp$ = Combined_Name(1,Order)
    Combined_Name(1,Order) = Combined_Name(1,swap)
    Combined_Name(1,swap) = temp$    
    
Next Order

For Roll_Call = 1 to Desired_Population
    Print Combined_Name(0,Roll_Call) ; " " ; Combined_Name(1,Roll_Call)
Next Roll_Call

Open To Write 1, "output.csv"
For Write_File = 1 to Desired_Population
    Write String 1, (Combined_Name(0,Write_File) + "," + Combined_Name(1,Write_File))
Next Write_File
Close File 1

Wait Key
End


Function Load_TXT(Array_Pointer, File_Name$)
    If File Exist(File_Name$)
        Databump = 1
        Link Array Temp(), Array_Pointer
        Dim Temp(0) as String
        Open to Read 1, File_Name$
            While not File End (1)
                Array Insert At Bottom Temp()
                Read String 1, Temp(Databump)
               ` Print "Name: " ; Temp(Databump); ", " ; Array Count(Temp()) ; ", " ; Databump
                Inc Databump    
            ENDWHILE
        Close File 1
        ptr = Get Arrayptr (Temp())
        Unlink Array Temp()
    Endif
Endfunction ptr