aboutsummaryrefslogtreecommitdiffstats
path: root/Modis/5000Points/Until5000.dpr
diff options
context:
space:
mode:
authoreddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-11-23 19:39:47 +0000
committereddie-0815 <eddie-0815@b956fd51-792f-4845-bead-9b4dfca2ff2c>2007-11-23 19:39:47 +0000
commitb8113e39fe31dda0c9afc0c7cb19bbc81d7e6995 (patch)
tree8d51e5a3c86b85a678de38b780eb6dd3650d23c8 /Modis/5000Points/Until5000.dpr
parentd8c84c39ed5d060e0c172e6fa478936a6337c147 (diff)
downloadusdx-b8113e39fe31dda0c9afc0c7cb19bbc81d7e6995.tar.gz
usdx-b8113e39fe31dda0c9afc0c7cb19bbc81d7e6995.tar.xz
usdx-b8113e39fe31dda0c9afc0c7cb19bbc81d7e6995.zip
Changed string to pchar in ModiSDK.pas.
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@642 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'Modis/5000Points/Until5000.dpr')
-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