Работа скрипта :
Повторять по жив
Чар берет из сундука 1 лог
Крафтит костер
Кидает под ноги
Зажигает
Code: Select all
program bowcraft_camping;
const
Sunduk = $40681966;
Log = $1BDD;
Dagger = $0F51;
Knlg = $0DE1;
Begin
repeat
FindType(Log,Sunduk);
if (FindQuantity > 1) then
MoveItem(finditem,1,Backpack,0,0,0);
UseObject(FindType(Dagger,backpack));
FindType(Log, Backpack);
WaitTargetObject(finditem);
CancelMenu;
WaitMenu('What', 'Kindling');
WaitJournalLine(Now, 'You put', 2000);
FindType($0DE1,Backpack);
if FindCount > 0 then
wait(500);
Drophere(finditem);
if findtype(Knlg, Ground) > 0 then
UseObject(FindItem);
wait(500);
if TargetPresent then CancelTarget;
until dead;
end.