aboutsummaryrefslogtreecommitdiffstats
path: root/Tools/USDXResCompiler.lpr
blob: 6fc98efca081a02fa2da3c43a3ff4898c20b889e (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
program USDXResCompiler;

{$mode objfpc}{$H+}

uses
  Classes,
  SysUtils,
  LResources;

var
  lResourceFile : TMemoryStream;
  
procedure AddFile( aResName, aResType, aFile : string );
var
  lTmpStream : TmemoryStream;
begin
  if aFile[1] = '"' then
  begin
    aFile := copy( aFile, 2, length( aFile ) - 2 );
  end;

  if not fileexists( aFile ) then
  begin
    writeln( 'SKIPED' + ' ( '+aFile+' ) File not found' );
    exit;
  end;
    
  lTmpStream := TmemoryStream.create();
  try
    lTmpStream.loadfromfile( aFile );
    lTmpStream.position := 0;
    
    BinaryToLazarusResourceCode(lTmpStream, lResourceFile, aResName, aResType);
    writeln( 'ADDED - ' + aResType + ' : ' + aResName + ' ( '+aFile+' )' );
  finally
    freeandnil( lTmpStream );
  end;
end;

procedure addresourceline( aRCLine : String );
var
  lName : String;
  lType : String;
  lFile : String;
  lTmp  ,
  lTmp2 : Integer;
begin
  if trim( aRCLine ) = '' then
    exit;
    
  if aRCLine[1] = '#' then
    exit;

  if ( aRCLine[1] = '/' ) AND
     ( aRCLine[2] = '/' ) THEN
    exit;

  // find 2nd column... and put it in lTmp
  lTmp  := pos( ' ', aRcLine );
  lTmp2 := pos( #9, aRcLine  );
  if lTmp2 < lTmp then
    lTmp := lTmp2;
  
  // Name = Start to lTmp
  lName := trim( copy( aRcLine, 1, lTmp ) );

  // Type = lTmp to first "
  lTmp2 := pos( '"', aRcLine );
  lType := trim( copy( aRcLine, lTmp, lTmp2-lTmp ) );

  // File = " to end of line
  lFile := trim( copy( aRcLine, lTmp2, maxint ) );

(*
  writeln( aRcLine );
  writeln( lName );
  writeln( lType );
  writeln( lFile );
  writeln( '' );
*)
  AddFile( lName , lType , lFile );

end;


var
  lRCFile : TStringList;
  iCount  : Integer;
begin
  if not fileexists( paramstr(1) ) then
  begin
    writeln( 'MUST Specify Delphi format RC File' );
    exit;
  end;

  lRCFile := TStringList.create();
  lResourceFile := TMemoryStream.create();
  try
     lRCFile.loadfromfile( paramstr(1) );
     
     if trim( lRCFile.text ) = '' then
       exit;
     
     for iCount := 0 to lRCFile.count -1 do
     begin
       addresourceline( lRCFile[ iCount ] );
     end;
  
(*
     AddFile( 'Font', 'TEX', '..\Fonts\Normal\eurostar_regular.png' );
     AddFile( 'Font', 'FNT', '..\Fonts\Normal\eurostar_regular.dat' );

     AddFile( 'FontB', 'TEX', '..\Fonts\Bold\eurostar_regular_bold.png' );
     AddFile( 'FontB', 'FNT', '..\Fonts\Bold\eurostar_regular_bold.dat' );

     AddFile( 'FontO', 'TEX', '..\Fonts\Outline 1\Outline 1.PNG' );
     AddFile( 'FontO', 'FNT', '..\Fonts\Outline 1\Outline 1.dat' );
     
     AddFile( 'FontO2', 'TEX', '..\Fonts\Outline 2\Outline 2.PNG' );
     AddFile( 'FontO2', 'FNT', '..\Fonts\Outline 2\Outline 2.dat' );
     
     AddFile( 'MAINICON', 'ICON', '..\Graphics\ustar-icon_v01.ico' );


     AddFile( 'CRDTS_BG', 'TEX', '..\Graphics\credits_v5_bg.png' );
     AddFile( 'CRDTS_OVL', 'TEX', '..\Graphics\credits_v5_overlay.png' );
     AddFile( 'CRDTS_blindguard', 'TEX', '..\Graphics\names_blindguard.png' );
     AddFile( 'CRDTS_blindy', 'TEX', '..\Graphics\names_blindy.png' );
     AddFile( 'CRDTS_canni', 'TEX', '..\Graphics\names_canni.png' );
     AddFile( 'CRDTS_commandio', 'TEX', '..\Graphics\names_commandio.png' );
     AddFile( 'CRDTS_lazyjoker', 'TEX', '..\Graphics\names_lazyjoker.png' );
     AddFile( 'CRDTS_mog', 'TEX', '..\Graphics\names_mog.png' );
     AddFile( 'CRDTS_mota', 'TEX', '..\Graphics\names_mota.png' );
     AddFile( 'CRDTS_skillmaste', 'TEX', '..\Graphics\names_skillmaster.png' );
     AddFile( 'CRDTS_whiteshark', 'TEX', '..\Graphics\names_whiteshark.png' );
     AddFile( 'INTRO_L01', 'TEX', '..\Graphics\intro-l-01.png' );
     AddFile( 'INTRO_L02', 'TEX', '..\Graphics\intro-l-02.png' );
     AddFile( 'INTRO_L03', 'TEX', '..\Graphics\intro-l-03.png' );
     AddFile( 'INTRO_L04', 'TEX', '..\Graphics\intro-l-04.png' );
     AddFile( 'INTRO_L05', 'TEX', '..\Graphics\intro-l-05.png' );
     AddFile( 'INTRO_L06', 'TEX', '..\Graphics\intro-l-06.png' );
     AddFile( 'INTRO_L07', 'TEX', '..\Graphics\intro-l-07.png' );
     AddFile( 'INTRO_L08', 'TEX', '..\Graphics\intro-l-08.png' );
     AddFile( 'INTRO_L09', 'TEX', '..\Graphics\intro-l-09.png' );
     AddFile( 'OUTRO_BG', 'TEX', '..\Graphics\outro-bg.png' );
     AddFile( 'OUTRO_ESC', 'TEX', '..\Graphics\outro-esc.png' );
     AddFile( 'OUTRO_EXD', 'TEX', '..\Graphics\outro-exit-dark.png' );
*)

  finally
    lResourceFile.SaveToFile( 'UltraStar.lrs' );
    freeandnil( lResourceFile );
    
    freeandnil( lRCFile );
  end;
end.