Forum in READ ONLY mode! All questions and discussions on Discord official server, invite link: https://discord.gg/VxsGzJ7 
	how to use "valor" and "justice"
how to use "valor" and "justice"
thanks everyone.
			
			
									
									
						Re: how to use "valor" and "justice"
procedure ReqVirtuesGump;
procedure UseVirtue(VirtueName : String);
VirtueName : 'Compassion';
VirtueName : 'Honesty';
VirtueName : 'Honor';
VirtueName : 'Justice';
VirtueName : 'Sacrifice';
VirtueName : 'Valor';
VirtueName : 'Humility';
VirtueName : 'Spirituality';
			
			
									
									procedure UseVirtue(VirtueName : String);
VirtueName : 'Compassion';
VirtueName : 'Honesty';
VirtueName : 'Honor';
VirtueName : 'Justice';
VirtueName : 'Sacrifice';
VirtueName : 'Valor';
VirtueName : 'Humility';
VirtueName : 'Spirituality';
"Пишите код так, как будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете". (с) Макконнелл, "Совершенный код".
						Re: how to use "valor" and "justice"
i am sorry, did you give me a example?
			
			
									
									
						Re: how to use "valor" and "justice"
What example?
Justice is awarded to the person who delivers the killing blow to a murderer, or red, character in Felucca.
Valor is obtained by killing creatures in a Champion Spawn.
			
			
									
									
						Justice is awarded to the person who delivers the killing blow to a murderer, or red, character in Felucca.
Valor is obtained by killing creatures in a Champion Spawn.
Re: how to use "valor" and "justice"
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;Stealth Development Team & Support
						Re: how to use "valor" and "justice"
Code: Select all
Program New;
begin
 //Body of Script    
    UseVirtue('Honor');
end.
21:27:11:718 [kaitan]: Compiler: [Error] (111.sc at 4:5): Unknown identifier 'UseVirtue'
21:27:11:718 [kaitan]: Compiling failed
21:27:11:718 [kaitan]: Script 111.sc stopped successfuly
Re: how to use "valor" and "justice"
mixers wrote:error message:Code: Select all
Program New; begin //Body of Script UseVirtue('Honor'); end.
21:27:11:718 [kaitan]: Compiler: [Error] (111.sc at 4:5): Unknown identifier 'UseVirtue'
21:27:11:718 [kaitan]: Compiling failed
21:27:11:718 [kaitan]: Script 111.sc stopped successfuly
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 successfulyStealth Development Team & Support
						Re: how to use "valor" and "justice"
thanks, it's very good and i needed.
			
			
									
									
						


