Stealth Client Forum

Code: Select all

Function Honor(TargetID:Integer):Boolean;
var
    myResult : Boolean;
begin
    myResult := False;
    ReqVirtuesGump();
    UseVirtue('Honor');
    if(WaitForTarget(500) = True)and (GetDistance(TargetID) < 6) then
    begin
        TargetToObject(TargetID);
        myResult := False;        
    end;                  
    Result := myResult;
end;

Code: Select all

Program New;
begin
 //Body of Script    
    UseVirtue('Honor');
end.

Code: Select all

Program Test;

Function Honor(TargetID:Integer):Boolean;
var
    myResult : Boolean;
begin
    myResult := False;
    ReqVirtuesGump();
    UseVirtue('Honor');
    if(WaitForTarget(500) = True)and (GetDistance(TargetID) < 6) then
    begin
        TargetToObject(TargetID);
        myResult := False;        
    end;                  
    Result := myResult;
end;

begin
    Honor($12345678);
end.

Code: Select all

14:42:56:690 [Crome_Developer]: Compiling
14:42:56:715 [Crome_Developer]: Compiled succesfully
14:42:57:075 [Crome_Developer]: Succesfully executed
14:42:57:075 [Crome_Developer]: Script honor sample.sc stopped successfuly