Is there an easier way! - GameCreators Forum

Author

Message

Dritt

18

Years of Service

User Offline

Joined: 10th Jan 2006

Location:

Posted: 23rd Apr 2007 12:56

Link

Hi.

Is there an easier way of matching numbers.

Here is the code im using for the random part:

Rem Random draw begins
randomize timer()
random_number = rnd(50)
random_number2 = rnd(50)
random_number3 = rnd(50)
play sound 1
text 240,235, STR$(random_number)
sleep 2000
play sound 1
text 260,235, STR$(random_number2)
sleep 2000
play sound 1
text 280,235, STR$(random_number3)
sleep 2000

This is for matching the player number to 1 random number that is drawn. This require only 1 line of code, so its easy.

If player_number = random_number or random_number2 or random_number3 then
player_credit=player_credit +10

Here is the complicated part, or maiby its the only way of doing this. This is for matching multiple, if the player gets 2 matches or 3 instead 1.

Else if player_number = random_number and random_number2
player_credit=player_credit +20
Else if player_number = random_number and random_number3
player_credit=player_credit +20
Else if player_number = random_number2 and random_number3
player_credit=player_credit +20
Else if player_number = random_number and random_number2 and random_number3
player_credit=player_credit +50

This is not so complicated, but i want 10 random numbers. I then have to code in this way to match all kinds of patterns.

Is there an easier way of doing this?

As always, all help is very much appreciated.

Back to top

Profile PM

Hammaman

20

Years of Service

User Offline

Joined: 11th Feb 2004

Location:

Posted: 23rd Apr 2007 14:45

Link

I'm not sure I understand what you're trying to do fully

, but will have a stab at a reply ...

I would tend to check the player_number against each random number separately, and keep a "score" of how many times they are identical.

For example,
num_identical = 0
If player_number = random_number1 Then num_identical = num_identical + 1
If player_number = random_number2 Then num_identical = num_identical + 1
... and so on.

Then simply increase the players score by the number of matches held in num_identical.

I'd also look into using an array to hold the random numbers (and scores for the number of matches), as this would enable you to loop through each of the tests above.

Hope this helps!

Back to top

Profile PM

Dritt

18

Years of Service

User Offline

Joined: 10th Jan 2006

Location:

Posted: 23rd Apr 2007 16:16

Link

Thanks for the help Hammaman.

This is pretty much the same way im doing it now, i still have to code every single match in every kind of pattern like you just did above.

Isnt there an easier way of calculating how many matches the player gets?

Also, how do i use the an array to hold the numbers etc...I am only familier with the way im doing now.

Back to top

Profile PM

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 23rd Apr 2007 16:30

Link

How about arrays?

+ Code Snippet

dim random_number(10)

for x=1 to 10
  random_number(x)=rnd(50)
next x

count=0
for x=1 to 10
 if player_number=random_number(x) then inc count
next x

`now the count variable has the number of matches

Back to top

Profile PM

Dritt

18

Years of Service

User Offline

Joined: 10th Jan 2006

Location:

Posted: 23rd Apr 2007 17:01

Link

Thanks for the help Crit.

But, that dident work for me. How does it know how many matches it gets. If the player gets 1 match the payout will be 10, 2 match 50, 3 match 100 etc...

Seems tho i still have to code every pattern of match still.

But this is usefull, now i dont have to assign random_number 1,2,3 etc...

Im still struggling to get it to calculate matches automatic, and to act acordingly to give the correct payouts.

Back to top

Profile PM

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 23rd Apr 2007 17:17

Link

Then make another array with the payouts and do something like this:

player_payout = payoutarray(count)

Back to top

Profile PM

Dritt

18

Years of Service

User Offline

Joined: 10th Jan 2006

Location:

Posted: 23rd Apr 2007 20:00

Link

I cant get it to work because i dont know how to set up the code proparly in hole.

Would it be to much trouble?

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 23rd Apr 2007 20:14

Link

No arrays are needed for this. Here you go...

+ Code Snippet

Set Display Mode 800,600,16
Hide Mouse: CLS 0
Randomize Timer()
Set Text Font "Tahoma"
Set Text Size 32

Input "Please Enter Your Chosen Number (1-50): ";User
Ink RGB(0,255,0),0

Rem Select & Display 10 Random Numbers
Display$ = ""
NumCorrect = 0
For N=1 To 10
  ComputerNumber=Rnd(49)+1
  If ComputerNumber = User Then Inc NumCorrect: Rem << This counts number of correct matches
  Display$ = Display$+Str$(ComputerNumber)+"  "
  Rem play sound 1
  CLS: Center Text 400,235,Display$
  Sleep 1000
Next N

Rem Display End Message
Ink RGB(255,255,25),0: Set Text Size 16
If NumCorrect > 0
  Center Text 400,520,"Well Done - You Had "+Str$(NumCorrect)+" Matches!"
  Center Text 400,540,"You Win "+Str$(NumCorrect*10)+"$"
Else
  Center Text 400,520,"Sorry - Your Number ["+Str$(User)+"] Had No Matches!"
Endif

Wait Key

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Crit

18

Years of Service

User Offline

Joined: 24th May 2006

Location:

Posted: 23rd Apr 2007 20:24

Link

Just to be complete, here is code added to my first example:

+ Code Snippet

dim random_number(10)
dim payoutarray(10)

for x=1 to 10
  read payoutarray(x)
  random_number(x)=rnd(50)
next x

count=0
for x=1 to 10
 if player_number=random_number(x) then inc count
next x

player_payout = payoutarray(count)

print player_payout
wait key
end

`put your winnings here.
data 10,20,50,100,200,300,400,500,600,700

Back to top

Profile PM

TDK

Retired Moderator

21

Years of Service

User Offline

Joined: 19th Nov 2002

Location: UK

Posted: 23rd Apr 2007 20:30

Link

Just re-read your earlier post and noticed the winnings are not 10 per matching number. So, you would need to do a small modification in the 'Select & Display 10 Random Numbers' section...

If the payout were 10 for 1 match, 20 for 2 matches and so on, you could use a formula. However as this isn't the case, this would be best done using an array.

Dim PayoutMultiplier(10)

PayoutMultiplier(1) = 1
PayoutMultiplier(2) = 5
PayoutMultiplier(3) = 10

...and so on.

In effect, the value stored in element 1 is the number to multiply 10 by for one match. Element 2 is what to multiply 10 by for two matches and so on. Just set them up at the start.

New version:

Set Display Mode 800,600,16
Hide Mouse: CLS 0
Randomize Timer()
Set Text Font "Tahoma"
Set Text Size 32

Dim PayoutMultiplier(10)
PayoutMultiplier(1) = 1
PayoutMultiplier(2) = 5
PayoutMultiplier(3) = 10
PayoutMultiplier(4) = 30
PayoutMultiplier(5) = 50
PayoutMultiplier(6) = 100
PayoutMultiplier(7) = 150
PayoutMultiplier(8) = 200
PayoutMultiplier(9) = 400
PayoutMultiplier(10) = 1000

NumbersInDraw = 10: Rem <<< Set to smaller number to test (better chances of winning)
Input "Please Enter Your Chosen Number (1-";Str$(NumbersInDraw);"): ";User
Ink RGB(0,255,0),0

Rem Select & Display 10 Random Numbers
Display$ = ""
NumCorrect = 0
For N=1 To 10
  ComputerNumber=Rnd(NumbersInDraw-1)+1
  If ComputerNumber = User Then Inc NumCorrect: Rem << This counts number of correct matches
  Display$ = Display$+Str$(ComputerNumber)+"  "
  Rem play sound 1
  CLS: Center Text 400,235,Display$
  Sleep 1000
Next N

Rem Display End Message
Ink RGB(255,255,25),0: Set Text Size 16
If NumCorrect > 0
  Center Text 400,520,"Well Done - You Had "+Str$(NumCorrect)+" Matches!"
  Center Text 400,540,"You Win "+Str$(10*PayoutMultiplier(NumCorrect))+"$"
Else
  Center Text 400,520,"Sorry - Your Number ["+Str$(User)+"] Had No Matches!"
Endif

Wait Key

+ Code Snippet

Set Display Mode 800,600,16
Hide Mouse: CLS 0
Randomize Timer()
Set Text Font "Tahoma"
Set Text Size 32

Dim PayoutMultiplier(10)
PayoutMultiplier(1) = 1
PayoutMultiplier(2) = 5
PayoutMultiplier(3) = 10
PayoutMultiplier(4) = 30
PayoutMultiplier(5) = 50
PayoutMultiplier(6) = 100
PayoutMultiplier(7) = 150
PayoutMultiplier(8) = 200
PayoutMultiplier(9) = 400
PayoutMultiplier(10) = 1000

NumbersInDraw = 10: Rem <<< Set to smaller number to test (better chances of winning)
Input "Please Enter Your Chosen Number (1-";Str$(NumbersInDraw);"): ";User
Ink RGB(0,255,0),0

Rem Select & Display 10 Random Numbers
Display$ = ""
NumCorrect = 0
For N=1 To 10
  ComputerNumber=Rnd(NumbersInDraw-1)+1
  If ComputerNumber = User Then Inc NumCorrect: Rem << This counts number of correct matches
  Display$ = Display$+Str$(ComputerNumber)+"  "
  Rem play sound 1
  CLS: Center Text 400,235,Display$
  Sleep 1000
Next N

Rem Display End Message
Ink RGB(255,255,25),0: Set Text Size 16
If NumCorrect > 0
  Center Text 400,520,"Well Done - You Had "+Str$(NumCorrect)+" Matches!"
  Center Text 400,540,"You Win "+Str$(10*PayoutMultiplier(NumCorrect))+"$"
Else
  Center Text 400,520,"Sorry - Your Number ["+Str$(User)+"] Had No Matches!"
Endif

Wait Key

I've also added a NumbersInDraw variable for testing purposes. Set this to say 10 to increase the odds of winning and check the payout.

TDK_Man

* TDK's Game Programming Forums - Open To All - DB & Team Request Boards *

Back to top

Profile PM Email Website

Dritt

18

Years of Service

User Offline

Joined: 10th Jan 2006

Location:

Posted: 23rd Apr 2007 21:38

Link