Stealth Client Forum

Code: Select all

program res;
{$Include 'all.inc'}
const
EnemyID = $000F965E;
Bandage = $0E21;
GostType = $0192;
PlayerType = $0190;

var t : integer;
begin
    while not Dead do
    begin
    Hungry(1,Backpack);
    if GetQuantity(Findtype(Bandage,Backpack)) < 100 then AddToSystemJournal('Bintov ostalos ' +  IntToStr(GetQuantity(Findtype(Bandage,Backpack))));
        for t := 1  to 10 do
        begin
            if (GetType(EnemyID) = PlayerType) then attack(EnemyID);
            if (GetType(EnemyID) = GostType) then
            begin
            waittargetobject(EnemyID);
            useObject(Findtype(Bandage,Backpack));
            clearjournal
            waitJournalline(now, 'You bring your patient back to life',10000)
            end;
        wait(4000)   
        end;
    end;
end.