[PEDIDO] Script Force Attack para NG

[toty1234 0]

Script Force Attack para NG

 

tipo esse script faz com que o bot ataque todos os bixos ate os que outras pessoas atacam primeiro (conhecido tbm como KS)

 

Adoraria que alguem conseguisse esse script para mim

isso é mais usado msm em mundos NoN-PvP

 

Obrigado!

[pablobutina 0]

Ajuda ae fii

 

Veih to qrenu um script q ataque sd só no bixo que eu por. tpw to lá matando dragy. e ai vai la e aparece 1 hydra ae eu quero taca sd só na hydra. como faço ajuda pliz. arruma esse script ae :D

[toty1234 0]

Veih to qrenu um script q ataque sd só no bixo que eu por. tpw to lá matando dragy. e ai vai la e aparece 1 hydra ae eu quero taca sd só na hydra. como faço ajuda pliz. arruma esse script ae :D

 

aii esta:

 

const

delay = 1.5 // Tempo de delay para atacar a SD - no caso 1 segundo e meio

MonsterName = 'Hydra' // Nome do monstro

MinHP = 0 // Se sua vida estiver menor que o indicado não usará SD

MonsterHP = 0 // % da vida do monstro pra vc parar de atacar SD

RuneID = 3155 // ID da runa.

 

function GetCreatureByName(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

begin

Result := Creatures.Creature[x];

Exit;

end;

end;

end;

 

procedure Attack(Name:string);

var

Player:TCreature;

x:integer;

begin

updateworld;

Monster :=GetCreatureByName(Name);

if monster <> nil then

if Self.Health>MinHp then

begin

Self.Containers.UseItemWithCreature(RuneID, Monster);

updateworld;

end

end;

 

while not terminated do

begin

Yes := false;

UpdateWorld;

for i := 0 to creatures.Count - 1 do

begin

if creatures.Creature.Z = Self.Z then

If Creatures.Creature.Name = MonsterName then

begin

Yes := true;

repeat

Attack(MonsterName);

Sleep(Delay * 1000);

UpdateWorld;

for g := 0 to creatures.Count -1 do

begin

if creatures.Creature.Z = Self.Z then

If Creatures.Creature.Name = MonsterName then

Yes := True else Yes := false; else yes := false;

end;

until Yes = false;

end;

sleep(100);

end;

Sleep(100);

end;