| … | |
… | |
| 113 | } |
113 | } |
| 114 | |
114 | |
| 115 | sub new_arch_pb { |
115 | sub new_arch_pb { |
| 116 | # this is awful, is this really the best way? |
116 | # this is awful, is this really the best way? |
| 117 | my $pb = new Gtk2::Gdk::Pixbuf 'rgb', 1, 8, TILESIZE, TILESIZE; |
117 | my $pb = new Gtk2::Gdk::Pixbuf 'rgb', 1, 8, TILESIZE, TILESIZE; |
|
|
118 | fill_pb_from_arch ($pb, {}); |
| 118 | return $pb; |
119 | return $pb; |
| 119 | } |
120 | } |
| 120 | |
121 | |
| 121 | sub fill_pb_from_arch { |
122 | sub fill_pb_from_arch { |
| 122 | my ($pb, $a) = @_; |
123 | my ($pb, $a) = @_; |
| 123 | |
124 | |
| 124 | my $o = $Crossfire::ARCH{$a->{_name}}; |
125 | my $o = $Crossfire::ARCH{$a->{_name}} || {}; |
| 125 | my $face = $Crossfire::FACE{$a->{face} || $o->{face} || "blank.111"}; |
126 | my $face = $Crossfire::FACE{$a->{face} || $o->{face} || "blank.111"}; |
| 126 | unless ($face) { |
127 | unless ($face) { |
| 127 | $face = $Crossfire::FACE{"blank.x11"} |
128 | $face = $Crossfire::FACE{"blank.x11"} |
| 128 | or warn "no gfx found for arch '$a->{_name}'\n"; |
129 | or warn "no gfx found for arch '$a->{_name}'\n"; |
| 129 | } |
130 | } |
