| … | … | ||
|---|---|---|---|
| 35 | swamp => "#660", | 35 | swamp => "#660", |
| 36 | deep_swamp => "#440", | 36 | deep_swamp => "#440", |
| 37 | 37 | ||
| 38 | jungle_1 => "#084", | 38 | jungle_1 => "#084", |
| 39 | 39 | ||
| 40 | flagstone => "#bbb", | ||
| 41 | istone => "#bbc", | ||
| 42 | |||
| 40 | hills_rocky => "#aa8", | 43 | hills_rocky => "#aa8", |
| 41 | treed_hills => "#6a4", | 44 | treed_hills => "#6a4", |
| 42 | hills => "#aa4", | 45 | hills => "#aa4", |
| 43 | mountain => "#ccc", | 46 | mountain => "#ccc", |
| 44 | mountain2 => "#cdd", | 47 | mountain2 => "#cdd", |
| 48 | mountain4 => "#ddb", | ||
| 45 | mountain5 => "#ddd", | 49 | mountain5 => "#ddd", |
| 50 | s_mountain => "#dff", | ||
| 46 | 51 | ||
| 52 | wasteland => "#ddf", | ||
| 53 | drifts => "#eef", | ||
| 54 | snow => "#eff", | ||
| 47 | cobblestones => "#ea2", | 55 | cobblestones => "#ea2", |
| 48 | ); | 56 | ); |
| 49 | 57 | ||
| 50 | for my $k (keys %type) { | 58 | for my $k (keys %type) { |
| 51 | my $v = join "", map chr, (map $_*255/15, map hex, split //, substr $type{$k}, 1), 255; | 59 | my $v = join "", map chr, (map $_*255/15, map hex, split //, substr $type{$k}, 1), 255; |
| … | … | ||
| 87 | POSIX::_exit 0; | 95 | POSIX::_exit 0; |
| 88 | } | 96 | } |
| 89 | } | 97 | } |
| 90 | } | 98 | } |
| 91 | 99 | ||
| 100 | POSIX::_exit 0; | ||
| 101 |
| – | Removed lines |
| + | Added lines |
| < | Changed lines |
| > | Changed lines |