diff options
Diffstat (limited to 'Game')
27 files changed, 0 insertions, 287 deletions
diff --git a/Game/Code/Classes/TextGL.dcu b/Game/Code/Classes/TextGL.dcu Binary files differdeleted file mode 100644 index 772d09c1..00000000 --- a/Game/Code/Classes/TextGL.dcu +++ /dev/null diff --git a/Game/Code/Classes/UCatCovers.dcu b/Game/Code/Classes/UCatCovers.dcu Binary files differdeleted file mode 100644 index 2ff7a7d9..00000000 --- a/Game/Code/Classes/UCatCovers.dcu +++ /dev/null diff --git a/Game/Code/Classes/UCovers.dcu b/Game/Code/Classes/UCovers.dcu Binary files differdeleted file mode 100644 index ca99fc7c..00000000 --- a/Game/Code/Classes/UCovers.dcu +++ /dev/null diff --git a/Game/Code/Classes/UDLLManager.dcu b/Game/Code/Classes/UDLLManager.dcu Binary files differdeleted file mode 100644 index 3ba97949..00000000 --- a/Game/Code/Classes/UDLLManager.dcu +++ /dev/null diff --git a/Game/Code/Classes/UDraw.dcu b/Game/Code/Classes/UDraw.dcu Binary files differdeleted file mode 100644 index a3fcecc9..00000000 --- a/Game/Code/Classes/UDraw.dcu +++ /dev/null diff --git a/Game/Code/Classes/UFiles.dcu b/Game/Code/Classes/UFiles.dcu Binary files differdeleted file mode 100644 index 9ed45d8f..00000000 --- a/Game/Code/Classes/UFiles.dcu +++ /dev/null diff --git a/Game/Code/Classes/UGraphic.dcu b/Game/Code/Classes/UGraphic.dcu Binary files differdeleted file mode 100644 index c264b16b..00000000 --- a/Game/Code/Classes/UGraphic.dcu +++ /dev/null diff --git a/Game/Code/Classes/UGraphicClasses.dcu b/Game/Code/Classes/UGraphicClasses.dcu Binary files differdeleted file mode 100644 index 58d003b0..00000000 --- a/Game/Code/Classes/UGraphicClasses.dcu +++ /dev/null diff --git a/Game/Code/Classes/UIni.dcu b/Game/Code/Classes/UIni.dcu Binary files differdeleted file mode 100644 index e891d36c..00000000 --- a/Game/Code/Classes/UIni.dcu +++ /dev/null diff --git a/Game/Code/Classes/UJoystick.dcu b/Game/Code/Classes/UJoystick.dcu Binary files differdeleted file mode 100644 index 62cde484..00000000 --- a/Game/Code/Classes/UJoystick.dcu +++ /dev/null diff --git a/Game/Code/Classes/ULCD.dcu b/Game/Code/Classes/ULCD.dcu Binary files differdeleted file mode 100644 index 8098a187..00000000 --- a/Game/Code/Classes/ULCD.dcu +++ /dev/null diff --git a/Game/Code/Classes/ULCD.~pas b/Game/Code/Classes/ULCD.~pas deleted file mode 100644 index a127c689..00000000 --- a/Game/Code/Classes/ULCD.~pas +++ /dev/null @@ -1,287 +0,0 @@ -unit ULCD;
-
-interface
-
-type
- TLCD = class
- private
- Enabled: boolean;
- Text: array[1..6] of string;
- StartPos: integer;
- LineBR: integer;
- Position: integer;
- procedure WriteCommand(B: byte);
- procedure WriteData(B: byte);
- procedure WriteString(S: string);
- public
- HalfInterface: boolean;
- constructor Create;
- procedure Enable;
- procedure Clear;
- procedure WriteText(Line: integer; S: string);
- procedure MoveCursor(Line, Pos: integer);
- procedure ShowCursor;
- procedure HideCursor;
-
- // for 2x16
- procedure AddTextBR(S: string);
- procedure MoveCursorBR(Pos: integer);
- procedure ScrollUpBR;
- procedure AddTextArray(Line:integer; S: string);
- end;
-
-var
- LCD: TLCD;
-
-const
- Data = $378; // domyślny adres portu
- Status = Data + 1;
- Control = Data + 2;
-
-implementation
-
-uses
- SysUtils, zlportio, UTime;
-
-procedure TLCD.WriteCommand(B: Byte);
-// Wysylanie komend sterujacych
-begin
- if not HalfInterface then begin
- zlioportwrite(Control, 0, $02);
- zlioportwrite(Data, 0, B);
- zlioportwrite(Control, 0, $03);
- end else begin
- zlioportwrite(Control, 0, $02);
- zlioportwrite(Data, 0, B and $F0);
- zlioportwrite(Control, 0, $03);
-
- TimeSleep(0.1);
-
- zlioportwrite(Control, 0, $02);
- zlioportwrite(Data, 0, (B * 16) and $F0);
- zlioportwrite(Control, 0, $03);
- end;
-
- if (B=1) or (B=2) then
- Sleep(2)
- else
- TimeSleep(0.1);
-end;
-
-procedure TLCD.WriteData(B: Byte);
-// Wysylanie danych
-begin
- if not HalfInterface then begin
- zlioportwrite(Control, 0, $06);
- zlioportwrite(Data, 0, B);
- zlioportwrite(Control, 0, $07);
- end else begin
- zlioportwrite(Control, 0, $06);
- zlioportwrite(Data, 0, B and $F0);
- zlioportwrite(Control, 0, $07);
-
- TimeSleep(0.1);
-
- zlioportwrite(Control, 0, $06);
- zlioportwrite(Data, 0, (B * 16) and $F0);
- zlioportwrite(Control, 0, $07);
- end;
-
- TimeSleep(0.1);
- Inc(Position);
-end;
-
-procedure TLCD.WriteString(S: string);
-// Wysylanie slow
-var
- I: integer;
-begin
- for I := 1 to Length(S) do
- WriteData(Ord(S[I]));
-end;
-
-constructor TLCD.Create;
-begin
-//
-end;
-
-procedure TLCD.Enable;
-var
- A: byte;
- B: byte;
-begin
- Enabled := true;
- if not HalfInterface then
- WriteCommand($38)
- else begin
- WriteCommand($33);
- WriteCommand($32);
- WriteCommand($28);
- end;
-
-// WriteCommand($06);
-// WriteCommand($0C);
-// sleep(10);
-end;
-
-procedure TLCD.Clear;
-begin
- if Enabled then begin
- WriteCommand(1);
- WriteCommand(2);
- Text[1] := '';
- Text[2] := '';
- Text[3] := '';
- Text[4] := '';
- Text[5] := '';
- Text[6] := '';
- StartPos := 1;
- LineBR := 1;
- end;
-end;
-
-procedure TLCD.WriteText(Line: integer; S: string);
-begin
- if Enabled then begin
- if Line <= 2 then begin
- MoveCursor(Line, 1);
- WriteString(S);
- end;
-
- Text[Line] := '';
- AddTextArray(Line, S);
- end;
-end;
-
-procedure TLCD.MoveCursor(Line, Pos: integer);
-var
- I: integer;
-begin
- if Enabled then begin
- Pos := Pos + (Line-1) * 40;
-
- if Position > Pos then begin
- WriteCommand(2);
- for I := 1 to Pos-1 do
- WriteCommand(20);
- end;
-
- if Position < Pos then
- for I := 1 to Pos - Position do
- WriteCommand(20);
-
- Position := Pos;
- end;
-end;
-
-procedure TLCD.ShowCursor;
-begin
- if Enabled then begin
- WriteCommand(14);
- end;
-end;
-
-procedure TLCD.HideCursor;
-begin
- if Enabled then begin
- WriteCommand(12);
- end;
-end;
-
-procedure TLCD.AddTextBR(S: string);
-var
- Word: string;
- W: integer;
- P: integer;
- L: integer;
-begin
- if Enabled then begin
- if LineBR <= 6 then begin
- L := LineBR;
- P := Pos(' ', S);
-
- if L <= 2 then
- MoveCursor(L, 1);
-
- while (L <= 6) and (P > 0) do begin
- Word := Copy(S, 1, P);
- if (Length(Text[L]) + Length(Word)-1) > 16 then begin
- L := L + 1;
- if L <= 2 then
- MoveCursor(L, 1);
- end;
-
- if L <= 6 then begin
- if L <= 2 then
- WriteString(Word);
- AddTextArray(L, Word);
- end;
-
- Delete(S, 1, P);
- P := Pos(' ', S)
- end;
-
- LineBR := L + 1;
- end;
- end;
-end;
-
-procedure TLCD.MoveCursorBR(Pos: integer);
-var
- I: integer;
- L: integer;
-begin
- if Enabled then begin
- Pos := Pos - (StartPos-1);
- if Pos <= Length(Text[1]) then
- MoveCursor(1, Pos);
-
- if Pos > Length(Text[1]) then begin
- // bez zawijania
-// Pos := Pos - Length(Text[1]);
-// MoveCursor(2, Pos);
-
- // z zawijaniem
- Pos := Pos - Length(Text[1]);
- ScrollUpBR;
- MoveCursor(1, Pos);
- end;
- end;
-end;
-
-procedure TLCD.ScrollUpBR;
-var
- T: array[1..5] of string;
- SP: integer;
- LBR: integer;
-begin
- if Enabled then begin
- T[1] := Text[2];
- T[2] := Text[3];
- T[3] := Text[4];
- T[4] := Text[5];
- T[5] := Text[6];
- SP := StartPos + Length(Text[1]);
- LBR := LineBR;
-
- Clear;
-
- StartPos := SP;
- WriteText(1, T[1]);
- WriteText(2, T[2]);
- WriteText(3, T[3]);
- WriteText(4, T[4]);
- WriteText(5, T[5]);
- LineBR := LBR-1;
- end;
-end;
-
-procedure TLCD.AddTextArray(Line: integer; S: string);
-begin
- if Enabled then begin
- Text[Line] := Text[Line] + S;
- end;
-end;
-
-end.
-
diff --git a/Game/Code/Classes/ULanguage.dcu b/Game/Code/Classes/ULanguage.dcu Binary files differdeleted file mode 100644 index 2d5c3596..00000000 --- a/Game/Code/Classes/ULanguage.dcu +++ /dev/null diff --git a/Game/Code/Classes/ULight.dcu b/Game/Code/Classes/ULight.dcu Binary files differdeleted file mode 100644 index 10ba61bc..00000000 --- a/Game/Code/Classes/ULight.dcu +++ /dev/null diff --git a/Game/Code/Classes/ULog.dcu b/Game/Code/Classes/ULog.dcu Binary files differdeleted file mode 100644 index 1794325d..00000000 --- a/Game/Code/Classes/ULog.dcu +++ /dev/null diff --git a/Game/Code/Classes/ULyrics.dcu b/Game/Code/Classes/ULyrics.dcu Binary files differdeleted file mode 100644 index 3867c263..00000000 --- a/Game/Code/Classes/ULyrics.dcu +++ /dev/null diff --git a/Game/Code/Classes/UMain.dcu b/Game/Code/Classes/UMain.dcu Binary files differdeleted file mode 100644 index 3a2edf09..00000000 --- a/Game/Code/Classes/UMain.dcu +++ /dev/null diff --git a/Game/Code/Classes/UMusic.dcu b/Game/Code/Classes/UMusic.dcu Binary files differdeleted file mode 100644 index f3116f8b..00000000 --- a/Game/Code/Classes/UMusic.dcu +++ /dev/null diff --git a/Game/Code/Classes/UParty.dcu b/Game/Code/Classes/UParty.dcu Binary files differdeleted file mode 100644 index e3e1a901..00000000 --- a/Game/Code/Classes/UParty.dcu +++ /dev/null diff --git a/Game/Code/Classes/UPliki.dcu b/Game/Code/Classes/UPliki.dcu Binary files differdeleted file mode 100644 index 1798b6f8..00000000 --- a/Game/Code/Classes/UPliki.dcu +++ /dev/null diff --git a/Game/Code/Classes/URecord.dcu b/Game/Code/Classes/URecord.dcu Binary files differdeleted file mode 100644 index d28aa4b1..00000000 --- a/Game/Code/Classes/URecord.dcu +++ /dev/null diff --git a/Game/Code/Classes/UScores.dcu b/Game/Code/Classes/UScores.dcu Binary files differdeleted file mode 100644 index 16454265..00000000 --- a/Game/Code/Classes/UScores.dcu +++ /dev/null diff --git a/Game/Code/Classes/USkins.dcu b/Game/Code/Classes/USkins.dcu Binary files differdeleted file mode 100644 index 89ea67c0..00000000 --- a/Game/Code/Classes/USkins.dcu +++ /dev/null diff --git a/Game/Code/Classes/USongs.dcu b/Game/Code/Classes/USongs.dcu Binary files differdeleted file mode 100644 index e58c47d8..00000000 --- a/Game/Code/Classes/USongs.dcu +++ /dev/null diff --git a/Game/Code/Classes/UTexture.dcu b/Game/Code/Classes/UTexture.dcu Binary files differdeleted file mode 100644 index ec06b7e4..00000000 --- a/Game/Code/Classes/UTexture.dcu +++ /dev/null diff --git a/Game/Code/Classes/UThemes.dcu b/Game/Code/Classes/UThemes.dcu Binary files differdeleted file mode 100644 index eb5ec8d4..00000000 --- a/Game/Code/Classes/UThemes.dcu +++ /dev/null diff --git a/Game/Code/Classes/UTime.dcu b/Game/Code/Classes/UTime.dcu Binary files differdeleted file mode 100644 index f69b60f7..00000000 --- a/Game/Code/Classes/UTime.dcu +++ /dev/null |