Remove assets

This commit is contained in:
Andrei Pago 2023-04-05 19:39:39 +02:00
parent 6ef7b128c3
commit 66faec7a0b
5 changed files with 0 additions and 70 deletions

View File

@ -1,5 +0,0 @@
4.ox
oooo
oooo
oooo
oooo

View File

@ -1,24 +0,0 @@
#!/usr/bin/perl
use warnings;
use strict;
die "program x y density" unless (scalar(@ARGV) == 3);
my ($x, $y, $density) = @ARGV;
my $empty = ".";
my $obstc = "X";
my $full = "#";
print "$y${empty}${obstc}${full}\n";
for (my $i = 0; $i < $y; $i++) {
for (my $j = 0; $j < $x; $j++) {
if (int(rand($y) * 2) < $density) {
print $obstc;
}
else {
print $empty;
}
}
print "\n";
}

View File

@ -1,21 +0,0 @@
20.X#
........................................
...................X....................
.........................X..........X...
..............X.........................
.........X...........................X..
............X..X........................
..................................X.....
....................................X...
........................................
X.X..........................X..........
....X.................................X.
..........X.............................
.............................X..........
....................X......X............
............................X...X......X
.......X........X....X....X..XX.........
................X........X............X.
................X......X................
....X................X.......X..........
........................................

View File

@ -1,10 +0,0 @@
97ox
777777777777777777777777777
7777o7777777777777777777777
777777777777o77777777777777
777777777777777777777777777
7777o7777777777777777777777
777777777777777o77777777777
777777777777777777777777777
777777o77777777777777o77777
77o7777777o7777777777777777

View File

@ -1,10 +0,0 @@
9.ox
...........................
....o......................
............o..............
...........................
....o......................
...............o...........
...........................
......o..............o.....
..o.......o................