用于战神引擎的土城金币泡点脚本，脚本是明文版的，玩家可以任意修改泡点给与的经验和单次扣除的金币数量，单文件，直接添加就能用，非常的简单。

部分脚本

program Mir2;
 var
ditux,dituy,cishu,suiji,value : integer;  
px, py :Integer;
Procedure _doexit;
begin
   This_Npc.CloseDialog(This_Player);
end;
function Gaoji0LB(price, num: Integer):boolean;
begin                                               
  result := true;
end;
procedure _goToMonMap;  
begin   
if (This_Player.Level < 25 ) and (This_Player.GoldNum >= 10000) then
  begin                 
    This_Player.CallOut(This_Npc, 1, 'SSPD');
  //ServerSay('玩家<' + This_Player.Name + '>开启了土城泡点,每秒享受100经验！', 2);
    This_Npc.NpcDialog(This_Player,
   '最高可以升到30哦。'
   ); 
   end 
   else  
   begin
       This_Npc.NpcDialog(This_Player,
   '你没有10000金币或者已经30级了。无法在泡点了'
   );   
   end; 
   end;
   procedure SSPD;
  begin
   if CompareText(This_Player.MapName,'3') = 0 then
   begin
   if (This_Player.Level < 25 ) and (This_Player.GoldNum >= 10000) then
  begin
    This_Player.CallOut(This_Npc, 1, 'SSPD');
    This_Player.Give('经验',100);
	This_Player.DecGold(100);
  end  
   else   
  begin
       This_Npc.NpcDialog(This_Player,
   '你没有10000金币或者已经25级了。无法在泡点了'
   );    
  end;
end 
   else  
   begin  
   This_Npc.NpcDialog(This_Player,
   '你已经离开土城。无法在泡点了'
   );
end;