diff options
Diffstat (limited to 'Modis')
| -rw-r--r-- | Modis/Don't_Get_Worse/Hold_The_Line.dpr | 89 |
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;
|