O que vcs acham? ConstSpearID = 3277 Spell = 'Exeta con'MinMana = 600MinSoul = 5WeaponID = 3291 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;While not terminated dobeginUpdateWorld;if Self.Mana >= MinMana thenif Self.Soul >= MinSoul thenbeginSpear := GetItemFromOpenBackpack(SpearID);if Spear <> nil thenSpear.MoveToBody(Self.RightHand,1);Sleep(800);UpdateWorld;If Self.RightHand.ID = SpearID thenSelf.Say(Spell);UpdateWorld;Weapon := GetItemFromOpenBackpack(WeaponID);if Weapon <> nil thenWeapon.MoveToBody(Self.RightHand,0);end;sleep(500);end; Const StopAt=50;//para de atacar qn tiver com 50% de vida AttackAt=60;// ataca monk/player com mais de 50% de Life TrainName=['Monk','FrinedName1','FriendName2'];//vc pode alterar caso nao seja em mundo pvpvar creature:tcreature; function GetCreatureByNameHPHIGH(Name: string): TCreature; var x: integer; begin Result := nil; for x := 0 to Creatures.Count - 1 do begin if x >= Creatures.Count then Break; if Creatures.Creature[x].Name = Name then if Creatures.Creature[x].z=Self.Z then if Creatures.Creature[x].Health>AttackAt then begin Result := Creatures.Creature[x]; Exit; end; end; end; function Attacking: boolean; var x: integer; begin Result := False; for x := 0 to Creatures.Count - 1 do begin if x >= Creatures.Count then Break; if Creatures.Creature[x].Attacking then begin Result := True; Exit; end; end; end; function GetAttackedCreature:TCreature; var x: integer; begin Result := nil; for x := 0 to Creatures.Count - 1 do begin if x >= Creatures.Count then Break; if Creatures.Creature[x].Attacking=true then begin Result := Creatures.Creature[x]; Exit; end; end; end; begin while not Terminated do begin UpdateWorld; if not attacking then begin For x:=low(TrainName) to high(trainName) do begin If self.attacking<>0 then break; Creature:=GetCreatureByNameHPHIGH(TrainName[x]); if Creature <> nil then creature.attacking:=true; sleep(100); updateworld; end;end; if attacking then begin Creature:=GetAttackedCreature; if Creature <> nil then if creature.Health < StopAt then creature.attacking:=false; end; sleep(1000); end; end; Depois do deleted de LP(Lord'Paulistinha), que estava mais proximo do feito agora sim temos o primeiro brasileiro level 500 Crowfox. O EK de Pacera transmitiu o acontecimento pelo Tibia Cast havia varios players assistindo. constobsidian_knife = 5908; //id da obsidian ou woden stakskin_body = [4011, 4047, 4052, 4057]; //id dor corposfunction searchIntArray(id:integer): boolean;vari: integer;beginresult := false;for i := low(skin_body) to high(skin_body) do beginif skin_body = id then result := true;end;end;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;function SkinBodies(id:integer): Boolean;varx, y: integer;knife: TItem;t: integer;beginUpdateWorld;knife := GetItemFromOpenBackpack(obsidian_knife);if knife = nil thenbeginSelf.DisplayText('An Obsidian Knife could not be found, please open a container with it.');exit;end;t := -1;for x := -1 to 1 do beginfor y := -1 to 1 do begin// if Screen.Tile[7+x, 5+y].Count >= 3 then begin// t := -2// end else t := -1;if searchIntArray(Screen.Tile[7+x, 5+y].Item[Screen.Tile[7+x, 5+y].Count+t].ID) = true then beginUpdateWorld;knife := GetItemFromOpenBackpack(obsidian_knife);if knife <> nil then beginknife.UseWithGround(Self.X+X, Self.Y+Y, Self.Z);Self.DisplayText('Attempted to skin a creature with the ID ' + IntToStr(Screen.Tile[7+x, 5+y].Item[Screen.Tile[7+x, 5+y].Count-1].ID) + '.');Sleep(100);UpdateWorld;end;end;end;end;end;beginwhile not terminated do beginUpdateWorld;SkinBodies(skin_body);Sleep(100);end;end;id de corpos mortos4011 Minotaur4025 Dragons4047 Minotaur mage4052 Minotaur archer4057 Minotaur guard4062 Dragon lord4112 Behemoth4212 Bonebeast4321 Lizard Templar4324 Lizard Sentinel4327 Lizard Snakecharmer4097 Demon4137 VampireconstSpellList = ['exiva', 'utevo lux', 'exani tera', 'exura', 'exana pox','exori