aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authork-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-04-21 22:03:34 +0000
committerk-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-04-21 22:03:34 +0000
commit4fab5344b519c690e36cf60ddc34bf3227443f46 (patch)
treeb8a72211fa43b01f43730e5d64c6c017c3b00b04
parent03fa341f5731d1d36327e5d7e923609b081b72cb (diff)
downloadusdx-4fab5344b519c690e36cf60ddc34bf3227443f46.tar.gz
usdx-4fab5344b519c690e36cf60ddc34bf3227443f46.tar.xz
usdx-4fab5344b519c690e36cf60ddc34bf3227443f46.zip
Trial to get rid of USDXStrUtils unit with Intel assembler code. Please review.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1691 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to '')
-rw-r--r--plugins/Don't_Get_Worse/Hold_The_Line.dpr23
1 files changed, 19 insertions, 4 deletions
diff --git a/plugins/Don't_Get_Worse/Hold_The_Line.dpr b/plugins/Don't_Get_Worse/Hold_The_Line.dpr
index 2b819609..583a0b94 100644
--- a/plugins/Don't_Get_Worse/Hold_The_Line.dpr
+++ b/plugins/Don't_Get_Worse/Hold_The_Line.dpr
@@ -6,7 +6,7 @@ library Hold_The_Line;
uses
ModiSDK in '..\SDK\ModiSDK.pas',
- USDXStrUtils in '..\SDK\USDXStrUtils.pas',
+// USDXStrUtils in '..\SDK\USDXStrUtils.pas',
sdl in '..\..\src\lib\JEDI-SDL\SDL\Pas\sdl.pas',
moduleloader in '..\..\src\lib\JEDI-SDL\SDL\Pas\moduleloader.pas',
gl in '..\..\src\lib\JEDI-SDL\OpenGL\Pas\gl.pas';
@@ -65,11 +65,16 @@ function Init (const TeamInfo: TTeamInfo;
const Sentences: TSentences;
const Methods: TMethodRec)
: boolean; {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
+
+const
+ TextureName : PChar = 'HDL_Pointer';
+ SoundName : PChar = 'dismissed.mp3';
var
Index: integer;
- Texname: PChar;
+// Texname: PChar;
TexType: TTextureType;
begin
+{
TexName := CreateStr(PChar('HDL_Pointer'));
TexType := TEXTURE_TYPE_TRANSPARENT;
PointerTex := Methods.LoadTex(TexName, TexType);
@@ -79,6 +84,11 @@ begin
TexName := CreateStr(PChar('dismissed.mp3'));
DismissedSound := Methods.LoadSound (TexName);
FreeStr(TexName);
+}
+ TexType := TEXTURE_TYPE_TRANSPARENT;
+ PointerTex := Methods.LoadTex(TextureName, TexType);
+
+ DismissedSound := Methods.LoadSound (SoundName);
CountSentences := Sentences.High;
Limit := 0;
@@ -99,11 +109,13 @@ end;
function Draw (var Playerinfo: TPlayerinfo;
const CurSentence: cardinal)
: boolean; {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
+const
+ SoundName : PChar = 'PARTY_DISMISSED';
var
Index: integer;
L: byte;
C: byte;
- Text: PChar;
+// Text: PChar;
Blink: boolean;
Tick: cardinal;
begin
@@ -176,12 +188,15 @@ begin
begin
Inc(C);
// Draw dismissed
- Text := CreateStr(PChar('PARTY_DISMISSED'));
+// Text := CreateStr(PChar('PARTY_DISMISSED'));
glColor4f (0.8, 0.8, 0.8, 1);
+{
MethodRec.Print (1, 18, PlayerInfo.Playerinfo[Index].PosX, PlayerInfo.Playerinfo[Index].PosY-8, Text);
FreeStr(Text);
+}
+ MethodRec.Print (1, 18, PlayerInfo.Playerinfo[Index].PosX, PlayerInfo.Playerinfo[Index].PosY-8, SoundName);
end;
end;
if (C >= PlayerInfo.NumPlayers-1) then