Differences

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

--- cw4:4rpl_tools [2025/06/24 15:58] – [Request Viable Move-Cell] kalli
+++ cw4:4rpl_tools [2025/06/30 20:12] (current) – [Pseudo Random Number Generator, based on sinus] kalli
@@ Line 3564: / Line 3564: @@
-If the units are special custom units (build in void/anywhere or build as miner/nullifier, then their GUID needs to be added to the relevant lists inside the script.
+Use example for building miners:
-Use example for building miners:
+<code 4rpl example.4rpl>500 0 do
-<code 4rpl MultiObjective.4rpl>500 0 do
 	"requestWxWviableCell" 0 5 3 128 128 v2 256 0 0 0 0 1 0 1 1 0 14 listN sendmsg # Length > width = x direction.
 	<-*WxWviableCellFound if
@@ Line 3615: / Line 3613: @@
-<code 4rpl MultiObjective.4rpl>
+<code 4rpl LxW-FindViableCell-NRP-Pre.4rpl>
 # --LxW-FindViableCell-NRP-Pre--
@@ Line 3851: / Line 3850: @@
 	true
+</code>
+</hidden>
+----
+===== Pseudo Random Number Generator, based on sinus =====
+<hidden click here for source code>
+Several basic functions based on Grabz' rng lite function of "<-seed sinus 10000 mul dup floor sub".
+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.
+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.
+Example code with messages:
+<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>
+----
+<code SinusRNG.4rpl>
+:once
+	# Creating lists and a starting mapconstant for the seed sequences.
+	createlist ->prevSeedList
+	createlist ->seedCountList
+	getmapsize 2 div swap 2 div swap dup2 getterrain 1 add dup 99999 floodfillterrain getlistcount ->mapConstant
+	# 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