| 1 |
#!/bin/bash |
| 2 |
|
| 3 |
# used to convert /var/crossfire from pre-2007 server versions to the 2007 version |
| 4 |
|
| 5 |
export PERL_UNICODE=IOEioA |
| 6 |
|
| 7 |
cd /var/crossfire || exit 55 |
| 8 |
|
| 9 |
( |
| 10 |
cd unique-items || exit 77 |
| 11 |
|
| 12 |
echo -n "uq:" |
| 13 |
for map in *.v00; do |
| 14 |
if [ -e $map ]; then |
| 15 |
#echo -n " $map" |
| 16 |
dst=$(perl -Mutf8 -e 'for ($ARGV[0]) { s/\@/∕/g; s/\.v00$//; print }' "$map") |
| 17 |
mv $map ∕$dst |
| 18 |
[ -e $map.pst ] && mv $map.pst ∕$dst.pst |
| 19 |
fi |
| 20 |
done |
| 21 |
echo |
| 22 |
) |
| 23 |
|
| 24 |
( |
| 25 |
cd players || exit 66 |
| 26 |
|
| 27 |
echo -n "maps:" |
| 28 |
for map in \ |
| 29 |
∕azumauindo∕minatomachi∕ketsueki_itsuryuu∕bigchest \ |
| 30 |
∕azumauindo∕ranbounagisatoshi∕apartments∕sapartment \ |
| 31 |
∕azumauindo∕suno-yamatoshi∕apartments∕lapartment1 \ |
| 32 |
∕azumauindo∕suno-yamatoshi∕nenshou_youso∕bigchest \ |
| 33 |
∕azumauindo∕zaseki∕dzuki_ryoku∕bigchest \ |
| 34 |
∕brest∕apartments∕brest_town_house \ |
| 35 |
∕brest∕black_shield∕bigchest \ |
| 36 |
∕city∕apartment∕apartments \ |
| 37 |
∕darcap∕darcap∕apartment \ |
| 38 |
∕darcap∕darcap∕guilds∕poisoned_dagger∕bigchest \ |
| 39 |
∕darcap∕darcap∕guilds∕smoking_cauldron∕bigchest \ |
| 40 |
∕mlab∕cdcapart1 \ |
| 41 |
∕mlab∕citydecloudsvillab1 \ |
| 42 |
∕mlab∕citydecloudsvillab2 \ |
| 43 |
∕mlab∕mlabhellcityofdisad \ |
| 44 |
∕mlab∕mlabhellcityofdispermapart \ |
| 45 |
∕mlab∕mountpermapartment \ |
| 46 |
∕mlab∕mountpermapartment2 \ |
| 47 |
∕mlab∕prisondemadnessHLi12bigchest1 \ |
| 48 |
∕navar∕city∕apartments∕apartment \ |
| 49 |
∕navar∕city∕apartments∕apartment∕attic \ |
| 50 |
∕navar∕city∕apartments∕apartment∕basement \ |
| 51 |
∕navar∕city∕apartments∕apartment∕upstairs \ |
| 52 |
∕navar∕city∕dreaming_sage∕bigchest \ |
| 53 |
∕onefang∕suites \ |
| 54 |
∕pup_land∕guilds∕laughing_skull∕bigchest \ |
| 55 |
∕pup_land∕guilds∕purple_butterfly∕bigchest \ |
| 56 |
∕pup_land∕lone∕town∕apartment∕basement \ |
| 57 |
∕pup_land∕lone∕town∕apartment∕groundfloor \ |
| 58 |
∕pup_land∕lone∕town∕apartment∕upper1 \ |
| 59 |
∕pup_land∕nurnberg∕apartment∕cave \ |
| 60 |
∕pup_land∕nurnberg∕apartment∕main \ |
| 61 |
∕pup_land∕nurnberg∕apartment∕upstairs \ |
| 62 |
∕santo∕dominion∕guilds∕drunken_barbarian∕bigchest \ |
| 63 |
∕santo∕dominion∕sdomino_appartment \ |
| 64 |
∕scorn∕apartment∕Apartments1 \ |
| 65 |
∕scorn∕apartment∕Apartments2 \ |
| 66 |
∕scorn∕apartment∕Apartments3 \ |
| 67 |
∕scorn∕apartment∕Apartments4 \ |
| 68 |
∕scorn∕apartment∕Apartments5 \ |
| 69 |
∕scorn∕apartment∕apartments \ |
| 70 |
∕scorn∕guilds∕mailed_fist∕bigchest |
| 71 |
do |
| 72 |
underscore=$(perl -Mutf8 -e '$ARGV[0] =~ s/∕/_/g; print $ARGV[0]' $map) |
| 73 |
#echo -n " $map" |
| 74 |
for dir in */; do |
| 75 |
if [ -e $dir$underscore ]; then |
| 76 |
mv $dir$underscore $dir$map |
| 77 |
fi |
| 78 |
if [ -e $dir$underscore.pst ]; then |
| 79 |
mv $dir$underscore.pst $dir$map.pst |
| 80 |
fi |
| 81 |
done |
| 82 |
done |
| 83 |
echo |
| 84 |
|
| 85 |
echo -n "pl:" |
| 86 |
for pl in */*.pl; do |
| 87 |
#echo -n " $pl" |
| 88 |
perl -Mutf8 -i -pe 's{^(savebed_map|map) (/var/crossfire/players/)}{$1 ~}g' $pl |
| 89 |
done |
| 90 |
echo |
| 91 |
) |
| 92 |
|
| 93 |
|
