heres the code.
Problem: Nothing happens
Problem: Nothing happens
VB.NET:
using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
namespace Random_generation
{
class Program
{
static void Main(string[] args)
{
int Layer = 30;
int BCount = 0;
int B = 0;
string Message = "";
string M2 = "";
int[,] Blocks = new int[100,100];
Random rand = new Random();
for (Layer = 30; Layer != 0;)
{
for (BCount = 1; BCount <= 10; )
{
switch (Layer)
{
case 28 - 30: B = 0; break;
case 27: if (rand.Next(10) == 0 && Blocks[Layer - 1, BCount] == 1) B = 1; else B = 0; break;
}
Blocks[Layer, BCount] = B;
}
Layer--;
}
for (Layer = 30; Layer != 0; )
{
while (BCount <= 10)
{
if (BCount != 10)
{
M2 += Blocks[Layer, BCount].ToString();
}
else
{
M2 += Blocks[Layer, BCount].ToString() + "\n";
}
BCount++;
}
Message += M2;
Layer--;
}
Console.WriteLine(Message);
}
}
}