Finished Hold The Line Plugin:

Better Generating of Percentage
Play Sound at Dismission
Load Textur correctly
Finish if only one Player is Left

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@51 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 64 insertions, 25 deletions

diff --git a/Modis/Don't_Get_Worse/Hold_The_Line.dpr b/Modis/Don't_Get_Worse/Hold_The_Line.dpr
index a6eb9a3a..ef7a16f7 100644
--- a/Modis/Don't_Get_Worse/Hold_The_Line.dpr
+++ b/Modis/Don't_Get_Worse/Hold_The_Line.dpr
@@ -3,15 +3,21 @@ library Hold_The_Line;
 uses

   ModiSDK in '..\SDK\ModiSDK.pas',

   StrUtils in '..\SDK\StrUtils.pas',

-  OpenGL12;

+  OpenGL12,

+  Windows;

 

 var

   PointerTex: TSmallTexture;

   CountSentences: Cardinal;

   Limit: Byte;

   fPrint: fModi_Print;

+  fPlaySound: fModi_PlaySound;

   Frame: Integer;

   PlayerTimes: array[0..5] of Integer;

+  LastTick: Cardinal;

+  PointerVisible: Boolean;

+

+  DismissedSound: Cardinal;

 

 //Gave the Plugins Info

 procedure PluginInfo (var Info: TPluginInfo); stdcall;

@@ -54,17 +60,22 @@ var
   Texname, TexType: PChar;

 begin

   TexName := CreateStr(PChar('HDL_Pointer'));

-  TexType := CreateStr(PChar('Plain'));

+  TexType := CreateStr(PChar('Font Black'));

   PointerTex := LoadTex(TexName, TexType);

 

   FreeStr(TexName);

   FreeStr(TexType);

 

+  TexName := CreateStr(PChar('dismissed.mp3'));

+  DismissedSound := LoadSound (TexName);

+  FreeStr(TexName);

+

   CountSentences := Sentences.High;

   Limit := 0;

   Frame := 0;

 

   fPrint := Print;

+  fPlaySound := PlaySound;

 

   for I := 0 to PlayerInfo.NumPlayers-1 do

   begin

@@ -85,7 +96,28 @@ var
   L: Byte;

   C: Byte;

   Text: PChar;

+  Blink: Boolean;

+  tick: Cardinal;

 begin

+  //Aktivate Blink

+  If (CurSentence = CountSentences div 5 * 2 - 1) OR (CurSentence = CountSentences div 3 * 2 - 1) then

+  begin

+    Tick := Gettickcount div 400;

+    If (Tick <> LastTick) then

+    begin

+      LastTick := Tick;

+      PointerVisible := Not PointerVisible;

+    end;

+  end

+  else

+    PointerVisible := True;

+

+  //Inc Limit

+  if (Limit = 0) And  (CurSentence >= CountSentences div 5 * 2) then

+    Inc(Limit)

+  else if (Limit = 1) And  (CurSentence >= CountSentences div 3 * 2) then

+    Inc(Limit);

+

   case Limit of

     0: L := 20;

     1: L := 50;

@@ -94,16 +126,8 @@ begin
 

   C:= 0;

 

-  Inc(Frame);

-

   Result := True;

 

-  //Inc Limit

-  if (Limit = 0) And  (CurSentence >= CountSentences div 5 * 2) then

-    Inc(Limit)

-  else if (Limit = 1) And  (CurSentence >= CountSentences div 3 * 2) then

-    Inc(Limit);

-

   for I := 0 to PlayerInfo.NumPlayers-1 do

   begin

     if PlayerInfo.Playerinfo[I].Enabled then

@@ -112,19 +136,32 @@ begin
       begin

         PlayerInfo.Playerinfo[I].Enabled := False;

         Inc(C);

-        PlayerTimes[I] := Frame; //Save Time of Dismission

-        //ToDo: PlaySound

+        PlayerTimes[I] := CurSentence; //Save Time of Dismission

+        //PlaySound

+        fPlaySound (DismissedSound);

       end;

-      

-      //Draw Pointer;

-      glBindTexture(GL_TEXTURE_2D, PointerTex.TexNum);

 

-      glBegin(GL_QUADS);

-        glTexCoord2f(1/32, 0); glVertex2f(PlayerInfo.Playerinfo[I].PosX + L - 3, PlayerInfo.Playerinfo[I].PosY - 4);

-        glTexCoord2f(1/32, 1); glVertex2f(PlayerInfo.Playerinfo[I].PosX + L - 3, PlayerInfo.Playerinfo[I].PosY + 12);

-        glTexCoord2f(31/32, 1); glVertex2f(PlayerInfo.Playerinfo[I].PosX+ L + 3, PlayerInfo.Playerinfo[I].PosY + 12);

-        glTexCoord2f(31/32, 0); glVertex2f(PlayerInfo.Playerinfo[I].PosX+ L + 3, PlayerInfo.Playerinfo[I].PosY - 4);

-      glEnd;

+      //Draw Pointer

+      if (PointerVisible) then

+      begin

+        glColor4f (0.2, 0.8, 0.1, 1);

+

+        glEnable(GL_TEXTURE_2D);

+        glEnable(GL_BLEND);

+        glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA);

+

+        glBindTexture(GL_TEXTURE_2D, PointerTex.TexNum);

+

+        glBegin(GL_QUADS);

+          glTexCoord2f(1/32, 0); glVertex2f(PlayerInfo.Playerinfo[I].PosX + L - 3, PlayerInfo.Playerinfo[I].PosY - 4);

+          glTexCoord2f(1/32, 1); glVertex2f(PlayerInfo.Playerinfo[I].PosX + L - 3, PlayerInfo.Playerinfo[I].PosY + 12);

+          glTexCoord2f(31/32, 1); glVertex2f(PlayerInfo.Playerinfo[I].PosX+ L + 3, PlayerInfo.Playerinfo[I].PosY + 12);

+          glTexCoord2f(31/32, 0); glVertex2f(PlayerInfo.Playerinfo[I].PosX+ L + 3, PlayerInfo.Playerinfo[I].PosY - 4);

+        glEnd;

+

+        glDisable(GL_TEXTURE_2D);

+        glDisable(GL_BLEND);

+      end;

 

     end

     else

@@ -132,13 +169,15 @@ begin
       Inc(C);

       //Draw Dismissed

       Text := CreateStr(PChar('PARTY_DISMISSED'));

-      //Str := 'Test123';

+

+      glColor4f (0.8, 0.8, 0.8, 1);

+

       fPrint (1, 6, PlayerInfo.Playerinfo[I].PosX, PlayerInfo.Playerinfo[I].PosY-8, Text);

       FreeStr(Text);

     end;

   end;

-  {if (C >= PlayerInfo.NumPlayers-1) then

-    Result := False; }

+  if (C >= PlayerInfo.NumPlayers-1) then

+    Result := False;

 end;

 

 //Is Executed on Finish, Returns the Playernum of the Winner

@@ -149,7 +188,7 @@ begin
 Result := 0;

 for I := 0 to PlayerInfo.NumPlayers-1 do

   begin

-  PlayerInfo.Playerinfo[I].Percentage := (PlayerTimes[I] * 100) div Frame;

+  PlayerInfo.Playerinfo[I].Percentage := (PlayerTimes[I] * 100) div CountSentences;

     if (PlayerInfo.Playerinfo[I].Enabled) then

     begin

       PlayerInfo.Playerinfo[I].Percentage := 100;