Szukam skrpyty na HASTE/UTANI HUR
Chodzi mi o to zeby mi dawalo utani hur. jak sie skonczy i tak ciagle.
Powie mi ktos gdzie wpisac ten skrypt?
TIBIA BOT NG
@Down
Thx. All dziala;))
Ostatnio zmieniony przez dryblu : 22-03-2009, 16:09
dryblu napisał
Odpowiedź z cytatemConst
Spell = 'utani hur'
MinMana = 100
while not terminated do
begin
UpdateWorld;
if not self.hasting then
if self.mana >= MinMana then
Self.Say(Spell);
sleep(1000);
end;Ostatnio zmieniony przez Eler Druid : 22-03-2009, 15:45
Massssywny napisał
Const
SQM = 3 // jaka odległość ma zachować
function GetCreatureByID(ID: integer): 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].ID = ID then
begin
Result := Creatures.Creature[x];
Exit;
end;
end;
end;
UpdateWorld;
KnightID := Self.Following;
while not terminated do
begin
UpdateWorld;
Knight := GetCreatureByID(KnightID);
if Knight <> nil then
if Knight.Z = self.z then
begin
if self.following then
if (abs(Self.X-Knight.X) < SQM + 1) and (abs(Self.Y-Knight.Y) < SQM + 1) then
begin
Knight.Following := false;
UpdateWorld;
Self.MoveTo(Self.X,Self.Y,Self.Z);
end;
if not self.following then
begin
if (abs(Self.X-Knight.X) > SQM) or (abs(Self.Y-Knight.Y) > SQM) then
Knight.Following := true;
end;
if (not self.following) and (abs(Self.X - Knight.X) < 2) and (ABS(Self.Y - Knight.Y) < 2) then
begin
Knight.Following := true;
sleep(100);
Knight.Following := false;
sleep(1000);
end;
end;
else self.displaytext('Target is not on the same floor!');
else self.displaytext('Target losed!!!');
sleep(100);
end;
[Tibiabotng][Tibia 8.41] Skrypt - nie bij potwora kiedy ma x hp.
Ostatnio zmieniony przez Adisky : 23-03-2009, 16:35
Const
StopAt=45;//Stop Atack at 45% hp
AttackAt=70;//Retrum atack at 70%+ hp
TrainName=['Ghoul'];//
var
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;
Ostatnio zmieniony przez Dziadus : 24-03-2009, 18:37
AlfonZik napisał
Ostatnio zmieniony przez Eragon Władca Smoków : 25-03-2009, 07:13
www.Tibiaspy.com<--Polska,najlepsza strona starająca dostać się do SF! Zapraszam
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zasady postowania
Zakładki