用于战神引擎清洗/清理极品属性点Npc脚本，脚本默认支持盾牌、斗笠、勋章的极品属性点，玩家通过鉴定的NPC，鉴定出来的极品属性，如果不需要，可以通过这个NPC，清洗掉。

部分脚本

procedure _Checkup112;
begin
   This_NPC.Click_CommitItem(This_Player,1,'待清洗装备：'); 
end; 
procedure CommitItem(AType:word);
var
i,ck_num,ck_kind,ck_gold,ck_rand,ck_juan:integer;
ck_str,ck_red:string; 
begin
     ck_gold := 0;  //初始化 
     ck_str := '';  //初始化
     ck_red := '';  //初始化
     ck_juan := 0;  //初始化
     for ck_kind := 1 to 19 do
     begin
       if woma[ck_kind] = This_Item.ItemName then 
       begin                             
         ck_num := This_Item.AddPa1 + This_Item.AddPa2 + This_Item.AddPa3 + This_Item.AddPa4 + This_Item.AddPa5; 
         ck_gold := woma_value[ck_kind];
		 ck_juan := 1;
         if (ck_num > 0) and (ck_num < 1) then
         begin
           for i:= 1 to ck_num do
           begin
           ck_gold := ck_gold;
           end;
         end;  
       end;
     end;
    if ck_num < 0 then begin This_Player.NotifyClientCommitItem(0,'你的'+This_Item.ItemName+'不需要清洗属性！'); end else if ck_gold > 0 then
     begin                                                                                             
       if This_Player.YBNum >= ck_gold then
       begin
		 This_Player.PsYBConsum(This_NPC,'xin',20001,1,ck_gold);
		 This_Player.TakeByClientID(This_Item.ClientItemID);
         This_Player.NotifyClientCommitItem(1,'');
		 This_Player.Give(This_Item.ItemName,1);
		 This_Player.NotifyClientCommitItem(0,'你的'+This_Item.ItemName+'已经清洗完属性！');  
       end else
       begin
       This_Player.NotifyClientCommitItem(0,'无法清洗：你的条件不足，需要'+inttostr(ck_gold)+'元宝'); 
       end;
     end else 
     begin
        This_Player.NotifyClientCommitItem(0,'该物品不可清洗，请投入可清洗的装备！');   
     end;   
end;
begin
  This_Npc.NpcDialog(This_Player,
  '勇士你好，需要清洗斗笠吗？\'
  +'如果对斗笠.勋章.盾牌鉴定的属性不满意，|\'
  +'可以找老夫帮清洗掉不如意的属性|\'
  +'老夫可是不白干活的，清洗需要50元宝|\'
  +'准备好了吗勇士~！|\ \'
  +'|{cmd}<清洗极品属性/@Checkup110>\' 
  );
end.