用于战神引擎安全区泡点Npc脚本，脚本最大的特色就是带Gm后台控制开关和经验倍数。打开以后可以开启和关系泡点功能，也可以设置泡点经验的倍速，非常的方便。

部分脚本

procedure P123;
var inum:integer;
begin
	inum:=StrToIntDef(This_Npc.InPutStr,-1);
	if inum > 0 then
	begin
		SetG(123,StrToIntDef(gmidx,123),inum);
		_gmpdset;
	end else	
	This_Player.PlayerNotice('请输入大于零的数字!',0);
end;
procedure domain;
var state,state2,gmstr:string;
begin
	state:='【<未开放/fcolor=247>】^^';
	if GetG(123,5)=1 then	state:='【<开放中/fcolor=250>】^^<开始泡点/@gofree>';
	gmstr:=''; if This_Player.GMLevel > 0 then gmstr:='<GM后台设置/@gmpdset>'
	This_Npc.NpcDialog(This_Player,
	'|<免费泡点：/fcolor=242> '+state
	+'|<地图限制：/fcolor=242>【<土城/fcolor=249>】'
	//+'|<等级限制：/fcolor=242>【<'+inttostr(limit_lv)+'级/fcolor=249>】'
	+'|<泡点经验：/fcolor=242>【<'+inttostr(GetG(123,1)*BaseExp)+'经验/fcolor=243>】'	
	+'|<法师宝宝：/fcolor=242>【法师宝宝前往未知暗殿打卷，小退宝宝死亡】'	
	+'|<右侧泉眼可享受5倍泡点经验/fcolor=242>'		
	+'|<————————————————/fcolor=247>'
	+'|<以上为每'+inttostr(BaseTime)+'秒数据>\'
	+'|{cmd}<关闭/@exit>^'+gmstr
   );
end;  
procedure _gofree;
begin
	if (This_Player.Level < limit_lv) or ((This_Player.HeroLevel < limit_lv) and (This_Player.HeroLevel > 0)) then
	begin
			This_Npc.NpcDialog(This_Player,'开启成功！土城345 326泉眼处5倍经验！');
			This_Player.CallOut(This_Npc,1,'FreePD');
	end else
		This_Npc.NpcDialog(This_Player,'角色等级超过'+inttostr(limit_lv)+'，无法开启！');	
end;
begin
domain;
end.