equal
deleted
inserted
replaced
58 prevPoint: TPoint = (X: 0; Y: 0); |
58 prevPoint: TPoint = (X: 0; Y: 0); |
59 |
59 |
60 type TCaptionStr = record |
60 type TCaptionStr = record |
61 Surf: PSDL_Surface; |
61 Surf: PSDL_Surface; |
62 StorePos: Longword; |
62 StorePos: Longword; |
|
63 Group: TCapGroup; |
63 EndTime: LongWord; |
64 EndTime: LongWord; |
64 end; |
65 end; |
65 |
66 |
66 var cWaterSprCount: integer; |
67 var cWaterSprCount: integer; |
67 Captions: array[TCapGroup] of TCaptionStr; |
68 Captions: array[0..Pred(cMaxCaptions)] of TCaptionStr; |
68 |
69 |
69 procedure InitWorld; |
70 procedure InitWorld; |
70 begin |
71 begin |
71 cWaterSprCount:= 1 + cScreenWidth div (SpritesData[sprWater].Width); |
72 cWaterSprCount:= 1 + cScreenWidth div (SpritesData[sprWater].Width); |
72 cScreenEdgesDist:= Min(cScreenWidth div 4, cScreenHeight div 4); |
73 cScreenEdgesDist:= Min(cScreenWidth div 4, cScreenHeight div 4); |