diff options
author | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-05-23 09:07:15 +0000 |
---|---|---|
committer | tobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c> | 2010-05-23 09:07:15 +0000 |
commit | 678cc132f942ff4d84a803550eedf96acc543bca (patch) | |
tree | eb195abafaf69d55fa0f4b77323e517fcd2263cd /cmake/plugins/Team_Duell/TeamDuell.dpr | |
parent | 7e677fd5ebe60c3dd9df8954e1ed28c4afdf8660 (diff) | |
download | usdx-678cc132f942ff4d84a803550eedf96acc543bca.tar.gz usdx-678cc132f942ff4d84a803550eedf96acc543bca.tar.xz usdx-678cc132f942ff4d84a803550eedf96acc543bca.zip |
update to trunk rev. 2391
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@2401 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'cmake/plugins/Team_Duell/TeamDuell.dpr')
-rw-r--r-- | cmake/plugins/Team_Duell/TeamDuell.dpr | 274 |
1 files changed, 0 insertions, 274 deletions
diff --git a/cmake/plugins/Team_Duell/TeamDuell.dpr b/cmake/plugins/Team_Duell/TeamDuell.dpr deleted file mode 100644 index 1371c95d..00000000 --- a/cmake/plugins/Team_Duell/TeamDuell.dpr +++ /dev/null @@ -1,274 +0,0 @@ -library TeamDuell ; - -{$IFDEF FPC} - {$MODE Delphi} -{$ENDIF} - -uses - SysUtils, - ModiSDK in '..\SDK\ModiSDK.pas', - gl in '..\..\src\lib\JEDI-SDL\OpenGL\Pas\gl.pas'; - -var - TeamPlayer: array of array of string; - StartPoints: array of integer; - CurSinger, NextSinger: array[0..2] of integer; - MethodRec: TMethodRec; - SPT, PlayerSelected: array[0..2] of integer; - TimeToNextChange, starttick, endtick, ChangeOnSentence: cardinal; - bps, RTimeToNextChange: double; - firsttime, secondtime: boolean; - -function GetTicks: cardinal; -// returns a time stamp in milliseconds -begin - GetTicks := round(TimeStampToMSecs(DateTimeToTimeStamp(Now))); -end; - -// Give the plugin's info -procedure PluginInfo (var Info: TPluginInfo); {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} -begin - Info.Name := 'PLUGIN_TEAMDUELL_NAME'; - - Info.Creator := 'jekatt'; - Info.PluginDesc := 'PLUGIN_TEAMDUELL_DESC'; - - Info.Typ := 8; - - Info.NumPlayers := 31; - // Options - Info.LoadSong := true; // Whether or not a song should be loaded - // Only when song is loaded: - Info.ShowScore := true; // Whether or not the score should be shown - Info.ShowNotes := true; // Whether the note lines should be displayed - Info.LoadVideo := true; // Should the video be loaded ? - Info.LoadBack := true; // Should the background be loaded ? - - Info.BGShowFull := false; // Whether the background or the video should be shown full size - Info.BGShowFull_O := true; // Whether the background or the video should be shown full size - - Info.ShowRateBar := true; // Whether the bar that shows how good the player was should be displayed - Info.ShowRateBar_O := false; // Load from ini whether the bar should be displayed - - Info.EnLineBonus := false; // Whether line bonus should be enabled - Info.EnLineBonus_O := true; // Load from ini whether line bonus should be enabled - - // Options even when song is not loaded - Info.ShowBars := false; // Whether the white bars on top and bottom should be drawn - Info.TeamModeOnly := true; // if true the plugin can only be played in team mode - Info.GetSoundData := false; // if true the rdata procedure is called when new sounddata is available - Info.Dummy := false; // Should be set to false... for updating plugin interface -end; - -// executed on game start. if true game begins, else failure -function Init (const TeamInfo: TTeamInfo; - var Playerinfo: TPlayerinfo; - const Sentences: TSentences; - const Methods: TMethodRec) - : boolean; {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} -var - Index, J: integer; -begin -// Get beginning of sentences - for Index := 0 to Sentences.High do - begin - SetLength(Startpoints, Index+1); - Startpoints[Index]:=Sentences.Sentence[Index].Start; - end; - // Get teams and players - for Index := 0 to TeamInfo.NumTeams-1 do - begin - SetLength(TeamPlayer, Index+1); - for J := 0 to TeamInfo.Teaminfo[Index].NumPlayers-1 do - begin - SetLength(TeamPlayer[Index], J+1); - TeamPlayer[Index,J] := Copy(string(TeamInfo.Teaminfo[Index].Playerinfo[J].Name), 1, 8); - if (not(TeamPlayer[Index,J] = (string(TeamInfo.Teaminfo[Index].Playerinfo[J].Name)))) then - TeamPlayer[Index,J] := TeamPlayer[Index,J]+'.'; - SPT[Index]:=J+1; - end; - CurSinger[Index] := TeamInfo.Teaminfo[Index].CurPlayer; - repeat - NextSinger[Index] := random(SPT[Index]); - until not(NextSinger[Index] = CurSinger[Index]) or (SPT[Index] = 1); - end; - ChangeOnSentence := 8; - starttick := GetTicks; - firsttime := true; - secondtime := true; - bps := 1; - MethodRec := Methods; - Result := true; -end; - -// Executed every time the screen is drawn; if false the game finishes -function Draw (var Playerinfo: TPlayerinfo; - const CurSentence: cardinal) - : boolean; {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} -var - Index, timeline, x, y: integer; - display: PChar; - TimeString: PChar; - start: boolean; -begin - // TickCount(firstSentence) (not zero!) - if (CurSentence = ChangeOnSentence - 7) and (firsttime) then - begin - firsttime := false; - starttick := GetTicks; - end; - start := false; - // show first singer for 5 sec - if (CurSentence < 1) and ((starttick + 5000) > GetTicks) then - start := true; - - // TickCount(thirdSentence) - if (CurSentence = 3) and (secondtime) then - begin - secondtime := false; - firsttime := true; - endtick := GetTicks; - bps := (Startpoints[3]-Startpoints[1]) * 1000 / (endtick-starttick); // BeatsPerSecond - end; - - // Time to next change - RTimeToNextChange := ((Startpoints[ChangeOnSentence]-Startpoints[ChangeOnSentence - 7]) / bps) - ((GetTicks - starttick) / 1000); - TimeToNextChange := Trunc(RTimeToNextChange) + 1; - - // Next singer for team I - for Index := 0 to High(TeamPlayer) do - begin - if (CurSentence = ChangeOnSentence) and not(PlayerSelected[Index] = CurSentence) then - begin - PlayerSelected[Index] := CurSentence; - CurSinger[Index] := NextSinger[Index]; - repeat - NextSinger[Index] := random(SPT[Index]); - until not(NextSinger[Index] = CurSinger[Index]) or (SPT[Index] = 1) ; - end; - - // display background - glColor4f (0.8, 0.8, 0.8, 1); - display := PChar(TeamPlayer[Index,CurSinger[Index]]); - if (TimeToNextChange <= 11) or (start = true) then - begin - glEnable(GL_TEXTURE_2D); - glDisable(GL_BLEND); - glColor4f(0, 0, 0, 1); - glBegin(GL_QUADS); - glVertex2f(PlayerInfo.Playerinfo[Index].PosX, PlayerInfo.Playerinfo[Index].PosY + 8); - glVertex2f(PlayerInfo.Playerinfo[Index].PosX, PlayerInfo.Playerinfo[Index].PosY + 30); - glVertex2f(PlayerInfo.Playerinfo[Index].PosX + 100, PlayerInfo.Playerinfo[Index].PosY + 30); - glVertex2f(PlayerInfo.Playerinfo[Index].PosX + 100, PlayerInfo.Playerinfo[Index].PosY + 8); - glEnd; - display := 'Next Singer'; - - // timeline - x := 270; - y := 472; - if (TimeToNextChange <= 5) and (RTimeToNextChange > 0) then - begin - timeline := Trunc(RTimeToNextChange*50); - glColor3f(0, 0, 0); - glBegin(GL_QUADS); - glVertex2f(x, y); - glVertex2f(x, y + 18); - glVertex2f(x + 6 + 250, y + 18); - glVertex2f(x + 6 + 250, y); - glEnd; - glColor3f(0.2, 0.2, 0.2); - glBegin(GL_QUADS); - glVertex2f(x + 3, y + 3); - glVertex2f(x + 3, y + 15); - glVertex2f(x + 3 + 250, y + 15); - glVertex2f(x + 3 + 250, y + 3); - glEnd; - glColor3f(0.8, 0.2, 0.2); - glBegin(GL_QUADS); - glColor3f(0.9, 0, 0); glVertex2f(x + 3, y + 3); - glColor3f(0.8, 0.3, 0.3); glVertex2f(x + 3, y + 15); - glColor3f(0.8, 0.3, 0.3); glVertex2f(x + 3 + timeline, y + 15); - glColor3f(0.9, 0, 0); glVertex2f(x + 3 + timeline, y + 3); - glEnd; - end; - glDisable(GL_TEXTURE_2D); - end; - - // Names, Timer - if (TimeToNextChange <= 9) then - begin display := PChar(TeamPlayer[Index,NextSinger[Index]]); - glColor4f(0.8, 0.1, 0.2, 1); -// KMS aka Mischi: -// try to replace the use of the unit USDXStrUtils -// original: -// MethodRec.Print (1, 18, PlayerInfo.Playerinfo[Index].PosX+85, PlayerInfo.Playerinfo[Index].PosY+10, CreateStr(PChar(IntToStr(Trunc(TimeToNextChange))))); -// replacement: Is this correct? - TimeString := PChar(IntToStr(Trunc(TimeToNextChange))); - MethodRec.Print (1, 18, PlayerInfo.Playerinfo[Index].PosX+85, PlayerInfo.Playerinfo[Index].PosY+10, TimeString); - end; - glColor4f(0.8, 0.8, 0.8, 1); - if (CurSentence = 0) then - display := PChar(TeamPlayer[Index,CurSinger[Index]]); - if (TimeToNextChange <= 11) or (start) then - MethodRec.Print (1, 18, PlayerInfo.Playerinfo[Index].PosX+5, PlayerInfo.Playerinfo[Index].PosY+10, display); - end; - if (CurSentence = ChangeOnSentence) then - begin - ChangeOnSentence := CurSentence + 7; - firsttime := true; - end; - Result := true; -end; - -// is executed on finish, returns the player number of the winner -function Finish (var Playerinfo: TPlayerinfo): byte; {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} -var - Index: integer; - MaxScore: word; -begin - Result := 0; - MaxScore := 0; - for Index := 0 to PlayerInfo.NumPlayers-1 do - begin - PlayerInfo.Playerinfo[Index].Percentage := PlayerInfo.Playerinfo[Index].Score div 9999; - if (PlayerInfo.Playerinfo[Index].Score > MaxScore) then - begin - MaxScore := PlayerInfo.Playerinfo[Index].Score; - case Index of - 0: Result := 1; - 1: Result := 2; - 2: Result := 4; - 3: Result := 8; - 4: Result := 16; - 5: Result := 32; - end; - end - else if (PlayerInfo.Playerinfo[Index].Score = MaxScore) and (PlayerInfo.Playerinfo[Index].Score <> 0) then - begin - case Index of - 0: Result := Result or 1; - 1: Result := Result or 2; - 2: Result := Result or 4; - 3: Result := Result or 8; - 4: Result := Result or 16; - 5: Result := Result or 32; - end; - end; - end; - - // When nobody has points -> everybody looses - if (MaxScore = 0) then - Result := 0; -end; - -exports - PluginInfo, - Init, - Draw, - Finish; - -begin - -end. - - |