From 13bf0be662f660d9f283b6c01b20dc2137dc835e Mon Sep 17 00:00:00 2001 From: tobigun Date: Mon, 31 Mar 2008 14:34:31 +0000 Subject: - 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 --- Modis/Don't_Get_Worse/Hold_The_Line.dpr | 8 ++++---- Modis/SDK/ModiSDK.pas | 8 +++++++- 2 files changed, 11 insertions(+), 5 deletions(-) (limited to 'Modis') 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 -- cgit v1.2.3