From 4fab5344b519c690e36cf60ddc34bf3227443f46 Mon Sep 17 00:00:00 2001
From: k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Tue, 21 Apr 2009 22:03:34 +0000
Subject: 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
---
 plugins/Don't_Get_Worse/Hold_The_Line.dpr | 23 +++++++++++++++++++----
 1 file changed, 19 insertions(+), 4 deletions(-)

(limited to 'plugins')

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
-- 
cgit v1.2.3