| changeset 3032 | 9c190d3c165b |
| parent 3025 | 01682ec58eb0 |
| child 3038 | 4e48c276a468 |
| 3031:542444bfe37d | 3032:9c190d3c165b |
|---|---|
42 procedure InitWorld; |
42 procedure InitWorld; |
43 procedure DrawWorld(Lag: LongInt); |
43 procedure DrawWorld(Lag: LongInt); |
44 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup); |
44 procedure AddCaption(s: shortstring; Color: Longword; Group: TCapGroup); |
45 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
45 procedure ShowMission(caption, subcaption, text: ansistring; icon, time : LongInt); |
46 procedure HideMission; |
46 procedure HideMission; |
47 procedure ShakeCamera(amount: LongWord); |
|
47 |
48 |
48 implementation |
49 implementation |
49 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, uAmmos, uVisualGears, uChat, uLandTexture, uLand, |
50 uses uStore, uMisc, uTeams, uIO, uConsole, uKeys, uLocale, uSound, uAmmos, uVisualGears, uChat, uLandTexture, uLand, |
50 {$IFDEF GLES11} |
51 {$IFDEF GLES11} |
51 gles11; |
52 gles11; |
923 procedure HideMission; |
924 procedure HideMission; |
924 begin |
925 begin |
925 missionTimer:= 0 |
926 missionTimer:= 0 |
926 end; |
927 end; |
927 |
928 |
929 procedure ShakeCamera(amount: LongWord); |
|
930 begin |
|
931 amount:= max(1, amount); |
|
932 WorldDx:= WorldDx - amount + LongInt(getRandom(1 + amount * 2)); |
|
933 WorldDy:= WorldDy - amount + LongInt(getRandom(1 + amount * 2)); |
|
934 end; |
|
935 |
|
928 procedure init_uWorld; |
936 procedure init_uWorld; |
929 begin |
937 begin |
930 fpsTexture:= nil; |
938 fpsTexture:= nil; |
931 FollowGear:= nil; |
939 FollowGear:= nil; |
932 WindBarWidth:= 0; |
940 WindBarWidth:= 0; |