WebSVN – plumbers – Diff – /trunk/SceneEditor/Unit1.pas


unit Unit1;
 
(*
 * Plumbers Don't Wear Ties - Inofficial Scene Editor
 * Copyright 2017 - 2020 Daniel Marschall, ViaThinkSoft
 *
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 *     http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 *)
 
// TODO: the "folder open" icons look like you can CHOOSE a file, not open it!
//       - change the icon to something else
//       - add open-dialogs for choosing the bmp and wav files
// TODO: Give controls better names
// TODO: When loading the file, check if dependencies are broken and output a warning
// Idea: About the hotspot / action markings:
//       - anti moiree?
//       - allow user to draw a rectangle with drag'n'drop instead of left and right mouse button.
//         also, automatically determine the left/top and right/bottom border, so the user can draw the rectange in every direction
// Idea: unused liste auch bei decision page anzeigen
// Idea: Function to re-order stuff?
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Spin, Grids, GameBinStruct, ComCtrls, ExtCtrls, MPlayer,
  Menus;
 
const
  CUR_VER = '2020-06-08';
 
type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button10: TButton;
    PageControl2: TPageControl;
    TabSheet4: TTabSheet;
    Label1: TLabel;
    Label2: TLabel;
    SpinEdit1: TSpinEdit;
    Edit1: TEdit;
    Button6: TButton;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    ListBox2: TListBox;
    TabSheet5: TTabSheet;
    Label3: TLabel;
    Image1: TImage;
    Label10: TLabel;
    Label11: TLabel;
    Edit2: TEdit;
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    Label5: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    SpinEdit6: TSpinEdit;
    SpinEdit2: TSpinEdit;
    SpinEdit3: TSpinEdit;
    SpinEdit4: TSpinEdit;
    SpinEdit5: TSpinEdit;
    ComboBox1: TComboBox;
    TabSheet2: TTabSheet;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    ComboBox2: TComboBox;
    SpinEdit17: TSpinEdit;
    SpinEdit18: TSpinEdit;
    SpinEdit19: TSpinEdit;
    SpinEdit20: TSpinEdit;
    SpinEdit21: TSpinEdit;
    TabSheet3: TTabSheet;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    ComboBox3: TComboBox;
    SpinEdit7: TSpinEdit;
    SpinEdit8: TSpinEdit;
    SpinEdit9: TSpinEdit;
    SpinEdit10: TSpinEdit;
    SpinEdit11: TSpinEdit;
    SpinEdit12: TSpinEdit;
    Image2: TImage;
    Edit3: TEdit;
    SpinEdit13: TSpinEdit;
    Label12: TLabel;
    Label16: TLabel;
    Button13: TButton;
    Button14: TButton;
    MediaPlayer1: TMediaPlayer;
    Timer1: TTimer;
    GroupBox2: TGroupBox;
    Button15: TButton;
    Button17: TButton;
    Button16: TButton;
    Label18: TLabel;
    Label17: TLabel;
    ListBox3: TListBox;
    Label19: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Button11: TButton;
    Button12: TButton;
    Button18: TButton;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Close1: TMenuItem;
    Newfile1: TMenuItem;
    Savetogamebin1: TMenuItem;
    Saveandtest1: TMenuItem;
    N1: TMenuItem;
    N2: TMenuItem;
    Help1: TMenuItem;
    About1: TMenuItem;
    PopupMenu1: TPopupMenu;
    Addtoscene1: TMenuItem;
    Panel1: TPanel;
    Panel2: TPanel;
    Panel3: TPanel;
    Image3: TImage;
    Button19: TButton;
    PageControl3: TPageControl;
    TabSheet6: TTabSheet;
    TabSheet7: TTabSheet;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    CheckBox1: TCheckBox;
    TabSheet8: TTabSheet;
    Button20: TButton;
    procedure ListBox1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure SpinEdit1Change(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SpinEdit12Change(Sender: TObject);
    procedure ActionTargetChange(Sender: TObject);
    procedure ActionSpinEditsChange(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure ListBox2Click(Sender: TObject);
    procedure SpinEdit13Change(Sender: TObject);
    procedure Edit3Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure ListBox1DblClick(Sender: TObject);
    procedure ListBox2DblClick(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Image1MouseLeave(Sender: TObject);
    procedure ListBox3DblClick(Sender: TObject);
    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure Button11Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Image1MouseEnter(Sender: TObject);
    procedure About1Click(Sender: TObject);
    procedure Close1Click(Sender: TObject);
    procedure Addtoscene1Click(Sender: TObject);
    procedure ListBox3MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure ListBox3Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure Button20Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
  private
    Game: TGameBinFile;
    GameBak: TGameBinFile;
    PlayStart: Cardinal;
    MediaplayerOpened: boolean;
    StopPlayRequest: boolean;
    FirstTickCount: Cardinal;
    procedure ShowSceneBmp;
    function CurScene: PSceneDef;
    procedure LoadScene;
    procedure Load;
    procedure Save;
    procedure ReloadActionSceneLists;
    function GetGreatestSceneID: integer;
    function SearchSceneIDGapFromTop: integer;
    procedure RedrawDecisionBitmap;
    function CurPicture: PPictureDef;
    function CurPictureTimepos: Cardinal;
    procedure New;
    procedure NewScene;
    procedure SetupGUIAfterLoad;
    procedure RecalcSlideshowLength;
    procedure RecalcSoundtrackLength;
    procedure RecalcUnusedFiles;
    procedure RecalcStats;
    procedure HandlePossibleEmptySceneList;
    procedure DisableEnableSceneControls(enable: boolean);
    procedure DisableEnablePictureControls(enable: boolean);
    procedure DisableEnableFileControls(enable: boolean);
    class procedure AspectRatio(image: TImage; panel: TControl);
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
uses
  Math, MMSystem, ShellAPI;
 
const
  DEFAULT_DURATION = 0;
  DEFAULT_FILENAME = 'DUMMY.BMP';
 
function GetSceneIDFromName(sceneName: string): Integer;
resourcestring
  S_SCENENAME_INVALID = 'Scene name invalid';
var
  sSceneID: string;
begin
  if Copy(sceneName, 1, 2) <> 'SC' then raise Exception.Create(S_SCENENAME_INVALID);
  sSceneID := Copy(sceneName, 3, 2);
  if not TryStrToInt(sSceneID, result) then raise Exception.Create(S_SCENENAME_INVALID);
end;
 
procedure SelectFilenameBase(Edit: TEdit);
begin
  if Edit.CanFocus then
  begin
    Edit.SetFocus;
    Edit.SelStart := 0;
    Edit.SelLength := Pos('.', Edit.Text)-1;
  end;
end;
 
function _DecisecondToTime(ds: integer): string;
begin
  result := FormatDatetime('hh:nn:ss', ds / 10 / (24*60*60))+','+IntToStr(ds mod 10);
end;
 
{ TForm1 }
 
function TForm1.GetGreatestSceneID: integer;
var
  i: integer;
begin
  result := -1;
  for i := 0 to ListBox1.Items.Count - 1 do
  begin
    result := Max(result, GetSceneIDFromName(ListBox1.Items.Strings[i]));
  end;
end;
 
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  sE1, sE2, sE3, sE4: TSpinEdit;
 
  procedure _Go;
  begin
    if Button = mbLeft then
    begin
      sE1.Value := Round(Image1.Picture.Width*(X/Image1.Width));
      sE2.Value := Round(Image1.Picture.Height*(Y/Image1.Height));
    end
    else if Button = mbRight then
    begin
      sE3.Value := Round(Image1.Picture.Width*(X/Image1.Width));
      sE4.Value := Round(Image1.Picture.Height*(Y/Image1.Height));
    end;
  end;
 
begin
  if PageControl1.ActivePage = TabSheet1 then
  begin
    sE1 := SpinEdit3;
    sE2 := SpinEdit2;
    sE3 := SpinEdit4;
    sE4 := SpinEdit5;
    _Go;
  end
  else if PageControl1.ActivePage = TabSheet2 then
  begin
    sE1 := SpinEdit17;
    sE2 := SpinEdit18;
    sE3 := SpinEdit19;
    sE4 := SpinEdit20;
    _Go;
  end
  else if PageControl1.ActivePage = TabSheet3 then
  begin
    sE1 := SpinEdit7;
    sE2 := SpinEdit8;
    sE3 := SpinEdit10;
    sE4 := SpinEdit9;
    _Go;
  end;
end;
 
procedure TForm1.Image1MouseEnter(Sender: TObject);
begin
  Label28.Visible := true;
  Label29.Visible := true;
end;
 
procedure TForm1.Image1MouseLeave(Sender: TObject);
begin
  Label10.Caption := '';
  Label28.Visible := false;
  Label29.Visible := false;
end;
 
procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
resourcestring
  S_COORDS = 'Coords: [%d, %d]';
begin
  label10.Caption := Format(S_COORDS, [Round(Image1.Picture.Width*(X/Image1.Width)),
                                       Round(Image1.Picture.Height*(Y/Image1.Height))]);
end;
 
function TForm1.SearchSceneIDGapFromTop: integer;
var
  i: integer;
begin
  result := -1;
  for i := 99 downto 0 do
  begin
    if ListBox1.Items.IndexOf(Format('SC%.2d', [i])) = -1 then
    begin
      result := i;
      exit;
    end;
  end;
end;
 
procedure TForm1.Button10Click(Sender: TObject);
resourcestring
  S_NOTFOUND = 'GAME.BIN saved; ShowTime32.exe not found.';
begin
  Save;
  if not FileExists('ShowTime32.exe') then raise Exception.Create(S_NOTFOUND);
  ShellExecute(Application.Handle, 'open', 'ShowTime32.exe', '', '', SW_NORMAL);
end;
 
procedure TForm1.Button11Click(Sender: TObject);
var
  fileName: string;
begin
  fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurScene^.szDecisionBmp;
  if not FileExists(fileName) then exit;
  ShellExecute(Application.Handle, 'open', PChar(fileName), '', '', SW_NORMAL);
end;
 
procedure TForm1.Button12Click(Sender: TObject);
var
  fileName: string;
begin
  fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurPicture^.szBitmapFile;
  if not FileExists(fileName) then exit;
  ShellExecute(Application.Handle, 'open', Pchar(fileName), '', '', SW_NORMAL);
end;
 
procedure TForm1.Button13Click(Sender: TObject);
var
  fileName: string;
begin
  fileName := CurScene^.szSceneFolder;
  if not DirectoryExists(fileName) then MkDir(fileName);
  ShellExecute(Application.Handle, 'open', 'explorer.exe', PChar(fileName), '', SW_NORMAL);
end;
 
procedure TForm1.HandlePossibleEmptySceneList;
begin
  if Game.numScenes = 0 then
  begin
    PageControl2.ActivePage := nil;
    PageControl2.Pages[0].TabVisible := false;
    PageControl2.Pages[1].TabVisible := false;
  end
  else
  begin
    if PageControl2.ActivePage = nil then PageControl2.ActivePageIndex := 0;
    PageControl2.Pages[0].TabVisible := true;
    PageControl2.Pages[1].TabVisible := true;
  end;
end;
 
procedure TForm1.Button14Click(Sender: TObject);
resourcestring
  S_DISCARD = 'Are you sure you want to discard all changes and create a new game file?';
begin
  if MessageDlg(S_DISCARD, mtConfirmation, mbYesNoCancel, 0) = mrYes then
  begin
    New;
  end;
end;
 
procedure TForm1.DisableEnableSceneControls(enable: boolean);
begin
  ListBox1.Enabled := enable;
  Button1.Enabled := enable;
  Button2.Enabled := enable;
  Button4.Enabled := enable;
  Button5.Enabled := enable;
end;
 
procedure TForm1.DisableEnablePictureControls(enable: boolean);
begin
  Button8.Enabled := enable;
  Button9.Enabled := enable;
  Button6.Enabled := enable;
  Button7.Enabled := enable;
end;
 
procedure TForm1.DisableEnableFileControls(enable: boolean);
begin
  Button3.Enabled := enable;
  Button10.Enabled := enable;
  Button14.Enabled := enable;
end;
 
var
  AutomaticNextDia: boolean;
 
procedure TForm1.Button15Click(Sender: TObject);
var
  decisionBMP: string;
  PictureLastFrame: Cardinal;
  i: integer;
  DecisionPicSet: boolean;
begin
  if PlayStart <> 0 then
  begin
    if MediaplayerOpened and not AutomaticNextDia then
    begin
      if MediaPlayer1.Mode = mpPlaying then MediaPlayer1.Stop;
      Mediaplayer1.TimeFormat := tfMilliseconds;
      if CurPictureTimepos*100 < Cardinal(MediaPlayer1.Length) then
      begin
        MediaPlayer1.Position := CurPictureTimepos * 100;
        MediaPlayer1.Play;
      end;
    end;
    AutomaticNextDia := false;
    FirstTickCount := GetTickCount;
    PlayStart := GetTickCount - CurPictureTimepos * 100;
  end
  else
  begin
    TabSheet5.TabVisible := false;
    DisableEnablePictureControls(false);
    DisableEnableSceneControls(false);
    DisableEnableFileControls(false);
    Edit1.Enabled := false;
    Edit3.Enabled := false;
    SpinEdit1.Enabled := false;
    SpinEdit13.Enabled := false;
    Label18.Font.Color := clGreen;
    try
      Timer1.Enabled := false;
 
      RecalcSoundtrackLength; // optional
 
      Mediaplayer1.FileName := Format('%s\%s', [CurScene^.szSceneFolder, CurScene^.szDialogWav]);
      if FileExists(Mediaplayer1.FileName) then
      begin
        Mediaplayer1.TimeFormat := tfMilliseconds;
        Mediaplayer1.Open;
        MediaplayerOpened := true;
        if CurPictureTimepos*100 < Cardinal(MediaPlayer1.Length) then
        begin
          MediaPlayer1.Position := CurPictureTimepos * 100;
          MediaPlayer1.Play;
        end;
      end
      else
      begin
        MediaplayerOpened := false;
        MediaPlayer1.FileName := '';
      end;
      PlayStart := GetTickCount - CurPictureTimepos * 100;
      Timer1.Enabled := true;
 
      {$REGION 'Calculate PictureLastFrame'}
      PictureLastFrame := 0;
      for i := 0 to CurScene^.numPics-1 do
      begin
        Inc(PictureLastFrame, Game.pictures[CurScene^.pictureIndex + i].duration);
      end;
      PictureLastFrame := PictureLastFrame * 100;
      {$ENDREGION}
 
      DecisionPicSet := false;
      while not Application.Terminated and
            not StopPlayRequest and
            (
                  (MediaPlayer1.Mode = mpPlaying) or
                  (GetTickCount - PlayStart <= PictureLastFrame)
            ) do
      begin
        if GetTickCount - PlayStart <= PictureLastFrame then
        begin
          DecisionPicSet := false;
          FirstTickCount := GetTickCount;
          while not Application.Terminated and ((GetTickCount - FirstTickCount) < CurPicture^.duration * 100) and not StopPlayRequest do
          begin
            Application.ProcessMessages;
            Sleep(0);
          end;
 
          if not Application.Terminated and (ListBox2.ItemIndex < ListBox2.Count-1) and not StopPlayRequest then
          begin
            ListBox2.ItemIndex := ListBox2.ItemIndex + 1;
            AutomaticNextDia := true;
            ListBox2Click(ListBox2);
          end;
        end
        else
        begin
          if not DecisionPicSet then
          begin
            decisionBMP := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurScene^.szDecisionBmp;
            if (CurScene^.szDecisionBmp <> '') and FileExists(decisionBMP) then
            begin
              Image2.Picture.LoadFromFile(decisionBMP);
              AspectRatio(Image2, Panel2);
            end
            else
            begin
              Image2.Picture := nil;
            end;
            DecisionPicSet := true;
          end;
          Application.ProcessMessages;
          Sleep(0);
        end;
      end;
    finally
      PlayStart := 0;
      if MediaPlayer1.Mode = mpPlaying then MediaPlayer1.Stop;
      if MediaplayerOpened then MediaPlayer1.Close;
      StopPlayRequest := false;
      Label18.Font.Color := clWindowText;
      Timer1.Enabled := false;
      DisableEnableFileControls(true);
      DisableEnableSceneControls(true);
      DisableEnablePictureControls(true);
      TabSheet5.TabVisible := true;
      Edit1.Enabled := true;
      SpinEdit1.Enabled := true;
      Edit3.Enabled := true;
      SpinEdit13.Enabled := true;
      Label18.Caption := _DecisecondToTime(CurPictureTimepos);
      ListBox2Click(ListBox2);
    end;
  end;
end;
 
procedure TForm1.ShowSceneBmp;
var
  Filename: string;
begin
  Filename := string(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurPicture^.szBitmapFile);
  if FileExists(Filename) then
  begin
    Image2.Picture.LoadFromFile(Filename);
    AspectRatio(Image2, Panel2);
  end
  else
  begin
    Image2.Picture := nil;
  end;
end;
 
procedure TForm1.Button16Click(Sender: TObject);
begin
  ListBox2.ItemIndex := 0; // go to the beginning
  ListBox2Click(ListBox2); // load picture data
  Button15Click(Button15); // play
end;
 
procedure TForm1.Button17Click(Sender: TObject);
begin
  if PlayStart <> 0 then
  begin
    Timer1.Enabled := false;
    if MediaplayerOpened then MediaPlayer1.Stop;
    StopPlayRequest := true;
  end;
end;
 
procedure TForm1.Button18Click(Sender: TObject);
var
  fileName: string;
begin
  fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurScene^.szDialogWav;
  if not FileExists(fileName) then exit;
  ShellExecute(Application.Handle, 'open', PChar(fileName), '', '', SW_NORMAL);
end;
 
procedure TForm1.Button19Click(Sender: TObject);
resourcestring
  S_DISCARD = 'Are you sure you want to discard all changes?';
begin
  if MessageDlg(S_DISCARD, mtConfirmation, mbYesNoCancel, 0) = mrYes then
  begin
    CopyMemory(@Game, @GameBak, SizeOf(Game));
    SetupGUIAfterLoad;
  end;
end;
 
procedure TForm1.NewScene;
resourcestring
  S_SCENE_FULL = 'No more space for another scene';
var
  sceneID: integer;
  newScene: PSceneDef;
begin
  if ListBox1.Items.Count = 100 then
  begin
    raise Exception.Create(S_SCENE_FULL);
  end;
 
  sceneID := GetGreatestSceneID+1;
  if sceneID >= Length(Game.scenes) then sceneID := SearchSceneIDGapFromTop;
 
  newScene := Game.AddSceneAtEnd(sceneID);
  newScene.actions[0].nextSceneID := SCENEID_ENDGAME;
  newScene.pictureIndex := Game.numPics;
  ListBox1.Items.Add(newScene.szSceneFolder);
  ReloadActionSceneLists;
  HandlePossibleEmptySceneList;
  ListBox1.ItemIndex := ListBox1.Items.Count - 1;
  ListBox1Click(ListBox1);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  NewScene;
end;
 
procedure TForm1.Button20Click(Sender: TObject);
begin
  Game.Defrag;
  RecalcStats;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
resourcestring
  S_CONFLICT = 'Can''t delete this scene. There are following dependencies:'+#13#10#13#10+'%s';
  S_SCENEID = 'Scene %s, action #%d';
  // S_ONLYONE = 'Can''t delete the scene if there is only one.';
  S_REALLY_DEL = 'Do you really want to delete scene %s?';
  S_NEW_INTRO = 'Attention: This will make %s to your new intro sequence. Is that OK?';
var
  iScene, iAction, sceneID: integer;
  conflicts: TStringList;
  sWarning: string;
  bakItemindex: integer;
begin
  if ListBox1.Count = 0 then exit;
 
  (*
  if ListBox1.Count = 1 then
  begin
    raise Exception.Create(S_ONLYONE);
  end;
  *)
 
  conflicts := TStringList.Create;
  try
    sceneID := GetSceneIDFromName(CurScene^.szSceneFolder);
    for iScene := 0 to Game.numScenes-1 do
    begin
      for iAction := 0 to Game.scenes[iScene].numActions-1 do
      begin
        if Game.scenes[iScene].actions[iAction].nextSceneID = sceneID then
        begin
          conflicts.Add(Format(S_SCENEID, [Game.scenes[iScene].szSceneFolder, iAction+1]));
        end;
      end;
    end;
    if conflicts.Count > 0 then
    begin
      raise Exception.CreateFmt(S_CONFLICT, [conflicts.Text]);
    end;
  finally
    FreeAndNil(conflicts);
  end;
 
  sWarning := Format(S_REALLY_DEL, [CurScene^.szSceneFolder]);
  if (ListBox1.ItemIndex = 0) and (ListBox1.Count >= 2) then
    sWarning := Format(S_NEW_INTRO, [ListBox1.Items[ListBox1.ItemIndex+1]]);
  if (MessageDlg(sWarning, mtConfirmation, mbYesNoCancel, 0) <> mrYes) then
  begin
    Exit;
  end;
 
  Game.DeleteScene(ListBox1.ItemIndex);
 
  bakItemindex := ListBox1.ItemIndex;
  ListBox1.Items.Delete(bakItemindex);
  ReloadActionSceneLists;
  HandlePossibleEmptySceneList;
  if ListBox1.Count > 0 then
  begin
    if bakItemindex = ListBox1.Count then Dec(bakItemindex);
    Listbox1.ItemIndex := bakItemindex;
    ListBox1Click(ListBox1);
  end;
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Save;
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
  if ListBox1.ItemIndex <= 0 then exit;
  Game.SwapScene(ListBox1.ItemIndex, ListBox1.ItemIndex-1);
  ListBox1.Items.Exchange(ListBox1.ItemIndex, ListBox1.ItemIndex-1);
  ReloadActionSceneLists;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  if ListBox1.ItemIndex = ListBox1.Count-1 then exit;
  Game.SwapScene(ListBox1.ItemIndex, ListBox1.ItemIndex+1);
  ListBox1.Items.Exchange(ListBox1.ItemIndex, ListBox1.ItemIndex+1);
  ReloadActionSceneLists;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
var
  pic: PPictureDef;
begin
  if ListBox2.Items.Count > 0 then
    pic := Game.AddPictureBetween(CurScene^.pictureIndex + Max(ListBox2.ItemIndex+1,0), false)
  else
    pic := Game.AddPictureBetween(CurScene^.pictureIndex + Max(ListBox2.ItemIndex,0), true);
  pic.duration     := DEFAULT_DURATION;
  pic.szBitmapFile := DEFAULT_FILENAME;
  if ListBox2.ItemIndex = -1 then
  begin
    ListBox2.Items.Insert(ListBox2.Count, Format('(%d) %s', [DEFAULT_DURATION, DEFAULT_FILENAME]));
    ListBox2.ItemIndex := ListBox2.Count - 1;
  end
  else
  begin
    ListBox2.Items.Insert(ListBox2.ItemIndex+1, Format('(%d) %s', [DEFAULT_DURATION, DEFAULT_FILENAME]));
    ListBox2.ItemIndex := ListBox2.ItemIndex + 1;
  end;
  ListBox2Click(Listbox2);
  SelectFilenameBase(Edit3);
  RecalcStats;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
var
  bakIdx: integer;
begin
  if Listbox2.Count > 0 then
  begin
    bakIdx := ListBox2.ItemIndex;
    Game.DeletePicture(CurScene^.pictureIndex + bakIdx);
    ListBox2.Items.Delete(bakIdx);
    if ListBox2.Count > 0 then
    begin
      if bakIdx = ListBox2.Count then Dec(bakIdx);
      ListBox2.ItemIndex := bakIdx;
      ListBox2Click(Listbox2);
    end;
    RecalcUnusedFiles;
  end;
  RecalcStats;
end;
 
procedure TForm1.Button8Click(Sender: TObject);
begin
  if ListBox2.ItemIndex <= 0 then exit;
  Game.SwapPicture(CurScene^.pictureIndex+ListBox2.ItemIndex, CurScene^.pictureIndex+ListBox2.ItemIndex-1);
  ListBox2.Items.Exchange(ListBox2.ItemIndex, ListBox2.ItemIndex-1);
end;
 
procedure TForm1.Button9Click(Sender: TObject);
begin
  if ListBox2.ItemIndex = ListBox2.Count-1 then exit;
  Game.SwapPicture(CurScene^.pictureIndex+ListBox2.ItemIndex, CurScene^.pictureIndex+ListBox2.ItemIndex+1);
  ListBox2.Items.Exchange(ListBox2.ItemIndex, ListBox2.ItemIndex+1);
end;
 
procedure TForm1.Save;
var
  fs: TFileStream;
begin
  CopyMemory(@GameBak, @Game, SizeOf(Game));
 
  fs := TFileStream.Create('GAME.BIN', fmOpenWrite or fmCreate);
  try
    fs.WriteBuffer(Game, SizeOf(Game));
  finally
    FreeAndNil(fs);
  end;
end;
 
procedure TForm1.ActionTargetChange(Sender: TObject);
resourcestring
  S_ASSERT_SENDER = 'Unexpected sender for ActionTargetChange()';
var
  actionIdx: integer;
  itemIdx: Integer;
begin
       if Sender = ComboBox1 then actionIdx := 0
  else if Sender = ComboBox2 then actionIdx := 1
  else if Sender = ComboBox3 then actionIdx := 2
  else raise Exception.Create(S_ASSERT_SENDER);
 
  itemIdx := TComboBox(Sender).ItemIndex;
  if itemIdx = 0 then
    CurScene^.actions[actionIdx].nextSceneID := SCENEID_ENDGAME
  else if itemIdx = 1 then
    CurScene^.actions[actionIdx].nextSceneID := SCENEID_PREVDECISION
  else
    CurScene^.actions[actionIdx].nextSceneID := GetSceneIDFromName(ListBox1.Items[itemIdx - 2]);
end;
 
procedure TForm1.Addtoscene1Click(Sender: TObject);
var
  fil: string;
begin
  if ListBox3.ItemIndex = -1 then exit;
  fil := ListBox3.Items[ListBox3.ItemIndex];
  Button6.Click;
  Edit3.Text := fil;
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  _WriteStringToFilename(@CurScene^.szDialogWav, Edit1.Text);
  RecalcSoundtrackLength;
  RecalcUnusedFiles;
 
  Label24.Visible := not FileExists(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit1.Text);
  Label25.Visible := not FileExists(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + 'E' + Edit1.Text);
 
  Button18.Visible := CurScene^.szDialogWav <> '';
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
begin
  _WriteStringToFilename(@CurScene^.szDecisionBmp, Edit2.Text);
  RecalcUnusedFiles;
  RedrawDecisionBitmap;
  Label27.Visible := not FileExists(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit2.Text) and not (Edit2.Text = '');
  Button11.Visible := CurScene^.szDecisionBmp <> '';
end;
 
procedure TForm1.Edit3Change(Sender: TObject);
begin
  _WriteStringToFilename(@CurPicture^.szBitmapFile, Edit3.Text);
  ListBox2.Items[ListBox2.ItemIndex] := Format('(%d) %s', [CurPicture^.duration, CurPicture^.szBitmapFile]);
  RecalcUnusedFiles;
  ShowSceneBmp;
  Label26.Visible := not FileExists(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit3.Text);
  Button12.Visible := CurPicture^.szBitmapFile <> '';
end;
 
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
resourcestring
  S_SAVE_CHANGES = 'Do you want to save the changes?';
begin
  if not CompareMem(@Game, @GameBak, SizeOf(Game)) then
  begin
    case MessageDlg(S_SAVE_CHANGES, mtConfirmation, mbYesNoCancel, 0) of
      mrYes:
      begin
        Save;
        CanClose := true;
      end;
      mrNo:
      begin
        CanClose := true;
      end;
      mrCancel:
      begin
        CanClose := false;
      end;
    end;
  end;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  PageControl1.ActivePageIndex := 0;
  PageControl2.ActivePageIndex := 0;
  PageControl3.ActivePageIndex := 0;
  Label10.Caption := '';
  Label21.Caption := '';
  Label23.Caption := '';
end;
 
procedure TForm1.FormShow(Sender: TObject);
begin
  if FileExists('GAME.BIN') then
    Load
  else
    New;
end;
 
function TForm1.CurScene: PSceneDef;
resourcestring
  S_NO_SCENE_AVAILABLE = 'No scenes available. Please create one.';
  S_NO_SCENE_SELECTED = 'No scene selected. Please select one.';
begin
  if ListBox1.Count = 0 then raise Exception.Create(S_NO_SCENE_AVAILABLE);
  if ListBox1.ItemIndex = -1 then raise Exception.Create(S_NO_SCENE_SELECTED);
  result := @Game.scenes[ListBox1.ItemIndex];
end;
 
procedure TForm1.ListBox1Click(Sender: TObject);
begin
  LoadScene;
end;
 
procedure TForm1.ListBox1DblClick(Sender: TObject);
begin
  Button16Click(Button16);
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  RedrawDecisionBitmap;
end;
 
procedure TForm1.Close1Click(Sender: TObject);
begin
  Close;
end;
 
function TForm1.CurPicture: PPictureDef;
resourcestring
  S_NO_PICTURE_AVAILABLE = 'No pictures available. Please create one.';
  S_NO_PICTURE_SELECTED = 'No picture selected. Please select one.';
begin
  if ListBox2.Count = 0 then raise Exception.Create(S_NO_PICTURE_AVAILABLE);
  if ListBox2.ItemIndex = -1 then raise Exception.Create(S_NO_PICTURE_SELECTED);
  result := @Game.pictures[CurScene^.pictureIndex + ListBox2.ItemIndex]
end;
 
function TForm1.CurPictureTimepos: Cardinal;
var
  i: integer;
begin
  result := 0;
  for i := curScene^.pictureIndex to curScene^.pictureIndex + ListBox2.ItemIndex - 1 do
  begin
    Inc(result, Game.pictures[i].duration);
  end;
end;
 
class procedure TForm1.AspectRatio(image: TImage; panel: TControl);
var
  wi, hi, ws, hs: integer;
  ri, rs: double;
begin
  wi := image.Picture.Width;
  hi := image.Picture.Height;
  ri := wi / hi;
 
  ws := panel.Width;
  hs := panel.Height;
  rs := ws / hs;
 
  if rs > ri then
  begin
    image.Width  := Round(wi * hs/hi);
    image.Height := hs;
  end
  else
  begin
    image.Width  := ws;
    image.Height := Round(hi * ws/wi);
  end;
 
  image.Left := Round(panel.Width  / 2 - image.Width  / 2);
  image.Top  := Round(panel.Height / 2 - image.Height / 2);
end;
 
procedure TForm1.ListBox2Click(Sender: TObject);
var
  bakEvent: TNotifyEvent;
begin
  if CurScene^.numPics = 0 then
  begin
    SpinEdit13.Value := 0;
 
    bakEvent := Edit3.OnChange;
    try
      Edit3.OnChange := nil;
      Edit3.Text := '';
    finally
      Edit3.OnChange := bakEvent;
    end;
 
    Label18.Caption := '';
    Image2.Picture := nil;
    exit;
  end;
 
  SpinEdit13.Value := CurPicture^.duration;
  Edit3.Text := string(CurPicture^.szBitmapFile);
 
  ShowSceneBmp;
 
  Label18.Caption := _DecisecondToTime(CurPictureTimepos);
 
  if PlayStart <> 0 then
  begin
    Button15Click(Button15);
  end;
 
  RecalcStats;
end;
 
procedure TForm1.ListBox2DblClick(Sender: TObject);
begin
  Button15Click(Button15);
end;
 
procedure TForm1.ListBox3Click(Sender: TObject);
var
  fileName: string;
begin
  if ListBox3.ItemIndex = -1 then exit;
  fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + ListBox3.Items[ListBox3.ItemIndex];
 
  if not FileExists(FileName) then
  begin
    Image3.Visible := false;
    exit;
  end;
 
  try
    Image3.Picture.LoadFromFile(Filename);
    AspectRatio(Image3, Panel3);
    Image3.Visible := true;
  except
    Image3.Visible := false;
    // It could also be a sound file, so we do not show errors
  end;
end;
 
procedure TForm1.ListBox3DblClick(Sender: TObject);
var
  fileName: string;
begin
  if ListBox3.ItemIndex = -1 then exit;
  fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + ListBox3.Items[ListBox3.ItemIndex];
  if not FileExists(FileName) then exit;
  ShellExecute(Application.Handle, 'open', PChar(fileName), '', '', SW_NORMAL);
end;
 
procedure TForm1.ListBox3MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  APoint: TPoint;
  Index: integer;
begin
  if Button = mbRight then
  begin
    APoint.X := X;
    APoint.Y := Y;
    Index := TListbox(Sender).ItemAtPos(APoint, True);
    if Index > -1 then TListbox(Sender).Selected[Index] := True;
  end;
end;
 
procedure TForm1.SetupGUIAfterLoad;
var
  i: integer;
begin
  ListBox1.Clear;
  for i := 0 to Game.numScenes - 1 do
  begin
    ListBox1.Items.Add(string(Game.scenes[i].szSceneFolder));
  end;
  (*
  if ListBox1.Items.Count = 0 then
  begin
    NewScene;
  end;
  *)
 
  ReloadActionSceneLists;
  HandlePossibleEmptySceneList;
 
  if ListBox1.Count > 0 then
  begin
    ListBox1.ItemIndex := 0;
    ListBox1Click(Listbox1);
  end;
end;
 
procedure TForm1.New;
begin
  PageControl1.ActivePageIndex := 0;
  PageControl2.ActivePageIndex := 0;
  PageControl3.ActivePageIndex := 0;
  Label10.Caption := '';
  Label21.Caption := '';
  Label23.Caption := '';
 
  ZeroMemory(@Game, SizeOf(Game));
  ZeroMemory(@GameBak, SizeOf(Game));
 
  SetupGUIAfterLoad;
end;
 
procedure TForm1.Load;
resourcestring
  S_CORRECTED_PICTURE_COUNT = 'Picture count was wrong. Value was corrected.';
var
  fs: TFileStream;
begin
  fs := TFileStream.Create('GAME.BIN', fmOpenRead);
  try
    fs.ReadBuffer(Game, SizeOf(Game));
  finally
    FreeAndNil(fs);
  end;
 
  CopyMemory(@GameBak, @Game, SizeOf(Game));
 
  if Game.RealPictureCount <> Game.numPics then
  begin
    MessageDlg(S_CORRECTED_PICTURE_COUNT, mtInformation, [mbOk], 0);
    Game.numPics := Game.RealPictureCount;
  end;
 
  SetupGUIAfterLoad;
end;
 
procedure TForm1.RecalcSlideshowLength;
var
  i: integer;
  Sum: integer;
begin
  Sum := 0;
  for i := CurScene^.pictureIndex to CurScene^.pictureIndex + CurScene^.numPics - 1 do
  begin
    Inc(Sum, Game.pictures[i].duration);
  end;
  Label21.Caption := _DecisecondToTime(Sum);
end;
 
procedure TForm1.RecalcUnusedFiles;
var
  i, idx: integer;
  SR: TSearchRec;
  ext: string;
  sl: TStringList;
  s: string;
begin
  sl := TStringList.Create;
  try
    if FindFirst(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + '*.*', faArchive, SR) = 0 then
    begin
      repeat
        ext := UpperCase(ExtractFileExt(SR.Name));
        if ((ext <> '.PK' {Adobe Audition}) and (ext <> '.DB' {Windows Thumbnail})) then
        begin
          sl.Add(SR.Name); //Fill the list
        end;
      until FindNext(SR) <> 0;
      FindClose(SR);
    end;
 
    // Remove the entries which are present
    for i := CurScene^.pictureIndex to CurScene^.pictureIndex+CurScene^.numPics-1 do
    begin
      idx := sl.IndexOf(Game.pictures[i].szBitmapFile);
      if idx <> -1 then sl.Delete(idx);
    end;
 
    idx := sl.IndexOf(Edit1.Text);
    if idx <> -1 then sl.Delete(idx);
    idx := sl.IndexOf('E'+Edit1.Text);
    if idx <> -1 then sl.Delete(idx);
 
    idx := sl.IndexOf(Edit2.Text);
    if idx <> -1 then sl.Delete(idx);
 
    idx := sl.IndexOf(Edit3.Text);
    if idx <> -1 then sl.Delete(idx);
 
    if sl.Text <> ListBox3.Items.Text then
    begin
      i := ListBox3.ItemIndex;
      if i >= 0 then
        s := ListBox3.Items.Strings[i]
      else
        s := '';
      ListBox3.Items.Assign(sl);
      i := ListBox3.Items.IndexOf(s);
      if i >= 0 then
        ListBox3.ItemIndex := i
      else
        Image3.Visible := false;
    end;
  finally
    sl.Free;
  end;
end;
 
procedure TForm1.RecalcSoundtrackLength;
var
  FileName: string;
resourcestring
  S_NA = 'n/a';
begin
  if MediaPlayer1.Mode = mpPlaying then exit;
 
  FileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurScene^.szDialogWav;
  if not FileExists(FileName) then
  begin
    Label23.Caption := S_NA;
    exit;
  end;
  MediaPlayer1.FileName := FileName;
  MediaPlayer1.TimeFormat := tfMilliseconds;
  MediaPlayer1.Open;
  Label23.Caption := _DecisecondToTime(MediaPlayer1.Length div 100);
  MediaPlayer1.Close;
end;
 
procedure TForm1.LoadScene;
 
  procedure _SelectActionComboBox(ComboBox: TComboBox; sceneID: SmallInt);
  var
    idx: Integer;
  begin
    if sceneID = SCENEID_ENDGAME then
      ComboBox.ItemIndex := 0
    else if sceneID = SCENEID_PREVDECISION then
      ComboBox.ItemIndex := 1
    else
    begin
      idx := Game.FindSceneIndex(sceneID);
      if idx = -1 then
        ComboBox.ItemIndex := -1
      else
        ComboBox.ItemIndex := 2 + idx;
    end;
  end;
 
  procedure _PreparePictureList;
  var
    i: integer;
    //pic: PPictureDef;
  begin
    ListBox2.Clear;
 
    if CurScene^.numPics = 0 then
    begin
      (*
      pic := Game.AddPictureBetween(CurScene^.pictureIndex + Max(ListBox2.ItemIndex,0));
      pic.duration := DEFAULT_DURATION;
      pic.szBitmapFile := DEFAULT_FILENAME;
      *)
    end;
 
    for i := CurScene^.pictureIndex to CurScene^.pictureIndex + CurScene^.numPics - 1 do
    begin
      Listbox2.Items.Add(Format('(%d) %s', [Game.pictures[i].duration, Game.pictures[i].szBitmapFile]));
    end;
  end;
 
begin
  SpinEdit1.Value := GetSceneIDFromName(CurScene^.szSceneFolder);
  Edit1.Text := string(CurScene^.szDialogWav);
  Edit2.Text := string(CurScene^.szDecisionBmp);
 
  _PreparePictureList;
  ListBox2.ItemIndex := 0;
  ListBox2Click(Listbox2);
 
  _SelectActionComboBox(ComboBox1, CurScene^.actions[0].nextSceneID);
  _SelectActionComboBox(ComboBox2, CurScene^.actions[1].nextSceneID);
  _SelectActionComboBox(ComboBox3, CurScene^.actions[2].nextSceneID);
 
  SpinEdit12.Value := CurScene^.numActions;
  SpinEdit12Change(SpinEdit12);
  PageControl1.ActivePageIndex := 0;
 
  SpinEdit3.Value  := CurScene^.actions[0].cHotspotTopLeft.X;
  SpinEdit17.Value := CurScene^.actions[1].cHotspotTopLeft.X;
  SpinEdit7.Value  := CurScene^.actions[2].cHotspotTopLeft.X;
  SpinEdit2.Value  := CurScene^.actions[0].cHotspotTopLeft.Y;
  SpinEdit18.Value := CurScene^.actions[1].cHotspotTopLeft.Y;
  SpinEdit8.Value  := CurScene^.actions[2].cHotspotTopLeft.Y;
  SpinEdit4.Value  := CurScene^.actions[0].cHotspotBottomRight.X;
  SpinEdit19.Value := CurScene^.actions[1].cHotspotBottomRight.X;
  SpinEdit10.Value := CurScene^.actions[2].cHotspotBottomRight.X;
  SpinEdit5.Value  := CurScene^.actions[0].cHotspotBottomRight.Y;
  SpinEdit20.Value := CurScene^.actions[1].cHotspotBottomRight.Y;
  SpinEdit9.Value  := CurScene^.actions[2].cHotspotBottomRight.Y;
  SpinEdit6.Value  := CurScene^.actions[0].scoreDelta;
  SpinEdit21.Value := CurScene^.actions[1].scoreDelta;
  SpinEdit11.Value := CurScene^.actions[2].scoreDelta;
 
  RedrawDecisionBitmap;
 
  RecalcSlideshowLength;
  RecalcSoundtrackLength;
 
  RecalcUnusedFiles;
 
  RecalcStats;
end;
 
procedure TForm1.RecalcStats;
begin
  Label35.Caption := IntToStr(ListBox1.ItemIndex) + ' / ' + IntToStr(Game.numScenes);
 
  if ListBox2.ItemIndex >= 0 then
    Label31.Caption := IntToStr(CurScene^.pictureIndex) + ' + ' + IntToStr(ListBox2.ItemIndex) + ' = ' + IntToStr(CurScene^.pictureIndex+ListBox2.ItemIndex)
  else
    Label31.Caption := IntToStr(CurScene^.pictureIndex);
 
  Label33.Caption := IntToStr(CurScene^.numPics) + ' / ' + IntToStr(Game.numPics);
 
  Label37.Caption := IntToStr(CurScene^.numActions) + ' / ' + IntToStr(Game.RealActionCount);
end;
 
procedure TForm1.ReloadActionSceneLists;
 
  procedure _ReloadActionSceneLists(ComboBox: TComboBox);
  resourcestring
    S_TERMINATE = 'Terminate program';
    S_PREV_DEC = 'Previous decision';
  var
    prevSelection: string;
    i: Integer;
  begin
    prevSelection := ComboBox.Text;
    try
      ComboBox.Items.Clear;
      ComboBox.Items.Add(S_TERMINATE);
      ComboBox.Items.Add(S_PREV_DEC);
      ComboBox.Items.AddStrings(ListBox1.Items);
    finally
      ComboBox.ItemIndex := 0;
      for i := ComboBox.Items.Count - 1 downto 0 do
      begin
        if ComboBox.Items.Strings[i] = prevSelection then
        begin
          ComboBox.ItemIndex := i;
        end;
      end;
    end;
  end;
 
begin
  _ReloadActionSceneLists(ComboBox1);
  _ReloadActionSceneLists(ComboBox2);
  _ReloadActionSceneLists(ComboBox3);
end;
 
procedure TForm1.SpinEdit12Change(Sender: TObject);
begin
  TabSheet3.TabVisible := SpinEdit12.Value >= 3;
  if PageControl1.ActivePage = TabSheet3 then PageControl1.ActivePage := TabSheet2;
 
  TabSheet2.TabVisible := SpinEdit12.Value >= 2;
  if PageControl1.ActivePage = TabSheet2 then PageControl1.ActivePage := TabSheet1;
 
  // TabSheet1.TabVisible := SpinEdit12.Value >= 1;
 
  CurScene^.numActions := SpinEdit12.Value;
 
  // QUE: zero data of actions which are inactive (numActions<action)?
 
  RecalcStats;
  RedrawDecisionBitmap;
end;
 
procedure TForm1.SpinEdit13Change(Sender: TObject);
begin
  if SpinEdit13.Text = '' then exit;
  CurPicture^.duration := SpinEdit13.Value;
  ListBox2.Items[ListBox2.ItemIndex] := Format('(%d) %s', [CurPicture^.duration, CurPicture^.szBitmapFile]);
  RecalcSlideshowLength;
end;
 
procedure TForm1.SpinEdit1Change(Sender: TObject);
 
  function _CountNumScenes(str: string): integer;
  var
    i: integer;
  begin
    result := 0;
    for i := 0 to ListBox1.Count-1 do
    begin
      if ListBox1.Items[i] = str then Inc(result);
    end;
  end;
 
var
  sNew: string;
begin
  // TODO: warn if dependencies are broken
 
  if SpinEdit1.Text = '' then exit;
  CurScene; // verify that a scene exists and is selected
  sNew := Format('SC%.2d', [SpinEdit1.Value]);
  ListBox1.Items[ListBox1.ItemIndex] := sNew;
  Label17.Visible := _CountNumScenes(sNew) > 1;
  ReloadActionSceneLists;
  _WriteStringToFilename(@CurScene^.szSceneFolder, ListBox1.Items[ListBox1.ItemIndex]);
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
var
  ms: Cardinal;
begin
  ms := GetTickCount - PlayStart;
  Label18.Caption := FormatDatetime('hh:nn:ss', ms / 1000 / (24*60*60)) + ',' + IntToStr(ms mod 1000 div 100);
end;
 
procedure TForm1.About1Click(Sender: TObject);
begin
  ShowMessage('Plumbers Don''t Wear Ties - GAME.BIN editor (can be also used to create new games based on the "ShowTime" engine!)'+#13#10#13#10+'Written by Daniel Marschall (www.daniel-marschall.de)'+#13#10#13#10+'Published by ViaThinkSoft (www.viathinksoft.com)'+#13#10#13#10+'Current version: ' + CUR_VER);
end;
 
procedure TForm1.ActionSpinEditsChange(Sender: TObject);
begin
  if TSpinEdit(Sender).Text = '' then exit; // user is about to enter a negative value
  if TSpinEdit(Sender).Text = '-' then exit; // user is about to enter a negative value
 
       if Sender = SpinEdit3  then CurScene^.actions[0].cHotspotTopLeft.X := TSpinEdit(Sender).Value
  else if Sender = SpinEdit17 then CurScene^.actions[1].cHotspotTopLeft.X := TSpinEdit(Sender).Value
  else if Sender = SpinEdit7  then CurScene^.actions[2].cHotspotTopLeft.X := TSpinEdit(Sender).Value
  else if Sender = SpinEdit2  then CurScene^.actions[0].cHotspotTopLeft.Y := TSpinEdit(Sender).Value
  else if Sender = SpinEdit18 then CurScene^.actions[1].cHotspotTopLeft.Y := TSpinEdit(Sender).Value
  else if Sender = SpinEdit8  then CurScene^.actions[2].cHotspotTopLeft.Y := TSpinEdit(Sender).Value
  else if Sender = SpinEdit4  then CurScene^.actions[0].cHotspotBottomRight.X := TSpinEdit(Sender).Value
  else if Sender = SpinEdit19 then CurScene^.actions[1].cHotspotBottomRight.X := TSpinEdit(Sender).Value
  else if Sender = SpinEdit10 then CurScene^.actions[2].cHotspotBottomRight.X := TSpinEdit(Sender).Value
  else if Sender = SpinEdit5  then CurScene^.actions[0].cHotspotBottomRight.Y := TSpinEdit(Sender).Value
  else if Sender = SpinEdit20 then CurScene^.actions[1].cHotspotBottomRight.Y := TSpinEdit(Sender).Value
  else if Sender = SpinEdit9  then CurScene^.actions[2].cHotspotBottomRight.Y := TSpinEdit(Sender).Value
  else if Sender = SpinEdit6  then CurScene^.actions[0].scoreDelta := TSpinEdit(Sender).Value
  else if Sender = SpinEdit21 then CurScene^.actions[1].scoreDelta := TSpinEdit(Sender).Value
  else if Sender = SpinEdit11 then CurScene^.actions[2].scoreDelta := TSpinEdit(Sender).Value;
 
  RedrawDecisionBitmap;
end;
 
procedure TForm1.RedrawDecisionBitmap;
var
  Filename: string;
begin
  FileName := string(IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + Edit2.Text);
 
  Image1.Visible := FileExists(FileName);
 
  if not FileExists(FileName) then exit;
 
  Image1.Picture.Bitmap.LoadFromFile(FileName);
  AspectRatio(Image1, Panel1);
 
  Image1.Picture.Bitmap.PixelFormat := pf24bit; // Extend the palette, so we have red, green and blue guaranteed.
 
  Image1.Canvas.Brush.Style := bsDiagCross;
 
  if (CheckBox1.Checked or (CurScene^.numActions >= 1)) and
     (SpinEdit3.Value < SpinEdit4.Value) and (SpinEdit2.Value < SpinEdit5.Value) then
  begin
    Image1.Canvas.Pen.Color := clRed;
    Image1.Canvas.Brush.Color := clRed;
    Image1.Canvas.Rectangle(SpinEdit3.Value,  SpinEdit2.Value,  SpinEdit4.Value,  SpinEdit5.Value);
  end;
 
  if (CheckBox1.Checked or (CurScene^.numActions >= 2)) and
     (SpinEdit17.Value < SpinEdit19.Value) and (SpinEdit18.Value < SpinEdit20.Value) then
  begin
    Image1.Canvas.Pen.Color := clLime;
    Image1.Canvas.Brush.Color := clLime;
    Image1.Canvas.Rectangle(SpinEdit17.Value, SpinEdit18.Value, SpinEdit19.Value, SpinEdit20.Value);
  end;
 
  if (CheckBox1.Checked or (CurScene^.numActions >= 3)) and
     (SpinEdit7.Value < SpinEdit10.Value) and (SpinEdit8.Value < SpinEdit9.Value) then
  begin
    Image1.Canvas.Pen.Color := clBlue;
    Image1.Canvas.Brush.Color := clBlue;
    Image1.Canvas.Rectangle(SpinEdit7.Value,  SpinEdit8.Value,  SpinEdit10.Value, SpinEdit9.Value);
  end;
end;
 
end.
 

Rev 18	Rev 25
1	unit Unit1;	1	unit Unit1;
2		2
-		3	(*
-		4	* Plumbers Don't Wear Ties - Inofficial Scene Editor
-		5	* Copyright 2017 - 2020 Daniel Marschall, ViaThinkSoft
-		6	*
-		7	* Licensed under the Apache License, Version 2.0 (the "License");
-		8	* you may not use this file except in compliance with the License.
-		9	* You may obtain a copy of the License at
-		10	*
-		11	* http://www.apache.org/licenses/LICENSE-2.0
-		12	*
-		13	* Unless required by applicable law or agreed to in writing, software
-		14	* distributed under the License is distributed on an "AS IS" BASIS,
-		15	* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
-		16	* See the License for the specific language governing permissions and
-		17	* limitations under the License.
-		18	*)
-		19
3	// TODO: the "folder open" icons look like you can CHOOSE a file, not open it!	20	// TODO: the "folder open" icons look like you can CHOOSE a file, not open it!
4	// - change the icon to something else	21	// - change the icon to something else
5	// - add open-dialogs for choosing the bmp and wav files	22	// - add open-dialogs for choosing the bmp and wav files
6	// TODO: Give controls better names	23	// TODO: Give controls better names
7	// TODO: When loading the file, check if dependencies are broken and output a warning	24	// TODO: When loading the file, check if dependencies are broken and output a warning
8	// Idea: About the hotspot / action markings:	25	// Idea: About the hotspot / action markings:
9	// - anti moiree?	26	// - anti moiree?
10	// - allow user to draw a rectangle with drag'n'drop instead of left and right mouse button.	27	// - allow user to draw a rectangle with drag'n'drop instead of left and right mouse button.
11	// also, automatically determine the left/top and right/bottom border, so the user can draw the rectange in every direction	28	// also, automatically determine the left/top and right/bottom border, so the user can draw the rectange in every direction
12	// Idea: unused liste auch bei decision page anzeigen	29	// Idea: unused liste auch bei decision page anzeigen
13	// Idea: Function to re-order stuff?	30	// Idea: Function to re-order stuff?
14		31
15	interface	32	interface
16		33
17	uses	34	uses
18	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,	35	Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
19	Dialogs, StdCtrls, Spin, Grids, GameBinStruct, ComCtrls, ExtCtrls, MPlayer,	36	Dialogs, StdCtrls, Spin, Grids, GameBinStruct, ComCtrls, ExtCtrls, MPlayer,
20	Menus;	37	Menus;
21		38
22	const	39	const
23	CUR_VER = '2020-06-08';	40	CUR_VER = '2020-06-08';
24		41
25	type	42	type
26	TForm1 = class(TForm)	43	TForm1 = class(TForm)
27	ListBox1: TListBox;	44	ListBox1: TListBox;
28	Button1: TButton;	45	Button1: TButton;
29	Button2: TButton;	46	Button2: TButton;
30	Button3: TButton;	47	Button3: TButton;
31	Button4: TButton;	48	Button4: TButton;
32	Button5: TButton;	49	Button5: TButton;
33	Button10: TButton;	50	Button10: TButton;
34	PageControl2: TPageControl;	51	PageControl2: TPageControl;
35	TabSheet4: TTabSheet;	52	TabSheet4: TTabSheet;
36	Label1: TLabel;	53	Label1: TLabel;
37	Label2: TLabel;	54	Label2: TLabel;
38	SpinEdit1: TSpinEdit;	55	SpinEdit1: TSpinEdit;
39	Edit1: TEdit;	56	Edit1: TEdit;
40	Button6: TButton;	57	Button6: TButton;
41	Button7: TButton;	58	Button7: TButton;
42	Button8: TButton;	59	Button8: TButton;
43	Button9: TButton;	60	Button9: TButton;
44	ListBox2: TListBox;	61	ListBox2: TListBox;
45	TabSheet5: TTabSheet;	62	TabSheet5: TTabSheet;
46	Label3: TLabel;	63	Label3: TLabel;
47	Image1: TImage;	64	Image1: TImage;
48	Label10: TLabel;	65	Label10: TLabel;
49	Label11: TLabel;	66	Label11: TLabel;
50	Edit2: TEdit;	67	Edit2: TEdit;
51	PageControl1: TPageControl;	68	PageControl1: TPageControl;
52	TabSheet1: TTabSheet;	69	TabSheet1: TTabSheet;
53	Label5: TLabel;	70	Label5: TLabel;
54	Label4: TLabel;	71	Label4: TLabel;
55	Label6: TLabel;	72	Label6: TLabel;
56	SpinEdit6: TSpinEdit;	73	SpinEdit6: TSpinEdit;
57	SpinEdit2: TSpinEdit;	74	SpinEdit2: TSpinEdit;
58	SpinEdit3: TSpinEdit;	75	SpinEdit3: TSpinEdit;
59	SpinEdit4: TSpinEdit;	76	SpinEdit4: TSpinEdit;
60	SpinEdit5: TSpinEdit;	77	SpinEdit5: TSpinEdit;
61	ComboBox1: TComboBox;	78	ComboBox1: TComboBox;
62	TabSheet2: TTabSheet;	79	TabSheet2: TTabSheet;
63	Label13: TLabel;	80	Label13: TLabel;
64	Label14: TLabel;	81	Label14: TLabel;
65	Label15: TLabel;	82	Label15: TLabel;
66	ComboBox2: TComboBox;	83	ComboBox2: TComboBox;
67	SpinEdit17: TSpinEdit;	84	SpinEdit17: TSpinEdit;
68	SpinEdit18: TSpinEdit;	85	SpinEdit18: TSpinEdit;
69	SpinEdit19: TSpinEdit;	86	SpinEdit19: TSpinEdit;
70	SpinEdit20: TSpinEdit;	87	SpinEdit20: TSpinEdit;
71	SpinEdit21: TSpinEdit;	88	SpinEdit21: TSpinEdit;
72	TabSheet3: TTabSheet;	89	TabSheet3: TTabSheet;
73	Label7: TLabel;	90	Label7: TLabel;
74	Label8: TLabel;	91	Label8: TLabel;
75	Label9: TLabel;	92	Label9: TLabel;
76	ComboBox3: TComboBox;	93	ComboBox3: TComboBox;
77	SpinEdit7: TSpinEdit;	94	SpinEdit7: TSpinEdit;
78	SpinEdit8: TSpinEdit;	95	SpinEdit8: TSpinEdit;
79	SpinEdit9: TSpinEdit;	96	SpinEdit9: TSpinEdit;
80	SpinEdit10: TSpinEdit;	97	SpinEdit10: TSpinEdit;
81	SpinEdit11: TSpinEdit;	98	SpinEdit11: TSpinEdit;
82	SpinEdit12: TSpinEdit;	99	SpinEdit12: TSpinEdit;
83	Image2: TImage;	100	Image2: TImage;
84	Edit3: TEdit;	101	Edit3: TEdit;
85	SpinEdit13: TSpinEdit;	102	SpinEdit13: TSpinEdit;
86	Label12: TLabel;	103	Label12: TLabel;
87	Label16: TLabel;	104	Label16: TLabel;
88	Button13: TButton;	105	Button13: TButton;
89	Button14: TButton;	106	Button14: TButton;
90	MediaPlayer1: TMediaPlayer;	107	MediaPlayer1: TMediaPlayer;
91	Timer1: TTimer;	108	Timer1: TTimer;
92	GroupBox2: TGroupBox;	109	GroupBox2: TGroupBox;
93	Button15: TButton;	110	Button15: TButton;
94	Button17: TButton;	111	Button17: TButton;
95	Button16: TButton;	112	Button16: TButton;
96	Label18: TLabel;	113	Label18: TLabel;
97	Label17: TLabel;	114	Label17: TLabel;
98	ListBox3: TListBox;	115	ListBox3: TListBox;
99	Label19: TLabel;	116	Label19: TLabel;
100	Label24: TLabel;	117	Label24: TLabel;
101	Label25: TLabel;	118	Label25: TLabel;
102	Label26: TLabel;	119	Label26: TLabel;
103	Label27: TLabel;	120	Label27: TLabel;
104	Label28: TLabel;	121	Label28: TLabel;
105	Label29: TLabel;	122	Label29: TLabel;
106	Button11: TButton;	123	Button11: TButton;
107	Button12: TButton;	124	Button12: TButton;
108	Button18: TButton;	125	Button18: TButton;
109	MainMenu1: TMainMenu;	126	MainMenu1: TMainMenu;
110	File1: TMenuItem;	127	File1: TMenuItem;
111	Close1: TMenuItem;	128	Close1: TMenuItem;
112	Newfile1: TMenuItem;	129	Newfile1: TMenuItem;
113	Savetogamebin1: TMenuItem;	130	Savetogamebin1: TMenuItem;
114	Saveandtest1: TMenuItem;	131	Saveandtest1: TMenuItem;
115	N1: TMenuItem;	132	N1: TMenuItem;
116	N2: TMenuItem;	133	N2: TMenuItem;
117	Help1: TMenuItem;	134	Help1: TMenuItem;
118	About1: TMenuItem;	135	About1: TMenuItem;
119	PopupMenu1: TPopupMenu;	136	PopupMenu1: TPopupMenu;
120	Addtoscene1: TMenuItem;	137	Addtoscene1: TMenuItem;
121	Panel1: TPanel;	138	Panel1: TPanel;
122	Panel2: TPanel;	139	Panel2: TPanel;
123	Panel3: TPanel;	140	Panel3: TPanel;
124	Image3: TImage;	141	Image3: TImage;
125	Button19: TButton;	142	Button19: TButton;
126	PageControl3: TPageControl;	143	PageControl3: TPageControl;
127	TabSheet6: TTabSheet;	144	TabSheet6: TTabSheet;
128	TabSheet7: TTabSheet;	145	TabSheet7: TTabSheet;
129	Label20: TLabel;	146	Label20: TLabel;
130	Label21: TLabel;	147	Label21: TLabel;
131	Label22: TLabel;	148	Label22: TLabel;
132	Label23: TLabel;	149	Label23: TLabel;
133	Label34: TLabel;	150	Label34: TLabel;
134	Label35: TLabel;	151	Label35: TLabel;
135	Label32: TLabel;	152	Label32: TLabel;
136	Label33: TLabel;	153	Label33: TLabel;
137	Label30: TLabel;	154	Label30: TLabel;
138	Label31: TLabel;	155	Label31: TLabel;
139	Label36: TLabel;	156	Label36: TLabel;
140	Label37: TLabel;	157	Label37: TLabel;
141	CheckBox1: TCheckBox;	158	CheckBox1: TCheckBox;
142	TabSheet8: TTabSheet;	159	TabSheet8: TTabSheet;
143	Button20: TButton;	160	Button20: TButton;
144	procedure ListBox1Click(Sender: TObject);	161	procedure ListBox1Click(Sender: TObject);
145	procedure Edit1Change(Sender: TObject);	162	procedure Edit1Change(Sender: TObject);
146	procedure Edit2Change(Sender: TObject);	163	procedure Edit2Change(Sender: TObject);
147	procedure SpinEdit1Change(Sender: TObject);	164	procedure SpinEdit1Change(Sender: TObject);
148	procedure Button3Click(Sender: TObject);	165	procedure Button3Click(Sender: TObject);
149	procedure FormShow(Sender: TObject);	166	procedure FormShow(Sender: TObject);
150	procedure SpinEdit12Change(Sender: TObject);	167	procedure SpinEdit12Change(Sender: TObject);
151	procedure ActionTargetChange(Sender: TObject);	168	procedure ActionTargetChange(Sender: TObject);
152	procedure ActionSpinEditsChange(Sender: TObject);	169	procedure ActionSpinEditsChange(Sender: TObject);
153	procedure Button1Click(Sender: TObject);	170	procedure Button1Click(Sender: TObject);
154	procedure Button10Click(Sender: TObject);	171	procedure Button10Click(Sender: TObject);
155	procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,	172	procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
156	Y: Integer);	173	Y: Integer);
157	procedure ListBox2Click(Sender: TObject);	174	procedure ListBox2Click(Sender: TObject);
158	procedure SpinEdit13Change(Sender: TObject);	175	procedure SpinEdit13Change(Sender: TObject);
159	procedure Edit3Change(Sender: TObject);	176	procedure Edit3Change(Sender: TObject);
160	procedure FormCreate(Sender: TObject);	177	procedure FormCreate(Sender: TObject);
161	procedure Button13Click(Sender: TObject);	178	procedure Button13Click(Sender: TObject);
162	procedure Button14Click(Sender: TObject);	179	procedure Button14Click(Sender: TObject);
163	procedure Button2Click(Sender: TObject);	180	procedure Button2Click(Sender: TObject);
164	procedure Timer1Timer(Sender: TObject);	181	procedure Timer1Timer(Sender: TObject);
165	procedure Button17Click(Sender: TObject);	182	procedure Button17Click(Sender: TObject);
166	procedure Button15Click(Sender: TObject);	183	procedure Button15Click(Sender: TObject);
167	procedure Button16Click(Sender: TObject);	184	procedure Button16Click(Sender: TObject);
168	procedure ListBox1DblClick(Sender: TObject);	185	procedure ListBox1DblClick(Sender: TObject);
169	procedure ListBox2DblClick(Sender: TObject);	186	procedure ListBox2DblClick(Sender: TObject);
170	procedure Button4Click(Sender: TObject);	187	procedure Button4Click(Sender: TObject);
171	procedure Button5Click(Sender: TObject);	188	procedure Button5Click(Sender: TObject);
172	procedure Button6Click(Sender: TObject);	189	procedure Button6Click(Sender: TObject);
173	procedure Button7Click(Sender: TObject);	190	procedure Button7Click(Sender: TObject);
174	procedure Button8Click(Sender: TObject);	191	procedure Button8Click(Sender: TObject);
175	procedure Button9Click(Sender: TObject);	192	procedure Button9Click(Sender: TObject);
176	procedure Image1MouseLeave(Sender: TObject);	193	procedure Image1MouseLeave(Sender: TObject);
177	procedure ListBox3DblClick(Sender: TObject);	194	procedure ListBox3DblClick(Sender: TObject);
178	procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;	195	procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;
179	Shift: TShiftState; X, Y: Integer);	196	Shift: TShiftState; X, Y: Integer);
180	procedure Button11Click(Sender: TObject);	197	procedure Button11Click(Sender: TObject);
181	procedure Button12Click(Sender: TObject);	198	procedure Button12Click(Sender: TObject);
182	procedure Button18Click(Sender: TObject);	199	procedure Button18Click(Sender: TObject);
183	procedure Image1MouseEnter(Sender: TObject);	200	procedure Image1MouseEnter(Sender: TObject);
184	procedure About1Click(Sender: TObject);	201	procedure About1Click(Sender: TObject);
185	procedure Close1Click(Sender: TObject);	202	procedure Close1Click(Sender: TObject);
186	procedure Addtoscene1Click(Sender: TObject);	203	procedure Addtoscene1Click(Sender: TObject);
187	procedure ListBox3MouseDown(Sender: TObject; Button: TMouseButton;	204	procedure ListBox3MouseDown(Sender: TObject; Button: TMouseButton;
188	Shift: TShiftState; X, Y: Integer);	205	Shift: TShiftState; X, Y: Integer);
189	procedure ListBox3Click(Sender: TObject);	206	procedure ListBox3Click(Sender: TObject);
190	procedure Button19Click(Sender: TObject);	207	procedure Button19Click(Sender: TObject);
191	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);	208	procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
192	procedure Button20Click(Sender: TObject);	209	procedure Button20Click(Sender: TObject);
193	procedure CheckBox1Click(Sender: TObject);	210	procedure CheckBox1Click(Sender: TObject);
194	private	211	private
195	Game: TGameBinFile;	212	Game: TGameBinFile;
196	GameBak: TGameBinFile;	213	GameBak: TGameBinFile;
197	PlayStart: Cardinal;	214	PlayStart: Cardinal;
198	MediaplayerOpened: boolean;	215	MediaplayerOpened: boolean;
199	StopPlayRequest: boolean;	216	StopPlayRequest: boolean;
200	FirstTickCount: Cardinal;	217	FirstTickCount: Cardinal;
201	procedure ShowSceneBmp;	218	procedure ShowSceneBmp;
202	function CurScene: PSceneDef;	219	function CurScene: PSceneDef;
203	procedure LoadScene;	220	procedure LoadScene;
204	procedure Load;	221	procedure Load;
205	procedure Save;	222	procedure Save;
206	procedure ReloadActionSceneLists;	223	procedure ReloadActionSceneLists;
207	function GetGreatestSceneID: integer;	224	function GetGreatestSceneID: integer;
208	function SearchSceneIDGapFromTop: integer;	225	function SearchSceneIDGapFromTop: integer;
209	procedure RedrawDecisionBitmap;	226	procedure RedrawDecisionBitmap;
210	function CurPicture: PPictureDef;	227	function CurPicture: PPictureDef;
211	function CurPictureTimepos: Cardinal;	228	function CurPictureTimepos: Cardinal;
212	procedure New;	229	procedure New;
213	procedure NewScene;	230	procedure NewScene;
214	procedure SetupGUIAfterLoad;	231	procedure SetupGUIAfterLoad;
215	procedure RecalcSlideshowLength;	232	procedure RecalcSlideshowLength;
216	procedure RecalcSoundtrackLength;	233	procedure RecalcSoundtrackLength;
217	procedure RecalcUnusedFiles;	234	procedure RecalcUnusedFiles;
218	procedure RecalcStats;	235	procedure RecalcStats;
219	procedure HandlePossibleEmptySceneList;	236	procedure HandlePossibleEmptySceneList;
220	procedure DisableEnableSceneControls(enable: boolean);	237	procedure DisableEnableSceneControls(enable: boolean);
221	procedure DisableEnablePictureControls(enable: boolean);	238	procedure DisableEnablePictureControls(enable: boolean);
222	procedure DisableEnableFileControls(enable: boolean);	239	procedure DisableEnableFileControls(enable: boolean);
223	class procedure AspectRatio(image: TImage; panel: TControl);	240	class procedure AspectRatio(image: TImage; panel: TControl);
224	end;	241	end;
225		242
226	var	243	var
227	Form1: TForm1;	244	Form1: TForm1;
228		245
229	implementation	246	implementation
230		247
231	{$R *.dfm}	248	{$R *.dfm}
232		249
233	uses	250	uses
234	Math, MMSystem, ShellAPI;	251	Math, MMSystem, ShellAPI;
235		252
236	const	253	const
237	DEFAULT_DURATION = 0;	254	DEFAULT_DURATION = 0;
238	DEFAULT_FILENAME = 'DUMMY.BMP';	255	DEFAULT_FILENAME = 'DUMMY.BMP';
239		256
240	function GetSceneIDFromName(sceneName: string): Integer;	257	function GetSceneIDFromName(sceneName: string): Integer;
241	resourcestring	258	resourcestring
242	S_SCENENAME_INVALID = 'Scene name invalid';	259	S_SCENENAME_INVALID = 'Scene name invalid';
243	var	260	var
244	sSceneID: string;	261	sSceneID: string;
245	begin	262	begin
246	if Copy(sceneName, 1, 2) <> 'SC' then raise Exception.Create(S_SCENENAME_INVALID);	263	if Copy(sceneName, 1, 2) <> 'SC' then raise Exception.Create(S_SCENENAME_INVALID);
247	sSceneID := Copy(sceneName, 3, 2);	264	sSceneID := Copy(sceneName, 3, 2);
248	if not TryStrToInt(sSceneID, result) then raise Exception.Create(S_SCENENAME_INVALID);	265	if not TryStrToInt(sSceneID, result) then raise Exception.Create(S_SCENENAME_INVALID);
249	end;	266	end;
250		267
251	procedure SelectFilenameBase(Edit: TEdit);	268	procedure SelectFilenameBase(Edit: TEdit);
252	begin	269	begin
253	if Edit.CanFocus then	270	if Edit.CanFocus then
254	begin	271	begin
255	Edit.SetFocus;	272	Edit.SetFocus;
256	Edit.SelStart := 0;	273	Edit.SelStart := 0;
257	Edit.SelLength := Pos('.', Edit.Text)-1;	274	Edit.SelLength := Pos('.', Edit.Text)-1;
258	end;	275	end;
259	end;	276	end;
260		277
261	function _DecisecondToTime(ds: integer): string;	278	function _DecisecondToTime(ds: integer): string;
262	begin	279	begin
263	result := FormatDatetime('hh:nn:ss', ds / 10 / (246060))+','+IntToStr(ds mod 10);	280	result := FormatDatetime('hh:nn:ss', ds / 10 / (246060))+','+IntToStr(ds mod 10);
264	end;	281	end;
265		282
266	{ TForm1 }	283	{ TForm1 }
267		284
268	function TForm1.GetGreatestSceneID: integer;	285	function TForm1.GetGreatestSceneID: integer;
269	var	286	var
270	i: integer;	287	i: integer;
271	begin	288	begin
272	result := -1;	289	result := -1;
273	for i := 0 to ListBox1.Items.Count - 1 do	290	for i := 0 to ListBox1.Items.Count - 1 do
274	begin	291	begin
275	result := Max(result, GetSceneIDFromName(ListBox1.Items.Strings[i]));	292	result := Max(result, GetSceneIDFromName(ListBox1.Items.Strings[i]));
276	end;	293	end;
277	end;	294	end;
278		295
279	procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;	296	procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
280	Shift: TShiftState; X, Y: Integer);	297	Shift: TShiftState; X, Y: Integer);
281	var	298	var
282	sE1, sE2, sE3, sE4: TSpinEdit;	299	sE1, sE2, sE3, sE4: TSpinEdit;
283		300
284	procedure _Go;	301	procedure _Go;
285	begin	302	begin
286	if Button = mbLeft then	303	if Button = mbLeft then
287	begin	304	begin
288	sE1.Value := Round(Image1.Picture.Width*(X/Image1.Width));	305	sE1.Value := Round(Image1.Picture.Width*(X/Image1.Width));
289	sE2.Value := Round(Image1.Picture.Height*(Y/Image1.Height));	306	sE2.Value := Round(Image1.Picture.Height*(Y/Image1.Height));
290	end	307	end
291	else if Button = mbRight then	308	else if Button = mbRight then
292	begin	309	begin
293	sE3.Value := Round(Image1.Picture.Width*(X/Image1.Width));	310	sE3.Value := Round(Image1.Picture.Width*(X/Image1.Width));
294	sE4.Value := Round(Image1.Picture.Height*(Y/Image1.Height));	311	sE4.Value := Round(Image1.Picture.Height*(Y/Image1.Height));
295	end;	312	end;
296	end;	313	end;
297		314
298	begin	315	begin
299	if PageControl1.ActivePage = TabSheet1 then	316	if PageControl1.ActivePage = TabSheet1 then
300	begin	317	begin
301	sE1 := SpinEdit3;	318	sE1 := SpinEdit3;
302	sE2 := SpinEdit2;	319	sE2 := SpinEdit2;
303	sE3 := SpinEdit4;	320	sE3 := SpinEdit4;
304	sE4 := SpinEdit5;	321	sE4 := SpinEdit5;
305	_Go;	322	_Go;
306	end	323	end
307	else if PageControl1.ActivePage = TabSheet2 then	324	else if PageControl1.ActivePage = TabSheet2 then
308	begin	325	begin
309	sE1 := SpinEdit17;	326	sE1 := SpinEdit17;
310	sE2 := SpinEdit18;	327	sE2 := SpinEdit18;
311	sE3 := SpinEdit19;	328	sE3 := SpinEdit19;
312	sE4 := SpinEdit20;	329	sE4 := SpinEdit20;
313	_Go;	330	_Go;
314	end	331	end
315	else if PageControl1.ActivePage = TabSheet3 then	332	else if PageControl1.ActivePage = TabSheet3 then
316	begin	333	begin
317	sE1 := SpinEdit7;	334	sE1 := SpinEdit7;
318	sE2 := SpinEdit8;	335	sE2 := SpinEdit8;
319	sE3 := SpinEdit10;	336	sE3 := SpinEdit10;
320	sE4 := SpinEdit9;	337	sE4 := SpinEdit9;
321	_Go;	338	_Go;
322	end;	339	end;
323	end;	340	end;
324		341
325	procedure TForm1.Image1MouseEnter(Sender: TObject);	342	procedure TForm1.Image1MouseEnter(Sender: TObject);
326	begin	343	begin
327	Label28.Visible := true;	344	Label28.Visible := true;
328	Label29.Visible := true;	345	Label29.Visible := true;
329	end;	346	end;
330		347
331	procedure TForm1.Image1MouseLeave(Sender: TObject);	348	procedure TForm1.Image1MouseLeave(Sender: TObject);
332	begin	349	begin
333	Label10.Caption := '';	350	Label10.Caption := '';
334	Label28.Visible := false;	351	Label28.Visible := false;
335	Label29.Visible := false;	352	Label29.Visible := false;
336	end;	353	end;
337		354
338	procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);	355	procedure TForm1.Image1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
339	resourcestring	356	resourcestring
340	S_COORDS = 'Coords: [%d, %d]';	357	S_COORDS = 'Coords: [%d, %d]';
341	begin	358	begin
342	label10.Caption := Format(S_COORDS, [Round(Image1.Picture.Width*(X/Image1.Width)),	359	label10.Caption := Format(S_COORDS, [Round(Image1.Picture.Width*(X/Image1.Width)),
343	Round(Image1.Picture.Height*(Y/Image1.Height))]);	360	Round(Image1.Picture.Height*(Y/Image1.Height))]);
344	end;	361	end;
345		362
346	function TForm1.SearchSceneIDGapFromTop: integer;	363	function TForm1.SearchSceneIDGapFromTop: integer;
347	var	364	var
348	i: integer;	365	i: integer;
349	begin	366	begin
350	result := -1;	367	result := -1;
351	for i := 99 downto 0 do	368	for i := 99 downto 0 do
352	begin	369	begin
353	if ListBox1.Items.IndexOf(Format('SC%.2d', [i])) = -1 then	370	if ListBox1.Items.IndexOf(Format('SC%.2d', [i])) = -1 then
354	begin	371	begin
355	result := i;	372	result := i;
356	exit;	373	exit;
357	end;	374	end;
358	end;	375	end;
359	end;	376	end;
360		377
361	procedure TForm1.Button10Click(Sender: TObject);	378	procedure TForm1.Button10Click(Sender: TObject);
362	resourcestring	379	resourcestring
363	S_NOTFOUND = 'GAME.BIN saved; ShowTime32.exe not found.';	380	S_NOTFOUND = 'GAME.BIN saved; ShowTime32.exe not found.';
364	begin	381	begin
365	Save;	382	Save;
366	if not FileExists('ShowTime32.exe') then raise Exception.Create(S_NOTFOUND);	383	if not FileExists('ShowTime32.exe') then raise Exception.Create(S_NOTFOUND);
367	ShellExecute(Application.Handle, 'open', 'ShowTime32.exe', '', '', SW_NORMAL);	384	ShellExecute(Application.Handle, 'open', 'ShowTime32.exe', '', '', SW_NORMAL);
368	end;	385	end;
369		386
370	procedure TForm1.Button11Click(Sender: TObject);	387	procedure TForm1.Button11Click(Sender: TObject);
371	var	388	var
372	fileName: string;	389	fileName: string;
373	begin	390	begin
374	fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurScene^.szDecisionBmp;	391	fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurScene^.szDecisionBmp;
375	if not FileExists(fileName) then exit;	392	if not FileExists(fileName) then exit;
376	ShellExecute(Application.Handle, 'open', PChar(fileName), '', '', SW_NORMAL);	393	ShellExecute(Application.Handle, 'open', PChar(fileName), '', '', SW_NORMAL);
377	end;	394	end;
378		395
379	procedure TForm1.Button12Click(Sender: TObject);	396	procedure TForm1.Button12Click(Sender: TObject);
380	var	397	var
381	fileName: string;	398	fileName: string;
382	begin	399	begin
383	fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurPicture^.szBitmapFile;	400	fileName := IncludeTrailingPathDelimiter(CurScene^.szSceneFolder) + CurPicture^.szBitmapFile;
384	if not FileExists(fileName) then exit;	401	if not FileExists(fileName) then exit;
385	ShellExecute(Application.Handle, 'open', Pchar(fileName), '', '', SW_NORMAL);	402	ShellExecute(Application.Handle, 'open', Pchar(fileName), '', '', SW_NORMAL);
386	end;	403	end;
387		404
388	procedure TForm1.Button13Click(Sender: TObject);	405	procedure TForm1.Button13Click(Sender: TObject);
389	var	406	var
390	fileName: string;	407	fileName: string;
391	begin	408	begin
392	fileName := CurScene^.szSceneFolder;	409	fileName := CurScene^.szSceneFolder;
393	if not DirectoryExists(fileName) then MkDir(fileName);	410	if not DirectoryExists(fileName) then MkDir(fileName);
394	ShellExecute(Application.Handle, 'open', 'explorer.exe', PChar(fileName), '', SW_NORMAL);	411	ShellExecute(Application.Handle, 'open', 'explorer.exe', PChar(fileName), '', SW_NORMAL);
395	end;	412	end;
396		413
397	procedure TForm1.HandlePossibleEmptySceneList;	414	procedure TForm1.HandlePossibleEmptySceneList;
398	begin	415	begin
399	if Game.numScenes = 0 then	416	if Game.numScenes = 0 then
400	begin	417	begin
401	PageControl2.ActivePage := nil;	418	PageControl2.ActivePage := nil;
402	PageControl2.Pages[0].TabVisible := false;	419	PageControl2.Pages[0].TabVisible := false;
403	PageControl2.Pages[1].TabVisible := false;	420	PageControl2.Pages[1].TabVisible := false;
404	end	421	end
405	else	422	else
406	begin	423	begin
407	if PageControl2.ActivePage = nil then PageControl2.ActivePageIndex := 0;	424	if PageControl2.ActivePage = nil then PageControl2.ActivePageIndex := 0;
408	PageControl2.Pages[0].TabVisible := true;	425	PageControl2.Pages[0].TabVisible := true;
409	PageControl2.Pages[1].TabVisible := true;	426	PageControl2.Pages[1].TabVisible := true;
410	end;	427	end;
411	end;	428	end;
412		429
413	procedure TForm1.Button14Click(Sender: TObject);	430	procedure TForm1.Button14Click(Sender: TObject);
414	resourcestring	431	resourcestring
415	S_DISCARD = 'Are you sure you want to discard all changes and create a new game file?';	432	S_DISCARD = 'Are you sure you want to discard all changes and create a new game file?';
416	begin	433	begin
417	if MessageDlg(S_DISCARD, mtConfirmation, mbYesNoCancel, 0) = mrYes then	434	if MessageDlg(S_DISCARD, mtConfirmation, mbYesNoCancel, 0) = mrYes then
418	begin	435	begin
419	New;	436	New;
420	end;	437	end;
421	end;	438	end;
422		439
423	procedure TForm1.DisableEnableSceneControls(enable: boolean);	440	procedure TForm1.DisableEnableSceneControls(enable: boolean);
424	begin	441	begin
425	ListBox1.Enabled := enable;	442	ListBox1.Enabled := enable;
426	Button1.Enabled := enable;	443	Button1.Enabled := enable;
427	Button2.Enabled := enable;	444	Button2.Enabled := enable;
428	Button4.Enabled := enable;	445	Button4.Enabled := enable;
429	Button5.Enabled := enable;	446	Button5.Enabled := enable;
430	end;	447	end;
431		448
432	procedure TForm1.DisableEnablePictureControls(enable: boolean);	449	procedure TForm1.DisableEnablePictureControls(enable: boolean);
433	begin	450	begin
434	Button8.Enabled := enable;	451	Button8.Enabled := enable;
435	Button9.Enabled := enable;	452	Button9.Enabled := enable;
436	Button6.Enabled := enable;	453	Button6.Enabled := enable;
437	Button7.Enabled := enable;	454	Button7.Enabled := enable;
438	end;	455	end;
439		456
440	procedure TForm1.DisableEnableFileControls(enable: boolean);	457	procedure TForm1.DisableEnableFileControls(enable: boolean);
441	begin	458	begin
442	Button3.Enabled := enable;	459	Button3.Enabled := enable;
443	Button10.Enabled := enable;	460	Button10.Enabled := enable;
444	Button14.Enabled := enable;	461	Button14.Enabled := enable;
445	end;	462	end;
446		463
447	var	464	var
448	AutomaticNextDia: boolean;	465	AutomaticNextDia: boolean;
449		466
450	procedure TForm1.Button15Click(Sender: TObject);	467	procedure TForm1.Button15Click(Sender: TObject);
451	var	468	var
452	decisionBMP: string;	469	decisionBMP: string;
453	PictureLastFrame: Cardinal;	470	PictureLastFrame: Cardinal;
454	i: integer;	471	i: integer;
455	DecisionPicSet: boolean;	472	DecisionPicSet: boolean;
456	begin	473	begin
457	if PlayStart <> 0 then	474	if PlayStart <> 0 then
458	begin	475	begin
459	if MediaplayerOpened and not AutomaticNextDia then	476	if MediaplayerOpened and not AutomaticNextDia then
460	begin	477	begin
461	if MediaPlayer1.Mode = mpPlaying then MediaPlayer1.Stop;	478	if MediaPlayer1.Mode = mpPlaying then MediaPlayer1.Stop;
462	Mediaplayer1.TimeFormat := tfMilliseconds;	479	Mediaplayer1.TimeFormat := tfMilliseconds;
463	if CurPictureTimepos*100 < Cardinal(MediaPlayer1.Length) then	480	if CurPictureTimepos*100 < Cardinal(MediaPlayer1.Length) then
464	begin	481	begin
465	MediaPlayer1.Position := CurPictureTimepos * 100;	482	MediaPlayer1.Position := CurPictureTimepos * 100;
466	MediaPlayer1.Play;	483	MediaPlayer1.Play;
467	end;	484	end;
468	end;	485	end;
469	AutomaticNextDia := false;	486	AutomaticNextDia := false;
470	FirstTickCount := GetTickCount;	487	FirstTickCount := GetTickCount;
471	PlayStart := GetTickCount - CurPictureTimepos * 100;	488	PlayStart := GetTickCount - CurPictureTimepos * 100;
472	end	489	end
473	else	490	else
474	begin	491	begin
475	TabSheet5.TabVisible := false;	492	TabSheet5.TabVisible := false;
476	DisableEnablePictureControls(false);	493	DisableEnablePictureControls(false);
477	DisableEnableSceneControls(false);	494	DisableEnableSceneControls(false);
478	DisableEnableFileControls(false);	495	DisableEnableFileControls(false);
479	Edit1.Enabled := false;	496	Edit1.Enabled := false;
480	Edit3.Enabled := false;	497	Edit3.Enabled := false;
481	SpinEdit1.Enabled := false;	498	SpinEdit1.Enabled := false;
482	SpinEdit13.Enabled := false;	499	SpinEdit13.Enabled := false;
483	Label18.Font.Color := clGreen;	500	Label18.Font.Color := clGreen;

Subversion Repositories plumbers

plumbers/trunk/SceneEditor/Unit1.pas – Rev 18 → 25