Random Bag

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|566\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Generators

Pakz	Created : 16 July 2019 Language : Monkey2 Random Bag Get more predictable numbers
'Random Bag #Import "<std>" #Import "<mojo>" Using std.. Using mojo.. Class MyWindow Extends Window ' Create a stack list where we store the bag numbers Field bag:Stack<Int> ' Create a array for displaying the random numbers Field result:Int[] = New Int[20] Method New() ' Fill out random bag fillrandombag() ' Fill the array with random numbers from the bag For Local i:Int=0 Until 20 result[i] = getfrombag() Next End Method Method OnRender( canvas:Canvas ) Override App.RequestRender() ' Activate this method ' Draw the numbers from the bag on the screen For Local i:Int=0 Until 20 canvas.DrawText(result[i],0,i*20) Next ' if key escape then quit If Keyboard.KeyReleased(Key.Escape) Then App.Terminate() End Method ' ' Here we get a random value from the bag. We refill the ' bag if it is empty and we remove the number we take from it ' from the bag. ' Method getfrombag:Int() ' If the bag is empty then refill it.. If bag.Length = 0 Then fillrandombag() ' Get a random value from the bag and remove it from the bag Local out:Int Local num:Int = Rnd(bag.Length) out = bag.Get(num) bag.Remove(num) Return out End Method ' ' Here we create our bag of numbers. ' Method fillrandombag() ' ' Here we fill the bag with random numbers ' bag = New Stack<Int> ' 10 results of 1 (low damage) For Local i:Int=0 Until 10 bag.Add(1) Next ' 5 results of 2 (medium damage) For Local i:Int=10 Until 15 bag.Add(2) Next ' 3 results of 3 (High damage) For Local i:Int=15 Until 18 bag.Add(3) Next ' 2 results of 4 (Extreme damage) For Local i:Int=18 Until 20 bag.Add(4) Next End Method End Class Function Main() New AppInstance New MyWindow App.Run() End Function --v
Latest Update When you have a RPG you might want to get a more logical draw of numbers. A random bag is a list where you store(insert) numbers that you take out. A number for sword damage for instance. In this example I created a stack where I store 20 numbers in ranging from 1 to 4. More 1's and less 4's. I then created a array which I fill with 20 numbers that were taken from the bag. These are drawn to the screen. In the bag there are 20 numbers. When one is taken out there are 19 remaining. When the list is empty it gets refilled. I got the idea from a streamer on youtube who was talking about this. (gixg17)

Comments
Tuesday, 16 July 2019, 03:33
Jayenkai	Yes, for a lot of Gamey things, it's generally better to fill a "bag" with items, then pluck from that, than doing a completely random event. Things like Tetris can be frustrating if there's never a long bar. Instead, fill a bag with about 4 of each of all the shapes, then pluck from there. Scrabble obviously needs this, and power-up drops, decks of cards, things like that. On the other hand, rolling dice, flipping coins, etc.. those definitely prefer complete randomness. I tend to fill an array, then randomise the order, then pluck from the end of the array. for n=0 to BagLength t=bag[n] r=Rand(BagLength) bag[n]=bag[r] bag[r]=t next --v A simple shuffle function.

Latest Update

Comments