- removed "Font Black" and "Font" texture type

- use TEXTURE_TYPE_TRANSPARENT/COLORIZED/PLAIN in the future
- texture-type is an enum now (not a string as before)
  -> pros: less memory consumption, compiler-check, case-insensitive, ...

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

2 files changed, 11 insertions, 5 deletions

diff --git a/Modis/Don't_Get_Worse/Hold_The_Line.dpr b/Modis/Don't_Get_Worse/Hold_The_Line.dpr
index de19858b..27b9c3df 100644
--- a/Modis/Don't_Get_Worse/Hold_The_Line.dpr
+++ b/Modis/Don't_Get_Worse/Hold_The_Line.dpr
@@ -58,14 +58,14 @@ end;
 function Init (const TeamInfo: TTeamInfo; var Playerinfo: TPlayerinfo; const Sentences: TSentences; const Methods: TMethodRec): boolean; stdcall;

 var

   I: Integer;

-  Texname, TexType: PChar;

+  Texname: PChar;

+  TexType: TTextureType;

 begin

   TexName := CreateStr(PChar('HDL_Pointer'));

-  TexType := CreateStr(PChar('Font Black'));

+  TexType := TEXTURE_TYPE_TRANSPARENT;

   PointerTex := Methods.LoadTex(TexName, TexType);

 

   FreeStr(TexName);

-  FreeStr(TexType);

 

   TexName := CreateStr(PChar('dismissed.mp3'));

   DismissedSound := Methods.LoadSound (TexName);

@@ -209,4 +209,4 @@ PluginInfo, Init, Draw, Finish;
 

 begin

 

-end.
\ No newline at end of file
+end.

diff --git a/Modis/SDK/ModiSDK.pas b/Modis/SDK/ModiSDK.pas
index 517e4b2b..260d6324 100644
--- a/Modis/SDK/ModiSDK.pas
+++ b/Modis/SDK/ModiSDK.pas
@@ -121,8 +121,14 @@ type  //PluginInfo, for Init
   DWORD = Longword;

   HSTREAM = DWORD;

 

+  TTextureType = (

+    TEXTURE_TYPE_PLAIN,        // Plain (alpha = 1)
+    TEXTURE_TYPE_TRANSPARENT,  // Alpha is used
+    TEXTURE_TYPE_COLORIZED     // Alpha is used; Hue of the HSV color-model will be replaced by a new value
+  );
+

   //Routines to gave to the Plugin

-  fModi_LoadTex = function (const Name, Typ: PChar): TsmallTexture; stdcall; //Pointer to Texture Loader

+  fModi_LoadTex = function (const Name: PChar; Typ: TTextureType): TsmallTexture; stdcall; //Pointer to Texture Loader

   //fModi_Translate = function (const Name, Translation: AChar): Integer; stdcall;       //Pointer to Translator

   fModi_Print = procedure (const Style, Size: Byte; const X, Y: Real; const Text: PChar); stdcall;       //Procedure to Print Text   //Now translated automatically

   fModi_LoadSound = function (const Name: PChar): Cardinal; stdcall;       //Procedure that loads a Custom Sound