From 5e733f7e9cb2118651df90171db1892c9155e089 Mon Sep 17 00:00:00 2001
From: whiteshark0 <whiteshark0@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Sun, 4 Nov 2007 21:00:20 +0000
Subject: Partymodule finished. All PartyScreens and SingScreen needs some
 adapting.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@583 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UCore.pas | 25 ++++++++++++++++++++++---
 1 file changed, 22 insertions(+), 3 deletions(-)

(limited to 'Game/Code/Classes/UCore.pas')

diff --git a/Game/Code/Classes/UCore.pas b/Game/Code/Classes/UCore.pas
index e0f9fec2..5b144b45 100644
--- a/Game/Code/Classes/UCore.pas
+++ b/Game/Code/Classes/UCore.pas
@@ -47,6 +47,12 @@ type
 
       Modules:          Array [0..High(CORE_MODULES_TO_LOAD)] of TModuleListItem;
 
+      //Cur + Last Executed Setting and Getting ;)
+      iCurExecuted: Integer;
+      iLastExecuted: Integer;
+
+      Procedure SetCurExecuted(Value: Integer);
+
       //Function Get all Modules and Creates them
       Function GetModules: Boolean;
 
@@ -75,14 +81,14 @@ type
       Hooks:            THookManager;   //Teh Hook Manager ;)
       Services:         TServiceManager;//The Service Manager
 
-      CurExecuted:      Integer;        //ID of Plugin or Module curently Executed
-
       Name:             String;         //Name of this Application
       Version:          LongWord;       //Version of this ". For Info Look PluginDefs Functions
 
       LastErrorReporter:String;         //Who Reported the Last Error String
       LastErrorString:  String;         //Last Error String reported
 
+      property CurExecuted: Integer read iCurExecuted write SetCurExecuted;       //ID of Plugin or Module curently Executed
+      property LastExecuted: Integer read iLastExecuted;
 
       //---------------
       //Main Methods to control the Core:
@@ -124,7 +130,8 @@ Constructor TCore.Create(const cName: String; const cVersion: LongWord);
 begin
   Name := cName;
   Version := cVersion;
-  CurExecuted := 0;
+  iLastExecuted := 0;
+  iCurExecuted := 0;
 
   LastErrorReporter := '';
   LastErrorString   := '';
@@ -498,4 +505,16 @@ begin
   Result := hInstance;
 end;
 
+//-------------
+// Called when setting CurExecuted
+//-------------
+Procedure TCore.SetCurExecuted(Value: Integer);
+begin
+  //Set Last Executed
+  iLastExecuted := iCurExecuted;
+
+  //Set Cur Executed
+  iCurExecuted := Value;
+end;
+
 end.
-- 
cgit v1.2.3