Very nice... hmm... tylko jeden problem - ja gram na świecie no-pvp, i nie moge walić monka. Mógłbyś mi jakoś pomóc?? Ah repucik!
Drakon Arax: ile stoi beer paw?
Wiccan: az sie przewrociBim Palladinek: zczaj to. Na religi jak ksiadz sie spytal co zrobil jezus po 3 dniach, powiedzialem, ze sie zrespil i uwage dostalem :\
Panczak Dragon napisał
teiky napisał
Hehe
cracowanie
Lawryn napisał
Young Worrior napisał
Kostek napisał
Odpowiedź z cytatem
Const
Czas = 6 //w minutach!
function GMDetected: boolean;
begin
Result := False;
UpdateWorld;
for x := 0 to Creatures.Count - 1 do
begin
if x >= Creatures.count then break;
if Creatures.Creature[x].GM then
begin
Result := True;
exit;
end;
end;
end;
while not terminated do
Begin
UpdateWorld;
if GMDetected then
begin
sleep(Czas*60000);
Self.Logout(true);
break;
end;
sleep(2000);
end;Ostatnio zmieniony przez Pancza Dragon : 23-04-2008, 20:23
...Trzy-KropekTO WOLNOŚĆ
Kamyczki
Ostatnio zmieniony przez Kilasmus II : 24-04-2008, 18:51
const
WeaponID = 3297
SpearID = 1781
SpearOz = 4
SpearAmount = 5
Procedure PickUpSpears(Spears: TItem);
begin
if (Self.Capacity <= (Spears.Amount * SpearOz)) then
begin
if (Self.Capacity/SpearOz) > 1 then
Spears.MoveToContainer(Self.Containers.Container[0], 0, Int(Self.Capacity/SpearOz));
end else Spears.MoveToContainer(Self.Containers.Container[0], 0, 0);
Sleep(500);
end;
Function GetItemFromOpenBackpack(ID, Index: 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;
if x = Index then Continue;
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 CountItemAmountFromOpenBackpack(ID: integer): integer;
var
x: integer;
y: integer;
begin
Result := 0;
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 := Result + Self.Containers.Container[x].Item[y].Amount;
end;
end;
end;
end;
while not terminated do
begin
UpdateWorld;
Weapon := GetItemFromOpenBackpack(WeaponID, Self.Containers.Count);
if Weapon <> nil then Weapon.MoveToBody(Self.Arrow, 0);
Spear := GetItemFromOpenBackpack(SpearID, 0);
if Spear <> nil then Spear.MoveToContainer(Self.Containers.Container[0], 0, 0);
if (Self.RightHand.ID = SpearID) then
begin
if (Self.RightHand.Amount < 90) then
begin
Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
end;
end else begin
SpearCount := CountItemAmountFromOpenBackpack(SpearID);
if SpearCount >= SpearAmount then
begin
Self.RightHand.MoveToBody(Self.Arrow, 0);
Sleep(500);
Spear := GetItemFromOpenBackpack(SpearID, Self.Containers.Count);
if Spear <> nil then Spear.MoveToBody(Self.RightHand, 0);
end else if Self.RightHand.ID = 0 then Self.Arrow.MoveToBody(Self.RightHand, 0);
end;
Sleep(500);
end;
Aktualnie 1 użytkowników przegląda ten temat. (0 użytkowników i 1 gości)
Zasady postowania
Zakładki