Nie tylko o Tibii i OTS...
Zbanowany
Elo.
W tym temacie będziemy zamieszczać skrypty do TibiaBot NG ^^
Oto kilka moich:
Anty Paral:
Spoiler:
const
minMana = 70;
while not Terminated do
begin
UpdateWorld;
if Self.Mana > minMana then
begin
if Self.Slowed then
Self.Say('utani hur')
end;
Sleep(300);
end;
Utani/Utani gran hur..itp.itd. gdy się skończy:
Spoiler:
Const
Spell = 'utani hur'
MinMana = 70
while not terminated do
begin
UpdateWorld;
if not self.hasting then
if self.mana >= MinMana then
Self.Say(Spell);
sleep(1000);
end;
Bicie potwora z czaru:
Spoiler:
const
CreatureList = ['potwór'];
SpellList = ['czar'];
ManaList = [ilość many];
HealthList = [20];
RangeList = [8];
function GetCreatureByID(ID: integer): TCreature;
var
x: integer;
begin
Result := nil;
for x := 0 to Creatures.Count - 1 do
if Creatures.Creature[x].ID = ID then
Result := Creatures.Creature[x];
end;
var
Creature: TCreature;
Range,X,ID: Integer;
begin
while not Terminated do
begin
UpdateWorld;
if (Self.Attacking) then
begin
Creature:=GetCreatureByID(Self.Attacking);
if (Assigned(Creature)) then
begin
ID:=-1;
for X:=Low(CreatureList) to High(CreatureList) do
if (CreatureList[X] = Creature.Name) then
ID:=X;
if (ID > -1) then
begin
Range := Round(Sqrt(Sqr(Self.X - Creature.X) + Sqr(Self.Y - Creature.Y)));
if (Range <= RangeList[ID]) and (Self.Mana >= ManaList[ID]) and (Creature.Health >= HealthList[ID]) then
Self.Say(SpellList[ID]);
end;
end;
end;
Sleep(2100);
end;
end;
Bicie potworów na niewidce z runki[ten skrypt nie testowany]:
Spoiler:
Const
RuneID = 0 // enter the rune to shoot
Delay = 1000 // in millseconds
while not terminated do
begin
UpdateWorld;
for i := 0 to creatures.count - 1 do
begin
if Creatures.Creature[i].NPC then
if Creatures.Creature[i].Outfit = 0 then
Self.Containers.UseItemWithCreature(
RuneID,Creatures.Creature[i]);
end;
sleep(Delay);
end;
To tylko kilka z tych, które mam.
Liczę na to, że i wy coś tutaj dodacie : )
Offline
Spoiler:
Const
List = ['Dragon', 'Dragon Lord']; <- Dopisz jakiego chcesz potwora !!
Spell = 'Exori Frigo';
function TestMonster(Crea: TCreature): boolean;
begin
Result := false;
for z := Low(List) to High(List) do
begin
if AnsiLowerCase(Crea.Name) = AnsiLowerCase(List[z]) then
Result := 'true';
end;
end;
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;
while not terminated do
begin
updateworld;
if Self.Attacking <> nil then
begin
creature := GetCreatureByID(self.attacking);
if creature <> nil then
begin
updateworld;
if (abs(creature.x - self.x) <= 3) and (abs(creature.y - self.y) <= 3) then
if (TestMonster(creature)) then
begin
if Self.Attacking > 0 then
self.say(Spell);
sleep(2000);
end;
end;
sleep(200);
end;
Skrypt na bicie potworkow z Exori Frigo
Ostatnio edytowany przez Ariseus (2009-08-17 14:30:33)
Offline
Zbanowany
@up
Dodałem już coś takiego : )
Ale fajnie, że ktoś się zainteresował
Offline