Покупаем маленький лодка
Покупаем удочки обычные для всех
Бежим к речке со своими ботами, опускаем судно на воду, делаем копии ключей и даем их ботам вместе с удочками.
Все дружно прыгаем и встаем на трюм и запускаем сей скрипт у каждого бота
Плыть будем вперед, так что рулите кораблем сами
turn left / turn right
Скрипт работает, но я его буду допиливать еще.
Code: Select all
program Fishing;
{$Include 'all.inc'}
const
sunduk = $4012FF14;
udochka = $0DBF;
Mes1 = 'You pull out';
Mes2 = 'You fish a while, but fail';
Mes3 = 'There are no fish here.';
Mes4 = 'That is too far away.';
Mes5 = 'Try fishing in water.';
Mes6 = 'Вы не смогли выловить';
var
x, y, m1, m2, m3, m4, m5, m6, counter, index, k: integer;
ctime : TDateTime;
FishResult : array[1..8] of Cardinal;
Begin
FishResult[1] := $09CC; // рыба
FishResult[2] := $09CF; // рыба
FishResult[3] := $09CE; // рыба
FishResult[4] := $09CD; // рыба
FishResult[5] := $14EB; // карты
FishResult[6] := $14EC; // карты
FishResult[7] := $0DCA; // fish net
FishResult[8] := $0DD6; // prize
UseObject(FindType(udochka, Backpack));
UseObject(sunduk);
counter := 0;
repeat
Addtosystemjournal('Попытка выловить рыбку ' + IntToStr(counter));
FindType($100E, Backpack)
if FindCount() > 0 then
begin
if counter > 100 then
begin
uosay('forward');
wait(5000);
uosay('stop');
counter := 0;
end;
end;
counter := counter + 1;
UseObject(ObjAtLayerEx(LHandLayer, self));
WaitForTarget(500);
x := 6 - Random(13);
y := 6 - Random(13);
TargetToTile(0, GetX(self) + x, GetY(self) + y, 251);
ctime := Now;
k := 0;
repeat
checksave;
wait(500)
m1 := InJournalBetweenTimes(Mes1, ctime, Now);
m2 := InJournalBetweenTimes(Mes2, ctime, Now);
m3 := InJournalBetweenTimes(Mes3, ctime, Now);
m4 := InJournalBetweenTimes(Mes4, ctime, Now);
m5 := InJournalBetweenTimes(Mes5, ctime, Now);
m6 := InJournalBetweenTimes(Mes6, ctime, Now);
k := k + 1;
until (m1<>-1) or (m2<>-1) or (m3<>-1) or (m4<>-1) or (m5<>-1);
for index := 1 to 8 do
begin
FindType(FishResult[index], ground);
if FindCount > 0 then
begin
MoveItem(FindItem, GetQuantity(finditem), sunduk, 0, 0, 0);
Wait(900);
end;
end;
until (1<>1);
End.