用于战神引擎玩家在线自助打金提现Npc脚本，玩家打到对应的装备后，可以直接通过NPC直接申请提现回收，脚本是半自动的，添加好了以后，GM可以通过脚本对应的记录文件，来实现脚本上面的功能，玩家申请提现需要输入真实的姓名、支付宝账号，就行了，网站上还有一个类似的在线提现脚本，但这个看起来更舒服一些，帮主就提取出来了。

里面的人民币回收.txt文件放到：D:\mud2.0\Mir200\Share\config下面。这份文件也控制了整个提现NPC里面的内容，详细的使用方法自己钻研。

部分脚本

procedure _exit;
begin
	This_Npc.CloseDialog(This_Player);
end; 
function item_lv_list(Psid:integer):string;
begin
	case Psid of		
		1: result:= '麻痹戒指,护身戒指,传送戒指';
		2: result:= '红包五元';
		3: result:= '红包十元';
		4: result:= '红包二十元,';
		5: result:= '红包二百元';
		6: result:= '屠';
	end
end;
function addSpace( s : string; needLen : Integer ) : string;
var
  i, j : Integer;
begin
  i := Length(s);
  if i < needLen then
  begin
    j := needLen - i;
    for i:=0 to j do
    begin
      s := s + ' ';
    end;
  end;
  Result := s;
end;
function xColor:String;
var temp_str : string; i : integer;
begin	
	for i:=1 to 3 do
	begin
		temp_str := temp_str + '</fcolor='+inttostr(random(255)+1)+'>';			
	end
	temp_str := temp_str+ addSpace('', 6) + '<自动提现系统/fcolor='+inttostr(random(14)+242)+'>|';	
	Result := temp_str;		
end;
function print_str(Pstr:string;Pid:integer):string;
var  len, arrlen, index, temp_len, temp_index, i : integer;
str, temp_str : string;
strArr : array[1..100] of string;
begin
	str := Pstr;
	len := length(str);
	index:=1;		
	for i:=1 to 100 do
	begin		
		temp_str:= copy(str,index,len);
		temp_len := length(temp_str);
		temp_index := pos(',',temp_str);		
		if temp_index = 0 then
		begin		
		strArr[i] := copy(temp_str,0,temp_len); 
		arrlen:=i; break;		
		end 
		else
		strArr[i] := copy(temp_str,0,temp_index-1);			
		index := index + temp_index;			
	end	
	result:=strArr[Pid];
end;
procedure domain;