E-Books

Development Platform:
DOS

entry.lua：Code Content
							--此文件中，凡是可能被多次执行的函数，函数名都要加上地图名前缀，如after_destroy_entry_testpk
--此文件每行最大字符个数为255，若有异议，请与程序探讨
function config_entry(entry) 
    SetMapEntryEntiID(entry,2492,1) --设置地图入口实体的编号（该编号对应于characterinfo.txt的索引）
end 
function after_create_entry(entry) 
    local copy_mgr = GetMapEntryCopyObj(entry, 0) --创建副本管理对象，此函数在有显式入口的地图中必须调用，对于隐式入口的地图（如队伍挑战）无要调用该接口
    map_name, posx, posy, tmap_name = GetMapEntryPosInfo(entry) --取地图入口的位置信息（地图名，坐标，目标地图名）
    Notice("海盗广播：深蓝群岛的["..posx..","..posy.."]位置发现一个通往《乱斗白银城》的入口。") --通知本组服务器的所有玩家
end
function after_destroy_entry_garner2(entry)
    map_name, posx, posy, tmap_name = GetMapEntryPosInfo(entry) 
    Notice("海盗广播：通往《乱斗白银城》的入口已经消失了，祝您愉快～！") 
end
function after_player_login_garner2(entry, player_name)
    map_name, posx, posy, tmap_name = GetMapEntryPosInfo(entry) --取地图入口的位置信息（地图名，坐标，目标地图名）
    ChaNotice(player_name, "海盗广播：深蓝群岛的["..posx..","..posy.."]位置发现一个通往《乱斗白银城》的入口。") --通知本组服务器的所有玩家
end
function check_can_enter_garner2( role, copy_mgr )
	local FightingBook_Num = 0
	FightingBook_Num = CheckBagItem( role,3849 )
	local Team_In = IsInTeam(role)
	if Team_In == 1 then
		SystemNotice ( role , "您现在处于组队状态,不能进入乱斗白银城" )
		return 0
		
	end
	if FightingBook_Num <= 0 then
		SystemNotice ( role , "您身上没有勇者之证,不能进入乱斗白银城,请到竞技管理员处领取勇者之证" )
		return 0
	elseif FightingBook_Num > 1 then
		LG("RYZ_PK","超过一个勇者之证")
		return 0
	end
	local role_RY = GetChaItem2 ( role , 2 , 3849 )
	local HonorPoint = GetItemAttr ( role_RY , ITEMATTR_VAL_STR)
	if HonorPoint < 20 then
		SystemNotice ( role , "您的荣誉点不够,不能进入乱斗白银城" )
		return 0
	end
	if HonorPoint >30000 then
		SystemNotice ( role , "您的荣誉值过高,不能进入乱斗白银城" )
		return 0
	end
	local Credit_Garner2 = GetCredit(role)
	 if Credit_Garner2 < 30 then 
		SystemNotice ( role , "您的名声值不够,不能进入乱斗白银城" )
		return 0
	--else
--		DelCredit(role,30)
	end
	if Lv(role) < 20 then
	SystemNotice(role, "进入乱斗白银城角色等级必须在20级以上")
		return 0    
	end
	local Has_money = check_HasMoney(role)
	if Has_money == 1 then
		
		return 1
		
	else
		SystemNotice(role,"您所带的金钱不够,不能进入乱斗白银城")
		return 0
	end
				
end
function check_HasMoney(role)
	local lv= GetChaAttr(role, ATTR_LV)
	local Money_Need = lv*50
	local Money_Have = GetChaAttr ( role , ATTR_GD )
		if Money_Have >= Money_Need then
			return 1
		end
end
function begin_enter_garner2(role, copy_mgr) 
	local	Money_Have = GetChaAttr ( role , ATTR_GD )
	local lv= GetChaAttr(role, ATTR_LV)
	local Money_Need = lv*50
	local	Money_Now = Money_Have - Money_Need
	SetChaAttrI( role , ATTR_GD , Money_Now )
	DelCredit(role,30)
		SystemNotice(role,"开始进入《乱斗白银城》,收取金钱"..Money_Need..",扣除名声值30") 
		MoveCity(role, "乱斗白银城")
Money_all = Money_all + Money_Need * 0.8
end

						