Lottery picker - GameCreators Forum

Author

Message

tasmanian guy

16

Years of Service

User Offline

Joined: 29th Jun 2010

Location: Australia

Posted: 2nd Dec 2011 23:17 Edited at: 2nd Dec 2011 23:20

Link

I couldn't find a lottery picker on this site, so here is some code.

hope someone finds it useful

+ Code Snippet


Rem sets up the arrays
dim lottery(45)
dim picknumber(6)
rem sets it for randomize
randomize timer()
rem fill the array with numbers 1 to 45
for filler=1 to 45
    lottery(filler)=filler
NEXT filler
rem pick a random number six times
for i=1 to 6
    random=rnd(44)+1
    repeat
       picknumber(i)=lottery(random)
       rem makes the current lottery(random)=0 so it can be checked.
       lottery(random)=0
       rem checks to make sure a number has not already been picked
    until picknumber(i)<>0
NEXT i
rem prints the results
for i=1 to 6
    print picknumber(i)
NEXT
wait key

DBPro is the new Amos (I hope)

Back to top

Profile PM Website

MrValentine

AGK Backer

15

Years of Service

User Offline

Joined: 5th Dec 2010

Playing: FFVII

Posted: 3rd Dec 2011 01:35

Link

Its the same in urm the upside down world?

Back to top

Profile PM

tasmanian guy

16

Years of Service

User Offline

Joined: 29th Jun 2010

Location: Australia

Posted: 3rd Dec 2011 01:43

Link

Well I hope it is the same, obviously you can modify it to suit your own lottery system.

Also forgot to add, if you get the winning numbers I'd like a 10% cut