equal
deleted
inserted
replaced
34 WorldDy: LongInt; |
34 WorldDy: LongInt; |
35 {$IFDEF COUNTTICKS} |
35 {$IFDEF COUNTTICKS} |
36 cntTicks: LongWord; |
36 cntTicks: LongWord; |
37 {$ENDIF} |
37 {$ENDIF} |
38 |
38 |
39 procedure init_uWorld; |
39 procedure initModule; |
40 procedure free_uWorld; |
40 procedure freeModule; |
41 |
41 |
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); |
931 amount:= max(1, amount); |
931 amount:= max(1, amount); |
932 WorldDx:= WorldDx - amount + LongInt(getRandom(1 + amount * 2)); |
932 WorldDx:= WorldDx - amount + LongInt(getRandom(1 + amount * 2)); |
933 WorldDy:= WorldDy - amount + LongInt(getRandom(1 + amount * 2)); |
933 WorldDy:= WorldDy - amount + LongInt(getRandom(1 + amount * 2)); |
934 end; |
934 end; |
935 |
935 |
936 procedure init_uWorld; |
936 procedure initModule; |
937 begin |
937 begin |
938 fpsTexture:= nil; |
938 fpsTexture:= nil; |
939 FollowGear:= nil; |
939 FollowGear:= nil; |
940 WindBarWidth:= 0; |
940 WindBarWidth:= 0; |
941 bShowAmmoMenu:= false; |
941 bShowAmmoMenu:= false; |
953 missionTimer:= 0; |
953 missionTimer:= 0; |
954 |
954 |
955 FillChar(Captions, sizeof(Captions), 0) |
955 FillChar(Captions, sizeof(Captions), 0) |
956 end; |
956 end; |
957 |
957 |
958 procedure free_uWorld; |
958 procedure freeModule; |
959 begin |
959 begin |
960 if missionTex <> nil then FreeTexture(missionTex); |
960 if missionTex <> nil then FreeTexture(missionTex); |
961 end; |
961 end; |
962 |
962 |
963 end. |
963 end. |