/trunk/Win32_Player/AutoRun.inf |
---|
0,0 → 1,4 |
[AutoRun] |
open=ShowTime32.exe |
icon=ShowTime32.exe,0 |
action=Spielen |
/trunk/Win32_Player/Game.pas |
---|
0,0 → 1,202 |
unit Game; |
interface |
uses |
SysUtils, Classes, Forms, GameBinStruct; |
type |
TPictureType = (ptDia, ptDecision); |
THotspotIndex = 0..2; |
TGame = class; |
PHotspot = ^THotspot; |
THotspot = record |
game: TGame; |
lpAction: PActionDef; |
cHotspotTopLeft: TCoord; |
cHotspotBottomRight: TCoord; |
end; |
TShowPictureCallback = procedure(Game: TGame; AFilename: string; AType: TPictureType) of object; |
TPlaySoundCallback = procedure(Game: TGame; AFilename: string) of object; |
TSimpleCallback = procedure(Game: TGame) of object; |
TWaitCallback = procedure(Game: TGame; AMilliseconds: integer) of object; |
TSetHotspotCallback = procedure(Game: TGame; AIndex: THotspotIndex; AHotspot: THotspot) of object; |
TClearHotspotsCallback = procedure(Game: TGame) of object; |
TGame = class(TObject) |
private |
FPictureShowCallback: TShowPictureCallback; |
FAsyncSoundCallback: TPlaySoundCallback; |
FExitCallback: TSimpleCallback; |
FWaitCallback: TWaitCallback; |
FSetHotspotCallback: TSetHotspotCallback; |
FClearHotspotsCallback: TClearHotspotsCallback; |
FDirectory: string; |
FScore: integer; |
CurDecisionScene, LastDecisionScene: PSceneDef; |
procedure TryExit; |
procedure PrevDecisionScene; |
protected |
GameData: TGameBinFile; |
function FindScene(ASceneID: integer): PSceneDef; |
procedure Wait(AMilliseconds: integer); |
procedure PlayScene(scene: PSceneDef; goToDecision: boolean); |
public |
procedure PerformAction(action: PActionDef); |
property PictureShowCallback: TShowPictureCallback read FPictureShowCallback write FPictureShowCallback; |
property AsyncSoundCallback: TPlaySoundCallback read FAsyncSoundCallback write FAsyncSoundCallback; |
property ExitCallback: TSimpleCallback read FExitCallback write FExitCallback; |
property WaitCallback: TWaitCallback read FWaitCallback write FWaitCallback; |
property SetHotspotCallback: TSetHotspotCallback read FSetHotspotCallback write FSetHotspotCallback; |
property ClearHotspotsCallback: TClearHotspotsCallback read FClearHotspotsCallback write FClearHotspotsCallback; |
property Directory: string read FDirectory; |
property Score: integer read FScore; |
constructor Create(ADirectory: string); |
procedure Run; |
end; |
implementation |
{ TGame } |
constructor TGame.Create(ADirectory: string); |
var |
fs: TFileStream; |
gameBinFilename: string; |
begin |
FDirectory := ADirectory; |
gameBinFilename := IncludeTrailingPathDelimiter(ADirectory) + 'GAME.BIN'; |
if not FileExists(gameBinFilename) then |
begin |
raise Exception.Create('Cannot find GAME.BIN'); |
end; |
fs := TFileStream.Create(gameBinFilename, fmOpenRead); |
try |
fs.ReadBuffer(GameData, SizeOf(GameData)); |
finally |
FreeAndNil(fs); |
end; |
end; |
function TGame.FindScene(ASceneID: integer): PSceneDef; |
var |
i: integer; |
begin |
for i := 0 to GameData.numScenes - 1 do |
begin |
if GameData.scenes[i].szSceneFolder = Format('SC%.2d', [ASceneID]) then |
begin |
result := @GameData.scenes[i]; |
exit; |
end; |
end; |
result := nil; |
end; |
procedure TGame.TryExit; |
begin |
if Assigned(ExitCallback) then ExitCallback(Self); |
end; |
procedure TGame.PrevDecisionScene; |
begin |
if Assigned(LastDecisionScene) then PlayScene(LastDecisionScene, true) |
end; |
procedure TGame.PerformAction(action: PActionDef); |
var |
nextScene: PSceneDef; |
begin |
Inc(FScore, action^.scoreDelta); |
if action^.nextSceneID = SCENEID_PREVDECISION then |
PrevDecisionScene |
else if action^.nextSceneID = SCENEID_ENDGAME then |
TryExit |
else |
begin |
nextScene := FindScene(action^.nextSceneID); |
if Assigned(nextScene) then |
PlayScene(nextScene, action^.sceneSegment=1) |
(* |
else |
raise Exception.CreateFmt('Scene %d was not found in GAME.BIN', [action^.nextSceneID]); |
*) |
end; |
end; |
procedure TGame.Wait(AMilliseconds: integer); |
begin |
if Assigned(WaitCallback) then |
WaitCallback(Self, AMilliseconds) |
else |
Sleep(AMilliseconds); |
end; |
procedure TGame.PlayScene(scene: PSceneDef; goToDecision: boolean); |
var |
i: integer; |
hotspot: THotspot; |
begin |
if Assigned(ClearHotspotsCallback) then |
begin |
ClearHotspotsCallback(Self); |
end; |
if not goToDecision then |
begin |
if Assigned(AsyncSoundCallback) then |
begin |
AsyncSoundCallback(Self, IncludeTrailingPathDelimiter(FDirectory) + |
scene^.szSceneFolder + PathDelim + scene^.szDialogWav); |
end; |
for i := scene^.pictureIndex to scene^.pictureIndex + scene^.numPics - 1 do |
begin |
if Assigned(PictureShowCallback) then |
begin |
PictureShowCallback(Self, IncludeTrailingPathDelimiter(FDirectory) + |
scene^.szSceneFolder + PathDelim + GameData.pictures[i].szBitmapFile, ptDia); |
end; |
Wait(GameData.pictures[i].duration * 100); |
if Application.Terminated then Abort; |
end; |
end; |
if scene^.szDecisionBmp <> '' then |
begin |
LastDecisionScene := CurDecisionScene; |
CurDecisionScene := scene; |
if Assigned(PictureShowCallback) then |
begin |
PictureShowCallback(Self, IncludeTrailingPathDelimiter(FDirectory) + |
scene^.szSceneFolder + PathDelim + scene^.szDecisionBmp, ptDecision); |
end; |
if Assigned(SetHotspotCallback) then |
begin |
for i := 0 to scene^.numActions - 1 do |
begin |
hotspot.Game := Self; |
hotspot.lpAction := @scene^.actions[i]; |
hotspot.cHotspotTopLeft.X := scene^.actions[i].cHotspotTopLeft.X; |
hotspot.cHotspotTopLeft.Y := scene^.actions[i].cHotspotTopLeft.Y; |
hotspot.cHotspotBottomRight.X := scene^.actions[i].cHotspotBottomRight.X; |
hotspot.cHotspotBottomRight.Y := scene^.actions[i].cHotspotBottomRight.Y; |
SetHotspotCallback(Self, i, hotspot); |
end; |
end; |
end |
else |
begin |
if scene^.numActions > 0 then PerformAction(@scene^.actions[0]); |
end; |
end; |
procedure TGame.Run; |
begin |
if GameData.numScenes = 0 then exit; |
PlayScene(@GameData.Scenes[0], false); |
end; |
end. |
/trunk/Win32_Player/MOVIE.ICO |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
Property changes: |
Added: svn:mime-type |
+application/octet-stream |
\ No newline at end of property |
/trunk/Win32_Player/Main.dfm |
---|
0,0 → 1,50 |
object MainForm: TMainForm |
Left = 0 |
Top = 0 |
BorderIcons = [biSystemMenu, biMinimize] |
BorderStyle = bsSingle |
ClientHeight = 72 |
ClientWidth = 255 |
Color = clBlack |
Font.Charset = DEFAULT_CHARSET |
Font.Color = clWindowText |
Font.Height = -11 |
Font.Name = 'Tahoma' |
Font.Style = [] |
KeyPreview = True |
OldCreateOrder = False |
Position = poScreenCenter |
OnCreate = FormCreate |
OnDestroy = FormDestroy |
OnKeyDown = FormKeyDown |
PixelsPerInch = 96 |
TextHeight = 13 |
object Image1: TImage |
Left = 159 |
Top = 8 |
Width = 41 |
Height = 33 |
OnMouseUp = ControlClick |
end |
object Panel1: TPanel |
Left = 24 |
Top = 32 |
Width = 176 |
Height = 25 |
BevelOuter = bvSpace |
Color = clWhite |
Ctl3D = False |
ParentBackground = False |
ParentCtl3D = False |
TabOrder = 0 |
Visible = False |
OnMouseUp = ControlClick |
end |
object StartupTimer: TTimer |
Enabled = False |
Interval = 10 |
OnTimer = StartupTimerTimer |
Left = 216 |
Top = 16 |
end |
end |
/trunk/Win32_Player/Main.pas |
---|
0,0 → 1,261 |
unit Main; |
// TODO: When the windows is only resized a little bit (A few pixels), the window should not centered |
// Idea: Calc the width and height of ALL pictures, and then size the form to the biggest value? |
// BUG: if bitmap is not existing, then the error "ReadBitmapFile(): Unable to open bitmap file" appears. Not good. |
// BUG: If you drag the window, the dia show will stop playing, but the sound continues! This makes everything out of sync. |
// TODO: Ini Parameter if fullscreen is applied or not |
// TODO: Check out if hotspot coords should have their origin at the picture or the form position. |
// Idea: Savestates. Speedup. Pause. |
// Idea: Use Space bar to go to the next decision point. |
interface |
uses |
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, |
Dialogs, ExtCtrls, StdCtrls, Game; |
type |
TMainForm = class(TForm) |
Image1: TImage; |
Panel1: TPanel; |
StartupTimer: TTimer; |
procedure FormCreate(Sender: TObject); |
procedure FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); |
procedure StartupTimerTimer(Sender: TObject); |
procedure ControlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
procedure FormDestroy(Sender: TObject); |
private |
FHotspots: array[0..2] of THotspot; |
FullscreenMode: boolean; |
procedure cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType); |
procedure cbAsyncSound(ASender: TGame; AFilename: string); |
procedure cbExit(ASender: TGame); |
procedure cbWait(ASender: TGame; AMilliseconds: integer); |
procedure cbSetHotspot(ASender: TGame; AIndex: THotspotIndex; AHotspot: THotspot); |
procedure cbClearHotspots(ASender: TGame); |
procedure ClickEvent(X, Y: Integer); |
public |
game: TGame; |
end; |
var |
MainForm: TMainForm; |
implementation |
{$R *.dfm} |
uses |
MMSystem, IniFiles, Math; |
procedure Delay(const Milliseconds: DWord); |
var |
FirstTickCount: DWord; |
begin |
FirstTickCount := GetTickCount; // TODO: Attention, GetTickCount can overflow |
while not Application.Terminated and ((GetTickCount - FirstTickCount) < Milliseconds) do |
begin |
Application.ProcessMessages; |
Sleep(0); |
end; |
end; |
function AddThouSeps(const S: string): string; |
var |
LS, L2, I, N: Integer; |
Temp: string; |
begin |
// http://www.delphigroups.info/2/11/471892.html |
result := S ; |
LS := Length(S); |
N := 1 ; |
if LS > 1 then |
begin |
if S [1] = '-' then // check for negative value |
begin |
N := 2; |
LS := LS - 1; |
end; |
end; |
if LS <= 3 then exit; |
L2 := (LS - 1) div 3; |
Temp := ''; |
for I := 1 to L2 do |
begin |
Temp := ThousandSeparator + Copy (S, LS - 3 * I + 1, 3) + Temp; |
end; |
Result := Copy (S, N, (LS - 1) mod 3 + 1) + Temp; |
if N > 1 then Result := '-' + Result; |
end; |
{ TMainForm } |
procedure TMainForm.cbPictureShow(ASender: TGame; AFilename: string; AType: TPictureType); |
begin |
if FileExists(AFilename) then |
begin |
Image1.Visible := false; |
try |
Image1.Picture.LoadFromFile(AFilename); |
Image1.Autosize := true; |
finally |
// This speeds up the picture loading on very old computers |
Image1.Visible := true; |
end; |
// Make form bigger if necessary |
if Image1.Width > ClientWidth then |
begin |
ClientWidth := Image1.Width; |
if (ClientWidth >= Screen.Width) then FullscreenMode := true; |
Position := poScreenCenter; |
end; |
if Image1.Height > ClientHeight then |
begin |
ClientHeight := Image1.Height; |
if (ClientHeight >= Screen.Height) then FullscreenMode := true; |
Position := poScreenCenter; |
end; |
// Center image |
Image1.Left := ClientWidth div 2 - Image1.Width div 2; |
Image1.Top := ClientHeight div 2 - Image1.Height div 2; |
end |
else |
begin |
Image1.Picture := nil; |
end; |
if FullScreenMode then |
begin |
BorderStyle := bsNone; |
FormStyle := fsStayOnTop; |
Case AType of |
ptDia: Screen.Cursor := -1; |
ptDecision: Screen.Cursor := 0; |
End; |
end; |
Panel1.Caption := Format('Your score is: %s', [AddThouSeps(IntToStr(ASender.Score))]); |
Panel1.Left := 8; |
Panel1.Top := Min(ClientHeight, Screen.Height) - Panel1.Height - 8; |
Panel1.Visible := AType = ptDecision; |
end; |
procedure TMainForm.cbAsyncSound(ASender: TGame; AFilename: string); |
begin |
PlaySound(nil, hinstance, 0); |
if FileExists(AFilename) then |
begin |
PlaySound(PChar(AFilename), hinstance, SND_FILENAME or SND_ASYNC); |
end; |
end; |
procedure TMainForm.cbSetHotspot(ASender: TGame; AIndex: THotspotIndex; AHotspot: THotspot); |
begin |
FHotspots[AIndex] := AHotspot; |
end; |
procedure TMainForm.cbClearHotspots(ASender: TGame); |
var |
i: Integer; |
begin |
for i := Low(FHotspots) to High(FHotspots) - 1 do |
begin |
FHotspots[i].lpAction := nil; |
end; |
end; |
procedure TMainForm.cbExit(ASender: TGame); |
begin |
Application.Terminate; |
end; |
procedure TMainForm.cbWait(ASender: TGame; AMilliseconds: integer); |
begin |
//Cursor := crHourglass; |
try |
Delay(AMilliseconds); |
finally |
//Cursor := crDefault; |
end; |
end; |
procedure TMainForm.FormCreate(Sender: TObject); |
var |
ini: TMemIniFile; |
iniFilename: string; |
begin |
iniFilename := ChangeFileExt(ExtractFileName(ParamStr(0)), '.ini'); |
DoubleBuffered := true; |
if FileExists(iniFilename) then |
begin |
ini := TMemIniFile.Create(iniFilename); |
try |
Caption := ini.ReadString('Config', 'Title', ''); |
finally |
FreeAndNil(ini); |
end; |
end; |
try |
Game := TGame.Create('.'); |
Game.PictureShowCallback := cbPictureShow; |
Game.AsyncSoundCallback := cbAsyncSound; |
Game.ExitCallback := cbExit; |
Game.WaitCallback := cbWait; |
Game.SetHotspotCallback := cbSetHotspot; |
Game.ClearHotspotsCallback := cbClearHotspots; |
StartupTimer.Enabled := true; |
except |
Application.Terminate; |
end; |
end; |
procedure TMainForm.FormDestroy(Sender: TObject); |
begin |
// Without this, some audio drivers could crash if you press ESC to end the game. |
// (VPC 2007 with Win95; cpsman.dll crashes sometimes) |
PlaySound(nil, hinstance, 0); |
end; |
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; |
Shift: TShiftState); |
begin |
if Key = VK_ESCAPE then Close; |
end; |
procedure TMainForm.ClickEvent(X, Y: Integer); |
var |
i: integer; |
begin |
// TODO: if hotspots are overlaying; which hotspot will be prefered? the top ones? check out the original game. |
for i := Low(FHotspots) to High(FHotspots) do |
begin |
if Assigned(FHotspots[i].lpAction) and |
(X >= FHotspots[i].cHotspotTopLeft.X) and |
(Y >= FHotspots[i].cHotspotTopLeft.Y) and |
(X <= FHotspots[i].cHotspotBottomRight.X) and |
(Y <= FHotspots[i].cHotspotBottomRight.Y) then |
begin |
FHotspots[i].Game.PerformAction(FHotspots[i].lpAction); |
Exit; |
end; |
end; |
end; |
procedure TMainForm.ControlClick(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); |
begin |
ClickEvent(X+TControl(Sender).Left, Y+TControl(Sender).Top); |
end; |
procedure TMainForm.StartupTimerTimer(Sender: TObject); |
begin |
StartupTimer.Enabled := false; |
Game.Run; |
end; |
end. |
/trunk/Win32_Player/ORIGINAL.ICO |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
Property changes: |
Added: svn:mime-type |
+application/octet-stream |
\ No newline at end of property |
/trunk/Win32_Player/Showtime.cfg |
---|
0,0 → 1,39 |
-$A8 |
-$B- |
-$C+ |
-$D+ |
-$E- |
-$F- |
-$G+ |
-$H+ |
-$I+ |
-$J- |
-$K- |
-$L+ |
-$M- |
-$N+ |
-$O+ |
-$P+ |
-$Q- |
-$R- |
-$S- |
-$T- |
-$U- |
-$V+ |
-$W- |
-$X+ |
-$YD |
-$Z1 |
-cg |
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
-H+ |
-W+ |
-M |
-$M16384,1048576 |
-K$00400000 |
-E"e:\_test" |
-LE"C:\Users\DELL User\Documents\Borland Studio-Projekte\Bpl" |
-LN"C:\Users\DELL User\Documents\Borland Studio-Projekte\Bpl" |
-w-UNSAFE_TYPE |
-w-UNSAFE_CODE |
-w-UNSAFE_CAST |
/trunk/Win32_Player/Showtime32.bdsproj |
---|
0,0 → 1,175 |
<?xml version="1.0" encoding="utf-8"?> |
<BorlandProject> |
<PersonalityInfo> |
<Option> |
<Option Name="Personality">Delphi.Personality</Option> |
<Option Name="ProjectType"></Option> |
<Option Name="Version">1.0</Option> |
<Option Name="GUID">{F68EE1AF-C815-4B78-9228-27C1D5A58382}</Option> |
</Option> |
</PersonalityInfo> |
<Delphi.Personality> |
<Source> |
<Source Name="MainSource">Showtime32.dpr</Source> |
</Source> |
<FileVersion> |
<FileVersion Name="Version">7.0</FileVersion> |
</FileVersion> |
<Compiler> |
<Compiler Name="A">8</Compiler> |
<Compiler Name="B">0</Compiler> |
<Compiler Name="C">1</Compiler> |
<Compiler Name="D">1</Compiler> |
<Compiler Name="E">0</Compiler> |
<Compiler Name="F">0</Compiler> |
<Compiler Name="G">1</Compiler> |
<Compiler Name="H">1</Compiler> |
<Compiler Name="I">1</Compiler> |
<Compiler Name="J">0</Compiler> |
<Compiler Name="K">0</Compiler> |
<Compiler Name="L">1</Compiler> |
<Compiler Name="M">0</Compiler> |
<Compiler Name="N">1</Compiler> |
<Compiler Name="O">1</Compiler> |
<Compiler Name="P">1</Compiler> |
<Compiler Name="Q">0</Compiler> |
<Compiler Name="R">0</Compiler> |
<Compiler Name="S">0</Compiler> |
<Compiler Name="T">0</Compiler> |
<Compiler Name="U">0</Compiler> |
<Compiler Name="V">1</Compiler> |
<Compiler Name="W">0</Compiler> |
<Compiler Name="X">1</Compiler> |
<Compiler Name="Y">1</Compiler> |
<Compiler Name="Z">1</Compiler> |
<Compiler Name="ShowHints">True</Compiler> |
<Compiler Name="ShowWarnings">True</Compiler> |
<Compiler Name="UnitAliases">WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;</Compiler> |
<Compiler Name="NamespacePrefix"></Compiler> |
<Compiler Name="GenerateDocumentation">False</Compiler> |
<Compiler Name="DefaultNamespace"></Compiler> |
<Compiler Name="SymbolDeprecated">True</Compiler> |
<Compiler Name="SymbolLibrary">True</Compiler> |
<Compiler Name="SymbolPlatform">True</Compiler> |
<Compiler Name="SymbolExperimental">True</Compiler> |
<Compiler Name="UnitLibrary">True</Compiler> |
<Compiler Name="UnitPlatform">True</Compiler> |
<Compiler Name="UnitDeprecated">True</Compiler> |
<Compiler Name="UnitExperimental">True</Compiler> |
<Compiler Name="HResultCompat">True</Compiler> |
<Compiler Name="HidingMember">True</Compiler> |
<Compiler Name="HiddenVirtual">True</Compiler> |
<Compiler Name="Garbage">True</Compiler> |
<Compiler Name="BoundsError">True</Compiler> |
<Compiler Name="ZeroNilCompat">True</Compiler> |
<Compiler Name="StringConstTruncated">True</Compiler> |
<Compiler Name="ForLoopVarVarPar">True</Compiler> |
<Compiler Name="TypedConstVarPar">True</Compiler> |
<Compiler Name="AsgToTypedConst">True</Compiler> |
<Compiler Name="CaseLabelRange">True</Compiler> |
<Compiler Name="ForVariable">True</Compiler> |
<Compiler Name="ConstructingAbstract">True</Compiler> |
<Compiler Name="ComparisonFalse">True</Compiler> |
<Compiler Name="ComparisonTrue">True</Compiler> |
<Compiler Name="ComparingSignedUnsigned">True</Compiler> |
<Compiler Name="CombiningSignedUnsigned">True</Compiler> |
<Compiler Name="UnsupportedConstruct">True</Compiler> |
<Compiler Name="FileOpen">True</Compiler> |
<Compiler Name="FileOpenUnitSrc">True</Compiler> |
<Compiler Name="BadGlobalSymbol">True</Compiler> |
<Compiler Name="DuplicateConstructorDestructor">True</Compiler> |
<Compiler Name="InvalidDirective">True</Compiler> |
<Compiler Name="PackageNoLink">True</Compiler> |
<Compiler Name="PackageThreadVar">True</Compiler> |
<Compiler Name="ImplicitImport">True</Compiler> |
<Compiler Name="HPPEMITIgnored">True</Compiler> |
<Compiler Name="NoRetVal">True</Compiler> |
<Compiler Name="UseBeforeDef">True</Compiler> |
<Compiler Name="ForLoopVarUndef">True</Compiler> |
<Compiler Name="UnitNameMismatch">True</Compiler> |
<Compiler Name="NoCFGFileFound">True</Compiler> |
<Compiler Name="ImplicitVariants">True</Compiler> |
<Compiler Name="UnicodeToLocale">True</Compiler> |
<Compiler Name="LocaleToUnicode">True</Compiler> |
<Compiler Name="ImagebaseMultiple">True</Compiler> |
<Compiler Name="SuspiciousTypecast">True</Compiler> |
<Compiler Name="PrivatePropAccessor">True</Compiler> |
<Compiler Name="UnsafeType">False</Compiler> |
<Compiler Name="UnsafeCode">False</Compiler> |
<Compiler Name="UnsafeCast">False</Compiler> |
<Compiler Name="OptionTruncated">True</Compiler> |
<Compiler Name="WideCharReduced">True</Compiler> |
<Compiler Name="DuplicatesIgnored">True</Compiler> |
<Compiler Name="UnitInitSeq">True</Compiler> |
<Compiler Name="LocalPInvoke">True</Compiler> |
<Compiler Name="MessageDirective">True</Compiler> |
<Compiler Name="CodePage"></Compiler> |
</Compiler> |
<Linker> |
<Linker Name="MapFile">0</Linker> |
<Linker Name="OutputObjs">0</Linker> |
<Linker Name="GenerateHpps">False</Linker> |
<Linker Name="ConsoleApp">1</Linker> |
<Linker Name="DebugInfo">False</Linker> |
<Linker Name="RemoteSymbols">False</Linker> |
<Linker Name="GenerateDRC">False</Linker> |
<Linker Name="MinStackSize">16384</Linker> |
<Linker Name="MaxStackSize">1048576</Linker> |
<Linker Name="ImageBase">4194304</Linker> |
<Linker Name="ExeDescription"></Linker> |
</Linker> |
<Directories> |
<Directories Name="OutputDir">E:\_test</Directories> |
<Directories Name="UnitOutputDir"></Directories> |
<Directories Name="PackageDLLOutputDir"></Directories> |
<Directories Name="PackageDCPOutputDir"></Directories> |
<Directories Name="SearchPath"></Directories> |
<Directories Name="Packages"></Directories> |
<Directories Name="Conditionals"></Directories> |
<Directories Name="DebugSourceDirs"></Directories> |
<Directories Name="UsePackages">False</Directories> |
</Directories> |
<Parameters> |
<Parameters Name="RunParams"></Parameters> |
<Parameters Name="HostApplication"></Parameters> |
<Parameters Name="Launcher"></Parameters> |
<Parameters Name="UseLauncher">False</Parameters> |
<Parameters Name="DebugCWD">C:\Users\DELL User\Desktop\Daten ohne Cloud\Plumbers Dont Wear Ties\PC Contents\C\PLUMBER</Parameters> |
<Parameters Name="Debug Symbols Search Path"></Parameters> |
<Parameters Name="LoadAllSymbols">True</Parameters> |
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters> |
</Parameters> |
<Language> |
<Language Name="ActiveLang"></Language> |
<Language Name="ProjectLang">$00000000</Language> |
<Language Name="RootDir"></Language> |
</Language> |
<VersionInfo> |
<VersionInfo Name="IncludeVerInfo">True</VersionInfo> |
<VersionInfo Name="AutoIncBuild">False</VersionInfo> |
<VersionInfo Name="MajorVer">1</VersionInfo> |
<VersionInfo Name="MinorVer">0</VersionInfo> |
<VersionInfo Name="Release">0</VersionInfo> |
<VersionInfo Name="Build">0</VersionInfo> |
<VersionInfo Name="Debug">False</VersionInfo> |
<VersionInfo Name="PreRelease">False</VersionInfo> |
<VersionInfo Name="Special">False</VersionInfo> |
<VersionInfo Name="Private">False</VersionInfo> |
<VersionInfo Name="DLL">False</VersionInfo> |
<VersionInfo Name="Locale">1033</VersionInfo> |
<VersionInfo Name="CodePage">1252</VersionInfo> |
</VersionInfo> |
<VersionInfoKeys> |
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys> |
<VersionInfoKeys Name="FileDescription">Showtime32</VersionInfoKeys> |
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="InternalName"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys> |
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys> |
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys> |
<VersionInfoKeys Name="ProductName">Showtime32</VersionInfoKeys> |
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys> |
<VersionInfoKeys Name="Comments"></VersionInfoKeys> <VersionInfoKeys Name="ProgramID">com.embarcadero.Showtime32</VersionInfoKeys> |
</VersionInfoKeys> |
</Delphi.Personality> |
</BorlandProject> |
/trunk/Win32_Player/Showtime32.cfg |
---|
0,0 → 1,39 |
-$A8 |
-$B- |
-$C+ |
-$D+ |
-$E- |
-$F- |
-$G+ |
-$H+ |
-$I+ |
-$J- |
-$K- |
-$L+ |
-$M- |
-$N+ |
-$O+ |
-$P+ |
-$Q- |
-$R- |
-$S- |
-$T- |
-$U- |
-$V+ |
-$W- |
-$X+ |
-$YD |
-$Z1 |
-cg |
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE; |
-H+ |
-W+ |
-M |
-$M16384,1048576 |
-K$00400000 |
-E"E:\_test" |
-LE"C:\Users\DELL User\Documents\Borland Studio-Projekte\Bpl" |
-LN"C:\Users\DELL User\Documents\Borland Studio-Projekte\Bpl" |
-w-UNSAFE_TYPE |
-w-UNSAFE_CODE |
-w-UNSAFE_CAST |
/trunk/Win32_Player/Showtime32.dpr |
---|
0,0 → 1,15 |
program Showtime32; |
uses |
Forms, |
Main in 'Main.pas' {MainForm}, |
Game in 'Game.pas', |
GameBinStruct in '..\FileFormat\Delphi\GameBinStruct.pas'; |
{$R *.res} |
begin |
Application.Initialize; |
Application.CreateForm(TMainForm, MainForm); |
Application.Run; |
end. |
/trunk/Win32_Player/Showtime32.dproj |
---|
0,0 → 1,130 |
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003"> |
<PropertyGroup> |
<ProjectGuid>{F68EE1AF-C815-4B78-9228-27C1D5A58382}</ProjectGuid> |
<MainSource>Showtime32.dpr</MainSource> |
<Base>True</Base> |
<Config Condition="'$(Config)'==''">Debug</Config> |
<TargetedPlatforms>1</TargetedPlatforms> |
<AppType>Application</AppType> |
<FrameworkType>VCL</FrameworkType> |
<ProjectVersion>18.2</ProjectVersion> |
<Platform Condition="'$(Platform)'==''">Win32</Platform> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''"> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''"> |
<Base_Win32>true</Base_Win32> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''"> |
<Cfg_1>true</Cfg_1> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''"> |
<Cfg_1_Win32>true</Cfg_1_Win32> |
<CfgParent>Cfg_1</CfgParent> |
<Cfg_1>true</Cfg_1> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''"> |
<Cfg_2>true</Cfg_2> |
<CfgParent>Base</CfgParent> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''"> |
<Cfg_2_Win32>true</Cfg_2_Win32> |
<CfgParent>Cfg_2</CfgParent> |
<Cfg_2>true</Cfg_2> |
<Base>true</Base> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base)'!=''"> |
<DCC_DebugInformation>1</DCC_DebugInformation> |
<DCC_E>false</DCC_E> |
<DCC_F>false</DCC_F> |
<DCC_K>false</DCC_K> |
<DCC_N>true</DCC_N> |
<DCC_S>false</DCC_S> |
<DCC_SymbolReferenceInfo>1</DCC_SymbolReferenceInfo> |
<DCC_ImageBase>00400000</DCC_ImageBase> |
<DCC_ExeOutput>C:\Users\DELL User\Downloads\Plumbers\PC Contents\C\PLUMBER\</DCC_ExeOutput> |
<SanitizedProjectName>Showtime32</SanitizedProjectName> |
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace> |
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> |
<VerInfo_Locale>1031</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=ViaThinkSoft;FileDescription=Showtime32;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Base_Win32)'!=''"> |
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace> |
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
<VerInfo_Locale>1033</VerInfo_Locale> |
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File> |
<Icon_MainIcon>Showtime32_Icon.ico</Icon_MainIcon> |
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> |
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44> |
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_1)'!=''"> |
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define> |
<DCC_DebugInformation>0</DCC_DebugInformation> |
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols> |
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''"> |
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> |
<AppEnableHighDPI>true</AppEnableHighDPI> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_2)'!=''"> |
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define> |
<DCC_Optimize>false</DCC_Optimize> |
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames> |
</PropertyGroup> |
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''"> |
<AppEnableRuntimeThemes>true</AppEnableRuntimeThemes> |
<AppEnableHighDPI>true</AppEnableHighDPI> |
<DCC_ExeOutput>E:\_test</DCC_ExeOutput> |
<VerInfo_Locale>1033</VerInfo_Locale> |
<VerInfo_Keys>CompanyName=;FileDescription=$(MSBuildProjectName);FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=$(MSBuildProjectName);ProductVersion=1.0.0.0;Comments=;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys> |
</PropertyGroup> |
<ItemGroup> |
<DelphiCompile Include="$(MainSource)"> |
<MainSource>MainSource</MainSource> |
</DelphiCompile> |
<DCCReference Include="Main.pas"> |
<Form>MainForm</Form> |
</DCCReference> |
<DCCReference Include="Game.pas"/> |
<DCCReference Include="..\FileFormat\Delphi\GameBinStruct.pas"/> |
<BuildConfiguration Include="Debug"> |
<Key>Cfg_2</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
<BuildConfiguration Include="Base"> |
<Key>Base</Key> |
</BuildConfiguration> |
<BuildConfiguration Include="Release"> |
<Key>Cfg_1</Key> |
<CfgParent>Base</CfgParent> |
</BuildConfiguration> |
</ItemGroup> |
<ProjectExtensions> |
<Borland.Personality>Delphi.Personality.12</Borland.Personality> |
<Borland.ProjectType/> |
<BorlandProject> |
<Delphi.Personality> |
<Source> |
<Source Name="MainSource">Showtime32.dpr</Source> |
</Source> |
</Delphi.Personality> |
<Platforms> |
<Platform value="Win32">True</Platform> |
</Platforms> |
</BorlandProject> |
<ProjectFileVersion>12</ProjectFileVersion> |
</ProjectExtensions> |
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/> |
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/> |
</Project> |
/trunk/Win32_Player/Showtime32.ini |
---|
0,0 → 1,2 |
[Config] |
Title=Plumbers Don't Wear Ties |
/trunk/Win32_Player/Showtime32.res |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
Property changes: |
Added: svn:mime-type |
+application/octet-stream |
\ No newline at end of property |
/trunk/Win32_Player/Showtime32_Icon.ico |
---|
Cannot display: file marked as a binary type. |
svn:mime-type = application/octet-stream |
Property changes: |
Added: svn:mime-type |
+application/octet-stream |
\ No newline at end of property |
/trunk/Win32_Player/. |
---|
Property changes: |
Added: svn:ignore |
+*.dcu |
+*.~* |
+__history |
+*.local |
+*.identcache |
+*.stat |