author | unc0rr |
Sat, 13 Jun 2009 11:32:23 +0000 | |
changeset 2160 | c83e8608dfd7 |
parent 2144 | c76a2f7bd452 |
child 2177 | c045698e044f |
permissions | -rw-r--r-- |
184 | 1 |
(* |
1066 | 2 |
* Hedgewars, a free turn based strategy game |
925 | 3 |
* Copyright (c) 2006-2008 Andrey Korotaev <unC0Rr@gmail.com> |
184 | 4 |
* |
5 |
* This program is free software; you can redistribute it and/or modify |
|
6 |
* it under the terms of the GNU General Public License as published by |
|
7 |
* the Free Software Foundation; version 2 of the License |
|
8 |
* |
|
9 |
* This program is distributed in the hope that it will be useful, |
|
10 |
* but WITHOUT ANY WARRANTY; without even the implied warranty of |
|
11 |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
|
12 |
* GNU General Public License for more details. |
|
13 |
* |
|
14 |
* You should have received a copy of the GNU General Public License |
|
15 |
* along with this program; if not, write to the Free Software |
|
16 |
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA |
|
17 |
*) |
|
18 |
||
19 |
unit uLocale; |
|
20 |
interface |
|
21 |
type TAmmoStrId = (sidGrenade, sidClusterBomb, sidBazooka, sidUFO, sidShotgun, |
|
1263 | 22 |
sidPickHammer, sidSkip, sidRope, sidMine, sidDEagle, |
23 |
sidDynamite, sidBaseballBat, sidFirePunch, sidSeconds, |
|
24 |
sidParachute, sidAirAttack, sidMineStrike, sidBlowTorch, |
|
25 |
sidGirder, sidTeleport, sidSwitch, sidMortar, sidWhip, |
|
26 |
sidKamikaze, sidCake, sidSeduction, sidWatermelon, |
|
1854 | 27 |
sidHellishBomb, sidDrill, sidBallgun, sidNapalm, sidRCPlane, |
2023
41d3afaa20c7
Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump
nemo
parents:
2017
diff
changeset
|
28 |
sidLowGravity, sidExtraDamage, sidInvulnerable, sidExtraTime, |
41d3afaa20c7
Artillery mode, sniper rifle, speech bubble tweaks, fix of rope bug introduced by enabling hats in jump
nemo
parents:
2017
diff
changeset
|
29 |
sidLaserSight, sidVampiric, sidSniperRifle); |
285 | 30 |
|
1263 | 31 |
TMsgStrId = (sidStartFight, sidDraw, sidWinner, sidVolume, sidPaused, |
32 |
sidConfirm, sidSuddenDeath); |
|
2140 | 33 |
|
2143
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
34 |
TEventId = (eidDied, eidDrowned, eidRoundStart, eidRoundWin, eidRoundDraw, |
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
35 |
eidNewHealthPack, eidNewAmmoPack, eidNewUtilityPack, eidTurnSkipped, eidHurtSelf); |
285 | 36 |
|
2142 | 37 |
const MAX_EVENT_STRINGS = 100; |
184 | 38 |
var trammo: array[TAmmoStrId] of string; |
39 |
trmsg: array[TMsgStrId] of string; |
|
40 |
||
41 |
procedure LoadLocale(FileName: string); |
|
42 |
function Format(fmt: shortstring; var arg: shortstring): shortstring; |
|
43 |
||
2140 | 44 |
function GetEventString(e: TEventId): string; |
45 |
||
184 | 46 |
implementation |
2142 | 47 |
uses uMisc, uRandom; |
48 |
||
49 |
var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of string; |
|
50 |
trevt_n: array[TEventId] of integer; |
|
184 | 51 |
|
52 |
procedure LoadLocale(FileName: string); |
|
53 |
var s: shortstring; |
|
54 |
f: textfile; |
|
371 | 55 |
a, b, c: LongInt; |
2143
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
56 |
first: array[TEventId] of boolean; |
2144 | 57 |
e: TEventId; |
184 | 58 |
begin |
2140 | 59 |
|
2144 | 60 |
for e:= Low(TEventId) to High(TEventId) do first[e]:= true; |
2140 | 61 |
|
184 | 62 |
{$I-} |
351 | 63 |
Assign(f, FileName); |
184 | 64 |
reset(f); |
65 |
TryDo(IOResult = 0, 'Cannot load locale "' + FileName + '"', true); |
|
66 |
while not eof(f) do |
|
1263 | 67 |
begin |
68 |
readln(f, s); |
|
69 |
if Length(s) = 0 then continue; |
|
2039 | 70 |
if not (s[1] in ['0'..'9']) then continue; |
1263 | 71 |
TryDo(Length(s) > 6, 'Load locale: empty string', true); |
72 |
val(s[1]+s[2], a, c); |
|
73 |
TryDo(c = 0, 'Load locale: numbers should be two-digit: ' + s, true); |
|
74 |
TryDo(s[3] = ':', 'Load locale: ":" expected', true); |
|
75 |
val(s[4]+s[5], b, c); |
|
76 |
TryDo(c = 0, 'Load locale: numbers should be two-digit' + s, true); |
|
77 |
TryDo(s[6] = '=', 'Load locale: "=" expected', true); |
|
78 |
Delete(s, 1, 6); |
|
79 |
case a of |
|
80 |
0: if (b >=0) and (b <= ord(High(TAmmoStrId))) then trammo[TAmmoStrId(b)]:= s; |
|
81 |
1: if (b >=0) and (b <= ord(High(TMsgStrId))) then trmsg[TMsgStrId(b)]:= s; |
|
2140 | 82 |
2: if (b >=0) and (b <= ord(High(TEventId))) then begin |
2143
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
83 |
TryDo(trevt_n[TEventId(b)] < MAX_EVENT_STRINGS, 'Too many event strings in ' + inttostr(a) + ':' + inttostr(b), false); |
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
84 |
if first[TEventId(b)] then |
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
85 |
begin |
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
86 |
trevt_n[TEventId(b)]:= 0; |
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
87 |
first[TEventId(b)]:= false; |
ad05f6b2d1c0
New baseball bat sound, steam when fire lands on water (needs new hiss sound), bubbles when hedgehog drowns, more messages on
nemo
parents:
2142
diff
changeset
|
88 |
end; |
2142 | 89 |
trevt[TEventId(b)][trevt_n[TEventId(b)]]:= s; |
2140 | 90 |
inc(trevt_n[TEventId(b)]); |
91 |
end; |
|
1263 | 92 |
end; |
93 |
end; |
|
351 | 94 |
Close(f) |
184 | 95 |
{$I+} |
96 |
end; |
|
97 |
||
2140 | 98 |
function GetEventString(e: TEventId): string; |
99 |
begin |
|
100 |
if trevt_n[e] = 0 then // no messages for this event type? |
|
101 |
GetEventString:= '*missing translation*' |
|
102 |
else |
|
2142 | 103 |
GetEventString:= trevt[e][GetRandom(trevt_n[e])]; // Pick a random message and return it |
2140 | 104 |
end; |
105 |
||
184 | 106 |
function Format(fmt: shortstring; var arg: shortstring): shortstring; |
371 | 107 |
var i: LongInt; |
184 | 108 |
begin |
109 |
i:= Pos('%1', fmt); |
|
351 | 110 |
if i = 0 then Format:= fmt |
111 |
else Format:= copy(fmt, 1, i - 1) + arg + Format(copy(fmt, i + 2, Length(fmt) - i - 1), arg) |
|
184 | 112 |
end; |
113 |
||
114 |
end. |