[ViewVC] Contents of: cvs/deliantra/gde/bin/gce

#!/opt/bin/perl
our $VERSION = '0.2';

BEGIN {
   if (%PAR::LibCache) {
      while (my ($filename, $zip) = each %PAR::LibCache) {
         for ($zip->memberNames) {
            next unless /^\/root\/(.*)/;
            $zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
               unless -e "$ENV{PAR_TEMP}/$1";
         }
      }

      $ENV{CROSSFIRE_LIBDIR} ||= $ENV{PAR_TEMP};

      if ($^O eq "MSWin32") {
         $ENV{GTK_RC_FILES} = "$ENV{PAR_TEMP}/share/themes/MS-Windows/gtk-2.0/gtkrc";
      }
   }
}

use Gtk2 -init;

use Data::Dumper;
use File::Spec;

use Crossfire;

use GCE::MainWindow;

our $CFG;
our $MAINWIN;

our $DOCUMENTATION = join ("\n", do { local $/; <DATA> });

sub read_cfg {
   my ($file) = @_;

   open CFG, $file
      or return;

   $CFG = eval join '', <CFG>;

   close CFG;
}

sub write_cfg {
   my ($file) = @_;

   open CFG, ">$file"
      or return;

   {
      local $Data::Dumper::Purity = 1;
      print CFG Data::Dumper->Dump ([$CFG], [qw/CFG/]);
   }

   close CFG;
}

# following 2 functions are taken from CV :)
sub find_rcfile($) {
   my $path;

   for (@INC) {

      $path = "$_/GCE/$_[0]";
      return $path if -r $path;
   }

   die "FATAL: can't find required file $_[0]\n";
}

sub require_image($) {
   new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
}

sub get_pos_and_size {
   my ($window) = @_;

   my ($x, $y) = $window->get_position;
   my ($w, $h) = $window->get_size;

   return [$x, $y, $w, $h];
}

sub set_pos_and_size {
   my ($window, $p_and_s, $default_w, $default_h, $default_x, $default_y) = @_;

   $window->set_default_size ($p_and_s->[2] || $default_w, $p_and_s->[3] || $default_h);

   # FIXME: This sucks, moving it after showing it can't be a good thing.
   $window->show_all;
   $window->move ($p_and_s->[0] || $default_x, $p_and_s->[1] || $default_y);
}

read_cfg "$Crossfire::VARDIR/gceconfig";

$CFG->{LIBDIR} ||= $ENV{CROSSFIRE_LIBDIR};
$CFG->{MAPDIR} ||= File::Spec->catfile ($CFG->{LIBDIR}, 'maps');

# must be done after changing the libdir path:
Crossfire::set_libdir ($CFG->{LIBDIR});
Crossfire::load_archetypes;
Crossfire::load_tilecache;

my $w = GCE::MainWindow->new;

$w->load_layout;

$w->show_all;

Gtk2->main;

__DATA__

=head1 NAME

  gce - gtk (perl) crossfire editor

=head1 SYNOPSIS

  gce [<map-filename>...]

=head1 FEATURES

gce is a map editor for crossfire.

Its main features are:

   - higher map editing comfort
   - intelligent placement tool
   - intelligent connection tool
   - intelligent erase tool
   - faster and smaller than the java editor
   - map normalizing (removal of old deprecated attributes)
   - exit following
   - world map navigation
   - easier installation (on windows)

=head1 DESCRIPTION

=head2 THE MAIN WINDOW

The main window of gce provides the display of the currently selected
object and the tools. The buttons select of the editing tool:

=over 4

=item * Pick

This tool is the simplest of all. It lets the user select the topmost
object of a map cell in the map window and updates the stack view for the
current space.

If the pick attr flag is set only the attribute editor and the stack
view are updated. This is useful when you want to put an object in the
attribute editor and want to place an object from the map, you picked
before, in an inventory of a different object (you just picked). This is a
very special thing. It will propably go away.

Shortcut-key in map editor: i

=item * Place

This is the intelligent placement tool. It has many modes:

=over 4

=item auto

This mode implements DWIM (do-what-I-mean) by trying to do the the right
thing(tm) with the selected object:

If you place a floor arch, it will try to replace the existing floor or
set the floor below all items. If you place a monster or other arch, it
will place it on top. If you place a wall, it will put the wall above the
floor and propably replace other walls.

=item top

Places the arch on the top of the stack of the map cell.

=item above floor

Places the arch just right above the floor (or the bottom of the stack).

=item below floor

Places the arch just right below the floor (or the bottom of the stack).

=item bottom

Places the arch on the bottom of the stack.

=item place clean (checkbox)

Setting this is a flag lets the placement tool place an unmodified object
on the map only. This is useful when you have modified the currently
selected object in the attribute editor (e.g. a special monster with
modified hp) but your want to place an unmodified monster.

=back

Shortcut-key in map editor: p

=item * Erase

This is the tool that lets you erase an arch.

It has following modes:

=over 4

=item top

Erases the topmost object on the stack.

=item walls

Erases all walls in the stack (and only walls).

=item above floor

Erases the first object above the floor.

=item floor

Erases all floor from the stack (and only the floor).

=item below floor

Erases the first object below the floor.

=item bottom

Erases the first object on the bottom of the stack.

=item pick match

This erases all objects from the stack that match the currently selected
object.

=item protect walls (checkbox)

This protects walls from being erased (except when erasing walls).

=item protect monsters (checkbox)

This protects monsters from being erased.

=back

Shortcut-key in map editor: e

=item * Select

This is the selection tool. It can be used to select rectangular areas and
operate on that area in various ways:

=over 4

=item copy

This just copies all objects from the selected area into an internal
buffer for later paste operations.

Shortcut-key in map editor: c

=item paste

This function pastes the internal buffer into the map, beginning in the
top left corner of the selected area. The size of the selection has no
relevance to the result: IT always places the whole internal buffer onto
the map.

Shortcut-key in map editor: p

=item invoke

This function is a very powerful one. It can apply another tool (such as
the place tool) on all spaces of the selected area.

It can, for example, be used to fill a map with floor tiles or erase
everything.

Shortcut-key in map editor: n

=back

Shortcut-key in map editor: s

=item * Eval

This is a very special tool which isn't finished yet. It lets you specify
a perl snippet that can manipulate the stack.

Shortcut-key in map editor: l

=item * Connect Exit

This tool connects two exits or teleporters.

You can either connect two exits to each other, or just point an exit to
a certain location on a map.

Shortcut-key in map editor: x

=item * Follow Exit

With this tool you can follow exits and teleporters by opening the target
map in a new window (or presents an existing window).

Shortcut-key in map editor: f

=back

=head2 THE STACK VIEW

This window displays the stack of a map space/coordinate.

You can swap two objects on the stack and delete a object from the stack
by dragging one object over another.

By clicking on an item on the stack you can make it the currently selected
object.

=head2 THE MAP EDITOR

This window just displays the map and lets you use the tools. The shortcuts are
documented above in the tool descriptions.

You can pan the map using the middle mouse button and use the tool with
the left mouse button.

There are two modifiers: Holding down the Meta/Alt-key temporarily
switches to the pick tool. Holding down the Ctrl-key temporarily switched
to the erase tool. Both will use their current settings. To change them,
you need to select the tools using the toolbox first.

=head2 THE ATTRIBUTE EDITOR

The attribute editor display the archetype name followed by the object
name and the type of the object in parentheses.

Since there are often many attributes for a given object, they are sorted
into different categories/tabs.

The lore and msg tabs let you edit the text attributes of the object.

The inventory tab lets you add stuff to the inventory by dragging them
from the selected object in the toolbox to the top most button with the
image in the inventory (the inventory editor is subject to change and
improvement).

Both field labels and value widgets have tool tips enabled. Tool tips on
the labels explain the attribute in more detail. The tool tips on the
value widgets show the default value from the archetype.


=head2 THE PICK WINDOW

Pick windows are used to quickly pick archetypes from specific categories.

Left click creates an object from the archetype and makes it the currently
selected object for the tools and the attribute editor.

You can change the attributes of the currently selected object in the
attribute editor.

You can open multiple pick windows.

=head1 AUTHOR

 The editor GUI:

 Robin Redeker <elmex@ta-sa.org>
 http://www.ta-sa.org/

 The Crossfire backend module:

 Marc Lehmann <schmorp@schmorp.de>
 http://home.schmorp.de/

=cut
Revision:	1.12
Committed:	Mon Mar 20 04:06:05 2006 UTC (18 years, 2 months ago) by elmex
Branch:	MAIN
Changes since 1.11:	+119 -114 lines
Log Message:	put in changes
#	Content
1	#!/opt/bin/perl
2	our $VERSION = '0.2';
3
4	BEGIN {
5	if (%PAR::LibCache) {
6	while (my ($filename, $zip) = each %PAR::LibCache) {
7	for ($zip->memberNames) {
8	next unless /^\/root\/(.*)/;
9	$zip->extractMember ($_, "$ENV{PAR_TEMP}/$1")
10	unless -e "$ENV{PAR_TEMP}/$1";
11	}
12	}
13
14	$ENV{CROSSFIRE_LIBDIR} \|\|= $ENV{PAR_TEMP};
15
16	if ($^O eq "MSWin32") {
17	$ENV{GTK_RC_FILES} = "$ENV{PAR_TEMP}/share/themes/MS-Windows/gtk-2.0/gtkrc";
18	}
19	}
20	}
21
22	use Gtk2 -init;
23
24	use Data::Dumper;
25	use File::Spec;
26
27	use Crossfire;
28
29	use GCE::MainWindow;
30
31	our $CFG;
32	our $MAINWIN;
33
34	our $DOCUMENTATION = join ("\n", do { local $/; <DATA> });
35
36	sub read_cfg {
37	my ($file) = @_;
38
39	open CFG, $file
40	or return;
41
42	$CFG = eval join '', <CFG>;
43
44	close CFG;
45	}
46
47	sub write_cfg {
48	my ($file) = @_;
49
50	open CFG, ">$file"
51	or return;
52
53	{
54	local $Data::Dumper::Purity = 1;
55	print CFG Data::Dumper->Dump ([$CFG], [qw/CFG/]);
56	}
57
58	close CFG;
59	}
60
61	# following 2 functions are taken from CV :)
62	sub find_rcfile($) {
63	my $path;
64
65	for (@INC) {
66
67	$path = "$_/GCE/$_[0]";
68	return $path if -r $path;
69	}
70
71	die "FATAL: can't find required file $_[0]\n";
72	}
73
74	sub require_image($) {
75	new_from_file Gtk2::Gdk::Pixbuf find_rcfile "images/$_[0]";
76	}
77
78	sub get_pos_and_size {
79	my ($window) = @_;
80
81	my ($x, $y) = $window->get_position;
82	my ($w, $h) = $window->get_size;
83
84	return [$x, $y, $w, $h];
85	}
86
87	sub set_pos_and_size {
88	my ($window, $p_and_s, $default_w, $default_h, $default_x, $default_y) = @_;
89
90	$window->set_default_size ($p_and_s->[2] \|\| $default_w, $p_and_s->[3] \|\| $default_h);
91
92	# FIXME: This sucks, moving it after showing it can't be a good thing.
93	$window->show_all;
94	$window->move ($p_and_s->[0] \|\| $default_x, $p_and_s->[1] \|\| $default_y);
95	}
96
97	read_cfg "$Crossfire::VARDIR/gceconfig";
98
99	$CFG->{LIBDIR} \|\|= $ENV{CROSSFIRE_LIBDIR};
100	$CFG->{MAPDIR} \|\|= File::Spec->catfile ($CFG->{LIBDIR}, 'maps');
101
102	# must be done after changing the libdir path:
103	Crossfire::set_libdir ($CFG->{LIBDIR});
104	Crossfire::load_archetypes;
105	Crossfire::load_tilecache;
106
107	my $w = GCE::MainWindow->new;
108
109	$w->load_layout;
110
111	$w->show_all;
112
113	Gtk2->main;
114
115	__DATA__
116
117	=head1 NAME
118
119	gce - gtk (perl) crossfire editor
120
121	=head1 SYNOPSIS
122
123	gce [<map-filename>...]
124
125	=head1 FEATURES
126
127	gce is a map editor for crossfire.
128
129	Its main features are:
130
131	- higher map editing comfort
132	- intelligent placement tool
133	- intelligent connection tool
134	- intelligent erase tool
135	- faster and smaller than the java editor
136	- map normalizing (removal of old deprecated attributes)
137	- exit following
138	- world map navigation
139	- easier installation (on windows)
140
141	=head1 DESCRIPTION
142
143	=head2 THE MAIN WINDOW
144
145	The main window of gce provides the display of the currently selected
146	object and the tools. The buttons select of the editing tool:
147
148	=over 4
149
150	=item * Pick
151
152	This tool is the simplest of all. It lets the user select the topmost
153	object of a map cell in the map window and updates the stack view for the
154	current space.
155
156	If the pick attr flag is set only the attribute editor and the stack
157	view are updated. This is useful when you want to put an object in the
158	attribute editor and want to place an object from the map, you picked
159	before, in an inventory of a different object (you just picked). This is a
160	very special thing. It will propably go away.
161
162	Shortcut-key in map editor: i
163
164	=item * Place
165
166	This is the intelligent placement tool. It has many modes:
167
168	=over 4
169
170	=item auto
171
172	This mode implements DWIM (do-what-I-mean) by trying to do the the right
173	thing(tm) with the selected object:
174
175	If you place a floor arch, it will try to replace the existing floor or
176	set the floor below all items. If you place a monster or other arch, it
177	will place it on top. If you place a wall, it will put the wall above the
178	floor and propably replace other walls.
179
180	=item top
181
182	Places the arch on the top of the stack of the map cell.
183
184	=item above floor
185
186	Places the arch just right above the floor (or the bottom of the stack).
187
188	=item below floor
189
190	Places the arch just right below the floor (or the bottom of the stack).
191
192	=item bottom
193
194	Places the arch on the bottom of the stack.
195
196	=item place clean (checkbox)
197
198	Setting this is a flag lets the placement tool place an unmodified object
199	on the map only. This is useful when you have modified the currently
200	selected object in the attribute editor (e.g. a special monster with
201	modified hp) but your want to place an unmodified monster.
202
203	=back
204
205	Shortcut-key in map editor: p
206
207	=item * Erase
208
209	This is the tool that lets you erase an arch.
210
211	It has following modes:
212
213	=over 4
214
215	=item top
216
217	Erases the topmost object on the stack.
218
219	=item walls
220
221	Erases all walls in the stack (and only walls).
222
223	=item above floor
224
225	Erases the first object above the floor.
226
227	=item floor
228
229	Erases all floor from the stack (and only the floor).
230
231	=item below floor
232
233	Erases the first object below the floor.
234
235	=item bottom
236
237	Erases the first object on the bottom of the stack.
238
239	=item pick match
240
241	This erases all objects from the stack that match the currently selected
242	object.
243
244	=item protect walls (checkbox)
245
246	This protects walls from being erased (except when erasing walls).
247
248	=item protect monsters (checkbox)
249
250	This protects monsters from being erased.
251
252	=back
253
254	Shortcut-key in map editor: e
255
256	=item * Select
257
258	This is the selection tool. It can be used to select rectangular areas and
259	operate on that area in various ways:
260
261	=over 4
262
263	=item copy
264
265	This just copies all objects from the selected area into an internal
266	buffer for later paste operations.
267
268	Shortcut-key in map editor: c
269
270	=item paste
271
272	This function pastes the internal buffer into the map, beginning in the
273	top left corner of the selected area. The size of the selection has no
274	relevance to the result: IT always places the whole internal buffer onto
275	the map.
276
277	Shortcut-key in map editor: p
278
279	=item invoke
280
281	This function is a very powerful one. It can apply another tool (such as
282	the place tool) on all spaces of the selected area.
283
284	It can, for example, be used to fill a map with floor tiles or erase
285	everything.
286
287	Shortcut-key in map editor: n
288
289	=back
290
291	Shortcut-key in map editor: s
292
293	=item * Eval
294
295	This is a very special tool which isn't finished yet. It lets you specify
296	a perl snippet that can manipulate the stack.
297
298	Shortcut-key in map editor: l
299
300	=item * Connect Exit
301
302	This tool connects two exits or teleporters.
303
304	You can either connect two exits to each other, or just point an exit to
305	a certain location on a map.
306
307	Shortcut-key in map editor: x
308
309	=item * Follow Exit
310
311	With this tool you can follow exits and teleporters by opening the target
312	map in a new window (or presents an existing window).
313
314	Shortcut-key in map editor: f
315
316	=back
317
318	=head2 THE STACK VIEW
319
320	This window displays the stack of a map space/coordinate.
321
322	You can swap two objects on the stack and delete a object from the stack
323	by dragging one object over another.
324
325	By clicking on an item on the stack you can make it the currently selected
326	object.
327
328	=head2 THE MAP EDITOR
329
330	This window just displays the map and lets you use the tools. The shortcuts are
331	documented above in the tool descriptions.
332
333	You can pan the map using the middle mouse button and use the tool with
334	the left mouse button.
335
336	There are two modifiers: Holding down the Meta/Alt-key temporarily
337	switches to the pick tool. Holding down the Ctrl-key temporarily switched
338	to the erase tool. Both will use their current settings. To change them,
339	you need to select the tools using the toolbox first.
340
341	=head2 THE ATTRIBUTE EDITOR
342
343	The attribute editor display the archetype name followed by the object
344	name and the type of the object in parentheses.
345
346	Since there are often many attributes for a given object, they are sorted
347	into different categories/tabs.
348
349	The lore and msg tabs let you edit the text attributes of the object.
350
351	The inventory tab lets you add stuff to the inventory by dragging them
352	from the selected object in the toolbox to the top most button with the
353	image in the inventory (the inventory editor is subject to change and
354	improvement).
355
356	Both field labels and value widgets have tool tips enabled. Tool tips on
357	the labels explain the attribute in more detail. The tool tips on the
358	value widgets show the default value from the archetype.
359
360
361	=head2 THE PICK WINDOW
362
363	Pick windows are used to quickly pick archetypes from specific categories.
364
365	Left click creates an object from the archetype and makes it the currently
366	selected object for the tools and the attribute editor.
367
368	You can change the attributes of the currently selected object in the
369	attribute editor.
370
371	You can open multiple pick windows.
372
373	=head1 AUTHOR
374
375	The editor GUI:
376
377	Robin Redeker <elmex@ta-sa.org>
378	http://www.ta-sa.org/
379
380	The Crossfire backend module:
381
382	Marc Lehmann <schmorp@schmorp.de>
383	http://home.schmorp.de/
384
385	=cut