Stealth Client Forum

Code: Select all

 if not uo.funRunning('test2') then
      uo.exec('test2')
      uo.colorPrint(0x0446, 'Test2 запущен!')
end if
if uo.funRunning('test3') then
      uo.exec('terminate test3')
      uo.colorPrint(0x0446, 'Test3 остановлен!')
end if

Code: Select all

Program myProgram;

  var
    idLastMob, idLastCorpse : Cardinal;
    
    
  function findMob() : Cardinal;
  var
    mob : Cardinal;
    
  begin
    mob := $0D00F000;
    Result := mob;
  end; 
  
  function attackMob(idMob : Cardinal) : Boolean;
  var
  
  begin  
    if (WarTargetID <> idMob) then
        attack(idMob);
    
    while not isDead(idMob) and not dead do
    begin
        wait(100);
    end;
    
    // если сам умер, то атака оказалась безуспешна
    if dead then
    begin
        Result := false;
    end
    else
    begin
        Result := true;
    end;
  end; 
  
  function findCorpse() : Cardinal;
  var
    corpse : Cardinal;
    
  begin
    corpse := $0D00FC00;
    Result := corpse;
  end;  
  
  function lootCorpse(idCorpse : Cardinal) : Boolean;
  begin
    // здесь код. Ищем нужные айтемы и перекладываем их себе
  end; 
  
  function checkPK() : Boolean;
  begin
    // проверка не напал ли ПК
  end;

  begin
    while true do
    begin               
    
        idLastMob := findMob();
        if idLastMob > 0 then
        begin
            addToSystemJournal('Моб найден, атакуем его');
            attackMob(idLastMob);   
            
            idLastCorpse := findCorpse();
            if idLastCorpse > 0 then
            begin
                addToSystemJournal('Труп найден, лутаем его');
                lootCorpse(idLastCorpse);  
                checkPK(); // получается, что чтобы проверить не атакует ли кто
                           // нужно дождаться пока выполнение кода дойдет до
                           // этого момента. Либо тыкать эту проверку во все 
                           // места кода. В этом случае чар сдохнет уже, а код
                           // будет пытаться выполниться. Или превратить код в 
                           // кашу и сломать голову, предусматривая куда еще 
                           // нужно поставить проверку на ПК          
            end;
        end; 
        wait(500);
    end;
  end.

Code: Select all

getGlobal('char', name : string) : string
setGlobal('char', name : string, value : string)