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

2 files changed, 135 insertions, 0 deletions

diff --git a/Modis/Duell/Duell.cfg b/Modis/Duell/Duell.cfg
new file mode 100644
index 00000000..7f619472
--- /dev/null
+++ b/Modis/Duell/Duell.cfg
@@ -0,0 +1,40 @@
+-$A8

+-$B-

+-$C+

+-$D+

+-$E-

+-$F-

+-$G+

+-$H+

+-$I+

+-$J-

+-$K-

+-$L+

+-$M-

+-$N+

+-$O+

+-$P+

+-$Q-

+-$R-

+-$S-

+-$T-

+-$U-

+-$V+

+-$W-

+-$X+

+-$YD

+-$Z1

+-cg

+-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;

+-H+

+-W+

+-M

+-$M16384,1048576

+-K$00400000

+-E"E:\Projekte\Ultrastar\Bin\Plugins"

+-LE"e:\programme\borland\delphi7\Projects\Bpl"

+-LN"e:\programme\borland\delphi7\Projects\Bpl"

+-U"E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Image\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Mixer\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Net\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Sound\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_ttf\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLFilter\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLMonoFonts\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLSpriteEngine\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SFont\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\smpeg\Pas;E:\Projekte\TVPC Software\Include\Zlportio"

+-O"E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Image\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Mixer\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Net\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Sound\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_ttf\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLFilter\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLMonoFonts\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLSpriteEngine\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SFont\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\smpeg\Pas;E:\Projekte\TVPC Software\Include\Zlportio"

+-I"E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Image\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Mixer\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Net\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Sound\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_ttf\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLFilter\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLMonoFonts\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLSpriteEngine\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SFont\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\smpeg\Pas;E:\Projekte\TVPC Software\Include\Zlportio"

+-R"E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Image\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Mixer\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Net\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_Sound\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDL_ttf\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLFilter\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLMonoFonts\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SDLSpriteEngine\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\SFont\Pas;E:\Projekte\TVPC Software\Include\JEDI-SDL\smpeg\Pas;E:\Projekte\TVPC Software\Include\Zlportio"

diff --git a/Modis/Duell/Duell.dpr b/Modis/Duell/Duell.dpr
new file mode 100644
index 00000000..40ae11ed
--- /dev/null
+++ b/Modis/Duell/Duell.dpr
@@ -0,0 +1,95 @@
+library Duell;

+

+uses

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

+

+//Gave the Plugins Info

+procedure PluginInfo (var Info: TPluginInfo); stdcall;

+begin

+  Info.Name    := 'PLUGIN_DUELL_NAME';

+  Info.NumPlayers := 31;

+

+  Info.Creator    := 'Whiteshark';

+  Info.PluginDesc := 'PLUGIN_DUELL_DESC';

+

+

+  //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 Fullsize

+  Info.BGShowFull_O := True;  //Whether the Background or the Video should be shown Fullsize

+

+  Info.ShowRateBar:= False;   //Whether the Bar that shows how good the player was sould be displayed

+  Info.ShowRateBar_O := True; //Load from Ini whether the Bar should be Displayed

+

+  Info.EnLineBonus := False;  //Whether LineBonus Should be enabled

+  Info.EnLineBonus_O := True; //Load from Ini whether LineBonus 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 SoundData 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 LoadTex: fModi_LoadTex; const Print: fModi_Print; LoadSound: fModi_LoadSound; PlaySound: fModi_PlaySound): boolean; stdcall;

+begin

+Result := True;

+end;

+

+//Executed everytime the Screen is Drawed //If False The Game finishes

+function Draw (var Playerinfo: TPlayerinfo; const CurSentence: Cardinal): boolean; stdcall;

+begin

+Result := True;

+end;

+

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

+function Finish (var Playerinfo: TPlayerinfo): byte; stdcall;

+var

+  I:Integer;

+  MaxScore: Word;

+begin

+  Result := 0;

+  MaxScore := 0;

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

+  begin

+    PlayerInfo.Playerinfo[I].Percentage := PlayerInfo.Playerinfo[I].Score div 9999;

+    if (PlayerInfo.Playerinfo[I].Score > MaxScore) then

+    begin

+      MaxScore := PlayerInfo.Playerinfo[I].Score;

+      Case I 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[I].Score = MaxScore) then

+    begin

+      Case I 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.
\ No newline at end of file