constHmm=3333; // Coloke o Id da HMMMiniHealth=400;//valor minimo de Vida.. caso vc tenha menos que 400 usara uh sosinhovarCreature:TCreature;LOCKID:integer;function GetCreatureByID(ID: integer): TCreature;varx: integer;beginResult := nil;for x := 0 to Creatures.Count - 1 dobeginif x >= Creatures.Count then Break;if Creatures.Creature[x].ID = ID thenbeginResult := Creatures.Creature[x];Exit;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('Stalker');if Creature<>nil thenbeginLOCKID:=Creature.ID;While Creature <> nil dobegin ConstUH_ID = 3160 // Coloke o id Da Potion Ou da UhMF_ID = 2874 // Coloke o Id da Mana Potion ou Demais ManasUH_Alert = 5 // ALerta Qnd Tiver com Menos que 5 Uh Ou PotionMF_Alert = 10 // Alerta Qnd tiver com Menas que 10 ManasWhile not terminated dobeginUpdateWorld;A:=0;B:=0;for i:= 0 to Self.Containers.Count -1 dobeginfor G:= 0 to Self.Containers.Container.Count -1 dobeginif Self.Containers.Container.Item[G].ID = UH_IDthen A:= A +1;if Self.Containers.Container.Item[G].ID = MF_ID thenif Self.Containers.Container.Item[G].amount = 10then B:= B + 1;Sleep(100);end;Sleep(100);end;if (A <= UH_Alert) or ( B <= MF_Alert ) thenPlaySound('C:\Windows\Media\Notify.wav');sleep(100);end; arLevel: integer;beginUpdateWorld;Level := Self.Level;while not Terminated dobeginUpdateWorld;if Level <> Self.Level thenbeginLevel := Self.Level;ScreenShot('c:\level' + IntToStr(Level) + '.jpg');end;Sleep(1000);end;end; ConstFoodID = 1111 // Coloke aki o Id da foodMusicPath = 'C:\Windows\Media\Notify.wav' // This is the main alert of windows.while not terminated dobeginUpdateWorld;a:=0;For x:= 0 to Self.Containers.Count - 1 dobeginfor y := 0 to Self.Containers.Container[x].Count - 1 dobeginif Self.Containers.Container[x].Item[y].ID = FoodIDthen a := 1;Sleep(100);end;sleep(100);end;sleep(100);if a = 0 then PlaySound(MusicPath);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 := 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