skrypt do bota ng zeby wycinal skorki z monsterow np. mino lizard itp itd
Ostatnio zmieniony przez Mag Samurai : 31-12-2008, 19:22
Mag Samurai napisał
Odpowiedź z cytatemconst
FoodList = [3606]
Seconds = 20
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;
begin
while not Terminated do
begin
UpdateWorld;
for i := Low(FoodList) to High(FoodList) do
begin
Food := GetItemFromOpenBackpack(FoodList[i]);
if Food <> nil then
begin
Food.Use;
break;
end;
end;
Sleep(Seconds*1000);
end;
end;
Ostatnio zmieniony przez Virex : 01-01-2009, 14:53
const
////////// Potion Healing //////////
Minimum_Potion_Health = 800
Health_Potion_ID = 239
////////////////////////////////////
////////// Spell Healing //////////
Minimum_Spell_Health = 1500
Healing_Spell = 'exana mort'
Mana_Needed = 65
Restore_Mana_At = 300
Mana_Potion_ID = 268
////////////////////////////////////
while not Terminated do
begin
UpdateWorld;
if (Self.Health < Minimum_Potion_Health) then Self.Containers.UseItemWithSelf(Health_Potion_ID);
if (Self.Health < Minimum_Spell_Health) and (Self.Mana >= Mana_Needed) then
begin
Self.Say(Healing_Spell);
Sleep(1000);
end;
else if (Self.Mana < Restore_Mana_At) and (Self.Health > Minimum_Potion_Health) then
begin
Self.Containers.UseItemWithSelf(Mana_Potion_ID);
Sleep(1000);
end;
Sleep(100);
end;Ostatnio zmieniony przez Muuciek : 01-01-2009, 13:36
Ostatnio zmieniony przez Mag Samurai : 01-01-2009, 17:09
Ostatnio zmieniony przez Serkownik : 01-01-2009, 20:29
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zasady postowania
Zakładki