From 6df6f686b9adc0a6359a341a96b3bae4729aa223 Mon Sep 17 00:00:00 2001 From: k-m_schindler Date: Sun, 22 Mar 2009 00:12:34 +0000 Subject: stdcall; -> {$IFDEF MSWINDOWS} stdcall; {$ELSE} cdecl; {$ENDIF} git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@1647 b956fd51-792f-4845-bead-9b4dfca2ff2c --- plugins/Blind/Blind.dpr | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/plugins/Blind/Blind.dpr b/plugins/Blind/Blind.dpr index d2824587..79d87031 100644 --- a/plugins/Blind/Blind.dpr +++ b/plugins/Blind/Blind.dpr @@ -8,7 +8,7 @@ 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_BLIND_NAME'; @@ -45,13 +45,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 @@ -59,7 +59,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; MaxScore: Word; -- cgit v1.2.3