GetVariableText
GetVariableText(PlayObject,sMsg,s10);
//先处理 脚本参数
if (QuestConditionInfo.sParam1<>'') and (QuestConditionInfo.sParam1[1]='$') then begin
s1:= QuestConditionInfo.sParam1 ;
QuestConditionInfo.sParam1 := '<'+QuestConditionInfo.sParam1+'>' ;
GetVariableText(PlayObject,QuestConditionInfo.sParam1,s1);
end;
//------------------------------------------------这个是取变量值
function TNormNpc.GetLineVariableText(PlayObject: TPlayObject;
sMsg: String): String;
var
nC:Integer;
s10:String;
begin
nC:=0;
while (True) do begin
if TagCount(sMsg,'>') < 1 then break;