dye,search box

Elem8100 · Dec 7, 2019 · 92d25ab · 92d25ab
1 parent c3fb8e4
commit 92d25ab
Show file tree

Hide file tree

Showing 3 changed files with 438 additions and 160 deletions.
diff --git a/Src/TamingMob.pas b/Src/TamingMob.pas
@@ -4,7 +4,7 @@ interface
 
 uses
   Windows, SysUtils, StrUtils, AsphyreSprite, Generics.Collections, WZIMGFile,
-  Classes, Global, WzUtils;
+  Classes, Global, WzUtils,ColorUtils;
 
 type
   TTamingMob = class(TSpriteEx)
@@ -33,17 +33,17 @@   TTamingMob = class(TSpriteEx)
     procedure DoMove(const MoveCount: Single); override;
     class procedure LoadSaddleList;
     class procedure Delete;
-    class procedure CreateSprites;
-    class procedure CreateSaddle(ID: string);
-    class procedure CreateTaming(ID: string);
-    class procedure Create(ID: string); overload;
+    class procedure CreateSprites(ColorEffect:TColorEffect=ceNone;Value:Integer=0);
+    class procedure CreateSaddle(ID: string;ColorEffect:TColorEffect=ceNone;Value:Integer=0);
+    class procedure CreateTaming(ID: string;ColorEffect:TColorEffect=ceNone;Value:Integer=0);
+    class procedure Create(ID: string;ColorEffect:TColorEffect=ceNone;Value:Integer=0); overload;
   end;
 
 implementation
 
 uses
-  MapleCharacter, Footholds, ChairformUnit, AvatarUnit, MapleChair,
-  AsphyreKeyboard, DirectInput, WZDirectory,MapleEffect;
+  MapleCharacter, Footholds, ChairformUnit, MapleChair,
+  AsphyreKeyboard, DirectInput, WZDirectory;
 
 function IDToInt(ID: string): string;
 begin
@@ -82,7 +82,7 @@ class procedure TTamingMob.Delete;
 
 class procedure TTamingMob.CreateSprites;
 begin
-  DumpData(Entry, EquipData, EquipImages);
+  DumpData(Entry, EquipData, EquipImages,ColorEffect,Value);
   var _State:string;
   var _Frame:string;
 
@@ -133,7 +133,7 @@ class procedure TTamingMob.CreateSprites;
 
 end;
 
-class procedure TTamingMob.CreateSaddle(ID: string);
+class procedure TTamingMob.CreateSaddle(ID: string;ColorEffect:TColorEffect=ceNone;Value:Integer=0);
 begin
   Data.Clear;
   if SaddleList.ContainsKey(ID) then
@@ -146,21 +146,21 @@ class procedure TTamingMob.CreateSaddle(ID: string);
       for var Iter2 in Iter.Children do
         Data.AddOrSetValue(Entry.GetPath + '/' + Iter.Name + '/' + Iter2.Name, Iter2.Get2('delay'));
 
-  CreateSprites;
+  CreateSprites(ColorEffect,Value);
 end;
 
-class procedure TTamingMob.CreateTaming(ID: string);
+class procedure TTamingMob.CreateTaming(ID: string;ColorEffect:TColorEffect=ceNone;Value:Integer=0);
 begin
   Entry := GetImgEntry('Character.wz/TamingMob/' + ID + '.img/');
-  CreateSprites;
+  CreateSprites(ColorEffect,Value);
 end;
 
-class procedure TTamingMob.Create(ID: string);
+class procedure TTamingMob.Create(ID: string;ColorEffect:TColorEffect=ceNone;Value:Integer=0);
 begin
   TTamingMob.CharacterAction := 'sit';
   ImageNumList.Clear;
   CreateSaddle(ID);
-  CreateTaming(ID);
+  CreateTaming(ID,ColorEffect,Value);
 end;
 
 procedure TTamingMob.DoMove(const MoveCount: Single);