aboutsummaryrefslogtreecommitdiffstats
path: root/Medley/plugins/5000Points/Until5000.dpr
blob: 83bc1007ec1cb138db64a70fe14fac8d565628d3 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
library Until5000;

{$IFDEF FPC}
  {$MODE Delphi}
{$ENDIF}

uses
  ModiSDK in '..\SDK\ModiSDK.pas';

// give the plugin's info
procedure PluginInfo (var Info: TPluginInfo); {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
begin
  Info.Name       := 'PLUGIN_UNTIL5000_NAME';

  Info.Creator    := 'Whiteshark';
  Info.PluginDesc := 'PLUGIN_UNTIL5000_DESC';

  // set to party modus plugin
  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 := true;  // 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  := false; // if true the plugin can only be played in team mode
  Info.GetSoundData  := false; // if true the rdata procedure is called when new sound data is available
  Info.Dummy         := false; // should be set to false... for updateing 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}
begin
  Result := true;
end;

// executed everytime 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: integer;
begin
  Result := false;
  for Index := 0 to PlayerInfo.NumPlayers-1 do
  begin
    PlayerInfo.Playerinfo[Index].Bar := PlayerInfo.Playerinfo[Index].Score div 50;
    PlayerInfo.Playerinfo[Index].Percentage := PlayerInfo.Playerinfo[Index].Bar;
    if (PlayerInfo.Playerinfo[Index].Score >= 5000) then
      Exit;
  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;
begin
  Result := 0;
  for Index := 0 to PlayerInfo.NumPlayers-1 do
  begin
    if (PlayerInfo.Playerinfo[Index].Score >= 5000) 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;
end;

exports
  PluginInfo,
  Init,
  Draw,
  Finish;

begin

end.