дайте скрипт плз по одной стреле на бовкрафт, в теме написано меньше смотрят написал сюда.

Carlpots писал(а): ↑09 сен 2024, 15:34 дайте скрипт плз по одной стреле на бовкрафт, в теме написано меньше смотрят написал сюда.

если не дают - купи)

Oasis писал(а): ↑09 сен 2024, 17:11

Carlpots писал(а): ↑09 сен 2024, 15:34 дайте скрипт плз по одной стреле на бовкрафт, в теме написано меньше смотрят написал сюда.

если не дают - купи)

Мб подскажет кто как подлатать

а чего ты не пишешь в дискорде?

Program BowCraft_arrows;
var i : Integer;

Const
DaggerType = $0F51;
ShaftsType = $1BD4;
ArrowsType = $0F3F;
FeathersType = $1BD1;

{$Include 'all.inc'}

procedure CheckShafts;
var k : Integer;
begin
WaitConnection(3000);
CheckSave;
findtype(ShaftsType, ground);
if (findquantity >= 100) then Exit;
Disconnect;
wait(5000);
WaitConnection(3000);
AddToSystemJournal('Мало Shafts! Ждем, пока ктото подкинет');
while findquantity < 100 do
begin
WaitConnection(3000);
CheckSave;
UOSay('У меня мало Shafts! Подкиньте кто-то Shafts!');
k := 0;
while (k < 20) and (findquantity < 100) do
begin
wait(10000);
k := k + 1;
findtype(ShaftsType, ground);
end;
hungry(1, ground);
wait(1000);
findtype(ShaftsType, ground);
end;
AddToSystemJournal('Shafts появились! Продолжаем работать дальше!');
end;

procedure CheckFeathers;
var k : Integer;
begin
WaitConnection(3000);
CheckSave;
findtype(FeathersType, ground);
if (findquantity >= 100) then Exit;
Disconnect;
wait(5000);
WaitConnection(3000);
AddToSystemJournal('Мало Feathers! Ждем, пока ктото подкинет');
while findquantity < 100 do
begin
WaitConnection(3000);
CheckSave;
UOSay('У меня мало Feathers! Подкиньте кто-то Feathers!');
k := 0;
while (k < 20) and (findquantity < 100) do
begin
wait(10000);
k := k + 1;
findtype(FeathersType, ground);
end;
hungry(1, ground);
wait(1000);
findtype(FeathersType, ground);
end;
AddToSystemJournal('Feathers появились! Продолжаем работать дальше!');
end;


procedure CheckDaggers;
var c : Integer;
Begin
WaitConnection(3000);
CheckSave;
c := Count(DaggerType);
if c > 0 then Exit
else AddToSystemJournal('No daggers!');
End;

function GrabFeather : Boolean;
var c : Integer;
stime : TDateTime;
Feather : Cardinal;
begin
Feather := FindType(FeathersType,ground);
if Feather = 0 then
begin
AddToSystemJournal('Error with grab feather. Feather not finded at ground');
result := false;
Exit;
end;
stime := Now;
Grab(Feather, 1);
repeat
c := InJournalBetweenTimes('performing|doing', stime, Now);
wait(100);
until (Now > stime + (1.0/1440)) or (c >= 0) or (FindType(FeathersType,backpack) <> 0);
wait(100);
result := true;
end;

procedure Make;
var c : Integer;
stime : TDateTime;
Shafts : Cardinal;
Feather : Cardinal;
begin
if GrabFeather = false then
begin
wait(1000);
Exit;
end;
Shafts := FindType(ShaftsType,ground);
if Shafts = 0 then
begin
AddToSystemJournal('Error with make arrows. Shafts not finded at ground');
Exit;
end;
Feather := FindType(FeathersType,backpack);
if Feather = 0 then
begin
AddToSystemJournal('Error with make arrows. Feather not finded at backpack');
Exit;
end;
stime := Now;
UseObject(Feather);
WaitTargetObject(Shafts);
wait(200);
repeat
c := InJournalBetweenTimes('performing|doing', stime, Now);
InJournalBetweenTimes('create|make|destroy', stime, Now);
wait(100);
until (LineCount >= 1) or (Now > stime + (1.0/1440)) or (c >= 0);
wait(100);
end;

Begin
AutoMenu('create','Arrow');
FindDistance := 2;
WaitConnection(3000);
CheckSave;
wait(5000);
SetARStatus(true);

findtype(ArrowsType, backpack);
if FindFullQuantity > 1 then
begin
AddToSystemJournal('Stack');
Stack(ArrowsType, GetColor(finditem));
wait(1000);
end;

while true do
begin
findtype(ArrowsType, backpack);
if FindFullQuantity > 100 then
begin
AddToSystemJournal('Stack');
Stack(ArrowsType, GetColor(finditem));
wait(1000);
end;

FindType(FeathersType,ground);
AddToSystemJournal('Осталось '+IntToStr(FindFullQuantity)+' перьев.');
WaitConnection(3000);
CheckSave;
CheckDaggers;
CheckShafts;
CheckFeathers;
Hungry(1, ground);
wait(1000);
i := 0;
while i < 200 do
begin
Make;
i := i + 1;
end;
end;
End.

пожалуйста, заключай код скрипта в тег код.
спасибо.

Спасибо огромное!!!!

перья на клетку прям чара надо было кинутьб работаетб как деланье болтов переставить подскажите плз

Carlpots писал(а): ↑14 сен 2024, 17:05 перья на клетку прям чара надо было кинутьб работаетб как деланье болтов переставить подскажите плз

куда переставить?)