ConstSoft=6529; //6529 ID Softboots na BPSoftbody=3549;//3549 ID soft in useBsteel=3079; // obs 3554 e id da stell boots pode alterar pelo da bohManaMin=300;// mana para colokar a softManaMax=500;//mana para retirar a softvarFeetID: integer;function GetItemFromOpenBackpack(ID: integer): TItem;vary: integer;beginResult := nil;for x := 0 to Self.Containers.Count - 1 dobeginif x >= Self.Containers.Count then Break;for y := 0 to Self.Containers.Container[x].Count - 1 dobeginif y >= Self.Containers.Container[x].Count then Break;if Self.Containers.Container[x].Item[y].ID = ID thenbeginResult := Self.Containers.Container[x].Item[y];Exit;end;end;end;end;beginFeetID := Bsteel;while not Terminated dobeginUpdateWorld;if Self.Mana > ManaMax thenbeginif Self.Feet.ID = Softbody thenbeginFeet := GetItemFromOpenBackpack(Bsteel);if Feet <> nil thenbeginFeet.MoveToBody(Self.Feet, 0);end;end;endelsebeginBoh := GetItemFromOpenBackpack(Soft);if Self.Mana < ManaMin thenif Self.Feet.ID = Bsteel thenbeginBoh.MoveToBody(Self.Feet, 0);end;end;Sleep(100);end;end; Constcap = 10while not terminated dobeginUpdateWorld;if self.capacity < cap thenPlaySound('C:\Windows\Media\notify.wav');Sleep(100); end; Const MiniCreatureHP =50; //Medido Em Porcentagem.. se o char tiver 1500 de life estando 50 ali ele dara o sio com 750 de lifeconst ITEM_RUNE_UH = 3160; //caso ele nao solte Exura Sio Ele Soltarar uma Uhconst Name='Nome Do Char'; //Coloke o Nome do charvarCreature: TCreature;CreatureName: string;function IsCreatureVisible(Name: string): boolean;varx: integer;beginResult := False;for x := 0 to Creatures.Count - 1 dobeginif x >= Creatures.Count then Break;if Creatures.Creature[x].Name = Name thenbeginif Creatures.Creature[x].Visible thenbeginResult := True;Exit;end;end;end;end; function GetCreatureByName(Name: string): TCreature;varx: integer;beginResult := nil;for x := 0 to Creatures.Count - 1 dobeginif x >= Creatures.Count then Break;if (Creatures.Creature[x].Name = Name) thenbeginResult := Creatures.Creature[x];Exit;end;end;end;beginwhile not Terminated dobeginUpdateWorld;Creature := GetCreatureByName(Name);If Creature<> nil thenIf IsCreatureVisible(Name) thenbeginif ((Creature.Health) <(MiniCreatureHP)) and ((Self.Mana)>(70)) thenSelf.Say('[red[exura sio "'+Name)else if ((Creature.Health) <(MiniCreatureHP)) then Self.Containers.UseItemWithCreature(ITEM_RUNE_UH, Creature);end;Sleep(1000);end;end; ConstMonstersNames = ['Vampire','Crypt Shambler']NumberOfMonsters = 4MinHealth = 800MinMana = 150 function CountMonstersBesideYou:Integer;beginResult := 0;UpdateWorld;for i := 0 to creatures.Count -1 dobeginif i >= Creatures.Count then breakfor x := -1 to 1 dobeginif x >= 2 then breakfor y := -1 to 1 dobeginif y > 1 then break;if Creatures.Creature.NPC thenif (Creatures.Creature.x = Self.X +x) and (Creatures.Creature.y = Self.y + y) thenbeginfor G := low(MonstersNames) to high(MonstersNames) dobeginif Creatures.Creature.Name = MonstersNames[G] thenResult := Result + 1;end;end;end;end;end;end;while not terminated dobeginUpdateWorld;if CountMonstersBesideYou >= NumberOfMonsters thenif Self.Mana >= MinMana thenif Self.Health > MinHealth thenSelf.Say('exori');sleep(100);end; Const MiniCreatureHP =50; // if your firned has 50% of his hp it will heal..change it as you like it.const ITEM_RUNE_UH = 3160;const Name='Hiho'; //nome do seu amigo.varCreature: TCreature;CreatureName: string;function IsCreatureVisible(Name: string): boolean;varx: integer;beginResult := False;for x := 0 to Creatures.Count - 1 dobeginif x >= Creatures.Count then Break;if Creatures.Creature[x].Name = Name thenbeginif Creatures.Creature[x].Visible thenbeginResult := True;Exit;end;end;end;end;function GetCreatureByName(Name: string): TCreature;varx: integer;beginResult := nil;for x := 0 to Creatures.Count - 1 dobeginif x >= Creatures.Count then Break;if (Creatures.Creature[x].Name = Name) thenbeginResult := Creatures.Creature[x];Exit;end;end;end;beginwhile not Terminated dobeginUpdateWorld;Creature := GetCreatureByName(Name);If Creature<> nil thenIf IsCreatureVisible(Name) thenbeginif ((Creature.Health) <(MiniCreatureHP)) and ((Self.Mana)>(70)) thenSelf.Say('exura sio "'+Name)elseif ((Creature.Health) <(MiniCreatureHP)) then Self.Containers.UseItemWithCreature(ITEM_RUNE_UH, Creature);end;Sleep(1000);end;end;UH no seu amigoConst MiniCreatureHP =50; // if your firned has 50% of his hp it will heal..change it as you like it.const ITEM_RUNE_UH = 3160;const Name='Hiho'; //nome do seu amigo.varCreature: TCreature;CreatureName: string;function IsCreatureVisible(Name: string): boolean;varx: integer;beginResult := False;for x := 0 to Creatures.Count - 1 dobeginif x >= Creatures.Count then Break;if Creatures.Creature[x].Name = Name thenbeginif Creatures.Creature[x].Visible thenbeginResult := True;Exit;end;end;end;end;function GetCreatureByName(Name: string): TCreature;varx: integer;beginResult := nil;for x := 0 to Creatures.Count - 1 dobeginif x >= Creatures.Count then Break;if (Creatures.Creature[x].Name = Name) thenbeginResult