| … | |
… | |
| 19 | my ($cacheprefix) = @_; |
19 | my ($cacheprefix) = @_; |
| 20 | |
20 | |
| 21 | eval { |
21 | eval { |
| 22 | -M "$cacheprefix.pst" < -M "$Crossfire::LIB/crossfire.0" |
22 | -M "$cacheprefix.pst" < -M "$Crossfire::LIB/crossfire.0" |
| 23 | && ($Crossfire::TILE = new_from_file Gtk2::Gdk::Pixbuf "$cacheprefix.png") |
23 | && ($Crossfire::TILE = new_from_file Gtk2::Gdk::Pixbuf "$cacheprefix.png") |
| 24 | && (*Crossfire::FACE = Storable::retrieve ("$cacheprefix.pst")) |
24 | && (*Crossfire::FACE = Crossfire::load_ref "$cacheprefix.pst") |
| 25 | } or do { |
25 | } or do { |
| 26 | my $tile = read_pak "$Crossfire::LIB/crossfire.0"; |
26 | my $tile = read_pak "$Crossfire::LIB/crossfire.0"; |
| 27 | |
27 | |
| 28 | my %cache; |
28 | my %cache; |
| 29 | |
29 | |
| … | |
… | |
| 63 | } |
63 | } |
| 64 | } |
64 | } |
| 65 | } |
65 | } |
| 66 | |
66 | |
| 67 | $pb->save ("$cacheprefix.png", "png"); |
67 | $pb->save ("$cacheprefix.png", "png"); |
| 68 | Storable::nstore (\%cache, "$cacheprefix.pst"); |
68 | Crossfire::save_ref \%cache, "$cacheprefix.pst"; |
| 69 | |
69 | |
| 70 | $Crossfire::TILE = $pb; |
70 | $Crossfire::TILE = $pb; |
| 71 | *Crossfire::FACE = \%cache; |
71 | *Crossfire::FACE = \%cache; |
| 72 | } |
72 | } |
| 73 | } |
73 | } |
