3 files changed, 18 insertions, 2 deletions
diff --git a/bsq/bsq b/bsq/bsq
index a3a16b1..3b13f7f 100755
--- a/bsq/bsq
+++ b/bsq/bsq
diff --git a/bsq/gen.pl b/bsq/gen.pl
new file mode 100755
index 0000000..bac7219
--- /dev/null
+++ b/bsq/gen.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/perl
+
+my ($x, $y, $density) = @ARGV;
+
+print "$y.ox\n";
+for (my $i = 0; $i < $y; $i++) {
+    for (my $j = 0; $j < $x; $j++) {
+        if (int(rand($y) * 2) < $density) {
+            print "o";
+        }
+        else {
+            print ".";
+        }
+    }
+    print "\n";
+}
+
+
diff --git a/bsq/main.c b/bsq/main.c
index f981f25..7a03e7c 100644
--- a/bsq/main.c
+++ b/bsq/main.c
@@ -17,9 +17,7 @@
 int	main(int argc, char **argv)
 {
 	int					i;
-	t_parsed_terrain	*pterrain;
 
-	pterrain = NULL;
 	if (argc == 1)
 	{
 		parse_stdin_print();