diff options
| author | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-04-21 22:03:34 +0000 |
|---|---|---|
| committer | k-m_schindler <k-m_schindler@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2009-04-21 22:03:34 +0000 |
| commit | 4fab5344b519c690e36cf60ddc34bf3227443f46 (patch) | |
| tree | b8a72211fa43b01f43730e5d64c6c017c3b00b04 | |
| parent | 03fa341f5731d1d36327e5d7e923609b081b72cb (diff) | |
| download | usdx-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.dpr | 23 |
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 |