Stealth Client Forum

Code: Select all

procedure Heal_dr();
var
veap: Cardinal;
begin
if ObjAtLayer(RhandLayer) > 0 then;
veap = gettype(ObjAtLayer(RhandLayer); 
Heal_B; 
Equip(RhandLayer,veap);
end;  

Code: Select all

procedure Heal_dr();
var
veap: Cardinal;
begin
veap := 0;
if ObjAtLayer(RhandLayer) > 0 then;
veap = ObjAtLayer(RhandLayer); 
Heal_B; 
Equip(RhandLayer,veap);
end; 

Code: Select all

Program pvpscripts;
const
clean_bandages = $0E21;      //бинты

procedure Heal_B();
begin
UseObject(FindType(clean_bandages,Backpack)); 
      WaitTargetObject(Self);
//Equip(RhandLayer,$40000D1A);
end;

procedure Heal_dr();
var
veap: Cardinal;
begin
if ObjAtLayer(RhandLayer) > 0 then;
veap = ObjAtLayer(RhandLayer); 
Heal_B; 
Equip(RhandLayer,veap);
end;

begin
end.

Code: Select all

Program pvpscripts;
const
clean_bandages = $0E21;      //бинты

procedure Heal_B();
begin
UseObject(FindType(clean_bandages,Backpack)); 
      WaitTargetObject(Self);
//Equip(RhandLayer,$40000D1A);
end;

procedure Heal_dr();
var
veap: Cardinal;
begin
if ObjAtLayer(RhandLayer) > 0 then
veap := ObjAtLayer(RhandLayer); 
Heal_B; 
Equip(RhandLayer,veap);
end;

begin
end.

Code: Select all

program pvpScript;

var
i : Integer;
command : array[0..1] of String;

// заполняем массив данными
procedure initCommand;
  begin
    command[0] := "HealMe";
    command[1] := "SayMETALLICA"; // МИТОЛ!!!!!
  end;

// один из вариантов действий 
procedure healSelf;
  begin
    while Hp(self) < 150 do 
       begin
         usebandages; // лень вспоминать тип бинтов
        end;
   end;

// процедура которая выполняет команду
procedure doThing(param : String); 
  begin
    if param == command[0] then healSelf;
    if param == command[1] then UoSay("METALLICA!!!");
  end;

begin
  initCommand;
  while not dead do
    begin
      for i := 0 to command.length-1 do // проверяем нет ли какой-нить команды в ластмесадже.
        if (LastJournalMessage == command[i]) then doThing(command[i]); // тут пытаемся вызвать процедуру!
        wait(100);
    end;
end.

Code: Select all

procedure test2();
var 
MyChar2:Cardinal;
begin
MyBers := $000073A4;
    Repeat
    If GetHp(MyChar2) < GetMaxHp(MyChar2) then;
    UseObject(FindType(clean_bandages,Backpack)); 
    WaitTargetObject(MyChar2);
    wait(5000); 
    Until Dead;
end;

Code: Select all

procedure test2();
var 
MyChar2:Cardinal;
begin
MyBers := $000073A4;
    Repeat
    If GetHp(MyChar2) < GetMaxHp(MyChar2) then
    begin
      UseObject(FindType(clean_bandages,Backpack)); 
      WaitTargetObject(MyChar2);
      wait(5000); 
    end;
    wait(500); 
    Until Dead;
end;