| changeset 11704 | 1694b379c83f |
| parent 11520 | 663ecfb05df6 |
| child 11734 | f48408dcea36 |
| 11703:607e2e43acf0 | 11704:1694b379c83f |
|---|---|
20 |
20 |
21 unit uVariables; |
21 unit uVariables; |
22 interface |
22 interface |
23 |
23 |
24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uUtils{$IFDEF GL2}, uMatrix{$ENDIF}; |
24 uses SDLh, uTypes, uFloat, GLunit, uConsts, Math, uUtils{$IFDEF GL2}, uMatrix{$ENDIF}; |
25 |
|
26 procedure initScreenSpaceVars(); |
|
25 |
27 |
26 var |
28 var |
27 /////// init flags /////// |
29 /////// init flags /////// |
28 cMinScreenWidth : LongInt; |
30 cMinScreenWidth : LongInt; |
29 cMinScreenHeight : LongInt; |
31 cMinScreenHeight : LongInt; |
2512 {$ENDIF} |
2514 {$ENDIF} |
2513 |
2515 |
2514 cTagsMask:= htTeamName or htName or htHealth; |
2516 cTagsMask:= htTeamName or htName or htHealth; |
2515 end; |
2517 end; |
2516 |
2518 |
2519 procedure initScreenSpaceVars(); |
|
2520 begin |
|
2521 // those values still are not perfect |
|
2522 cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth); |
|
2523 cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH); |
|
2524 cScreenSpace:= cRightScreenBorder - cLeftScreenBorder; |
|
2525 end; |
|
2526 |
|
2517 procedure initModule; |
2527 procedure initModule; |
2518 var s: shortstring; |
2528 var s: shortstring; |
2519 i: integer; |
2529 i: integer; |
2520 begin |
2530 begin |
2521 // init LastVoice |
2531 // init LastVoice |
2692 InCinematicMode := false; |
2702 InCinematicMode := false; |
2693 CinematicSteps := 0; |
2703 CinematicSteps := 0; |
2694 CinematicBarH := 0; |
2704 CinematicBarH := 0; |
2695 CinematicScript := false; |
2705 CinematicScript := false; |
2696 |
2706 |
2697 // those values still are not perfect |
2707 initScreenSpaceVars(); |
2698 cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth); |
|
2699 cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH); |
|
2700 cScreenSpace:= cRightScreenBorder - cLeftScreenBorder; |
|
2701 |
2708 |
2702 dirtyLandTexCount:= 0; |
2709 dirtyLandTexCount:= 0; |
2703 |
2710 |
2704 vobFrameTicks:= 0; |
2711 vobFrameTicks:= 0; |
2705 vobFramesCount:= 4; |
2712 vobFramesCount:= 4; |