sheepy-clone: comparison hedgewars/uMisc.pas

equal deleted inserted replaced

-:793386610068
+:b1c2c2f6fc5e
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
 *)
 {$INCLUDE "options.inc"}
-{$INLINE ON}
 unit uMisc;
 interface
 uses    SDLh, uConsts, uFloat, GLunit, Math;
 var
+/////// init flags ///////
+cScreenWidth    : LongInt     = 1024;
+cScreenHeight   : LongInt     = 768;
+cBits           : LongInt     = 32;
+//ipcPort is in uIO
+cFullScreen     : boolean     = false;
+isSoundEnabled  : boolean     = true;
+isMusicEnabled  : boolean     = false;
+cLocaleFName    : shortstring = 'en.txt';
+cInitVolume     : LongInt     = 100;
+cTimerInterval  : LongInt     = 8;
+PathPrefix      : shortstring = './';
+cShowFPS        : boolean     = false;
+cAltDamage      : boolean     = true;
+cReducedQuality : LongInt     = rqNone;
+//userNick is in uChat
+recordFileName  : shortstring = '';
+cReadyDelay     : Longword    = 0;
+cLogfileBase    : shortstring = 'debug';
+//////////////////////////
 isCursorVisible : boolean;
 isTerminated    : boolean;
 isInLag         : boolean;
 isPaused        : boolean;
 isSEBackup      : boolean;
 isInMultiShoot  : boolean;
 isSpeed         : boolean;
 isFirstFrame    : boolean;
-//isStereoEnabled : boolean;
 cStereoMode     : TStereoMode;
 fastUntilLag    : boolean;
 GameState       : TGameState;
 GameType        : TGameType;
 GameFlags       : Longword;
 TrainingFlags   : Longword;
 TurnTimeLeft    : Longword;
+ReadyTimeLeft   : Longword;
 cSuddenDTurns   : LongInt;
 cDamagePercent  : LongInt;
 cMineDudPercent : LongWord;
 cTemplateFilter : LongInt;
 cMapGen         : LongInt;
 TrainingTimeInM : Longword;
 TrainingTimeMax : Longword;
 TimeTrialStartTime: Longword;
 TimeTrialStopTime : Longword;
-// init flags
+// originally from uConsts
-cScreenWidth    : LongInt = 1024;
+Pathz: array[TPathType] of shortstring;
-cScreenHeight   : LongInt = 768;
+CountTexz: array[1..Pred(AMMO_INFINITE)] of PTexture;
-cBits           : LongInt = 32;
+LAND_WIDTH       : LongInt;
-cBitsStr        : string[2] = '32';
+LAND_HEIGHT      : LongInt;
-//ipcPort is in uIO
+LAND_WIDTH_MASK  : LongWord;
-cFullScreen     : boolean = false;
+LAND_HEIGHT_MASK : LongWord;
-isSoundEnabled  : boolean = true;
+cMaxCaptions     : LongInt;
-isMusicEnabled  : boolean = false;
-cLocaleFName    : shortstring = 'en.txt';
+cLeftScreenBorder     : LongInt;
-cInitVolume     : LongInt = 50;
+cRightScreenBorder    : LongInt;
-cTimerInterval  : LongInt = 8;
+cScreenSpace          : LongInt;
-//pathPrefix is in uConsts
-cShowFPS        : boolean = false;
-cAltDamage      : boolean = true;
-cReducedQuality : LongInt = rqNone;
-recordFileName  : shortstring = '';
 cCaseFactor     : Longword;
 cLandAdditions  : Longword;
 cExplosives     : Longword;
 cSeed           : shortstring;
 procedure SplitBySpace(var a, b: shortstring);
 procedure SplitByChar(var a, b: ansistring; c: char);
 function  EnumToStr(const en : TGearType) : shortstring; overload;
 function  EnumToStr(const en : TSound) : shortstring; overload;
 function  EnumToStr(const en : TAmmoType) : shortstring; overload;
+function  EnumToStr(const en : THogEffect) : shortstring; overload;
 procedure movecursor(dx, dy: LongInt);
-function  hwSign(r: hwFloat): LongInt;
+function  hwSign(r: hwFloat): LongInt; inline;
-function  Min(a, b: LongInt): LongInt;
+function  Min(a, b: LongInt): LongInt; inline;
-function  Max(a, b: LongInt): LongInt;
+function  Max(a, b: LongInt): LongInt; inline;
 procedure OutError(Msg: shortstring; isFatalError: boolean);
 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean); inline;
 procedure SDLTry(Assert: boolean; isFatal: boolean);
 function  IntToStr(n: LongInt): shortstring;
 function  FloatToStr(n: hwFloat): shortstring;
 function  DxDy2Angle(const _dY, _dX: hwFloat): GLfloat;
 function  DxDy2Angle32(const _dY, _dX: hwFloat): LongInt;
 function  DxDy2AttackAngle(const _dY, _dX: hwFloat): LongInt;
+(*
 procedure AdjustColor(var Color: Longword);
 procedure SetKB(n: Longword);
+*)
 procedure SendKB;
 procedure SetLittle(var r: hwFloat);
 procedure SendStat(sit: TStatInfoType; s: shortstring);
 function  Str2PChar(const s: shortstring): PChar;
 function  NewTexture(width, height: Longword; buf: Pointer): PTexture;
 function  Surface2Tex(surf: PSDL_Surface; enableClamp: boolean): PTexture;
 procedure FreeTexture(tex: PTexture);
 function  toPowerOf2(i: Longword): Longword; inline;
 function  DecodeBase64(s: shortstring): shortstring;
 function  doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;
-function  endian(independent: LongWord): LongWord;
+function  endian(independent: LongWord): LongWord; inline;
 {$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
-function  RectToStr(Rect: TSDL_Rect): shortstring;
+(* function  RectToStr(Rect: TSDL_Rect): shortstring; *)
 {$ENDIF}
 procedure MakeScreenshot(filename: shortstring);
 implementation
-uses uConsole, uStore, uIO, uSound, typinfo, sysutils;
+uses uConsole, uStore, uIO, uSound, typinfo, sysutils, uMobile;
 var KBnum: Longword;
 {$IFDEF DEBUGFILE}
 f: textfile;
 {$ENDIF}
 function EnumToStr(const en : TAmmoType) : shortstring; overload;
 begin
 EnumToStr:= GetEnumName(TypeInfo(TAmmoType), ord(en))
 end;
+function EnumToStr(const en: THogEffect) : shortstring; overload;
+begin
+EnumToStr := GetEnumName(TypeInfo(THogEffect), ord(en))
+end;
 procedure movecursor(dx, dy: LongInt);
 var x, y: LongInt;
 begin
 if (dx = 0) and (dy = 0) then exit;
 procedure OutError(Msg: shortstring; isFatalError: boolean);
 begin
 // obsolete? written in WriteLnToConsole() anyway
 // {$IFDEF DEBUGFILE}AddFileLog(Msg);{$ENDIF}
 WriteLnToConsole(Msg);
 if isFatalError then
 begin
 SendIPC('E' + GetLastConsoleLine);
 SDL_Quit;
 halt(1)
 end
 end;
 procedure TryDo(Assert: boolean; Msg: shortstring; isFatal: boolean);
 begin
 procedure SDLTry(Assert: boolean; isFatal: boolean);
 begin
 if not Assert then OutError(SDL_GetError, isFatal)
 end;
+(*
 procedure AdjustColor(var Color: Longword);
 begin
 Color:= SDL_MapRGB(PixelFormat, (Color shr 16) and $FF, (Color shr 8) and $FF, Color and $FF)
 end;
+procedure SetKB(n: Longword);
+begin
+KBnum:= n
+end;
+*)
 function IntToStr(n: LongInt): shortstring;
 begin
 str(n, IntToStr)
 end;
 dX:= _dX.QWordValue / $100000000;
 if _dX.isNegative then dX:= - dX;
 DxDy2AttackAngle:= trunc(arctan2(dY, dX) * MaxAngleDivPI)
 end;
-procedure SetKB(n: Longword);
-begin
-KBnum:= n
-end;
 procedure SendKB;
 var s: shortstring;
 begin
 if KBnum <> 0 then
 begin
 begin
 r:= SignAs(cLittle, r)
 end;
 procedure SendStat(sit: TStatInfoType; s: shortstring);
-const stc: array [TStatInfoType] of char = 'rDkKHT';
+const stc: array [TStatInfoType] of char = 'rDkKHTPsSB';
 var buf: shortstring;
 begin
 buf:= 'i' + stc[sit] + s;
 SendIPCRaw(@buf[0], length(buf) + 1)
 end;
 Surface2Tex^.w:= surf^.w;
 Surface2Tex^.h:= surf^.h;
 if (surf^.format^.BytesPerPixel <> 4) then
 begin
 TryDo(false, 'Surface2Tex failed, expecting 32 bit surface', true);
 Surface2Tex^.id:= 0;
 exit
 end;
 glGenTextures(1, @Surface2Tex^.id);
 glBindTexture(GL_TEXTURE_2D, Surface2Tex^.id);
 if SDL_MustLock(surf) then
 SDLTry(SDL_LockSurface(surf) >= 0, true);
 if (not SupportNPOTT) and (not (isPowerOf2(Surf^.w) and isPowerOf2(Surf^.h))) then
 begin
 tw:= toPowerOf2(Surf^.w);
 th:= toPowerOf2(Surf^.h);
 Surface2Tex^.rx:= Surf^.w / tw;
 Surface2Tex^.ry:= Surf^.h / th;
 GetMem(tmpp, tw * th * surf^.format^.BytesPerPixel);
 fromP4:= Surf^.pixels;
 toP4:= tmpp;
 for y:= 0 to Pred(Surf^.h) do
 begin
 for x:= 0 to Pred(Surf^.w) do toP4^[x]:= fromP4^[x];
 for x:= Surf^.w to Pred(tw) do toP4^[x]:= 0;
 toP4:= @(toP4^[tw]);
-fromP4:= @(fromP4^[Surf^.pitch div 4]);
+fromP4:= @(fromP4^[Surf^.pitch div 4])
 end;
 for y:= Surf^.h to Pred(th) do
 begin
 for x:= 0 to Pred(tw) do toP4^[x]:= 0;
-toP4:= @(toP4^[tw]);
+toP4:= @(toP4^[tw])
 end;
 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, tw, th, 0, GL_RGBA, GL_UNSIGNED_BYTE, tmpp);
 FreeMem(tmpp, tw * th * surf^.format^.BytesPerPixel)
 end
 else
 begin
 Surface2Tex^.rx:= 1.0;
 Surface2Tex^.ry:= 1.0;
 glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, surf^.w, surf^.h, 0, GL_RGBA, GL_UNSIGNED_BYTE, surf^.pixels);
 end;
 ResetVertexArrays(Surface2Tex);
 if SDL_MustLock(surf) then
 SDL_UnlockSurface(surf);
 procedure FreeTexture(tex: PTexture);
 begin
 if tex <> nil then
 begin
 if tex^.NextTexture <> nil then
 tex^.NextTexture^.PrevTexture:= tex^.PrevTexture;
 if tex^.PrevTexture <> nil then
 tex^.PrevTexture^.NextTexture:= tex^.NextTexture
 else
 TextureList:= tex^.NextTexture;
 glDeleteTextures(1, @tex^.id);
 Dispose(tex);
 end
 end;
 procedure AddFileLog(s: shortstring);
 begin
 writeln(f, GameTicks: 6, ': ', s);
 flush(f)
 end;
+(*
 function RectToStr(Rect: TSDL_Rect): shortstring;
 begin
 RectToStr:= '(x: ' + inttostr(rect.x) + '; y: ' + inttostr(rect.y) + '; w: ' + inttostr(rect.w) + '; h: ' + inttostr(rect.h) + ')'
 end;
+*)
 {$ENDIF}
 function doSurfaceConversion(tmpsurf: PSDL_Surface): PSDL_Surface;
 {* for more information http://www.idevgames.com/forum/showpost.php?p=85864&postcount=7 *}
 var convertedSurf: PSDL_Surface = nil;
 end;
 exit(tmpsurf);
 end;
-function endian(independent: LongWord): LongWord;
+function endian(independent: LongWord): LongWord; inline;
 begin
 {$IFDEF ENDIAN_LITTLE}
 endian:= independent;
 {$ELSE}
 endian:= (((independent and $FF000000) shr 24) or
 procedure initModule;
 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF}
 begin
+Pathz:= cPathz;
+{*  REFERENCE
+4096 -> $FFFFF000
+2048 -> $FFFFF800
+1024 -> $FFFFFC00
+512 -> $FFFFFE00  *}
+if (cReducedQuality and rqLowRes) <> 0 then
+begin
+LAND_WIDTH:= 2048;
+LAND_HEIGHT:= 1024;
+LAND_WIDTH_MASK:= $FFFFF800;
+LAND_HEIGHT_MASK:= $FFFFFC00;
+end
+else
+begin
+LAND_WIDTH:= 4096;
+LAND_HEIGHT:= 2048;
+LAND_WIDTH_MASK:= $FFFFF000;
+LAND_HEIGHT_MASK:= $FFFFF800
+end;
 cDrownSpeed.QWordValue  := 257698038;       // 0.06
 cDrownSpeedf            := 0.06;
 cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025
 cWindSpeed.QWordValue   := 429496;      // 0.0001
 cWindSpeedf             := 0.0001;
 cGravity                := cMaxWindSpeed * 2;
 cGravityf               := 0.00025 * 2;
 cDamageModifier         := _1;
 TargetPoint             := cTargetPointRef;
 TextureList             := nil;
 // int, longint longword and byte
 CursorMovementX     := 0;
 CursorMovementY     := 0;
 GameTicks           := 0;
 TrainingTimeInc     := 10000;
 RealTicks       := 0;
 AttackBar       := 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP
 cCaseFactor     := 5;  {0..9}
 cLandAdditions  := 4;
 cExplosives     := 2;
 GameState       := Low(TGameState);
 GameType        := gmtLocal;
 zoom            := cDefaultZoomLevel;
 ZoomValue       := cDefaultZoomLevel;
 WeaponTooltipTex:= nil;
 isSEBackup      := true;
 cSeed           := '';
 cVolumeDelta    := 0;
 cHasFocus       := true;
 cInactDelay     := 1250;
+ReadyTimeLeft   := 0;
 ScreenFade      := sfNone;
 {$IFDEF SDL13}
 SDLwindow       := nil;
 {$ENDIF}
+// those values still aren't perfect
+cLeftScreenBorder:= round(-cMinZoomLevel * cScreenWidth);
+cRightScreenBorder:= round(cMinZoomLevel * cScreenWidth + LAND_WIDTH);
+cScreenSpace:= cRightScreenBorder - cLeftScreenBorder;
+if isPhone() then
+cMaxCaptions:= 3
+else
+cMaxCaptions:= 4;
 {$IFDEF DEBUGFILE}
 {$I-}
 {$IFDEF IPHONEOS}
-Assign(f,'../Documents/debug.txt');
+Assign(f,'../Documents/hw-' + cLogfileBase + '.log');
 Rewrite(f);
 {$ELSE}
 if (ParamStr(1) <> '') and (ParamStr(2) <> '') then
-if (ParamCount <> 3) and (ParamCount <> 19) then
+if (ParamCount <> 3) and (ParamCount <> cDefaultParamNum) then
 begin
 for i:= 0 to 7 do
 begin
-assign(f, ExtractFileDir(ParamStr(2)) + '/debug' + inttostr(i) + '.txt');
+assign(f, ExtractFileDir(ParamStr(2)) + '/' + cLogfileBase + inttostr(i) + '.log');
 rewrite(f);
 if IOResult = 0 then break;
 end;
 if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr
 end
 else
 begin
 for i:= 0 to 7 do
 begin
-assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');
+assign(f, ParamStr(1) + '/Logs/' + cLogfileBase + inttostr(i) + '.log');
 rewrite(f);
 if IOResult = 0 then break;
 end;
 if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr
 end
 {$IFDEF DEBUGFILE}
 writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
 flush(f);
 close(f);
 {$ENDIF}
+// re-init flags so they will always contain safe values
+cScreenWidth    := 1024;
+cScreenHeight   := 768;
+cBits           := 32;
+//ipcPort is in uIO
+cFullScreen     := false;
+isSoundEnabled  := true;
+isMusicEnabled  := false;
+cLocaleFName    := 'en.txt';
+cInitVolume     := 100;
+cTimerInterval  := 8;
+PathPrefix := './';
+cShowFPS        := false;
+cAltDamage      := true;
+cReducedQuality := rqNone;
+//userNick is in uChat
+recordFileName  := '';
+cReadyDelay     := 5000;
 end;
 end.

branch	experimental3D
changeset 4004	b1c2c2f6fc5e
parent 3696	6009d8378422
parent 3988	044cc945b2f8
child 4343	19cbea33e4d2