Stealth Client Forum

Code: Select all

procedure guarded;
begin
  UOSay('guards');     //позвать стражу
end;

procedure kiled;
var i,k:byte;
begin
  k:=GetGumpsCount;
  for i:=1 to k do CloseSimpleGump(0);
  wait(5000);
  NumGumpButton(0,1);   //идея в том, что окно для вписывания кила появляется не сразу после смерти, а через пару секунд.
end;
       
Begin
  SetEventProc(evAllow_RefuseAttack,'guarded');
  SetEventProc(evDeath,'kiled');
  while true do wait(1000);  
End.

Code: Select all

procedure guarded(ID : Cardinal; Attack_OK : boolean);
begin
if Attack_OK and (ID = Self) then
  UOSay('guards');     //позвать стражу
end;

procedure kiled(DeadSt : Boolean);
var i,k:byte;
begin
if DeadSt then
begin
  k:=GetGumpsCount;
  for i:=1 to k do CloseSimpleGump(0);
  wait(5000);  
  NumGumpButton(0,1);   //идея в том, что окно для вписывания кила появляется не сразу после смерти, а через пару секунд.

end;

Code: Select all

and (ID = Self)

Code: Select all

evItemInfo, evItemDeleted  : [ID]  - понятно