DRW Fishing for bots

[ybw]

Идем к тинкеру за ББ и покупаем у него ключи
Покупаем маленький лодка
Покупаем удочки обычные для всех
Бежим к речке со своими ботами, опускаем судно на воду, делаем копии ключей и даем их ботам вместе с удочками.
Все дружно прыгаем и встаем на трюм и запускаем сей скрипт у каждого бота

Плыть будем вперед, так что рулите кораблем сами
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.