Random Card Picker [noob] - GameCreators Forum

Author

Message

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 24th Jul 2011 14:04 Edited at: 26th Jul 2011 11:48

Link

Hey, im just a bit of a noob when it comes to DBP so this is probably really simple

Im trying to make a card picker to test a card game im developing, basically you get a certain number of resources which you type in, and the it displays that number of cards, but each card is a random pick of three.

This means that if you have ten cards, it could have 3 fuel, 3 ore and 4 lasers or whatever, but for each card its a randomly generated one.

This is my code and i have it working without the For and Next and the stuff in between but with them its not working.

+ Code Snippet

REM Project: Space Nations-resources

   Print "The three resources are: Laser, Fuel and Ore"
   Print ""

Repeat


 Resource = Input "Enter number of Cards: ", ResourceNum
   Print "You have ";ResourceNum;" resource cards. They are:"

 FOR rsrc = 1 TO Resource Step 1
     Rand = RND(3)
          If Rand = 1
               Print "Laser"
            Else If Rand = 2
               Print "Fuel"
            Else If Rand = 3
               Print "Ore"
          EndIf
 NEXT rsrc

   Print ""
   Wait (1000)

Until UPKEY()=1

Any help appreciated

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 24th Jul 2011 14:18

Link

Your code works fine if you change

+ Code Snippet

Resource = Input "Enter number of Cards: ", ResourceNum

to

+ Code Snippet

Input "Enter number of Cards: ", ResourceNum

and

+ Code Snippet

FOR rsrc = 1 TO Resource Step 1

to

+ Code Snippet

FOR rsrc = 1 TO ResourceNum

However I suggest to use one of the methods below, they look a bit cleaner

+ Code Snippet

REM Project: Space Nations-resources

   Print "The three resources are: Laser, Fuel and Ore"
   Print ""

remstart
//only use this if you are using method 2
    dim resources(2) as string
    resources(0) = "Laser"
    resources(1) = "Fuel"
    resources(2) = "Ore"
remend

Repeat


Input "Enter number of Cards: ", ResourceNum
Print "You have ";ResourceNum;" resource cards. They are:"

FOR rsrc = 1 TO ResourceNum
Rem Method 1
    rand = rnd(2)
    select rand
        case 0
            print "Laser"
        endcase
        case 1
            print "Fuel"
        endcase
        case 2
            print "Ore"
        endcase
    endselect
Rem Method 2
     //print resources( rnd(2) )
NEXT rsrc

Print ""
Wait (1000)

Until UPKEY()=1

Back to top

Profile PM

Hodgey

16

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 24th Jul 2011 14:19 Edited at: 24th Jul 2011 14:21

Link

Max P beat me to it.

Back to top

Profile PM Email

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 24th Jul 2011 14:24

Link

now i get a "Command out of place at line 25" error

on

+ Code Snippet

NEXT rsrc

Back to top

Profile PM Email

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 24th Jul 2011 14:27

Link

though thats using method 1 your new method works beautifully so thanks

Back to top

Profile PM Email

Hodgey

16

Years of Service

User Offline

Joined: 10th Oct 2009

Location: Australia

Posted: 24th Jul 2011 14:28 Edited at: 24th Jul 2011 14:28

Link

Quote: "now i get a "Command out of place at line 25" error"

I got that with your original code. Change the if statements either to individual if statements and not else ifs or use the select statement like Max P.

Edit
It appears everyone posts 2 seconds before I do.

Back to top

Profile PM Email

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 24th Jul 2011 14:38

Link

any ideas if it could instead of listing all the cards, it would say:

you have
3 x fuel
4 x ore
2 x laser

or is that not possible with this kind of code?

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 24th Jul 2011 16:41 Edited at: 24th Jul 2011 16:42

Link

You can replace

+ Code Snippet

rand = rnd(2)
    select rand
        case 0
            print "Laser"
        endcase
        case 1
            print "Fuel"
        endcase
        case 2
            print "Ore"
        endcase
    endselect

With something like:

+ Code Snippet

rand = rnd(2)
    LaserCount = 0
    FuelCount  = 0
    OreCount   = 0
    select rand
        case 0
            Inc LaserCount
        endcase
        case 1
            Inc FuelCount
        endcase
        case 2
            Inc OreCount
        endcase
    endselect
    Print LaserCount,"x laser"
    Print FuelCount,"x fuel"
    Print OreCount,"x ore"

edit
Or even better:

+ Code Snippet

rand = rnd(2)
    LaserCount = 0
    FuelCount  = 0
    OreCount   = 0
    select rand
        case 0
            Inc LaserCount
        endcase
        case 1
            Inc FuelCount
        endcase
        case 2
            Inc OreCount
        endcase
    endselect
    If LaserCount>0 then Print LaserCount,"x laser"
    If FuelCount>0 then Print FuelCount,"x fuel"
    If OreCount>0 then Print OreCount,"x ore"

Back to top

Profile PM

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 24th Jul 2011 16:44

Link

i cant find what your saying to replace

this is my current code

+ Code Snippet

Rem set resources
    dim resources(2) as string
    resources(0) = "Laser"
    resources(1) = "Fuel"
    resources(2) = "Ore"

Rem start the generator
Repeat

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem generate a random number and print the corresponding resource
   print resources( rnd(2) )
Rem write once more
NEXT rsrc

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Until ResourceNum = 50

CLS
Print "game over, you win, you have 50 cards"
Print "hit any key to close"
Wait key

and

+ Code Snippet

rand = rnd(2)
    select rand
        case 0
            print "Laser"
        endcase
        case 1
            print "Fuel"
        endcase
        case 2
            print "Ore"
        endcase
    endselect

isnt in it

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 24th Jul 2011 16:45 Edited at: 24th Jul 2011 16:48

Link

Ow, your using method 2

You can create a user defined type for that, I'll give an example in a few min

edit

Use this

:

type resource
    name  as string
    count as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Laser" : resources(0).count = 0
    resources(1).name = "Fuel"  : resources(1).count = 0
    resources(2).name = "Ore"   : resources(2).count = 0

Rem start the generator
Repeat

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem increase the count of the random resource
   inc resources( rnd(2) ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Until ResourceNum = 50

CLS
Print "game over, you win, you have 50 cards"
Print "hit any key to close"
Wait key

+ Code Snippet

type resource
    name  as string
    count as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Laser" : resources(0).count = 0
    resources(1).name = "Fuel"  : resources(1).count = 0
    resources(2).name = "Ore"   : resources(2).count = 0

Rem start the generator
Repeat

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem increase the count of the random resource
   inc resources( rnd(2) ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Until ResourceNum = 50

CLS
Print "game over, you win, you have 50 cards"
Print "hit any key to close"
Wait key

Back to top

Profile PM

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 24th Jul 2011 16:47

Link

thanks so much, i was really stumped but this is teaching me allot

Back to top

Profile PM Email

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 24th Jul 2011 17:10

Link

works perfectly, and i learnt a bit so THANK YOU SO MUCH

Back to top

Profile PM Email

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 26th Jul 2011 11:48 Edited at: 26th Jul 2011 11:52

Link

hey one more problem, we need certain cards more common then others, infact we need there to be 4 ore and 2 fuel for each laser. I thought by increasing the resources in the array like so:

+ Code Snippet

dim resources(6) as resource
    resources(0).name = "Ore" : resources(0).count = 0
    resources(1).name = "Fuel"  : resources(1).count = 0
    resources(2).name = "Ore"   : resources(2).count = 0
    resources(3).name = "Fuel" : resources(3).count = 0
    resources(4).name = "Laser"  : resources(4).count = 0
    resources(5).name = "Ore"   : resources(5).count = 0
    resources(6).name = "Ore" : resources(6).count = 0

itd do it, and it kind does but it prints it like so:

how would i make it so that it prints it all on just 3 lines but includes the more common code?

heres the full code with the modded array:

type resource
    name  as string
    count as integer
endtype

Rem set resources
    dim resources(6) as resource
    resources(0).name = "Ore" : resources(0).count = 0
    resources(1).name = "Fuel"  : resources(1).count = 0
    resources(2).name = "Ore"   : resources(2).count = 0
    resources(3).name = "Fuel" : resources(3).count = 0
    resources(4).name = "Laser"  : resources(4).count = 0
    resources(5).name = "Ore"   : resources(5).count = 0
    resources(6).name = "Ore" : resources(6).count = 0

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem increase the count of the random resource
   inc resources( rnd(6) ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop

+ Code Snippet

type resource
    name  as string
    count as integer
endtype

Rem set resources
    dim resources(6) as resource
    resources(0).name = "Ore" : resources(0).count = 0
    resources(1).name = "Fuel"  : resources(1).count = 0
    resources(2).name = "Ore"   : resources(2).count = 0
    resources(3).name = "Fuel" : resources(3).count = 0
    resources(4).name = "Laser"  : resources(4).count = 0
    resources(5).name = "Ore"   : resources(5).count = 0
    resources(6).name = "Ore" : resources(6).count = 0

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem increase the count of the random resource
   inc resources( rnd(6) ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop

and heres how it was when unmodded:

type resource
    name  as string
    count as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Laser" : resources(0).count = 0
    resources(1).name = "Fuel"  : resources(1).count = 0
    resources(2).name = "Ore"   : resources(2).count = 0

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem increase the count of the random resource
   inc resources( rnd(2) ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop

+ Code Snippet

type resource
    name  as string
    count as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Laser" : resources(0).count = 0
    resources(1).name = "Fuel"  : resources(1).count = 0
    resources(2).name = "Ore"   : resources(2).count = 0

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem increase the count of the random resource
   inc resources( rnd(2) ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop

any help appreciated

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 26th Jul 2011 13:09

Link

I added a new var in the type called percent
For now, giving this var a value isn't quite straitforward, I'll try making it easier

type resource
    name    as string
    count   as integer
    percent as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Ore"    : resources(0).count = 0 : resources(0).percent = 100 ` 100-43 = 57% of the cards will be ore
    resources(1).name = "Fuel"   : resources(1).count = 0 : resources(1).percent = 43  ` 43-14 = 29% of the cards will be fuel
    resources(2).name = "Laser"  : resources(2).count = 0 : resources(2).percent = 14  ` 14% of the cards will be a laser

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem pick a random number between 0 and 100
   rand = rnd( 100 )
   
   Rem loop through the array from low to high.
   Rem If the random number is smaller then the percent value of the resource,
   Rem this resource will be picked.
   for pick=array count(resources()) to 0 step -1
        if rand <= resources(pick).percent 
            rand=pick 
            exit
        endif
   next pick
   
   inc resources( rand ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop

+ Code Snippet

type resource
    name    as string
    count   as integer
    percent as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Ore"    : resources(0).count = 0 : resources(0).percent = 100 ` 100-43 = 57% of the cards will be ore
    resources(1).name = "Fuel"   : resources(1).count = 0 : resources(1).percent = 43  ` 43-14 = 29% of the cards will be fuel
    resources(2).name = "Laser"  : resources(2).count = 0 : resources(2).percent = 14  ` 14% of the cards will be a laser

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem pick a random number between 0 and 100
   rand = rnd( 100 )
   
   Rem loop through the array from low to high.
   Rem If the random number is smaller then the percent value of the resource,
   Rem this resource will be picked.
   for pick=array count(resources()) to 0 step -1
        if rand <= resources(pick).percent 
            rand=pick 
            exit
        endif
   next pick
   
   inc resources( rand ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop

Back to top

Profile PM

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 26th Jul 2011 13:19

Link

that is absolute genius, i never would have guessed to do something like that.

Back to top

Profile PM Email

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 26th Jul 2011 13:23

Link

worked out i think how the percentages work, now its this:

+ Code Snippet

resources(0).name = "Ore"    : resources(0).count = 0 : resources(0).percent = 100 ` 100-50 = 50% of the cards will be ore
    resources(1).name = "Fuel"   : resources(1).count = 0 : resources(1).percent = 50  ` 50-15 = 35% of the cards will be fuel
    resources(2).name = "Laser"  : resources(2).count = 0 : resources(2).percent = 15  ` 15% of the cards will be a laser

pretty sure thats right

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 26th Jul 2011 13:31

Link

Added a sort function so the percentages are easier to work with

Now you can just say: Fuel = 29%, Ore = 57%, laser = 14%

type resource
    name    as string
    count   as integer
    percent as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Fuel"   : resources(0).count = 0 : resources(0).percent = 29  ` 29% of the cards will be fuel
    resources(1).name = "Ore"    : resources(1).count = 0 : resources(1).percent = 57  ` 57% of the cards will be ore
    resources(2).name = "Laser"  : resources(2).count = 0 : resources(2).percent = 14  ` 14% of the cards will be a laser

Rem sort the resources
    sortResources()

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem pick a random number between 0 and 100
   rand = rnd( 100 )
   
   Rem loop through the array from low to high.
   Rem If the random number is smaller then the percent value of the resource,
   Rem this resource will be picked.
   for pick=array count(resources()) to 0 step -1
        if rand <= resources(pick).percent 
            rand=pick 
            exit
        endif
   next pick
   
   inc resources( rand ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop

Function sortResources()
    
    Rem create a temporary array for sorting
    local dim tempArray(-1) as resource
    
    highestNumber  = -1
    indexOfHighest = -1
    
    Rem keep looping until the entire array is sorted
    while array count( resources() )>-1
    
        Rem loop through the resources array to get the higest 'percent' value
        for i=0 to array count( resources() )
            if resources(i).percent > highestNumber
                indexOfHighest = i ` Store the index of the highest value
                highestNumber  = resources(i).percent
            endif
        next i
    
        Rem insert a new item in the temporary array and
        Rem copy the data from the item in the resource array with the highest value we picked above
        array insert at bottom tempArray()
        tempArray() = resources(indexOfHighest)
    
        Rem delete the item from the resources array so we won't pick the same item twice
        array delete element resources(), indexOfHighest
    
        Rem reset the highest number so we can pick a new one
        highestNumber  = -1
        indexOfHighest = -1
    
    endwhile
    
    Rem redim the resources array so we are sure it is empty and of the right size
    undim resources()
    dim   resources( array count(tempArray()) )
    
    Rem copy the temporary array to the resource array, the array is now sorted
    for i=0 to array count( tempArray() )
        resources(i) = tempArray(i)
    next i
    
    Rem modify the percent values so we can use them for the calculation
    Rem increasing the percent value with the percent value of the item one place higher in the array
    Rem   ore:   57% -> 57+43 -> 100 
    Rem   fuel:  29% -> 29+14 -> 43  
    Rem   laser: 14% -> 14+0  -> 14 
    for i=array count( tempArray() )-1 to 0 step -1
        resources(i).percent = tempArray(i).percent + resources(i+1).percent
    next i
    
endFunction

+ Code Snippet

type resource
    name    as string
    count   as integer
    percent as integer
endtype

Rem set resources
    dim resources(2) as resource
    resources(0).name = "Fuel"   : resources(0).count = 0 : resources(0).percent = 29  ` 29% of the cards will be fuel
    resources(1).name = "Ore"    : resources(1).count = 0 : resources(1).percent = 57  ` 57% of the cards will be ore
    resources(2).name = "Laser"  : resources(2).count = 0 : resources(2).percent = 14  ` 14% of the cards will be a laser

Rem sort the resources
    sortResources()

Rem start the generator
Do

Rem say what the resources are
Print "The three resources are: Laser, Fuel and Ore"

Rem ask player to input how many resource cards they are getting
Input "Enter number of Cards: ", ResourceNum
   Print "--"
Rem print they amount of cards
Print "You have ";ResourceNum;" resource cards. They are:"

Rem Reset the count of each resource
FOR i=0 to array count( resources() )
    resources(i).count = 0
NEXT i

Rem write the resource cards ResourceNum amount of times
FOR rsrc = 1 TO ResourceNum
   Rem pick a random number between 0 and 100
   rand = rnd( 100 )
   
   Rem loop through the array from low to high.
   Rem If the random number is smaller then the percent value of the resource,
   Rem this resource will be picked.
   for pick=array count(resources()) to 0 step -1
        if rand <= resources(pick).percent 
            rand=pick 
            exit
        endif
   next pick
   
   inc resources( rand ).count
Rem write once more
NEXT rsrc

Rem print the rescources to the screen
FOR i=0 to array count( resources() )
    if resources(i).count>0 then print resources(i).count,"x ",resources(i).name
NEXT i

Rem wait 1 second then print a divider
Wait (1000)
   Print "----------------------------"

Loop


Function sortResources()
    
    Rem create a temporary array for sorting
    local dim tempArray(-1) as resource
    
    highestNumber  = -1
    indexOfHighest = -1
    
    Rem keep looping until the entire array is sorted
    while array count( resources() )>-1
    
        Rem loop through the resources array to get the higest 'percent' value
        for i=0 to array count( resources() )
            if resources(i).percent > highestNumber
                indexOfHighest = i ` Store the index of the highest value
                highestNumber  = resources(i).percent
            endif
        next i
    
        Rem insert a new item in the temporary array and
        Rem copy the data from the item in the resource array with the highest value we picked above
        array insert at bottom tempArray()
        tempArray() = resources(indexOfHighest)
    
        Rem delete the item from the resources array so we won't pick the same item twice
        array delete element resources(), indexOfHighest
    
        Rem reset the highest number so we can pick a new one
        highestNumber  = -1
        indexOfHighest = -1
    
    endwhile
    
    Rem redim the resources array so we are sure it is empty and of the right size
    undim resources()
    dim   resources( array count(tempArray()) )
    
    Rem copy the temporary array to the resource array, the array is now sorted
    for i=0 to array count( tempArray() )
        resources(i) = tempArray(i)
    next i
    
    Rem modify the percent values so we can use them for the calculation
    Rem increasing the percent value with the percent value of the item one place higher in the array
    Rem   ore:   57% -> 57+43 -> 100 
    Rem   fuel:  29% -> 29+14 -> 43  
    Rem   laser: 14% -> 14+0  -> 14 
    for i=array count( tempArray() )-1 to 0 step -1
        resources(i).percent = tempArray(i).percent + resources(i+1).percent
    next i
    
endFunction

Back to top

Profile PM

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 26th Jul 2011 14:09

Link

when i test in DBP it says not responding and when i compile it just opens and closes...

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 26th Jul 2011 14:24

Link

weird..

Quote: "when i test in DBP it says not responding "

What exactly do you mean with that? What is not responding?

Back to top

Profile PM

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 26th Jul 2011 14:52

Link

im running windows 7 and when it opens it pops up with te standard windows "not responding" box, basically means a program has stopped working.

Back to top

Profile PM Email

Max P

16

Years of Service

User Offline

Joined: 23rd Jan 2010

Location:

Posted: 26th Jul 2011 15:52

Link

Everything is working fine here (windows xp), so I think it is a windows 7 problem. Do you have the latest version of dbpro?

Back to top

Profile PM

mad computer user

17

Years of Service

User Offline

Joined: 9th Nov 2008

Location: New Zealand

Posted: 27th Jul 2011 01:00

Link

yup

Back to top

Profile PM Email

Sorry your browser is not supported!

DarkBASIC Professional Discussion / Random Card Picker [noob]