Крафт пустых бутылок

Предыдущая тема Следующая тема Перейти вниз

Крафт пустых бутылок

Сообщение  Mazunchik в Сб Май 15, 2010 1:49 am

program KraftButilok;
//***************************************************************
// v.1.00 ©️ SaNeK
// isq 340 022 777
// КИДАЕМ В ПАК ИНГОТЫ И ТИНКЕР ТУЛС. БУДЕТ КРАФТИТЬ ПУСТЫЕ БУТЫЛКИ
// ПОКА НЕ ЗАКОНЧАТСЯ ИНГОТЫ
//***************************************************************
Procedure PcCraft;
begin
UOSay(Chr(39)+'pc craft 100');
wait(100*3500);
end;

//***************************************************************
//ОЖИДАНИЕ КОНЕКТА
//***************************************************************
procedure WaitConnection;
begin
if Connected then exit;
while not Connected do wait(100);
wait(3000);
end;

//***************************************************************
// РЕСЕНД
//***************************************************************
procedure Resend;
begin
Wait(1000);
UOSay(Chr(39)+'resend');
Wait(5000);
end;

//***************************************************************
// ПРОЦЕДУРА КРАФТА БУТЫЛОК
//***************************************************************
Procedure Craft;
var
TinkerTools, Ingi: Cardinal;
begin
AutoMenu ('Tinkering', 'Bottles');
AutoMenu ('Bottles', '(1)');

if FindType($1EBC, backpack) <> 0 then
begin
TinkerTools := finditem;
if FindType($1BF2, backpack) <> 0 then
begin
if TargetPresent then begin AddToSystemJournal('Отменяем курсор...'); CancelTarget; end;
Ingi := finditem;
UseObject(TinkerTools);
Wait(1000);
If TargetPresent then begin TargetToObject(Ingi); end;
Wait(8600);
end;
end;
end;

//***************************************************************
// ЛОВИТ В ЖУРНАЛЕ СООБЩЕНИЕ
//***************************************************************
Procedure Scan;
begin
AddToSystemJournal('Скан');
if InJournal('Вы изготавливаете предмет и кладете его в сумку.') <> -1 then
begin
ClearJournal;
wait(1000);
PcCraft;
end;
if InJournal('У Вас не получилось изготовить предмет') <> -1 then
begin
AddToSystemJournal('Не получилось');
Craft;
end;
end;

BEGIN

WaitConnection;
Resend;
while true do
begin
WaitConnection;
Craft;
Scan;
wait(50);
end;
END.
avatar
Mazunchik
Admin

К-ть повідомлень : 91
Очки : 233
Дата регистрации : 2010-05-14
Возраст : 30
Звідки : СССР

Посмотреть профиль http://cccp-rip.ukrainianforum.net

Вернуться к началу Перейти вниз

Предыдущая тема Следующая тема Вернуться к началу


 
Права доступа к этому форуму:
Вы не можете отвечать на сообщения