ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/gde/GCE/Util.pm
(Generate patch)

Comparing deliantra/gde/GCE/Util.pm (file contents):
Revision 1.3 by elmex, Sun Mar 12 12:18:55 2006 UTC vs.
Revision 1.18 by elmex, Thu Jun 1 14:33:14 2006 UTC

… …
15use Storable; 15use Storable;
16use List::Util qw(min max); 16use List::Util qw(min max);
17 17
18use Crossfire; 18use Crossfire;
19use Crossfire::MapWidget; 19use Crossfire::MapWidget;
20use File::Spec::Functions;
21use Cwd 'abs_path';
20 22
21our @EXPORT = qw(insert_arch_stack_layer replace_arch_stack_layer new_arch_pb fill_pb_from_arch arch_is_floor stack_find_floor stack_find_wall stack_find arch_is_wall arch_is_monster); 23our @EXPORT = qw(insert_arch_stack_layer replace_arch_stack_layer new_arch_pb
24 fill_pb_from_arch arch_is_floor stack_find_floor stack_find_wall
25 stack_find arch_is_wall arch_is_monster add_table_widget quick_msg
26 def arch_is_exit map2abs exit_paths pseudohtml2txt arch_is_connector);
27
28sub pseudohtml2txt {
29 my ($html) = @_;
30
31 $html =~ s/<br\s*?\/?>/\n/gsi;
32 $html =~ s/<b>(.*?)<\/b>/_\1_/gsi;
33 $html =~ s/<li>/\n* /gi;
34 $html =~ s/<\/?\s*li>//gi;
35 $html =~ s/<\/?\s*ul>//gi;
36 $html =~ s/&gt;/>/g;
37 $html =~ s/&lt;/</g;
38 $html
39}
40
41sub exit_paths {
42 my ($mappath, $map1path, $map2path) = @_;
43 $mappath = abs_path $mappath;
44 $map1path = abs_path $map1path;
45 $map2path = abs_path $map2path;
46
47 if ( (substr $map1path, 0, length $mappath) eq $mappath
48 and (substr $map2path, 0, length $mappath) eq $mappath) {
49 substr $map1path, 0, length $mappath, '';
50 substr $map2path, 0, length $mappath, '';
51
52 my ($v1, $d1, $f1) = File::Spec->splitpath ($map1path);
53 my ($v2, $d2, $f2) = File::Spec->splitpath ($map2path);
54
55 my @di1 = File::Spec->splitdir ($d1);
56 my @di2 = File::Spec->splitdir ($d2);
57
58 if ((defined $di1[1]) and (defined $di2[1]) and $di1[1] eq $di2[1]) {
59 my $m1 = File::Spec->abs2rel ($map1path, File::Spec->catdir (@di2));
60 my $m2 = File::Spec->abs2rel ($map2path, File::Spec->catdir (@di1));
61 return ($m1, $m2);
62 } else {
63 return ($map1path, $map2path);
64 }
65 } else {
66 return ('', '');
67 }
68}
69
70sub map2abs {
71 my ($dest, $mape) = @_;
72
73 $mappath = abs_path $mappath;
74 my $dir;
75 if (File::Spec->file_name_is_absolute($dest)) {
76 $dir = catdir ($::CFG->{MAPDIR}, $dest);
77 } else {
78 my ($v, $p, $f) = File::Spec->splitpath ($mape->{path});
79 $dir = File::Spec->rel2abs ($dest, File::Spec->catpath ($v, $p));
80 }
81 return $dir;
82}
83
84sub def($$) {
85 return defined ($_[0]) ? $_[0] : $_[1];
86}
87
88sub quick_msg {
89 my $wid = shift;
90 my $msg;
91 my $win = $::MAINWIN;
92 if (ref $wid) {
93 $win = $wid;
94 $msg = shift;
95 } else {
96 $msg = $wid;
97 }
98 my $dia = Gtk2::Dialog->new ('Message', $win, 'destroy-with-parent', 'gtk-ok' => 'none');
99
100 my $lbl = Gtk2::Label->new ($msg);
101 $dia->vbox->add ($lbl);
102 $dia->signal_connect (response => sub { $_[0]->destroy });
103
104 unless (defined $_[0]) {
105 Glib::Timeout->add (1000, sub { $dia->destroy; 0 });
106 }
107
108 $dia->show_all;
109}
22 110
23sub new_arch_pb { 111sub new_arch_pb {
24 # this is awful, is this really the best way? 112 # this is awful, is this really the best way?
25 my $pb = new Gtk2::Gdk::Pixbuf 'rgb', 1, 8, TILESIZE, TILESIZE; 113 my $pb = new Gtk2::Gdk::Pixbuf 'rgb', 1, 8, TILESIZE, TILESIZE;
26 return $pb; 114 return $pb;
27} 115}
28 116
29sub fill_pb_from_arch { 117sub fill_pb_from_arch {
30 my ($pb, $arch) = @_; 118 my ($pb, $a) = @_;
119
120 my $o = $Crossfire::ARCH{$a->{_name}};
121 my $face = $Crossfire::FACE{$a->{face} || $o->{face} || "blank.111"}
122 or warn "no gfx found for arch '$a->{_name}' at ($x|$y)\n";
123
124 $face or return;
31 125
32 $pb->fill (0x00000000); 126 $pb->fill (0x00000000);
33 $TILE->composite ($pb, 127 $TILE->composite ($pb,
34 0, 0, 128 0, 0,
35 TILESIZE, TILESIZE, 129 TILESIZE, TILESIZE,
36 - ($arch->{_face} % 64) * TILESIZE, - TILESIZE * int $arch->{_face} / 64, 130 - ($face->{idx} % 64) * TILESIZE, - TILESIZE * int $face->{idx} / 64,
37 1, 1, 'nearest', 255 131 1, 1, 'nearest', 255
38 ); 132 );
39} 133}
40 134
41sub classify_arch_layer { 135sub classify_arch_layer {
… …
53 147
54 return 'between'; 148 return 'between';
55 } 149 }
56} 150}
57 151
152sub arch_is_exit {
153 my ($a) = @_;
154 my $type = $Crossfire::ARCH{$a->{_name}}->{type};
155 return $type eq '66' || $type eq '41';
156}
157
58sub arch_is_floor { 158sub arch_is_floor {
59 my ($a) = @_; 159 my ($a) = @_;
60 return $Crossfire::ARCH{$a->{_name}}->{is_floor}; 160 my $ar = Crossfire::arch_attr $a;
161 return (substr $ar->{name}, 0, 5) eq 'Floor';
162}
163
164sub arch_is_connector {
165 my ($a) = @_;
166 my $ar = Crossfire::arch_attr $a;
167 my $has_connect_field = 0;
168
169 TOP: for (@{$ar->{section}}) {
170 my $name = shift @$_;
171 my @r = @$_;
172 if ($name eq 'general') {
173 for (@r) {
174 my ($k, $s) = ($_->[0], $_->[1]);
175 if ($k eq 'connected' && $s->{name} eq 'connection') {
176 $has_connect_field = 1;
177 last TOP;
178 }
179 }
180 last TOP;
181 }
182 }
183
184 return $has_connect_field;
61} 185}
62 186
63sub arch_is_wall { 187sub arch_is_wall {
64 my ($a) = @_; 188 my ($a) = @_;
189 my $ar = Crossfire::arch_attr $a;
190 return $ar->{name} eq 'Wall';
65 return $Crossfire::ARCH{$a->{_name}}->{no_pass}; 191#return $Crossfire::ARCH{$a->{_name}}->{no_pass};
66} 192}
67 193
68sub arch_is_monster { 194sub arch_is_monster {
69 my ($a) = @_; 195 my ($a) = @_;
70 my $arch = $Crossfire::ARCH{$a->{_name}}; 196 my $arch = $Crossfire::ARCH{$a->{_name}};
… …
162 } 288 }
163 289
164 return \@outstack; 290 return \@outstack;
165} 291}
166 292
293sub add_table_widget {
294 my ($table, $row, $data, $type, $cb) = @_;
295 my $edwid;
296
297 if ($type eq 'string') {
298 $table->attach_defaults (my $lbl = Gtk2::Label->new ($data->[0]), 0, 1, $row, $row + 1);
299 $edwid = Gtk2::Entry->new;
300 $edwid->set_text ($data->[1]);
301 $edwid->signal_connect (changed => sub {
302 $data->[1] = $_[0]->get_text;
303 $cb->($data->[1]) if $cb;
304 });
305 $table->attach_defaults ($edwid, 1, 2, $row, $row + 1);
306
307 } elsif ($type eq 'button') {
308 $table->attach_defaults (my $b = Gtk2::Button->new_with_label ($data), 0, 2, $row, $row + 1);
309 $b->signal_connect (clicked => ($cb || sub {}));
310
311 } elsif ($type eq 'label') {
312 $table->attach_defaults (my $lbl = Gtk2::Label->new ($data->[0]), 0, 1, $row, $row + 1);
313 $edwid = Gtk2::Label->new ($data->[1]);
314 $table->attach_defaults ($edwid, 1, 2, $row, $row + 1);
315
316 } else {
317 $edwid = Gtk2::Label->new ("FOO");
318 }
319}
320
167sub replace_arch_stack_layer { 321sub replace_arch_stack_layer {
168 my ($stack, $arch) = @_; 322 my ($stack, $arch) = @_;
169 323
170 my @outstack; 324 my @outstack;
171 325

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines