List of spells/parse-spl-data - Revision history

imported>Medar: Propose deletion.

2016-11-03T10:31:26Z

Propose deletion.

← Older revision		Revision as of 10:31, 3 November 2016
(No difference)

imported>Medar: Propose deletion.

2016-11-03T10:31:26Z

Propose deletion.

← Older revision		Revision as of 10:31, 3 November 2016
(No difference)

imported>Medar: Propose deletion.

2016-11-03T10:31:26Z

Propose deletion.

← Older revision		Revision as of 10:31, 3 November 2016
Line 1:		Line 1:
			{{delete\|No longer used}}
	<pre>		<pre>
	<nowiki>		<nowiki>

imported>Medar: Merge in changes from https://gitlab.com/crawl-wiki-monster-bot/crawl-wiki-monster-bot

2016-02-01T16:06:06Z

Merge in changes from https://gitlab.com/crawl-wiki-monster-bot/crawl-wiki-monster-bot

Show changes

imported>Medar: Missing line.

2016-01-29T20:24:30Z

Missing line.

← Older revision		Revision as of 20:24, 29 January 2016
Line 582:		Line 582:
	print " [\"range\"] = $range, \n";		print " [\"range\"] = $range, \n";
	print " [\"noise\"] = $spell->{noisy}, \n";		print " [\"noise\"] = $spell->{noisy}, \n";
			print "}\n";
	}		}
	}		}

imported>Medar: Improve spell module output. Fix link. Remove trailing space.

2016-01-29T20:17:25Z

Improve spell module output. Fix link. Remove trailing space.

← Older revision		Revision as of 20:17, 29 January 2016
Line 10:		Line 10:
	#		#
	# The latest version of this program may be found at:		# The latest version of this program may be found at:
	# http://crawl.chaosforge.org/~~index.php?title=User:Neil~~/parse-spl-data		# http://crawl.chaosforge.org/List_of_spells/parse-spl-data

	use strict;		use strict;
Line 53:		Line 53:
	CHAOTIC => <<"EOF",		CHAOTIC => <<"EOF",
	The spell is hated by [[Zin]], who will impose penance on any player casting		The spell is hated by [[Zin]], who will impose penance on any player casting
	it, and reward killing monsters who can cast it.		it, and reward killing monsters who can cast it.
	EOF		EOF
	CORPSE_VIOLATING => <<"EOF",		CORPSE_VIOLATING => <<"EOF",
Line 110:		Line 110:
	UNCLEAN => <<"EOF",		UNCLEAN => <<"EOF",
	The spell is hated by [[Zin]], who will impose penance on any player casting		The spell is hated by [[Zin]], who will impose penance on any player casting
	it, and reward killing monsters who can cast it.		it, and reward killing monsters who can cast it.
	EOF		EOF
	UNHOLY => <<"EOF",		UNHOLY => <<"EOF",
Line 165:		Line 165:
	}		}

			sub ucfirst_array {
			my $items = join ",", map {
			my $name = ucfirst(lc $_);
			"\"$name\"";
			} @_;
			"{ $items }";
			}

	# Add a spell if it exists		# Add a spell if it exists
Line 178:		Line 185:
	# Sanity checks: abort if we encounter one of these, as it means		# Sanity checks: abort if we encounter one of these, as it means
	# something funny is up with our book-parsing.		# something funny is up with our book-parsing.

	# Spells that belong to certain monster-only schools.		# Spells that belong to certain monster-only schools.
	for my $school (@{$spell->{schools}}) {		for my $school (@{$spell->{schools}}) {
Line 199:		Line 206:
	my $let = uc(substr $spell->{name}, 0, 1);		my $let = uc(substr $spell->{name}, 0, 1);
	push @{$by_letter{$let}}, $spell;		push @{$by_letter{$let}}, $spell;


	for my $school (@{$spell->{schools}}) {		for my $school (@{$spell->{schools}}) {
Line 479:		Line 486:

	my $flags = join ", ", map {		my $flags = join ", ", map {
	s/_/ /g; lc $_		s/_/ /g; lc $_
	} @{$spell->{flags}}, ($spell->{noisy} ? "noise $spell->{noisy}" : ());		} @{$spell->{flags}}, ($spell->{noisy} ? "noise $spell->{noisy}" : ());
	my $books = join "<br>", map { "[[$_]]" } @{$spell->{books}};		my $books = join "<br>", map { "[[$_]]" } @{$spell->{books}};
Line 537:		Line 544:
	}		}

	~~# This part still needs more work~~
	if ($module eq "spell") {		if ($module eq "spell") {
	# Table of spells		# Table of spells
Line 545:		Line 551:
	]=]--		]=]--

	local m = {}		local m = {}
	EOF		EOF

Line 552:		Line 558:
	@spells = sort $sortfn @spells if $sortfn;		@spells = sort $sortfn @spells if $sortfn;
	for my $spell (@spells) {		for my $spell (@spells) {
	my $schools = ~~format_schools~~ @{$spell->{schools}};		my $schools = ucfirst_array @{$spell->{schools}};
	my $books = join "~~<br>~~", map { "[[$_]]" } @{$spell->{books}};		my $flags = ucfirst_array @{$spell->{flags}};
	print "m[\"$spell->{name}\"] = {";		$flags =~ s/_/ /g;
	print " [\"~~image~~\"] = \"[[~~File:{~~{~~lc:~~$~~spell->{name}.png}~~}~~]]\"~~, \n";		$flags =~ s/Mr check/MR check/; # special case
	print " [\"level\"] = \"$spell->{level}\", \n";		$flags =~ s/^{ \"None\" }$/nil/; # special case
	print " [\"~~schools~~\"] = \"$~~schools\"~~, \n";		my $books = join ",", map { "\"$_\"" } @{$spell->{books}};
	print " [\"~~books~~\"] = \"$~~books\"~~, \n";		my $range;
	print "}\n";		if ($spell->{minrange} eq "") {
			$range = "nil";
			} elsif ($spell->{minrange} eq "LOS") {
			$range = "\"LOS\"";
			} elsif ($spell->{minrange} eq $spell->{maxrange}) {
			$range = $spell->{minrange};
			} else {
			$range = "{$spell->{minrange}, $spell->{maxrange}}";
			}
			print "m[\"$spell->{name}\"] = {\n";
			print " [\"schools\"] = $schools, \n";
			print " [\"flags\"] = $flags, \n";
			print " [\"books\"] = { $books }, \n";
			print " [\"level\"] = $spell->{level}, \n";
			print " [\"cap\"] = $spell->{cap}, \n";
			print " [\"range\"] = $range, \n";
			print " [\"noise\"] = $spell->{noisy}, \n";
	}		}
	}		}
			print "return m\n";
	}		}

	</nowiki>		</nowiki>
	</pre>		</pre>

imported>CommanderC at 18:43, 7 September 2013

2013-09-07T18:43:53Z

@@ Line 230: / Line 230: @@
 my $sortkey = "alpha";
 my $sortfn = \&sort_by_name;
 GetOptions(
 	"a|alphabetic" => sub { $sortkey = "alpha"; $sortfn = \&sort_by_name },
@@ Line 236: / Line 237: @@
 	"l|level" => sub { $sortkey = "level"; $sortfn = \&sort_by_school },
 	"s|school" => sub { $sortkey = "school"; $sortfn = \&sort_by_level },
 	"h|help" => sub {
 		print <<"EOF";
@@ Line 244: / Line 247: @@
 Options include:
-   -a, --alphabetic  Arrange alphabetically (default).
+   -a, --alphabetic    Arrange alphabetically (default).
-   -b, --book        Arrange by book, then level.
+   -b, --book          Arrange by book, then level.
-   -f, --flag        Arrange by flag, then level.
+   -f, --flag          Arrange by flag, then level.
-   -l, --level       Arrange by level, then schools.
+   -l, --level         Arrange by level, then schools.
-   -s, --school      Arrange by school, then level.
+  -m, --module-book   Generate a Lua table of spellbooks.
-   -h, --help        Display this help.
+  -k, --module-spell  Generate a Lua table of spells.
 Spells of the same schools and level are sorted by name.  With the --book,
@@ Line 402: / Line 407: @@
+	}
+}
 print <<"EOF";
@@ Line 496: / Line 504: @@
 EOF
 </nowiki>
 </pre>

imported>CommanderC: Projected Noise was removed

2013-05-22T21:43:03Z

Projected Noise was removed

← Older revision		Revision as of 21:43, 22 May 2013
Line 90:		Line 90:
	EOF		EOF
	NONE => <<"EOF",		NONE => <<"EOF",
	The spell has no special flags. Such spells are always untargeted~~, except~~		The spell has no special flags. Such spells are always untargeted.
	~~for [[Projected Noise]]~~.
	EOF		EOF
	NOT_SELF => <<"EOF",		NOT_SELF => <<"EOF",

imported>CommanderC: fix layout

2013-02-01T20:02:08Z

fix layout

← Older revision		Revision as of 20:02, 1 February 2013
Line 443:		Line 443:
	@spells = sort $sortfn @spells if $sortfn;		@spells = sort $sortfn @spells if $sortfn;

	print "\|----\n! colspan=8 style=\"text-align:left\"\|\n====";		print "\|----\n! colspan=9 style=\"text-align:left\"\|\n====";

	# Format and link the key appropriately		# Format and link the key appropriately
Line 464:		Line 464:
	if ($desc) {		if ($desc) {
	$desc =~ s/\n/ /g;		$desc =~ s/\n/ /g;
	print "\|----\n\| colspan=8\|$desc\n";		print "\|----\n\| colspan=9\|$desc\n";
	}		}
	}		}

imported>CommanderC: Images; Range of Tornado is 6

2013-02-01T16:44:40Z

Images; Range of Tornado is 6

← Older revision		Revision as of 16:44, 1 February 2013
Line 139:		Line 139:
	my $range = shift;		my $range = shift;
	return "LOS" if $range eq "LOS_RADIUS";		return "LOS" if $range eq "LOS_RADIUS";
	return 5 if $range eq "TORNADO_RADIUS";		return 6 if $range eq "TORNADO_RADIUS";
	return "" if $range eq "-1";		return "" if $range eq "-1";
	return $range;		return $range;
Line 412:		Line 412:
	-->		-->
	{\| class="prettytable"		{\| class="prettytable"
			!rowspan=2\|Image
	!rowspan=2\|Name		!rowspan=2\|Name
	!rowspan=2\|Schools		!rowspan=2\|Schools
Line 478:		Line 479:
	print <<"EOF";		print <<"EOF";
	\|----		\|----
			\|[[File:{{lc:$spell->{name}.png}}]]
	\|style="padding-left:1em"\|[[$spell->{name}]]		\|style="padding-left:1em"\|[[$spell->{name}]]
	\|$schools		\|$schools
Line 494:		Line 496:
	\|}		\|}
	EOF		EOF


	</nowiki>		</nowiki>
	</pre>		</pre>