Различия

Здесь показаны различия между двумя версиями данной страницы.

Ссылка на это сравнение

faq:stealth:lockpicking [2019/11/22 10:47] (текущий)
tsatsur создано
Строка 1: Строка 1:
 +=== Lockpicking ===
  
 +<​code>​
 +program Lockpiking;
 +{$Include '​all.inc'​}
 +
 +const
 +boxt = $0E80;
 +keyt = $100E;
 +lockpick = $14FB;
 +
 +procedure alock;
 +begin
 +  waitconnection(10000);​
 +  UseObject(FindType(keyt,​backpack));​
 +  WaitForTarget(1000);​
 +  TargetToObject(FindType(boxt,​backpack));​
 +  if (not(Connected)) then
 +  Exit;
 +  ClearJournal;​
 +  WaitConnection(10000);​
 +end;
 +
 +procedure unlock;
 +begin
 +  waitconnection(10000);​
 +  repeat
 +    UseObject(FindType(lockpick,​backpack));​
 +    WaitForTarget(1000);​
 +    TargetToObject(boxt);​
 +    wait(2000)
 +  until ( (InJournal('​*Unloked!*|That'​) > -1) or (not(Connected)) );
 +  if (not(Connected)) then
 +  Exit;
 +end;
 +
 +Begin
 +  SetARStatus(true);​
 +  clearjournal;​
 +  while (not Dead) do
 +  begin
 +    waitconnection(10000);​
 +    alock;
 +    unlock;
 +  end;
 +End.
 +</​code>​
 
faq/stealth/lockpicking.txt · Последние изменения: 2019/11/22 10:47 — tsatsur
 
Recent changes RSS feed Creative Commons License Donate Powered by PHP Valid XHTML 1.0 Valid CSS Driven by DokuWiki