New String using Dynamic Arrays - GameCreators Forum

Author

Message

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 30th Jan 2011 21:13

Link

Hello,

i want to create a lot of random Names and save the result in another Array. Name and Surname are Saved in separate Text-Files.

Here is my Code

GLOBAL Dim Member(450) as String
Global Dim Name() as String
Global Dim Surname() as String
MaxCount as Integer = 0
MaxCount2 as Integer = 0
DummyString as String
Randomize Timer()

IF file exist("N1.txt") = 1
    Open to Read 1, "N1.txt"
      Else
         CLS
         Center Text 320, 240, "An Error has Occured. File not    Found. Press any Key to End!"
        Wait Key
        End
Endif

while File End(1) = 0
    Read String 1, DummyString
    Inc MaxCount
ENDWHILE

Close File 1

For i = 0 to MaxCount
    Array insert at Bottom Name()
NEXT i

Open to Read 1, "N1.txt"

For i = 0 to MaxCount
    Read String 1, Name(i) 
NEXT i

Close File 1

MaxCount2 = MaxCount
MaxCount = 0

Open to Read 1, "N2.txt"

while File End(1) = 0
    Read String 1, DummyString
    Inc MaxCount
ENDWHILE
Close File 1

For i = 0 to MaxCount
    Array insert at Bottom Surname()
NEXT i

Open to Read 1, "N2.txt"

For i = 0 to MaxCount
    Read String 1, Surname(i) 
NEXT i

Close File 1

For i = 0 to 449
    a = Rnd(MaxCount)
    b = Rnd(MaxCount2)
    Member(i) = Name(a) + " " + Surname(b) '->ERROR ON THIS LINE
NEXT i

Undim Name()
Undim Surname()

Set Text Font "Tahoma"
Center Text 320, 240, "Please Choose..."

Text 50, 400, "Start Game"

If Mouseclick()=1
    if MouseX() >= 49 and MouseX() < Text Width("Start Game")+2 
        If MouseY() >= 399 and MouseY() < Text Height("Start Game") + 2
        CLS 
            For i = 0 to 449
            Print Member(i)
            NEXT i
            Wait Key
            END
        Endif
    Endif
ENDIF

+ Code Snippet

GLOBAL Dim Member(450) as String
Global Dim Name() as String
Global Dim Surname() as String
MaxCount as Integer = 0
MaxCount2 as Integer = 0
DummyString as String
Randomize Timer()

IF file exist("N1.txt") = 1
    Open to Read 1, "N1.txt"
      Else
         CLS
         Center Text 320, 240, "An Error has Occured. File not    Found. Press any Key to End!"
        Wait Key
        End
Endif

while File End(1) = 0
    Read String 1, DummyString
    Inc MaxCount
ENDWHILE

Close File 1

For i = 0 to MaxCount
    Array insert at Bottom Name()
NEXT i

Open to Read 1, "N1.txt"

For i = 0 to MaxCount
    Read String 1, Name(i) 
NEXT i

Close File 1

MaxCount2 = MaxCount
MaxCount = 0

Open to Read 1, "N2.txt"

while File End(1) = 0
    Read String 1, DummyString
    Inc MaxCount
ENDWHILE
Close File 1

For i = 0 to MaxCount
    Array insert at Bottom Surname()
NEXT i

Open to Read 1, "N2.txt"

For i = 0 to MaxCount
    Read String 1, Surname(i) 
NEXT i

Close File 1

For i = 0 to 449
    a = Rnd(MaxCount)
    b = Rnd(MaxCount2)
    Member(i) = Name(a) + " " + Surname(b) '->ERROR ON THIS LINE
NEXT i

Undim Name()
Undim Surname()

Set Text Font "Tahoma"
Center Text 320, 240, "Please Choose..."

Text 50, 400, "Start Game"

If Mouseclick()=1
    if MouseX() >= 49 and MouseX() < Text Width("Start Game")+2 
        If MouseY() >= 399 and MouseY() < Text Height("Start Game") + 2
        CLS 
            For i = 0 to 449
            Print Member(i)
            NEXT i
            Wait Key
            END
        Endif
    Endif
ENDIF

But i get the Runtime Error #118, "Array does not exist, or array subscribt out of Bounds". For the line marked above.

I hope, someone can help.

Thanks

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 30th Jan 2011 21:56

Link

Say your files have 10 items in, so maxcount is set to 10. Then you read the data into your arrays, inserting 10 items, from 0 to 9. Then you are choosing random numbers from 0 to 10 ... see the problem yet?

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 31st Jan 2011 08:41

Link

Hello IanM,

i understand what you want to tell me (or better, i think that i do that)

You want to say, that i exceed the area of the array, is that correct?

But i am not clever enough to find where i did that.

Will the Code work if i subtract 1 from MaxCount and MaxCount2 (I am on work so i cant test it yet)?

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 31st Jan 2011 14:01

Link

Basically, yes. Just change your random number selections to this:

+ Code Snippet

    a = Rnd(MaxCount-1)
    b = Rnd(MaxCount2-1)

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 31st Jan 2011 14:22

Link

Thanks for your fast help.

I will try it out at Home tonight.

Hope that this will do it.

Till then.

Back to top

Profile PM

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 31st Jan 2011 18:58

Link

So. I changed MaxCount, but it is still the same Problem.

I think i should try it with a smaller Array, and look what will happen. So i write some new lines and look what will happen. I will post the result as soon as possible.

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 31st Jan 2011 19:23

Link

Actually, there were also problems there with your file reading too.

I've rewritten your loading code and added comments:

GLOBAL Dim Member(449) as String    ` <-- value changed to match the number generated
Global Dim Name() as String
Global Dim Surname() as String
MaxCount as Integer = 0
MaxCount2 as Integer = 0
DummyString as String
Randomize Timer()

` Both files need to exist for this to work correctly
IF file exist("N1.txt") = 0 or file exist("N2.txt") = 0
    CLS
    Center Text 320, 240, "An Error has Occured. File not    Found. Press any Key to End!"
    Wait Key
    End
Endif

Open to Read 1, "N1.txt"

while File End(1) = 0
    Read String 1, DummyString

` Depending on the how you text editor deals with the final line ending,
    ` you can sometimes have data even though you've hit the end of the file.
    ` So, must test for both here, knowing EOF will get caught by the main
    ` loop anyway
    if DummyString = "" and File End(1) = 1 then exit
    
    ` Insert into the array. The newly added item becomes the 'current' item
    ` of the array, and can be set directly by not providing a subscript value.
    Array insert at Bottom Name()
    Name() = DummyString
ENDWHILE

Close File 1

Open to Read 1, "N2.txt"

while File End(1) = 0
    Read String 1, DummyString

if DummyString = "" and File End(1) = 1 then exit
    
    Array insert at Bottom Surname()
    Surname() = DummyString
ENDWHILE

Close File 1

` Get the array counts directly.
` If 10 items have been loaded into an array using the above techniques
` then the count will be 9.
MaxCount = array count( Name() )
MaxCount2 = array count( Surname() )

` Generate 450 combinations
For i = 0 to 449
    a = Rnd(MaxCount)
    b = Rnd(MaxCount2)
    Member(i) = Name(a) + " " + Surname(b)
NEXT i

Undim Name()
Undim Surname()

` Display all names, stopping every 20th using a very simple paging mechanism
for i = 0 to 449
    print i; " - "; Member(i)
    if i mod 20 = 0 and i > 0
        print "Press a key"
        wait key
        cls
    endif
next
print "Done"
wait key

+ Code Snippet

GLOBAL Dim Member(449) as String    ` <-- value changed to match the number generated
Global Dim Name() as String
Global Dim Surname() as String
MaxCount as Integer = 0
MaxCount2 as Integer = 0
DummyString as String
Randomize Timer()

` Both files need to exist for this to work correctly
IF file exist("N1.txt") = 0 or file exist("N2.txt") = 0
    CLS
    Center Text 320, 240, "An Error has Occured. File not    Found. Press any Key to End!"
    Wait Key
    End
Endif

Open to Read 1, "N1.txt"

while File End(1) = 0
    Read String 1, DummyString

    ` Depending on the how you text editor deals with the final line ending,
    ` you can sometimes have data even though you've hit the end of the file.
    ` So, must test for both here, knowing EOF will get caught by the main
    ` loop anyway
    if DummyString = "" and File End(1) = 1 then exit
    
    ` Insert into the array. The newly added item becomes the 'current' item
    ` of the array, and can be set directly by not providing a subscript value.
    Array insert at Bottom Name()
    Name() = DummyString
ENDWHILE

Close File 1

Open to Read 1, "N2.txt"

while File End(1) = 0
    Read String 1, DummyString

    if DummyString = "" and File End(1) = 1 then exit
    
    Array insert at Bottom Surname()
    Surname() = DummyString
ENDWHILE

Close File 1

` Get the array counts directly.
` If 10 items have been loaded into an array using the above techniques
` then the count will be 9.
MaxCount = array count( Name() )
MaxCount2 = array count( Surname() )

` Generate 450 combinations
For i = 0 to 449
    a = Rnd(MaxCount)
    b = Rnd(MaxCount2)
    Member(i) = Name(a) + " " + Surname(b)
NEXT i

Undim Name()
Undim Surname()

` Display all names, stopping every 20th using a very simple paging mechanism
for i = 0 to 449
    print i; " - "; Member(i)
    if i mod 20 = 0 and i > 0
        print "Press a key"
        wait key
        cls
    endif
next
print "Done"
wait key

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

enderleit

19

Years of Service

User Offline

Joined: 30th May 2007

Location: Denmark

Posted: 31st Jan 2011 19:33 Edited at: 31st Jan 2011 19:35

Link

Correct me if I'm wrong, but I think array count() would return the value 10 if there are 10 items in the array.
So you would still need to use RND(MaxCount - 1) because items start at 0, so the range would be 0-9 = 10 items.

+ Code Snippet

` Get the array counts directly.
` If 10 items have been loaded into an array using the above techniques
` then the count will be 10.
MaxCount = array count( Name() )        `MaxCount = (10)
MaxCount2 = array count( Surname() )

` Generate 450 combinations
For i = 0 to 449
    a = Rnd(MaxCount - 1)        ` Get random between 0-9 (10 items)
    b = Rnd(MaxCount2 - 1)
    Member(i) = Name(a) + " " + Surname(b)
NEXT i

- Martin Enderleit
http://sites.google.com/site/menderleit

Back to top

Profile PM Email Website

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 31st Jan 2011 20:07

Link

Ok, consider yourself corrected

Although the function is called ARRAY COUNT, it doesn't actually tell you the number of items in the array at all - it tells you the highest valid array index.

So when you DIM A(10), you have 11 items from 0 to 10, and ARRAY COUNT() returns 10.

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

kamac

15

Years of Service

User Offline

Joined: 30th Nov 2010

Location: Poland

Posted: 31st Jan 2011 20:22

Link

Maybe this is unneccesary, but change this
Center Text 320, 240, "An Error has Occured. File not Found. Press any Key to End!"

into this

Exit Prompt "An Error has Occured. File not Found. Press any Key to End!","ERROR"
end

To make it look more professional

In progress of making Archery Simulator... Or maybe not simulator x]?

@There'll be a sig

@

Back to top

Profile PM Email

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 31st Jan 2011 20:27 Edited at: 31st Jan 2011 20:36

Link

Thanks to all of your answers.

In the Meantime i changed the Code. It works fine now.

GLOBAL Dim Name() as String
GLOBAL Dim Surname() as String
GLOBAL DIM Member(20) as String
GLOBAL NameCount as Integer = 0
GLOBAL SurnameCount as Integer = 0
GLOBAL DummyString as String
Randomize Timer()

Open to Read 1, "Name.txt"

While File End(1) = 0
    Read String 1, DummyString
    Inc NameCount
ENDWHILE

Close File 1

For i = 0 to NameCount-1
    Array Insert at Bottom Name()
NEXT i

Open to Read 1, "Name.txt"
For i = 0 to NameCount-1
    Read string 1, Name(i)
NEXT i

Close File 1

Open to Read 1, "Surname.txt"

While File End(1) = 0
    Read String 1, DummyString
    Inc SurnameCount
ENDWHILE

Close File 1

For i = 0 to SurnameCount-1
    Array Insert at Bottom Surname()
NEXT i

Open to Read 1, "Surname.txt"
For i = 0 to SurnameCount-1
    Read string 1, Surname(i)
NEXT i

Close File 1

For i = 0 to 19
RndNumber = Rnd(NameCount-1)
RndNumber2 = Rnd(SurnameCount-1)
if RndNumber < 0 Then RndNumber = 0
If RndNumber2 < 0 Then RndNumber2 = 0
Member(i) = Name(RndNumber) + " " + Surname(RndNumber2)
Next i

For i = 0 to 19
    Print Member(i)
NEXT i

Wait Key
Undim Member()
Undim Name()
Undim Surname()
End

+ Code Snippet

GLOBAL Dim Name() as String
GLOBAL Dim Surname() as String
GLOBAL DIM Member(20) as String
GLOBAL NameCount as Integer = 0
GLOBAL SurnameCount as Integer = 0
GLOBAL DummyString as String
Randomize Timer()

Open to Read 1, "Name.txt"

While File End(1) = 0
    Read String 1, DummyString
    Inc NameCount
ENDWHILE

Close File 1

For i = 0 to NameCount-1
    Array Insert at Bottom Name()
NEXT i

Open to Read 1, "Name.txt"
For i = 0 to NameCount-1
    Read string 1, Name(i)
NEXT i

Close File 1

Open to Read 1, "Surname.txt"

While File End(1) = 0
    Read String 1, DummyString
    Inc SurnameCount
ENDWHILE

Close File 1

For i = 0 to SurnameCount-1
    Array Insert at Bottom Surname()
NEXT i

Open to Read 1, "Surname.txt"
For i = 0 to SurnameCount-1
    Read string 1, Surname(i)
NEXT i

Close File 1

For i = 0 to 19
RndNumber = Rnd(NameCount-1)
RndNumber2 = Rnd(SurnameCount-1)
if RndNumber < 0 Then RndNumber = 0
If RndNumber2 < 0 Then RndNumber2 = 0
Member(i) = Name(RndNumber) + " " + Surname(RndNumber2)
Next i

For i = 0 to 19
    Print Member(i)
NEXT i


Wait Key
Undim Member()
Undim Name()
Undim Surname()
End

Thanks again.

P.S.
I did not see, that IanM has already corrected the former Code. So special thanks to IanM for the effort he took to correct my Code. Thanks to all of You Guys.

Back to top

Profile PM

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 1st Feb 2011 19:26

Link

So, i have a Question again, concerning the Dynamic arrays.

I put the Dynamic array in a Function

+ Code Snippet

Function InitNewGame()

Counter as Integer = 0


if file exist("N1.txt") = 0 or File Exist("N2.txt") = 0 or File Exist("T1.txt") = 0
    CLS
    Center Text 320, 240, "File(s) are missing. Please press any key to Exit!"
    Wait key
    End
ENDIF

Open to read 1, "N1.txt"

While File End(1) = 0
    read String 1, DummyString
    if DummyString = "" and File End(1) = 1 Then Exit
    Array insert at Bottom Name()
    Name() = DummyString
ENDWHILE

etc.

The Function is called out from the Function MouseControl. A function controlled by the main Loop

+ Code Snippet

Function MouseControl()
If MouseClick() = 1
    If MouseX() > 48 and MouseX() < 48+Text Width("Start Game")+10
        if MouseY() > Screen Height()-50-(Text Height("Start Game") / 2) and MouseY() < Screen Height()-50 + (Text Height("Start Game")*2)
            [b]InitNewGame()[/b] 
        Endif
     Endif
Endif
ENDFUNCTION

If i do so, then i get the error No. 118 again. If i Call the InitNewGame()-Function before the Main-Loop and not with the MouseControl()-Function then i get the results i was looking for. The Array ist Global like before.

Long Speech short Question:

Why is it not possible (for me) to create the Dynamic Array out from the MouseControl-Function

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 1st Feb 2011 21:43

Link

Short answer: don't know - post complete runnable code

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 2nd Feb 2011 09:48 Edited at: 2nd Feb 2011 19:53

Link

TYPE Team
    Name AS String
    placing AS Word
    TeamForce AS Integer
    TeamMoral AS Integer
    Assets AS Integer
    rem Stadium as Stadiumtyp
    M_Sponsor as String
    extent as Integer    
EndType

TYPE Player
    Name AS String
    Dribbling AS Integer
    Force AS Integer
    Stamina AS Integer
    Technik AS Integer
    Moral AS Integer
    earning AS Integer
    Contract AS Word
    Transfer AS Integer
    Team as String
EndType

Set Display Mode 640, 480, 32
GLOBAL DIM TeamArray() as Team
GLOBAL Dim PlayerArray(449) as Player
GLOBAL Dim Name() as String
GLOBAL Dim Surname() as String
MaxCount as Integer = 0
MaxCount2 as Integer = 0
GLOBAL DummyString as String

Randomize Timer()

Set Text Font "Tahoma"
Set Text Size 26

rem InitNewGame() `<- If the Function is called here, the array is filled with Data

Do
    CLS
    Center Text Screen Width()/2, Screen Height()/2, "Choose Option"
    Set Text Size 16
    Text 50, Screen Height()-50, "Start Game"
    Set Text Size 26
    MouseControl()
    rem ListNames()
Loop

Function MouseControl()
If MouseClick() = 1
    If MouseX() > 48 and MouseX() < 48+Text Width("Start Game")+10
        if MouseY() > Screen Height()-50-(Text Height("Start Game") / 2) and MouseY() < Screen Height()-50 + (Text Height("Start Game")*2)
            InitNewGame() `<- if the function is called here, than DBPro is punishing me with error #118 (No array or out of Bounds)
        Endif
     Endif
Endif
ENDFUNCTION

Function InitNewGame()

Counter as Integer = 0

if file exist("N1.txt") = 0 or File Exist("N2.txt") = 0 or File Exist("T1.txt") = 0
    CLS
    Center Text 320, 240, "File(s) are missing. Please press any key to Exit!"
    Wait key
    End
ENDIF

Open to read 1, "N1.txt"

While File End(1) = 0
    read String 1, DummyString
    if DummyString = "" and File End(1) = 1 Then Exit
    Array insert at Bottom Name()
    Name() = DummyString `<- MouseControl-Error on this line (when Array gets Data)
ENDWHILE

Close File 1

Open to read 1, "N2.txt"

While File End(1) = 0
    read String 1, DummyString
    if DummyString = "" and File End(1) = 1 Then Exit
    Array insert at Bottom Surname()
    Surname() = DummyString
ENDWHILE

close file 1

Open to read 1, "T1.txt"

While File End(1) = 0
    read String 1, DummyString
    if DummyString = "" and File End(1) = 1 Then Exit
    Array insert at Bottom TeamArray()
    TeamArray().Name = DummyString
ENDWHILE

close file 1

MaxCount = array Count(Name())
MaxCount2 = array Count(Surname())

for i = 0 to 449
    a = RND(MaxCount)
    b = RND(MaxCount2)
    PlayerArray(i).Name = Name(a) + " " + Surname(b)
    PlayerArray(i).Dribbling = RND(10)+7
    PlayerArray(i).Force = RND(10)+7 
    PlayerArray(i).Stamina = RND(10)+7 
    PlayerArray(i).Technik = RND(10)+7 
    PlayerArray(i).Moral = RND(10)+7 
    PlayerArray(i).earning = RND(3000)+2000 
    PlayerArray(i).Contract = RND(180)+670 
    PlayerArray(i).Transfer = RND(10000)+20000
    PlayerArray(i).Team = ""  
NEXT i

For index = 0 to array Count(TeamArray())
    C = RND(8)+12
    TeamArray(index).extent = C
NEXT index

For i = 0 to array count(TeamArray())
    for z = 1 to TeamArray(i).extent
        a = a + 1
        PlayerArray(a-1).Team = TeamArray(i).Name
     Next z
NEXT i

Undim Name()
Undim Surname()

Endfunction

+ Code Snippet


TYPE Team
    Name AS String
    placing AS Word
    TeamForce AS Integer
    TeamMoral AS Integer
    Assets AS Integer
    rem Stadium as Stadiumtyp
    M_Sponsor as String
    extent as Integer    
EndType

TYPE Player
    Name AS String
    Dribbling AS Integer
    Force AS Integer
    Stamina AS Integer
    Technik AS Integer
    Moral AS Integer
    earning AS Integer
    Contract AS Word
    Transfer AS Integer
    Team as String
EndType

Set Display Mode 640, 480, 32
GLOBAL DIM TeamArray() as Team
GLOBAL Dim PlayerArray(449) as Player
GLOBAL Dim Name() as String
GLOBAL Dim Surname() as String
MaxCount as Integer = 0
MaxCount2 as Integer = 0
GLOBAL DummyString as String

Randomize Timer()

Set Text Font "Tahoma"
Set Text Size 26

rem InitNewGame() `<- If the Function is called here, the array is filled with Data

Do
    CLS
    Center Text Screen Width()/2, Screen Height()/2, "Choose Option"
    Set Text Size 16
    Text 50, Screen Height()-50, "Start Game"
    Set Text Size 26
    MouseControl()
    rem ListNames()
Loop


Function MouseControl()
If MouseClick() = 1
    If MouseX() > 48 and MouseX() < 48+Text Width("Start Game")+10
        if MouseY() > Screen Height()-50-(Text Height("Start Game") / 2) and MouseY() < Screen Height()-50 + (Text Height("Start Game")*2)
            InitNewGame() `<- if the function is called here, than DBPro is punishing me with error #118 (No array or out of Bounds)
        Endif
     Endif
Endif
ENDFUNCTION


Function InitNewGame()

Counter as Integer = 0

if file exist("N1.txt") = 0 or File Exist("N2.txt") = 0 or File Exist("T1.txt") = 0
    CLS
    Center Text 320, 240, "File(s) are missing. Please press any key to Exit!"
    Wait key
    End
ENDIF

Open to read 1, "N1.txt"

While File End(1) = 0
    read String 1, DummyString
    if DummyString = "" and File End(1) = 1 Then Exit
    Array insert at Bottom Name()
    Name() = DummyString `<- MouseControl-Error on this line (when Array gets Data)
ENDWHILE

Close File 1

Open to read 1, "N2.txt"

While File End(1) = 0
    read String 1, DummyString
    if DummyString = "" and File End(1) = 1 Then Exit
    Array insert at Bottom Surname()
    Surname() = DummyString
ENDWHILE

close file 1


Open to read 1, "T1.txt"

While File End(1) = 0
    read String 1, DummyString
    if DummyString = "" and File End(1) = 1 Then Exit
    Array insert at Bottom TeamArray()
    TeamArray().Name = DummyString
ENDWHILE

close file 1

MaxCount = array Count(Name())
MaxCount2 = array Count(Surname())

for i = 0 to 449
    a = RND(MaxCount)
    b = RND(MaxCount2)
    PlayerArray(i).Name = Name(a) + " " + Surname(b)
    PlayerArray(i).Dribbling = RND(10)+7
    PlayerArray(i).Force = RND(10)+7 
    PlayerArray(i).Stamina = RND(10)+7 
    PlayerArray(i).Technik = RND(10)+7 
    PlayerArray(i).Moral = RND(10)+7 
    PlayerArray(i).earning = RND(3000)+2000 
    PlayerArray(i).Contract = RND(180)+670 
    PlayerArray(i).Transfer = RND(10000)+20000
    PlayerArray(i).Team = ""  
NEXT i

For index = 0 to array Count(TeamArray())
    C = RND(8)+12
    TeamArray(index).extent = C
NEXT index

For i = 0 to array count(TeamArray())
    for z = 1 to TeamArray(i).extent
        a = a + 1
        PlayerArray(a-1).Team = TeamArray(i).Name
     Next z
NEXT i

Undim Name()
Undim Surname()

Endfunction

The reason i did not post the whole code is, that the Code was written in German and i have to rewrite the Code in a understandable language. I hope i did not overlook something.

Back to top

Profile PM

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 2nd Feb 2011 21:29

Link

Help Anyone?

Back to top

Profile PM

IanM

Retired Moderator

23

Years of Service

User Offline

Joined: 11th Sep 2002

Location: In my moon base

Posted: 2nd Feb 2011 22:26

Link

I hadn't forgotten you

What happening is that your code is too fast! Well, not really.

What is happening, is that because you haven't protected yourself from it, your InitNewGame function is being called multiple times.

First time through, it runs just fine and does what you tell it. At the end of the function, you then destroy the Name and Surname arrays.

The second time though, you attempt to load into the Name array, but you've already destroyed that array... crash!

Just add a flag to your code to stop your function being called multiple times, or use EMPTY ARRAY instead of UNDIM.

Also, you need to do to TeamArray whatever you do to Name and Surname too (either UNDIM or EMPTY ARRAY).

Get the latest Matrix1Utility plug-ins (23-DEC-2010)

Back to top

Profile PM Email Website

Burning Feet Man

18

Years of Service

User Offline

Joined: 4th Jan 2008

Location: Sydney, Australia

Posted: 2nd Feb 2011 22:39

Link

Heya DBPro User.

Recently, I actually coded something very similar to what you're trying to do. I posted my thoughts and workings up in the DBPro New Comers forum,

http://forum.thegamecreators.com/?m=forum_view&t=178859&b=7

Check it out, as I use some pretty interesting techniques in the final code, such as array pointers.

Help build an online DarkBASIC Professional help archive.

http://dbprohelp.wikia.com/wiki/DarkBASIC_Professional_Help_Wiki

Back to top

Profile PM Website

DBProUser

15

Years of Service

User Offline

Joined: 28th Oct 2010

Location:

Posted: 2nd Feb 2011 23:23

Link

Thank you guys. why i did not perceived that

@Burning Feet Man
I will do so. Im looking forward to it

Back to top

Profile PM

Sorry your browser is not supported!

DarkBASIC Professional Discussion / New String using Dynamic Arrays