pull the globs outside the Meaty Sequence

update tiles textfile, too
This commit is contained in:
Derek S. Ray
2015-03-20 11:37:50 -04:00
parent 7fc2a7a115
commit daf3343dae
3 changed files with 31 additions and 30 deletions
+6 -6
View File
@@ -670,17 +670,17 @@ FOOD("meatball", 0, 1, 1, 0, FLESH, 5, CLR_BROWN),
FOOD("meat stick", 0, 1, 1, 0, FLESH, 5, CLR_BROWN), FOOD("meat stick", 0, 1, 1, 0, FLESH, 5, CLR_BROWN),
FOOD("huge chunk of meat", 0,20,400, 0, FLESH,2000, CLR_BROWN), FOOD("huge chunk of meat", 0,20,400, 0, FLESH,2000, CLR_BROWN),
/* pudding 'corpses' will turn into these and combine */
FOOD("glob of gray ooze", 0, 1, 1, 0, FLESH, 0, CLR_GRAY),
FOOD("glob of brown pudding", 0, 1, 1, 0, FLESH, 0, CLR_BROWN),
FOOD("glob of green slime", 0, 1, 1, 0, FLESH, 0, CLR_GREEN),
FOOD("glob of black pudding", 0, 1, 1, 0, FLESH, 0, CLR_BLACK),
/* special case because it's not mergable */ /* special case because it's not mergable */
OBJECT(OBJ("meat ring", (char *)0), OBJECT(OBJ("meat ring", (char *)0),
BITS(1,0,0,0,0,0,0,0,0,0,0,0,FLESH), BITS(1,0,0,0,0,0,0,0,0,0,0,0,FLESH),
0, FOOD_CLASS, 0, 1, 5, 1, 0, 0, 0, 0, 5, CLR_BROWN), 0, FOOD_CLASS, 0, 1, 5, 1, 0, 0, 0, 0, 5, CLR_BROWN),
/* pudding 'corpses' will turn into these and combine */
FOOD("glob of gray ooze", 0, 2, 10, 0, FLESH, 0, CLR_GRAY),
FOOD("glob of brown pudding", 0, 2, 10, 0, FLESH, 0, CLR_BROWN),
FOOD("glob of green slime", 0, 2, 10, 0, FLESH, 0, CLR_GREEN),
FOOD("glob of black pudding", 0, 2, 10, 0, FLESH, 0, CLR_BLACK),
/* fruits & veggies */ /* fruits & veggies */
FOOD("kelp frond", 0, 1, 1, 0, VEGGY, 30, CLR_GREEN), FOOD("kelp frond", 0, 1, 1, 0, VEGGY, 30, CLR_GREEN),
FOOD("eucalyptus leaf", 3, 1, 1, 0, VEGGY, 30, CLR_GREEN), FOOD("eucalyptus leaf", 3, 1, 1, 0, VEGGY, 30, CLR_GREEN),
+23 -23
View File
@@ -4707,7 +4707,26 @@ P = (108, 145, 182)
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
} }
# tile 247 (glob of gray ooze) # tile 247 (meat ring)
{
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMOOOAMMMMMMM
MMMMOAAMOOAMMMMM
MMMMOAAMMMOAMMMM
MMMMMOAAMMMOAMMM
MMMMMOAAMMMOAMMM
MMMMMOAMMMMOAMMM
MMMMOAAAMMOAAMMM
MMMMMOOOOOAAMMMM
MMMMMMAAAAAMMMMM
MMMMMMMMMMMMMMMM
}
# tile 248 (glob of gray ooze)
{ {
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
@@ -4726,7 +4745,7 @@ P = (108, 145, 182)
MMMAAAMAAAAAMMMM MMMAAAMAAAAAMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
} }
# tile 248 (glob of brown pudding) # tile 249 (glob of brown pudding)
{ {
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
@@ -4745,7 +4764,7 @@ P = (108, 145, 182)
MMMAAAMAAAAAMMMM MMMAAAMAAAAAMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
} }
# tile 249 (glob of green slime) # tile 250 (glob of green slime)
{ {
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
@@ -4764,7 +4783,7 @@ P = (108, 145, 182)
MMMAAAMAAAAAMMMM MMMAAAMAAAAAMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
} }
# tile 250 (glob of black pudding) # tile 251 (glob of black pudding)
{ {
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
@@ -4783,25 +4802,6 @@ P = (108, 145, 182)
MMMAAAMAAAAAMMMM MMMAAAMAAAAAMMMM
MMMMMMMMMMMMMMMM MMMMMMMMMMMMMMMM
} }
# tile 251 (meat ring)
{
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMMMMMMMMMMMM
MMMMMOOOAMMMMMMM
MMMMOAAMOOAMMMMM
MMMMOAAMMMOAMMMM
MMMMMOAAMMMOAMMM
MMMMMOAAMMMOAMMM
MMMMMOAMMMMOAMMM
MMMMOAAAMMOAAMMM
MMMMMOOOOOAAMMMM
MMMMMMAAAAAMMMMM
MMMMMMMMMMMMMMMM
}
# tile 252 (kelp frond) # tile 252 (kelp frond)
{ {
MMMMFAMMMMMMMMMM MMMMFAMMMMMMMMMM
+2 -1
View File
@@ -8,6 +8,7 @@ sub bail($);
use Getopt::Std; use Getopt::Std;
# TODO: switch to Getopt::Long so we can parse normal arguments too
$Getopt::Std::STANDARD_HELP_VERSION = TRUE; $Getopt::Std::STANDARD_HELP_VERSION = TRUE;
$main::VERSION = 1.0; $main::VERSION = 1.0;
@@ -52,7 +53,7 @@ exit;
sub main::HELP_MESSAGE() sub main::HELP_MESSAGE()
{ {
print <<"STARTHELP"; print <<"STARTHELP";
Usage: renumtiles.pl [OPTIONS] Usage: renumtiles.pl [OPTIONS] <textfile>
STARTHELP STARTHELP
foreach $cmd (keys(%commands)) { foreach $cmd (keys(%commands)) {