aboutsummaryrefslogtreecommitdiffstats
path: root/Modis/5000Points
diff options
context:
space:
mode:
Diffstat (limited to 'Modis/5000Points')
-rw-r--r--Modis/5000Points/Until5000.dpr14
1 files changed, 10 insertions, 4 deletions
diff --git a/Modis/5000Points/Until5000.dpr b/Modis/5000Points/Until5000.dpr
index b826d212..72214a33 100644
--- a/Modis/5000Points/Until5000.dpr
+++ b/Modis/5000Points/Until5000.dpr
@@ -1,10 +1,16 @@
library Until5000;
+{$IFDEF FPC}
+ {$MODE Delphi}
+{$ENDIF}
+
+{$I ../../Game/Code/switches.inc}
+
uses
ModiSDK in '..\SDK\ModiSDK.pas';
//Gave the Plugins Info
-procedure PluginInfo (var Info: TPluginInfo); stdcall;
+procedure PluginInfo (var Info: TPluginInfo); {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
begin
Info.Name := 'PLUGIN_UNTIL5000_NAME';
@@ -40,13 +46,13 @@ begin
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; stdcall;
+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 Drawed //If False The Game finishes
-function Draw (var Playerinfo: TPlayerinfo; const CurSentence: Cardinal): boolean; stdcall;
+function Draw (var Playerinfo: TPlayerinfo; const CurSentence: Cardinal): boolean; {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
var
I: Integer;
begin
@@ -62,7 +68,7 @@ Result := True;
end;
//Is Executed on Finish, Returns the Playernum of the Winner
-function Finish (var Playerinfo: TPlayerinfo): byte; stdcall;
+function Finish (var Playerinfo: TPlayerinfo): byte; {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF}
var
I:Integer;
begin