From 947647a5b38bf5b389e1f8b1f06308f564748fb8 Mon Sep 17 00:00:00 2001 From: whiteshark0 Date: Wed, 21 Mar 2007 19:34:36 +0000 Subject: =?UTF-8?q?Datei=20/=20Ordner=20gel=C3=B6scht?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@4 b956fd51-792f-4845-bead-9b4dfca2ff2c --- Game/Code/Classes/TextGL.dcu | Bin 8556 -> 0 bytes Game/Code/Classes/UCatCovers.dcu | Bin 4945 -> 0 bytes Game/Code/Classes/UCovers.dcu | Bin 6055 -> 0 bytes Game/Code/Classes/UDLLManager.dcu | Bin 6021 -> 0 bytes Game/Code/Classes/UDraw.dcu | Bin 41304 -> 0 bytes Game/Code/Classes/UFiles.dcu | Bin 4673 -> 0 bytes Game/Code/Classes/UGraphic.dcu | Bin 18647 -> 0 bytes Game/Code/Classes/UGraphicClasses.dcu | Bin 341 -> 0 bytes Game/Code/Classes/UIni.dcu | Bin 22355 -> 0 bytes Game/Code/Classes/UJoystick.dcu | Bin 2268 -> 0 bytes Game/Code/Classes/ULCD.dcu | Bin 5497 -> 0 bytes Game/Code/Classes/ULCD.~pas | 287 ---------------------------------- Game/Code/Classes/ULanguage.dcu | Bin 6519 -> 0 bytes Game/Code/Classes/ULight.dcu | Bin 2389 -> 0 bytes Game/Code/Classes/ULog.dcu | Bin 6217 -> 0 bytes Game/Code/Classes/ULyrics.dcu | Bin 9029 -> 0 bytes Game/Code/Classes/UMain.dcu | Bin 11501 -> 0 bytes Game/Code/Classes/UMusic.dcu | Bin 15179 -> 0 bytes Game/Code/Classes/UParty.dcu | Bin 4129 -> 0 bytes Game/Code/Classes/UPliki.dcu | Bin 19679 -> 0 bytes Game/Code/Classes/URecord.dcu | Bin 6913 -> 0 bytes Game/Code/Classes/UScores.dcu | Bin 4811 -> 0 bytes Game/Code/Classes/USkins.dcu | Bin 5747 -> 0 bytes Game/Code/Classes/USongs.dcu | Bin 13980 -> 0 bytes Game/Code/Classes/UTexture.dcu | Bin 19192 -> 0 bytes Game/Code/Classes/UThemes.dcu | Bin 59165 -> 0 bytes Game/Code/Classes/UTime.dcu | Bin 2083 -> 0 bytes 27 files changed, 287 deletions(-) delete mode 100644 Game/Code/Classes/TextGL.dcu delete mode 100644 Game/Code/Classes/UCatCovers.dcu delete mode 100644 Game/Code/Classes/UCovers.dcu delete mode 100644 Game/Code/Classes/UDLLManager.dcu delete mode 100644 Game/Code/Classes/UDraw.dcu delete mode 100644 Game/Code/Classes/UFiles.dcu delete mode 100644 Game/Code/Classes/UGraphic.dcu delete mode 100644 Game/Code/Classes/UGraphicClasses.dcu delete mode 100644 Game/Code/Classes/UIni.dcu delete mode 100644 Game/Code/Classes/UJoystick.dcu delete mode 100644 Game/Code/Classes/ULCD.dcu delete mode 100644 Game/Code/Classes/ULCD.~pas delete mode 100644 Game/Code/Classes/ULanguage.dcu delete mode 100644 Game/Code/Classes/ULight.dcu delete mode 100644 Game/Code/Classes/ULog.dcu delete mode 100644 Game/Code/Classes/ULyrics.dcu delete mode 100644 Game/Code/Classes/UMain.dcu delete mode 100644 Game/Code/Classes/UMusic.dcu delete mode 100644 Game/Code/Classes/UParty.dcu delete mode 100644 Game/Code/Classes/UPliki.dcu delete mode 100644 Game/Code/Classes/URecord.dcu delete mode 100644 Game/Code/Classes/UScores.dcu delete mode 100644 Game/Code/Classes/USkins.dcu delete mode 100644 Game/Code/Classes/USongs.dcu delete mode 100644 Game/Code/Classes/UTexture.dcu delete mode 100644 Game/Code/Classes/UThemes.dcu delete mode 100644 Game/Code/Classes/UTime.dcu diff --git a/Game/Code/Classes/TextGL.dcu b/Game/Code/Classes/TextGL.dcu deleted file mode 100644 index 772d09c1..00000000 Binary files a/Game/Code/Classes/TextGL.dcu and /dev/null differ diff --git a/Game/Code/Classes/UCatCovers.dcu b/Game/Code/Classes/UCatCovers.dcu deleted file mode 100644 index 2ff7a7d9..00000000 Binary files a/Game/Code/Classes/UCatCovers.dcu and /dev/null differ diff --git a/Game/Code/Classes/UCovers.dcu b/Game/Code/Classes/UCovers.dcu deleted file mode 100644 index ca99fc7c..00000000 Binary files a/Game/Code/Classes/UCovers.dcu and /dev/null differ diff --git a/Game/Code/Classes/UDLLManager.dcu b/Game/Code/Classes/UDLLManager.dcu deleted file mode 100644 index 3ba97949..00000000 Binary files a/Game/Code/Classes/UDLLManager.dcu and /dev/null differ diff --git a/Game/Code/Classes/UDraw.dcu b/Game/Code/Classes/UDraw.dcu deleted file mode 100644 index a3fcecc9..00000000 Binary files a/Game/Code/Classes/UDraw.dcu and /dev/null differ diff --git a/Game/Code/Classes/UFiles.dcu b/Game/Code/Classes/UFiles.dcu deleted file mode 100644 index 9ed45d8f..00000000 Binary files a/Game/Code/Classes/UFiles.dcu and /dev/null differ diff --git a/Game/Code/Classes/UGraphic.dcu b/Game/Code/Classes/UGraphic.dcu deleted file mode 100644 index c264b16b..00000000 Binary files a/Game/Code/Classes/UGraphic.dcu and /dev/null differ diff --git a/Game/Code/Classes/UGraphicClasses.dcu b/Game/Code/Classes/UGraphicClasses.dcu deleted file mode 100644 index 58d003b0..00000000 Binary files a/Game/Code/Classes/UGraphicClasses.dcu and /dev/null differ diff --git a/Game/Code/Classes/UIni.dcu b/Game/Code/Classes/UIni.dcu deleted file mode 100644 index e891d36c..00000000 Binary files a/Game/Code/Classes/UIni.dcu and /dev/null differ diff --git a/Game/Code/Classes/UJoystick.dcu b/Game/Code/Classes/UJoystick.dcu deleted file mode 100644 index 62cde484..00000000 Binary files a/Game/Code/Classes/UJoystick.dcu and /dev/null differ diff --git a/Game/Code/Classes/ULCD.dcu b/Game/Code/Classes/ULCD.dcu deleted file mode 100644 index 8098a187..00000000 Binary files a/Game/Code/Classes/ULCD.dcu and /dev/null differ 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 deleted file mode 100644 index 2d5c3596..00000000 Binary files a/Game/Code/Classes/ULanguage.dcu and /dev/null differ diff --git a/Game/Code/Classes/ULight.dcu b/Game/Code/Classes/ULight.dcu deleted file mode 100644 index 10ba61bc..00000000 Binary files a/Game/Code/Classes/ULight.dcu and /dev/null differ diff --git a/Game/Code/Classes/ULog.dcu b/Game/Code/Classes/ULog.dcu deleted file mode 100644 index 1794325d..00000000 Binary files a/Game/Code/Classes/ULog.dcu and /dev/null differ diff --git a/Game/Code/Classes/ULyrics.dcu b/Game/Code/Classes/ULyrics.dcu deleted file mode 100644 index 3867c263..00000000 Binary files a/Game/Code/Classes/ULyrics.dcu and /dev/null differ diff --git a/Game/Code/Classes/UMain.dcu b/Game/Code/Classes/UMain.dcu deleted file mode 100644 index 3a2edf09..00000000 Binary files a/Game/Code/Classes/UMain.dcu and /dev/null differ diff --git a/Game/Code/Classes/UMusic.dcu b/Game/Code/Classes/UMusic.dcu deleted file mode 100644 index f3116f8b..00000000 Binary files a/Game/Code/Classes/UMusic.dcu and /dev/null differ diff --git a/Game/Code/Classes/UParty.dcu b/Game/Code/Classes/UParty.dcu deleted file mode 100644 index e3e1a901..00000000 Binary files a/Game/Code/Classes/UParty.dcu and /dev/null differ diff --git a/Game/Code/Classes/UPliki.dcu b/Game/Code/Classes/UPliki.dcu deleted file mode 100644 index 1798b6f8..00000000 Binary files a/Game/Code/Classes/UPliki.dcu and /dev/null differ diff --git a/Game/Code/Classes/URecord.dcu b/Game/Code/Classes/URecord.dcu deleted file mode 100644 index d28aa4b1..00000000 Binary files a/Game/Code/Classes/URecord.dcu and /dev/null differ diff --git a/Game/Code/Classes/UScores.dcu b/Game/Code/Classes/UScores.dcu deleted file mode 100644 index 16454265..00000000 Binary files a/Game/Code/Classes/UScores.dcu and /dev/null differ diff --git a/Game/Code/Classes/USkins.dcu b/Game/Code/Classes/USkins.dcu deleted file mode 100644 index 89ea67c0..00000000 Binary files a/Game/Code/Classes/USkins.dcu and /dev/null differ diff --git a/Game/Code/Classes/USongs.dcu b/Game/Code/Classes/USongs.dcu deleted file mode 100644 index e58c47d8..00000000 Binary files a/Game/Code/Classes/USongs.dcu and /dev/null differ diff --git a/Game/Code/Classes/UTexture.dcu b/Game/Code/Classes/UTexture.dcu deleted file mode 100644 index ec06b7e4..00000000 Binary files a/Game/Code/Classes/UTexture.dcu and /dev/null differ diff --git a/Game/Code/Classes/UThemes.dcu b/Game/Code/Classes/UThemes.dcu deleted file mode 100644 index eb5ec8d4..00000000 Binary files a/Game/Code/Classes/UThemes.dcu and /dev/null differ diff --git a/Game/Code/Classes/UTime.dcu b/Game/Code/Classes/UTime.dcu deleted file mode 100644 index f69b60f7..00000000 Binary files a/Game/Code/Classes/UTime.dcu and /dev/null differ -- cgit v1.2.3