hedgewars: comparison hedgewars/uMisc.pas

equal deleted inserted replaced

-:1d9e0a541c62
+:803b277e4894
 (*
 * Hedgewars, a free turn based strategy game
 * Copyright (c) 2004-2008 Andrey Korotaev <unC0Rr@gmail.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; version 2 of the License
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * 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"}
 unit uMisc;
 interface
 uses	SDLh, uConsts, uFloat,
 {$IFDEF GLES11}
-	gles11;
+gles11;
 {$ELSE}
-	GL;
+GL;
 {$ENDIF}
 var
-	isCursorVisible : boolean;
+isCursorVisible : boolean;
-	isTerminated    : boolean;
+isTerminated    : boolean;
-	isInLag         : boolean;
+isInLag         : boolean;
-	isPaused        : boolean;
+isPaused        : boolean;
-	isSoundEnabled  : boolean;
+isSoundEnabled  : boolean;
-	isMusicEnabled  : boolean;
+isMusicEnabled  : boolean;
-	isSEBackup      : boolean;
+isSEBackup      : boolean;
-	isInMultiShoot  : boolean;
+isInMultiShoot  : boolean;
-	isSpeed         : boolean;
+isSpeed         : boolean;
-	fastUntilLag    : boolean;
+fastUntilLag    : boolean;
-	GameState	: TGameState;
+GameState   : TGameState;
-	GameType	: TGameType;
+GameType    : TGameType;
-	GameFlags	: Longword;
+GameFlags   : Longword;
-	TrainingFlags	: Longword;
+TrainingFlags   : Longword;
-	TurnTimeLeft	: Longword;
+TurnTimeLeft    : Longword;
-	cSuddenDTurns	: LongInt;
+cSuddenDTurns   : LongInt;
-	cDamagePercent	: LongInt;
+cDamagePercent  : LongInt;
-	cMineDudPercent	: LongInt;
+cMineDudPercent : LongWord;
-	cTemplateFilter	: LongInt;
+cTemplateFilter : LongInt;
-	cHedgehogTurnTime: Longword;
+cHedgehogTurnTime: Longword;
-	cMinesTime       : LongInt;
+cMinesTime       : LongInt;
-	cMaxAIThinkTime  : Longword;
+cMaxAIThinkTime  : Longword;
-	cCloudsNumber    : LongInt;
+cCloudsNumber    : LongInt;
-	cScreenWidth     : LongInt;
+cScreenWidth     : LongInt;
-	cScreenHeight    : LongInt;
+cScreenHeight    : LongInt;
-	cInitWidth       : LongInt;
+cInitWidth       : LongInt;
-	cInitHeight      : LongInt;
+cInitHeight      : LongInt;
-	cVSyncInUse	 : boolean;
+cVSyncInUse      : boolean;
-	cBits            : LongInt;
+cBits            : LongInt;
-	cBitsStr         : string[2];
+cBitsStr         : string[2];
-	cTagsMaskIndex   : byte;
+cTagsMask        : byte;
-	zoom             : GLfloat;
+zoom             : GLfloat;
-	ZoomValue        : GLfloat;
+ZoomValue        : GLfloat;
-	cWaterLine       : LongInt;
+cWaterLine       : LongInt;
-	cGearScrEdgesDist: LongInt;
+cGearScrEdgesDist: LongInt;
-	cAltDamage       : boolean;
+cAltDamage       : boolean;
-	GameTicks	: LongWord;
+GameTicks	: LongWord;
-	TrainingTimeInc	: Longword;
+TrainingTimeInc	: Longword;
-	TrainingTimeInD	: Longword;
+TrainingTimeInD	: Longword;
-	TrainingTimeInM	: Longword;
+TrainingTimeInM	: Longword;
-	TrainingTimeMax	: Longword;
+TrainingTimeMax	: Longword;
-	TimeTrialStartTime: Longword;
+TimeTrialStartTime: Longword;
-	TimeTrialStopTime : Longword;
+TimeTrialStopTime : Longword;
-	recordFileName	: shortstring;
+recordFileName	: shortstring;
-	cShowFPS	: boolean;
+cShowFPS	: boolean;
-	cCaseFactor	: Longword;
+cCaseFactor	: Longword;
-	cLandAdditions	: Longword;
+cLandAdditions	: Longword;
-	cExplosives	: Longword;
+cExplosives	: Longword;
-	cFullScreen	: boolean;
+cFullScreen	: boolean;
-	cReducedQuality	: boolean;
+cReducedQuality	: boolean;
-	cLocaleFName	: shortstring;
+cLocaleFName	: shortstring;
-	cSeed		: shortstring;
+cSeed		: shortstring;
-	cInitVolume	: LongInt;
+cInitVolume	: LongInt;
-	cVolumeDelta	: LongInt;
+cVolumeDelta	: LongInt;
-	cTimerInterval	: Longword;
+cTimerInterval	: Longword;
-	cHasFocus	: boolean;
+cHasFocus	: boolean;
-	cInactDelay	: Longword;
+cInactDelay	: Longword;
-	bBetweenTurns	: boolean;
+bBetweenTurns	: boolean;
-	cHealthDecrease	: LongWord;
+cHealthDecrease	: LongWord;
-	bWaterRising	: Boolean;
+bWaterRising	: Boolean;
-	ShowCrosshair	: boolean;
+ShowCrosshair	: boolean;
-	CursorMovementX : Integer;
+CursorMovementX : Integer;
-	CursorMovementY : Integer;
+CursorMovementY : Integer;
-	cDrownSpeed	: hwFloat;
+cDrownSpeed	: hwFloat;
-	cMaxWindSpeed	: hwFloat;
+cMaxWindSpeed	: hwFloat;
-	cWindSpeed	: hwFloat;
+cWindSpeed	: hwFloat;
-	cGravity	: hwFloat;
+cGravity	: hwFloat;
-	cDamageModifier	: hwFloat;
+cDamageModifier	: hwFloat;
-	cLaserSighting	: boolean;
+cLaserSighting	: boolean;
-	cVampiric	: boolean;
+cVampiric	: boolean;
-	cArtillery	: boolean;
+cArtillery	: boolean;
-	WeaponTooltipTex : PTexture;
+WeaponTooltipTex : PTexture;
-	cWeaponTooltips: boolean;
+cWeaponTooltips: boolean;
-	flagMakeCapture	: boolean;
+flagMakeCapture	: boolean;
-	InitStepsFlags	: Longword;
+InitStepsFlags	: Longword;
-	RealTicks	: Longword;
+RealTicks	: Longword;
-	AttackBar	: LongInt;
+AttackBar	: LongInt;
-	WaterColorArray	: array[0..3] of HwColor4f;
+WaterColorArray	: array[0..3] of HwColor4f;
-	CursorPoint	: TPoint;
+CursorPoint	: TPoint;
-	TargetPoint	: TPoint;
+TargetPoint	: TPoint;
 TextureList : PTexture;
 procedure init_uMisc;
 procedure SplitBySpace(var a, b: shortstring);
 var i, t: LongInt;
 begin
 i:= Pos(' ', a);
 if i > 0 then
-	begin
+begin
-	for t:= 1 to Pred(i) do
+for t:= 1 to Pred(i) do
-		if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32);
+if (a[t] >= 'A')and(a[t] <= 'Z') then Inc(a[t], 32);
-	b:= copy(a, i + 1, Length(a) - i);
+b:= copy(a, i + 1, Length(a) - i);
-	byte(a[0]):= Pred(i)
+byte(a[0]):= Pred(i)
-	end else b:= '';
+end else b:= '';
 end;
 procedure SplitByChar(var a, b: ansistring; c: char);
 var i: LongInt;
 begin
 i:= Pos(c, a);
 if i > 0 then
-	begin
+begin
-	b:= copy(a, i + 1, Length(a) - i);
+b:= copy(a, i + 1, Length(a) - i);
-	setlength(a, Pred(i));
+setlength(a, Pred(i));
-	end else b:= '';
+end else b:= '';
 end;
 procedure movecursor(dx, dy: Integer);
 var x, y: LongInt;
 begin
 procedure OutError(Msg: shortstring; isFatalError: boolean);
 begin
 {$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
 if not Assert then OutError(Msg, isFatal)
 procedure SendKB;
 var s: shortstring;
 begin
 if KBnum <> 0 then
 begin
 s:= 'K' + inttostr(KBnum);
 SendIPCRaw(@s, Length(s) + 1)
 end
 end;
 procedure SetLittle(var r: hwFloat);
 begin
 r:= SignAs(cLittle, r)
 end;
 procedure ResetVertexArrays(texture: PTexture);
 begin
 with texture^ do
-	begin
+begin
-	vb[0].X:= 0;
+vb[0].X:= 0;
-	vb[0].Y:= 0;
+vb[0].Y:= 0;
-	vb[1].X:= w;
+vb[1].X:= w;
-	vb[1].Y:= 0;
+vb[1].Y:= 0;
-	vb[2].X:= w;
+vb[2].X:= w;
-	vb[2].Y:= h;
+vb[2].Y:= h;
-	vb[3].X:= 0;
+vb[3].X:= 0;
-	vb[3].Y:= h;
+vb[3].Y:= h;
-	tb[0].X:= 0;
+tb[0].X:= 0;
-	tb[0].Y:= 0;
+tb[0].Y:= 0;
-	tb[1].X:= rx;
+tb[1].X:= rx;
-	tb[1].Y:= 0;
+tb[1].Y:= 0;
-	tb[2].X:= rx;
+tb[2].X:= rx;
-	tb[2].Y:= ry;
+tb[2].Y:= ry;
-	tb[3].X:= 0;
+tb[3].X:= 0;
-	tb[3].Y:= ry
+tb[3].Y:= ry
-	end;
+end;
 end;
 function NewTexture(width, height: Longword; buf: Pointer): PTexture;
 begin
 new(NewTexture);
 Surface2Tex^.w:= surf^.w;
 Surface2Tex^.h:= surf^.h;
 if (surf^.format^.BytesPerPixel <> 4) then
 begin
-	TryDo(false, 'Surface2Tex failed, expecting 32 bit surface', true);
+TryDo(false, 'Surface2Tex failed, expecting 32 bit surface', true);
-	Surface2Tex^.id:= 0;
+Surface2Tex^.id:= 0;
-	exit
+exit
 end;
 glGenTextures(1, @Surface2Tex^.id);
 glBindTexture(GL_TEXTURE_2D, Surface2Tex^.id);
 if SDL_MustLock(surf) then
-	SDLTry(SDL_LockSurface(surf) >= 0, true);
+SDLTry(SDL_LockSurface(surf) >= 0, true);
 if (not SupportNPOTT) and (not (isPowerOf2(Surf^.w) and isPowerOf2(Surf^.h))) then
 begin
-	tw:= toPowerOf2(Surf^.w);
+tw:= toPowerOf2(Surf^.w);
-	th:= toPowerOf2(Surf^.h);
+th:= toPowerOf2(Surf^.h);
-	Surface2Tex^.rx:= Surf^.w / tw;
+Surface2Tex^.rx:= Surf^.w / tw;
-	Surface2Tex^.ry:= Surf^.h / th;
+Surface2Tex^.ry:= Surf^.h / th;
-	GetMem(tmpp, tw * th * surf^.format^.BytesPerPixel);
+GetMem(tmpp, tw * th * surf^.format^.BytesPerPixel);
-		fromP4:= Surf^.pixels;
+fromP4:= Surf^.pixels;
-		toP4:= tmpp;
+toP4:= tmpp;
-		for y:= 0 to Pred(Surf^.h) do
+for y:= 0 to Pred(Surf^.h) do
-		begin
+begin
-			for x:= 0 to Pred(Surf^.w) do toP4^[x]:= fromP4^[x];
+for x:= 0 to Pred(Surf^.w) do toP4^[x]:= fromP4^[x];
-			for x:= Surf^.w to Pred(tw) do toP4^[x]:= 0;
+for x:= Surf^.w to Pred(tw) do toP4^[x]:= 0;
-			toP4:= @(toP4^[tw]);
+toP4:= @(toP4^[tw]);
-			fromP4:= @(fromP4^[Surf^.pitch div 4]);
+fromP4:= @(fromP4^[Surf^.pitch div 4]);
-		end;
+end;
-		for y:= Surf^.h to Pred(th) do
+for y:= Surf^.h to Pred(th) do
-		begin
+begin
-			for x:= 0 to Pred(tw) do toP4^[x]:= 0;
+for x:= 0 to Pred(tw) do toP4^[x]:= 0;
-			toP4:= @(toP4^[tw]);
+toP4:= @(toP4^[tw]);
-		end;
+end;
-	glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, tw, th, 0, GL_RGBA, GL_UNSIGNED_BYTE, tmpp);
+glTexImage2D(GL_TEXTURE_2D, 0, GL_RGBA, tw, th, 0, GL_RGBA, GL_UNSIGNED_BYTE, tmpp);
-	FreeMem(tmpp, tw * th * surf^.format^.BytesPerPixel)
+FreeMem(tmpp, tw * th * surf^.format^.BytesPerPixel)
 end
 else
 begin
-	Surface2Tex^.rx:= 1.0;
+Surface2Tex^.rx:= 1.0;
-	Surface2Tex^.ry:= 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);
+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);
+SDL_UnlockSurface(surf);
 SetTextureParameters(enableClamp);
 end;
 procedure FreeTexture(tex: PTexture);
 begin
 if tex <> nil then
-	begin
+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);
+glDeleteTextures(1, @tex^.id);
-	Dispose(tex)
+Dispose(tex)
-	end
+end
 end;
 function DecodeBase64(s: shortstring): shortstring;
 const table = 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/';
 var i, t, c: Longword;
 begin
 c:= 0;
 for i:= 1 to Length(s) do
-	begin
+begin
-	t:= Pos(s[i], table);
+t:= Pos(s[i], table);
-	if s[i] = '=' then inc(c);
+if s[i] = '=' then inc(c);
-	if t > 0 then byte(s[i]):= t - 1 else byte(s[i]):= 0
+if t > 0 then byte(s[i]):= t - 1 else byte(s[i]):= 0
-	end;
+end;
 i:= 1;
 t:= 1;
 while i <= length(s) do
-	begin
+begin
-	DecodeBase64[t    ]:= char((byte(s[i    ]) shl 2) or (byte(s[i + 1]) shr 4));
+DecodeBase64[t    ]:= char((byte(s[i    ]) shl 2) or (byte(s[i + 1]) shr 4));
-	DecodeBase64[t + 1]:= char((byte(s[i + 1]) shl 4) or (byte(s[i + 2]) shr 2));
+DecodeBase64[t + 1]:= char((byte(s[i + 1]) shl 4) or (byte(s[i + 2]) shr 2));
-	DecodeBase64[t + 2]:= char((byte(s[i + 2]) shl 6) or (byte(s[i + 3])      ));
+DecodeBase64[t + 2]:= char((byte(s[i + 2]) shl 6) or (byte(s[i + 3])      ));
-	inc(t, 3);
+inc(t, 3);
-	inc(i, 4)
+inc(i, 4)
-	end;
+end;
 if c < 3 then t:= t - c;
 byte(DecodeBase64[0]):= t - 1
 end;
 {$IFNDEF IPHONEOS}
 procedure MakeScreenshot(filename: shortstring);
 var p: Pointer;
-	size: Longword;
+size: Longword;
-	f: file;
+f: file;
 {$IFNDEF WIN32}
-	// TGA Header
+// TGA Header
-	head: array[0..8] of Word = (0, 2, 0, 0, 0, 0, 0, 0, 24);
+head: array[0..8] of Word = (0, 2, 0, 0, 0, 0, 0, 0, 24);
 {$ELSE}
-	// Windows Bitmap Header
+// Windows Bitmap Header
-	head: array[0..53] of Byte = (
+head: array[0..53] of Byte = (
-	$42, $4D, // identifier ("BM")
+$42, $4D, // identifier ("BM")
-	0, 0, 0, 0, // file size
+0, 0, 0, 0, // file size
-	0, 0, 0, 0, // reserved
+0, 0, 0, 0, // reserved
-	54, 0, 0, 0, // starting offset
+54, 0, 0, 0, // starting offset
-	40, 0, 0, 0, // header size
+40, 0, 0, 0, // header size
-	0, 0, 0, 0, // width
+0, 0, 0, 0, // width
-	0, 0, 0, 0, // height
+0, 0, 0, 0, // height
-	1, 0, // color planes
+1, 0, // color planes
-	24, 0, // bit depth
+24, 0, // bit depth
-	0, 0, 0, 0, // compression method (uncompressed)
+0, 0, 0, 0, // compression method (uncompressed)
-	0, 0, 0, 0, // image size
+0, 0, 0, 0, // image size
-	96, 0, 0, 0, // horizontal resolution
+96, 0, 0, 0, // horizontal resolution
-	96, 0, 0, 0, // vertical resolution
+96, 0, 0, 0, // vertical resolution
-	0, 0, 0, 0, // number of colors (all)
+0, 0, 0, 0, // number of colors (all)
-	0, 0, 0, 0 // number of important colors
+0, 0, 0, 0 // number of important colors
-	);
+);
 {$ENDIF}
 begin
 playSound(sndShutter);
 size:= cScreenWidth * cScreenHeight * 3;
 {$I-}
 Assign(f, filename);
 Rewrite(f, 1);
 if IOResult = 0 then
-	begin
+begin
-	BlockWrite(f, head, sizeof(head));
+BlockWrite(f, head, sizeof(head));
-	BlockWrite(f, p^, size);
+BlockWrite(f, p^, size);
-	Close(f);
+Close(f);
-	end;
+end;
 {$I+}
 FreeMem(p)
 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;
 begin
-	if (tmpsurf^.format^.bitsperpixel = 24) or ((tmpsurf^.format^.bitsperpixel = 32) and (tmpsurf^.format^.rshift > tmpsurf^.format^.bshift)) then
+if (tmpsurf^.format^.bitsperpixel = 24) or ((tmpsurf^.format^.bitsperpixel = 32) and (tmpsurf^.format^.rshift > tmpsurf^.format^.bshift)) then
-	begin
+begin
-		convertedSurf:= SDL_ConvertSurface(tmpsurf, @conversionFormat, SDL_SWSURFACE);
+convertedSurf:= SDL_ConvertSurface(tmpsurf, @conversionFormat, SDL_SWSURFACE);
-		SDL_FreeSurface(tmpsurf);
+SDL_FreeSurface(tmpsurf);
-		exit(convertedSurf);
+exit(convertedSurf);
-	end;
+end;
-	exit(tmpsurf);
+exit(tmpsurf);
 end;
 function endian(independent: LongWord): LongWord;
 begin
 {$IFDEF ENDIAN_LITTLE}
 endian:= independent;
 {$ELSE}
 endian:= (((independent and $FF000000) shr 24) or
-	  ((independent and $00FF0000) shr 8) or
+((independent and $00FF0000) shr 8) or
-	  ((independent and $0000FF00) shl 8) or
+((independent and $0000FF00) shl 8) or
-	  ((independent and $000000FF) shl 24))
+((independent and $000000FF) shl 24))
 {$ENDIF}
 end;
 procedure init_uMisc;
 {$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}
 begin
-	cDrownSpeed.QWordValue	:= 257698038;		// 0.06
+cDrownSpeed.QWordValue	:= 257698038;		// 0.06
-	cMaxWindSpeed.QWordValue:= 2147484;		// 0.0005
+cMaxWindSpeed.QWordValue:= 2147484;		// 0.0005
-	cWindSpeed.QWordValue	:= 429496;		// 0.0001
+cWindSpeed.QWordValue	:= 429496;		// 0.0001
-	cGravity                := cMaxWindSpeed;
+cGravity                := cMaxWindSpeed;
-	cDamageModifier         := _1;
+cDamageModifier         := _1;
-	TargetPoint             := cTargetPointRef;
+TargetPoint             := cTargetPointRef;
-	TextureList             := nil;
+TextureList             := nil;
-	// int, longint longword and byte
+// int, longint longword and byte
-	CursorMovementX		:= 0;
+CursorMovementX		:= 0;
-	CursorMovementY		:= 0;
+CursorMovementY		:= 0;
-	GameTicks		:= 0;
+GameTicks		:= 0;
-	TrainingTimeInc		:= 10000;
+TrainingTimeInc		:= 10000;
-	TrainingTimeInD		:= 500;
+TrainingTimeInD		:= 500;
-	TrainingTimeInM		:= 5000;
+TrainingTimeInM		:= 5000;
-	TrainingTimeMax		:= 60000;
+TrainingTimeMax		:= 60000;
-	TimeTrialStartTime	:= 0;
+TimeTrialStartTime	:= 0;
-	TimeTrialStopTime	:= 0;
+TimeTrialStopTime	:= 0;
-	cWaterLine		:= LAND_HEIGHT;
+cWaterLine		:= LAND_HEIGHT;
-	cGearScrEdgesDist	:= 240;
+cGearScrEdgesDist	:= 240;
-	cHealthDecrease		:= 0;
+cHealthDecrease		:= 0;
-	GameFlags		:= 0;
+GameFlags		:= 0;
-	TrainingFlags		:= 0;
+TrainingFlags		:= 0;
-	TurnTimeLeft		:= 0;
+TurnTimeLeft		:= 0;
-	cSuddenDTurns		:= 15;
+cSuddenDTurns		:= 15;
-	cDamagePercent		:= 100;
+cDamagePercent		:= 100;
-	cMineDudPercent		:= 0;
+cMineDudPercent		:= 0;
-	cTemplateFilter		:= 0;
+cTemplateFilter		:= 0;
-	cHedgehogTurnTime	:= 45000;
+cHedgehogTurnTime	:= 45000;
-	cMinesTime		:= 3000;
+cMinesTime		:= 3000;
-	cMaxAIThinkTime		:= 9000;
+cMaxAIThinkTime		:= 9000;
-	cCloudsNumber		:= 9;
+cCloudsNumber		:= 9;
-	cScreenWidth		:= 1024;
+cScreenWidth		:= 1024;
-	cScreenHeight		:= 768;
+cScreenHeight		:= 768;
-	cInitWidth		:= cScreenWidth;
+cInitWidth		:= cScreenWidth;
-	cInitHeight		:= cScreenHeight;
+cInitHeight		:= cScreenHeight;
-	cBits			:= 32;
+cBits			:= 32;
-	cTagsMaskIndex		:= Low(cTagsMasks);
+cTagsMask		:= 0;
-	KBnum			:= 0;
+KBnum			:= 0;
-	InitStepsFlags		:= 0;
+InitStepsFlags		:= 0;
-	RealTicks		:= 0;
+RealTicks		:= 0;
-	AttackBar		:= 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP
+AttackBar		:= 0; // 0 - none, 1 - just bar at the right-down corner, 2 - like in WWP
-	// tgametype and glfloat and string
+// tgametype and glfloat and string
-	GameState		:= Low(TGameState);
+GameState		:= Low(TGameState);
-	GameType		:= gmtLocal;
+GameType		:= gmtLocal;
-	zoom			:= 2.0;
+zoom			:= 2.0;
-	ZoomValue		:= 2.0;
+ZoomValue		:= 2.0;
-	cBitsStr		:= '32';
+cBitsStr		:= '32';
-	WeaponTooltipTex	:= nil;
+WeaponTooltipTex	:= nil;
-	// booleans
+// booleans
-	cLaserSighting		:= false;
+cLaserSighting		:= false;
-	cVampiric		:= false;
+cVampiric		:= false;
-	cArtillery		:= false;
+cArtillery		:= false;
-	flagMakeCapture		:= false;
+flagMakeCapture		:= false;
-	bBetweenTurns		:= false;
+bBetweenTurns		:= false;
-	bWaterRising		:= false;
+bWaterRising		:= false;
-	isCursorVisible		:= false;
+isCursorVisible		:= false;
-	isTerminated		:= false;
+isTerminated		:= false;
-	isInLag			:= false;
+isInLag			:= false;
-	isPaused		:= false;
+isPaused		:= false;
-	isMusicEnabled		:= false;
+isMusicEnabled		:= false;
-	isInMultiShoot		:= false;
+isInMultiShoot		:= false;
-	isSpeed			:= false;
+isSpeed			:= false;
-	fastUntilLag		:= false;
+fastUntilLag		:= false;
-	cVSyncInUse		:= true;
+cVSyncInUse		:= true;
-	isSoundEnabled		:= true;
+isSoundEnabled		:= true;
-	isSEBackup		:= true;
+isSEBackup		:= true;
-	// init flags
+// init flags
-	recordFileName		:= '';
+recordFileName		:= '';
-	cShowFPS		:= false;
+cShowFPS		:= false;
-	cCaseFactor		:= 5;  {0..9}
+cCaseFactor		:= 5;  {0..9}
-	cLandAdditions		:= 4;
+cLandAdditions		:= 4;
-	cExplosives		:= 2;
+cExplosives		:= 2;
-	cFullScreen		:= false;
+cFullScreen		:= false;
-	cReducedQuality		:= false;
+cReducedQuality		:= false;
-	cLocaleFName		:= 'en.txt';
+cLocaleFName		:= 'en.txt';
-	cSeed			:= '';
+cSeed			:= '';
-	cInitVolume		:= 50;
+cInitVolume		:= 50;
-	cVolumeDelta		:= 0;
+cVolumeDelta		:= 0;
-	cTimerInterval		:= 8;
+cTimerInterval		:= 8;
-	cHasFocus		:= true;
+cHasFocus		:= true;
-	cInactDelay		:= 1250;
+cInactDelay		:= 1250;
-	cAltDamage		:= true;
+cAltDamage		:= true;
 {$IFDEF DEBUGFILE}
 {$I-}
 {$IFDEF IPHONEOS}
-	f:= stderr;
+f:= stderr;
 {$ELSE}
-	if ParamStr(1) <> '' then
+if ParamStr(1) <> '' then
-		begin
+begin
-		for i:= 0 to 7 do
+for i:= 0 to 7 do
-		begin
+begin
-			assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');
+assign(f, ParamStr(1) + '/debug' + inttostr(i) + '.txt');
-			rewrite(f);
+rewrite(f);
-			if IOResult = 0 then break;
+if IOResult = 0 then break;
-		end;
+end;
-		if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr
+if IOResult <> 0 then f:= stderr; // if everything fails, write to stderr
-		end
+end
-	else
+else
-		f:= stderr;
+f:= stderr;
 {$ENDIF}
 {$I+}
 {$ENDIF}
 end;
 procedure free_uMisc;
 begin
-	//uRandom.DumpBuffer;
+//uRandom.DumpBuffer;
-	while TextureList <> nil do FreeTexture(TextureList);
+while TextureList <> nil do FreeTexture(TextureList);
 {$IFDEF DEBUGFILE}
-	writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
+writeln(f, 'halt at ', GameTicks, ' ticks. TurnTimeLeft = ', TurnTimeLeft);
-	flush(f);
+flush(f);
-	close(f);
+close(f);
 {$ENDIF}
 end;
 end.

changeset 2947	803b277e4894
parent 2915	a02f276035e8
child 2948	3f21a9dc93d0