Differences

This shows you the differences between two versions of the page.

--- cw4:4rpl_tools [2025/06/28 18:36] – [Next UseFul Function goes here] kalli
+++ cw4:4rpl_tools [2025/06/30 20:12] (current) – [Pseudo Random Number Generator, based on sinus] kalli
@@ Line 3857: / Line 3857: @@
-===== Pseudo Random Number Generator, type LCG =====
+===== Pseudo Random Number Generator, based on sinus =====
 <hidden click here for source code>
-A basic function to request a pseudo random number, based on the Linear Congruential Generator algorithm: https://en.wikipedia.org/wiki/Linear_congruential_generator.
+Several basic functions based on Grabz' rng lite function of "<-seed sinus 10000 mul dup floor sub".
-Input is an integer seed + the desired amount of digits.
+Copy the functions directly into your script or run the below script in your cpack and have other scripts send messages to request a randfloat or randint.
-If you want no truncation, then use 0 for the desired amount of digits. If you request more digits than your seed would generate, then the too short result is returned without truncation.
+Difference between the functions:
+  * "seeded": provide a seed to the generator. The generated number will always be the same for the same seed.
+  * "index": these seeds are sequenced. In the same map for the same index, the generated number 1,2,3,... will be the same after map restart.
+  * "spiked": the generator is seeded with the elapsedtime of the gaming session, making the outcome uncontrollable.
+  * No prefix: these are sequenced seeds and they use index 0.
-<code 4rpl file name.4rpl>
+Example code with messages:
- 3 @linearPRNG trace
+<code example.4rpl>
+->int
+->index
+->first
+->last # The last integer itself will be excluded.
+"sinRandInt" <-first <-last 2 listN sendmsg
+<-*sinRandInt trace
+"sinRand01" 0 sendmsg
+<-*sinRand01 trace
+"indexSinRandInt" <-index <-first <-last 3 listN sendmsg
+<-*sinRandInt trace
+"indexSinRand01" <-index sendmsg
+<-*sinRand01 trace
+"spikedSinRandInt" <-first <-last 2 listN sendmsg
+<-*sinRandInt trace
+"spikedSinRand01" 0 sendmsg
+<-*sinRand01 trace
+"seededSinRandInt" <-seed <-first <-last 3 listN sendmsg
+<-*sinRandInt trace
+"seededSinRand01" <-seed sendmsg
+<-*sinRand01 trace
+</code>
-:linearPRNG
+----
-# INPUT: INTEGER SEED + INTEGER for desired digit length. 0 ->digits = no truncating of the output.
-# OUTPUT: A pseudo random integer number of the desired length.
+<code SinusRNG.4rpl>
-# https://en.wikipedia.org/wiki/Linear_congruential_generator
+:once
-dup ->digits if
+	# Creating lists and a starting mapconstant for the seed sequences.
- mul 2 31 pow 1 sub mod2 dup log10 ceil <-digits dup2 gt if sub 10 swap pow div asint else pop pop endif
+	createlist ->prevSeedList
-else
+	createlist ->seedCountList
- mul 2 31 pow 1 sub mod2
+	getmapsize 2 div swap 2 div swap dup2 getterrain 1 add dup 99999 floodfillterrain getlistcount ->mapConstant
-endif
+	# Setting up the messages so that other scripts can request a random seed.
+	"sinRandInt" "sinRandInt_CALL" registerformsg
+	"sinRand01" "sinRand01_CALL" registerformsg
+	"indexSinRandInt" "indexSinRandInt_CALL" registerformsg
+	"indexSinRand01" "indexSinRand01_CALL" registerformsg
+	"spikedSinRandInt" "spikedSinRandInt_CALL" registerformsg
+	"spikedSinRand01" "spikedSinRand01_CALL" registerformsg
+	"seededSinRandInt" "seededSinRandInt_CALL" registerformsg
+	"seededSinRand01" "seededSinRand01_CALL" registerformsg
+:sinRandInt_CALL
+	<-_DATA listtostack @sinRandInt ->*sinRandInt
+:sinRand01_CALL
+	@sinRand01 ->*sinRand01
+:indexSinRandInt_CALL
+	<-_DATA listtostack @indexSinRandInt ->*sinRandInt
+:indexSinRand01_CALL
+	<-_DATA @indexSinRand01 ->*sinRand01
+:spikedSinRandInt_CALL
+	<-_DATA listtostack @spikedSinRandInt ->*sinRandInt
+:spikedSinRand01_CALL
+	@spikedSinRand01 ->*sinRand01
+:seededSinRandInt_CALL
+	<-_DATA listtostack @seededSinRandInt ->*sinRandInt
+:seededSinRand01_CALL
+	<-_DATA @seededSinRand01 ->*sinRand01
+:sinRandInt # INPUT: integer first randInt + integer last randInt. OUTPUT: an integer in between the first and last randInt, excluding the last randInt.
+->last
+->first
+@indexSinRand01 <-last <-first sub mul <-first add asint
+:sinRand01 # INPUT: none.
+@indexSinRand01
+:indexSinRandInt # INPUT: the index of the seed sequence + integer first randInt + integer last randInt. OUTPUT: an integer in between the first and last randInt, excluding the last randInt.
+->last
+->first
+	@indexSinRand01 <-last <-first sub mul <-first add asint
+:indexSinRand01 # INPUT: the "index" of the seed sequence. OUTPUT: the next seed from that sequence.
+# The random numbers will be generated with the previous seed that is stored under that index.
+->i
+	<-prevSeedList[<-i] eq0 if
+		<-i <-mapConstant add 2357 mul @seededSinRand01 dup 10000000 mul 1 add asint ->prevSeedList[<-i]
+->seedCountList[<-i]
+	else
+		<-prevSeedList[<-i] @seededSinRand01 dup 10000000 mul <-seedCountList[<-i] 1 add dup ->seedCountList[<-i] add asint ->prevSeedList[<-i]
+	endif
+:spikedSinRandInt # INPUT: integer first randInt + integer last randInt. OUTPUT: an integer in between the first and last randInt, excluding the last randInt.
+->last
+->first
+	elapsedtime asint @seededSinRand01 <-last <-first sub mul <-first add asint
+:spikedSinRand01
+	elapsedtime asint @seededSinRand01
+:seededSinRandInt # INPUT: integer seed + integer first randInt + integer last randInt. OUTPUT: an integer in between the first and last randInt, excluding the last randInt.
+->last
+->first
+	@seededSinRand01 <-last <-first sub mul <-first add asint
+:seededSinRand01
+	# abs <-power pow <-add add sin <-sinMul mul dup floor sub
+.05 pow 99419 sub sin 619 mul dup floor sub
 </code>

Knuckle Cracker Wiki

User Tools

Site Tools

Differences

Page Tools