Log inRegister an accountBrowse CSDbHelp & documentationFacts & StatisticsThe forumsAvailable RSS-feeds on CSDbSupport CSDb Commodore 64 Scene Database
You are not logged in - nap
CSDb User Forums


Forums > C64 Coding > Another Random Generator
2017-05-05 19:17
xIII

Registered: Nov 2008
Posts: 209
Another Random Generator

For my little game Modulot I used this random generator I found on Codebase64:


GetRandom:
ldx #0
lda random+1
sta temp2
lda random
asl
rol temp2
asl
rol temp2
clc
adc random
pha
lda temp2
adc random+1
sta random+1
pla
adc #$11
sta random
lda random+1
adc #$36
sta random+1
sta RANDOMNUMBERS_TABLE,x
inx
bne GetRandom+2
rts

Unfortunately I found out (too late) that this routine always generates the same table. What I wanted was a different table every time this routine is called.

How can I create a random table that is different every time ?
2017-05-05 19:35
Smasher

Registered: Feb 2003
Posts: 510
my stupid solution: since in Modulot you have a title screen and game starts when you press space/fire just place a "inc my_counter" somewhere and recall level with "lda my_counter". use 2 bytes if you have many levels :)
2017-05-05 19:52
xIII

Registered: Nov 2008
Posts: 209
Yeah, that's stupid ... :p

It has to be a 256 bytes table.
I need the table for random pattern (level), random numbers, random mod,...

I found this:

FillRandom:		
        ldx #0
!l:	lda #$ff   // maximum frequency value
	sta $d40e  // voice 3 frequency low byte
	sta $d40f  // voice 3 frequency high byte
        lda #$80   // noise waveform, gate bit off
	sta $d412  // voice 3 control register
	lda $d41b
	sta Table_Random,x
	inx
	bne !l-
	rts


... but since these are SID registers, don't they mess up the music ? (maybe I should just try it).
2017-05-05 19:59
chatGPZ

Registered: Dec 2001
Posts: 11088
the one and only right way to do this is:

a) use some user interaction as random seed. ie start a timer and then read the timer value when user presses a key (to start the game or something)
b) from that point on use a PRNG as in the first post
2017-05-05 20:17
xIII

Registered: Nov 2008
Posts: 209
thx Groepaz,

a) In my IRQ: inc VALUE

b) the first lda random+1 is replaced by lda VALUE

this seems to work as I want.
2017-05-05 20:20
chatGPZ

Registered: Dec 2001
Posts: 11088
nooo thats not a good idea :). instead initialize random (and random+1) once with such counter value (cia1 timer will do fine)
2017-05-05 20:34
Smasher

Registered: Feb 2003
Posts: 510
I wonder where's the difference between Groepaz's and my solution :) just keep "inc value" in the irq while you play and the level is as random as RND
2017-05-05 20:41
chatGPZ

Registered: Dec 2001
Posts: 11088
look at the routine above. if you replace the first LDA random+1 by some LDA counter thing, the entire routine doesnt do anymore what its supposed to do - there wont be any feedback for the highbyte at all, breaking all the sequence properties.

rule of thumb: dont try to make your own PRNG - use an existing one that is proven to work. your own will most likely be (much) worse.
2017-05-05 21:15
Smasher

Registered: Feb 2003
Posts: 510
sure. but you just need 1 byte to have 256 random levels, 2 bytes for 64K levels, etc, no need to build a table and waste 256 bytes. also a table containing sorted numbers or one filled with random numbers doesn't change anything when the byte is picked up randomly from it. a table could make sense if you want to avoid repeated levels in a gameplay, but a game without repeated levels is boring, because when you are playing the 255th level you perfectly know which level you'll play next :)
2017-05-05 21:17
xIII

Registered: Nov 2008
Posts: 209
lda $dc04
sta random
lda $dc05
sta random+1


before the routine above?
2017-05-05 21:44
chatGPZ

Registered: Dec 2001
Posts: 11088
xIII: yes, exactly

and yes, building a table is pointless - with a given seed the generator produces the same sequence anyway.
2017-05-06 08:23
xIII

Registered: Nov 2008
Posts: 209
Quote: sure. but you just need 1 byte to have 256 random levels, 2 bytes for 64K levels, etc, no need to build a table and waste 256 bytes. also a table containing sorted numbers or one filled with random numbers doesn't change anything when the byte is picked up randomly from it. a table could make sense if you want to avoid repeated levels in a gameplay, but a game without repeated levels is boring, because when you are playing the 255th level you perfectly know which level you'll play next :)

I agree on the levels (or patterns as I call them here).
The table is used to generate a 256 byte table of numbers (0 - 9) so that when the same pattern occurs, the numbers are not the same.
As it is now, I also use it to pick a random pattern.
   jsr random ; get random in range 0-ff
   tax
   lda random_table,x ; random table with 0-9
   sta pattern

but in v2 that will change to repeated levels ;)
2017-05-06 08:50
Smasher

Registered: Feb 2003
Posts: 510
great about v2. don't forget to credit mr.Groepaz and me in it! :P
2017-05-07 21:52
Rudi
Account closed

Registered: May 2010
Posts: 125
maybe you can read rasterpos from menu-timer.

there exists transform functions too.
if you allreedy have random 256-byte table loaded from disk, you can transform them numbers with a function using timer as input for each game level. but use a tranform that does keep all numbers intact, so they dont loose connectivity!
RefreshSubscribe to this thread:

You need to be logged in to post in the forum.

Search the forum:
Search   for   in  
All times are CET.
Search CSDb
Advanced
Users Online
Krill/Plush
grasstust/Hoaxers
Didi/Laxity
csabanw
hedning/G★P
Guests online: 308
Top Demos
1 Next Level  (9.8)
2 Mojo  (9.7)
3 Coma Light 13  (9.7)
4 Edge of Disgrace  (9.6)
5 No Bounds  (9.6)
6 Comaland 100%  (9.6)
7 Uncensored  (9.6)
8 The Ghost  (9.6)
9 Wonderland XIV  (9.6)
10 Bromance  (9.6)
Top onefile Demos
1 Party Elk 2  (9.7)
2 Cubic Dream  (9.6)
3 Copper Booze  (9.5)
4 Rainbow Connection  (9.5)
5 TRSAC, Gabber & Pebe..  (9.5)
6 Onscreen 5k  (9.5)
7 Dawnfall V1.1  (9.5)
8 Quadrants  (9.5)
9 Daah, Those Acid Pil..  (9.5)
10 Birth of a Flower  (9.5)
Top Groups
1 Booze Design  (9.3)
2 Nostalgia  (9.3)
3 Oxyron  (9.3)
4 Censor Design  (9.3)
5 Crest  (9.3)
Top Fullscreen Graphicians
1 Carrion  (9.8)
2 Joe  (9.8)
3 Duce  (9.8)
4 Mirage  (9.7)
5 Facet  (9.7)

Home - Disclaimer
Copyright © No Name 2001-2024
Page generated in: 0.07 sec.