[Pilne] Prosze O Kilka Skryptow Tibia Ng!

[maculek]

Proszę o skrypt ktory skilluje na slime (poci manasami i leczy exura) i takiego ktory expi na rotwormach w thais pod miastem all na Knighta! Daje + or - kto co woli

[jackraymund]

 

const

Spell = 'exura'

Food_Id = 3582;

MinMana = 78;

StrongWeaponID = 3317;

HealAtHp = 315;

UhAtHp = 100;

ITEM_RUNE_UH = 316;

KillAtHp=100;

var

StrongWeapon:TItem;

 

function GetItemFromOpenBackpack(ID: integer): TItem;

var

x: integer;

y: integer;

begin

Result := nil;

for x := 0 to Self.Containers.Count - 1 do

begin

if x >= Self.Containers.Count then Break;

for y := 0 to Self.Containers.Container[x].Count - 1 do

begin

if y >= Self.Containers.Container[x].Count then Break;

if Self.Containers.Container[x].Item[y].ID = ID then

begin

Result := Self.Containers.Container[x].Item[y];

Exit;

end;

end;

end;

end;

 

function Attacking: boolean;

begin

UpdateWorld;

for x := 0 to Creatures.Count - 1 do

begin

UpdateWorld;

if Creatures.Creature[x].Attacking then

begin

Result := True;

Exit;

end;

end;

Result := False;

Exit;

end;

 

function GetFollowedCreatureID: integer;

begin

UpdateWorld;

for x := 0 to Creatures.Count - 1 do

begin

UpdateWorld;

if Creatures.Creature[x].Following then

begin

Result := Creatures.Creature[x].ID;

Exit;

end;

end;

end;

 

begin

updateworld;

MotherSlime := GetFollowedCreatureID;

while not Terminated do

begin

UpdateWorld;

if self.LogoutBlock=false then self.Logout(false);

if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then

Self.Say(Spell)

UpdateWorld;

if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(GetItemFromOpenBackpack(ITEM_RUNE_UH));

Sleep(1000);

if not Attacking then

begin

UpdateWorld;

for x := 0 to Creatures.Count - 1 do

begin

UpdateWorld;

if Creatures.Creature[x].ID <> MotherSlime then

begin

if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (Creatures.Creature[x].Z = Self.Z) then

begin

UpdateWorld;

X1 := Creatures.Creature[x].X;

Y1 := Creatures.Creature[x].Y;

if (X1 - Self.X = 1) or (X1 - Self.X = 0) or (X1 - Self.X = -1) then

begin

UpdateWorld;

if (Y1 - Self.Y = 1) or (Y1 - Self.Y = 0) or (Y1 - Self.Y = -1) then

begin

Creatures.Creature[x].Attacking := true;

Break;

end;

end;

end;

end;

end;

end;

else

begin

if self.Health < KillAtHp then

Begin

UpdateWorld;

for x := 0 to Creatures.Count - 1 do

begin

UpdateWorld;

if Creatures.Creature[x].ID = MotherSlime then

begin

if (Creatures.Creature[x].Name <> Self.Name) and (Creatures.Creature[x].NPC) and (creatures.creature[x].Z = self.Z) then

Creatures.Creature[x].Attacking := true;

StrongWeapon:= GetItemFromOpenBackpack(StrongWeaponID);

if StrongWeapon <> nil then

StrongWeapon.MoveToBody(Self.RightHand, 0);

Break;

end;

end;

end;

if Self.Mana < MinMana then

begin

UpdateWorld;

for container := 0 to Self.Containers.Count - 1 do

begin

UpdateWorld;

for item := 0 to Self.Containers.Container[container].Count - 1 do

begin

UpdateWorld;

if Self.Containers.Container[container].Item[item].ID = Food_Id then

Self.Containers.Container[container].Item[item].Use;

end;

end;

end;

end;

Sleep(1000);

end;

end;

 

2. tibiabot.com tam znajdziesz wpt

[maculek]

Moglbys dac to odrazu w wpt i powiedziec jak to "odpalic" ja zielony ;p

[maculek]

Juz wiem jak odpalic ten skrypt wiec prosze o jeszcze jeden, chodzi o exp na ratach na rook taki ktory poinformuje gdy malo hp lub malo cap

[Mistrzskryptów]

xvc

Edytowane 3 Grudnia 2010 przez Lord Makin

[Makin]

up: ban za keylogera