This module is pretty much copied from a roguelike that I started writing.
example 1:
use Games::Roguelike::Caves;
my $map = generate_cave(50,20);
for (@$map){
for (@$_){
print;
}
print "\n"
}
OUTPUT:
........ ......
.......... ...... ........
............... ........ .........
................. ...................
................. ..................
................ ...................
.. ............... .....................
.... ..... ....... .....................
.... ... ...... ....... ............
.... ... ...... .... ...........
.. .... ..... .. ...........
...... .... .. .........
.......... .... ... .........
............ .. .... ..........
.............. ...... ...... ..
............... ...... ......
... ...... ..... .....
.... ... ...
example 2:
use Games::Roguelike::Caves;
my $map = generate_cave(50,20);
outline_walls ($map);
for (@$map){
for (@$_){
print;
}
print "\n"
}
OUTPUT:
|-------------|
|---| |-.............-|
|--| |-...-| |...............|
|--..-||-.....| |...............| |--|
|-.....--......| |-......----....-| |-..-|
|.............-| |-....-| |-....-| |-....|
|............-| |-...-| |-.....---.....|
|-...........| |-....----..............|
|-..........| |----.......................|
|-.........| |-..........................-|
|-.........| |-...........................|
|.........-| |............................|
|........-| |...........................-|
|........-| |.......................----|
|-........-| |-.....................-|
|---......| |-...................-|
|-.....| |...................|
|....-| |..................-|
|-..-| |-.............----|
|--| |-------------|
Ecample 3:
use Games::Roguelike::Caves;
#2 iterations, 50% walls...
my $map = generate_cave(50,20,2,.5,"W",' ');
outline_walls ($map,"W",' ');
for (@$map){
for (@$_){
print;
}
print "\n"
}
OUTPUT:
W|---|WW|-----|WW|-|WWWWWW|---|W|----|WWWWWW|--|WW
W| -||- -||- |WWWW|-- --- ----|W|- |WW
W| -- -- |WWW|- --| |WW
W|- --- --|WW|- | |WW
WW|- --|-- |WWWW| --- |WW
W|-- -||- ||-|W|- -|W| | -|W
W| -|| -|- --- |----- --| -|
|- || | -- |-- | |
| -- -||--- |
| -- --|W| |
| -||- ---- ||- | |
| -|WW| -|WW| -- -|- |
|------| --||----- ----- |W|- |
W| |--|W|- | -|WW|----- -||- |
W|- |W|--| -|WWW|--|---- || |
W| ||- -- -- |WW|- -|WW|-- -|| |
W|--- -|- || -|WW| |WWWW|-|W| -|
WWWW|-|| | | | || |WWW|- |WWWWWWWW|--|W
WWWWWWW|- |-|-|---|| --|WWWW|- |WWWWWWWWWWWWW
WWWWWWWW|-----|WWWWWWWW|-|WWWWWWW|--|WWWWWWWWWWWWW
