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.
|
