Авторизация  
machette

Локпик

В теме 9 сообщений

Цитата

program Lockpick; 
var 
PouchID : cardinal; 
KeyID : cardinal; 
a,b,c : integer; 
stime : tdatetime; 

{$Include 'all.inc'} 

begin 
setarstatus(true); 
{-----------------------------------------} 
PouchID := $62D867FF;  //ID  сундука
KeyID := $62D86800;     // ID ключа
{-----------------------------------------} 
hungry(1,ground); 
while true do 
 begin 
 checksave; 
 waitconnection(5000); 
 findtype($14FB,ground); 
 if findfullquantity > 5 then 
 begin 
  if targetpresent then canceltarget; 
  waittargetobject(PouchID); 
  useobject(finditem); 
  stime := now; 
  repeat 
  wait(500); 
  waitconnection(5000); 
  checksave; 
  a := injournalbetweentimes('fail',stime,now); 
  b := injournalbetweentimes('Unlocked|not locked',stime,now); 
  until (a >= 0) or (b >= 0) or (now > stime + (0.5/1440)); 
  if (b >= 0) then 
   begin 
   stime := now; 
   if targetpresent then canceltarget; 
   waittargetobject(PouchID); 
   useobject(KeyID); 
    repeat 
    checksave; 
    wait(500); 
    waitconnection(5000); 
    a := injournalbetweentimes('lock',stime,now); 
    until (a >= 0) or (now > stime + (0.5/1440)); 
   end; 
  end 
  else begin wait(40000); uosay('Локпики кончились.... дайте локпиков... а то фиг что Вам прокачаю...)'); end; 
  c := c + 1; 
  if c > 30 then 
  begin 
  c := 0; 
  hungry(1,ground); 
  end; 
 end; 
end.

 

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

скрипт иногда стопится 

[17:47:16:047] System: Pick what?
[17:47:16:258] System: That doesn't appear to be locked.

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

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Должно работать не сразу. А вообще этот скрипт нужно запускать при закрытом сундуке иначе не будет качать. Сначала сундук вручную закрыл потом скрипт запустил. Иногда при дисконекте или падения интернета может снова заглючить. Посматривать каждый день надо.

Поделиться сообщением


Ссылка на сообщение
Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

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

Создать учетную запись

Зарегистрируйте новую учётную запись в нашем сообществе. Это очень просто!

Регистрация нового пользователя

Войти

Уже есть аккаунт? Войти в систему.

Войти
Авторизация