how to use "valor" and "justice"
Posted: 16.11.2013 2:40
thanks everyone.
Альтернативный клиент Ultima Online
https://stealth.od.ua/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.
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 successfuly