| Zobacz poprzedni temat :: Zobacz następny temat |
| Autor |
Wiadomość |
Nexuz
Administrator
Dołączył: 29 Gru 2007
Posty: 10
Przeczytał: 0 tematów
Pomógł: 5 razy
Ostrzeżeń: 0/5
|
 Wysłany: Nie 1:27, 30 Gru 2007 Temat postu: Trenowanie na slimach |
|
|
Umieszczam tutaj pierwszy skrypt, polega on na automatycznym atakowaniu klona Slima. Bardzo przydatne podczas trenowania 
| Kod: | const Food_Id = 3606; //change this to the desired itemid
MinMana = 30;
StrongWeaponID = 3320
HealAtHp =400
UhAtHp=300
KillAtHp=320
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;
var
MotherSlime, X1, Y1: integer;
begin
updateworld;
updateworld;
MotherSlime := GetFollowedCreatureID;
while not Terminated do
begin
UpdateWorld;
if self.LogoutBlock=false then self.Logout(false)
begin
UpdateWorld;
if ((Self.Health) <(HealAtHp)) and ((Self.Mana)>(25)) then
Self.Say('exura')
UpdateWorld;
//if ((Self.Health) <(UhAtHp)) then Self.Containers.UseItemWithSelf(ITEM_RUNE_UH);
Sleep(1000);
end;
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 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
if Creatures.Creature[x].Health>70 then
Begin
Creatures.Creature[x].Attacking := true;
Break;
end;
end;
end;
end;
end;
end;
end;
else
begin
if self.Health < KillAtHp then
Begin
PlaySound('d:\ouch.wav');
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 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; |
Najpierw należy zaatakować matke Slima do yellow hp a następnie uruchomić skrypta
Post został pochwalony 1 raz
|
|
| Powrót do góry |
|
 |
|
|
 |
Krzysztex
Dołączył: 30 Gru 2007
Posty: 4
Przeczytał: 0 tematów
Ostrzeżeń: 0/5
|
| Wysłany: Nie 16:18, 30 Gru 2007 Temat postu: Re: Trenowanie na slimach |
|
|
| Nexuz napisał: |
Najpierw należy zaatakować matke Slima do yellow hp a następnie uruchomić skrypta |
A ja słyszałem, że trzeba jeszcze follow na matkę dać przed uruchomieniem.
A skrypt przydatny. Dzięki  .
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
Nexuz
Administrator
Dołączył: 29 Gru 2007
Posty: 10
Przeczytał: 0 tematów
Pomógł: 5 razy
Ostrzeżeń: 0/5
|
| Wysłany: Nie 18:13, 30 Gru 2007 Temat postu: |
|
|
Ciesze się że skrypt przydatny
Jeżeli potrzebujesz jakiegoś skrypta pisz i polec tą stronke innym naprawde będzie tutaj wszystko co chcecie 
Post został pochwalony 0 razy
|
|
| Powrót do góry |
|
|
