2530 trammoc: array[TAmmoStrId] of ansistring; // caption of the weapon |
2530 trammoc: array[TAmmoStrId] of ansistring; // caption of the weapon |
2531 trammod: array[TAmmoStrId] of ansistring; // description of the weapon |
2531 trammod: array[TAmmoStrId] of ansistring; // description of the weapon |
2532 trmsg: array[TMsgStrId] of ansistring; // message of the event |
2532 trmsg: array[TMsgStrId] of ansistring; // message of the event |
2533 trgoal: array[TGoalStrId] of ansistring; // message of the goal |
2533 trgoal: array[TGoalStrId] of ansistring; // message of the goal |
2534 |
2534 |
|
2535 procedure preInitModule; |
2535 procedure initModule; |
2536 procedure initModule; |
2536 procedure freeModule; |
2537 procedure freeModule; |
2537 |
2538 |
2538 implementation |
2539 implementation |
2539 |
2540 |
2540 |
2541 |
2541 procedure initModule; |
2542 procedure preInitModule; |
2542 begin |
2543 begin |
2543 // initialisation flags - they are going to be overwritten by args or by msgs |
2544 // initialisation flags - they are going to be overwritten by program args |
|
2545 |
2544 cScreenWidth := 1024; |
2546 cScreenWidth := 1024; |
2545 cScreenHeight := 768; |
2547 cScreenHeight := 768; |
2546 cBits := 32; |
2548 cBits := 32; |
|
2549 cShowFPS := false; |
|
2550 cAltDamage := true; |
|
2551 cTimerInterval := 8; |
|
2552 cReducedQuality := rqNone; |
|
2553 cLocaleFName := 'en.txt'; |
|
2554 cFullScreen := false; |
|
2555 |
|
2556 UserPathPrefix := ''; |
2547 ipcPort := 0; |
2557 ipcPort := 0; |
2548 cFullScreen := false; |
|
2549 cLocaleFName := 'en.txt'; |
|
2550 cLocale := 'en'; |
|
2551 cTimerInterval := 8; |
|
2552 PathPrefix := './'; |
|
2553 UserPathPrefix := './'; |
|
2554 cShowFPS := false; |
|
2555 cFlattenFlakes := false; |
|
2556 cFlattenClouds := false; |
|
2557 cAltDamage := true; |
|
2558 cReducedQuality := rqNone; |
|
2559 UserNick := ''; |
2558 UserNick := ''; |
2560 recordFileName := ''; |
|
2561 cScriptName := ''; |
|
2562 cReadyDelay := 5000; |
|
2563 cStereoMode := smNone; |
2559 cStereoMode := smNone; |
2564 GrayScale := false; |
2560 GrayScale := false; |
2565 |
2561 PathPrefix := './'; |
2566 cFlattenFlakes := false; |
2562 GameType := gmtLocal; |
2567 cFlattenClouds := false; |
2563 |
2568 cOnlyStats := False; |
2564 {$IFDEF USE_VIDEO_RECORDING} |
2569 lastVisualGearByUID:= nil; |
2565 RecPrefix := ''; |
2570 lastGearByUID:= nil; |
2566 cAVFormat := ''; |
2571 |
2567 cVideoCodec := ''; |
2572 Pathz:= cPathz; |
2568 cVideoFramerateNum := 0; |
|
2569 cVideoFramerateDen := 0; |
|
2570 cVideoQuality := 0; |
|
2571 cAudioCodec := ''; |
|
2572 {$ENDIF} |
|
2573 end; |
|
2574 |
|
2575 procedure initModule; |
|
2576 begin |
|
2577 |
|
2578 if (Length(cLocaleFName) > 6) then |
|
2579 cLocale := Copy(cLocaleFName,1,5) |
|
2580 else |
|
2581 cLocale := Copy(cLocaleFName,1,2); |
|
2582 |
|
2583 cFlattenFlakes := false; |
|
2584 cFlattenClouds := false; |
|
2585 cOnlyStats := False; |
|
2586 lastVisualGearByUID := nil; |
|
2587 lastGearByUID := nil; |
|
2588 recordFileName := ''; |
|
2589 cReadyDelay := 5000; |
|
2590 Pathz := cPathz; |
|
2591 |
2573 {* REFERENCE |
2592 {* REFERENCE |
2574 4096 -> $FFFFF000 |
2593 4096 -> $FFFFF000 |
2575 2048 -> $FFFFF800 |
2594 2048 -> $FFFFF800 |
2576 1024 -> $FFFFFC00 |
2595 1024 -> $FFFFFC00 |
2577 512 -> $FFFFFE00 *} |
2596 512 -> $FFFFFE00 *} |
2697 vobSDFramesCount:= 4; |
2715 vobSDFramesCount:= 4; |
2698 vobSDCount:= 30 * cScreenSpace div LAND_WIDTH; |
2716 vobSDCount:= 30 * cScreenSpace div LAND_WIDTH; |
2699 vobSDVelocity:= 15; |
2717 vobSDVelocity:= 15; |
2700 vobSDFallSpeed:= 250; |
2718 vobSDFallSpeed:= 250; |
2701 |
2719 |
2702 cMinScreenWidth := 640; |
2720 cMinScreenWidth:= min(cScreenWidth, 640); |
2703 cMinScreenHeight := 480; |
2721 cMinScreenHeight:= min(cScreenHeight, 480); |
2704 cScreenWidth := 1024; |
2722 cOrigScreenWidth:= cScreenWidth; |
2705 cScreenHeight := 768; |
2723 cOrigScreenHeight:= cScreenHeight; |
2706 cOrigScreenWidth := 1024; |
2724 |
2707 cOrigScreenHeight := 768; |
2725 cNewScreenWidth := cScreenWidth; |
2708 cNewScreenWidth := 1024; |
2726 cNewScreenHeight := cScreenHeight; |
2709 cNewScreenHeight := 768; |
|
2710 cScreenResizeDelay := 0; |
2727 cScreenResizeDelay := 0; |
2711 |
2728 |
2712 LuaGoals:= ''; |
2729 LuaGoals:= ''; |
2713 cMapName:= ''; |
2730 cMapName:= ''; |
2714 |
2731 |