Category

Development Platform
Home > E-Books > View Code
exp_and_level.lua
Package: 4fcom-20090616-13.rar　[view]
Upload User: bjtaixing
Upload Date: 2021-01-15
Package Size: 24749k
Code Size: 61k
Category:

E-Books

Development Platform:

DOS

exp_and_level.lua：Code Content
  2. --此处放置经验值和级别有关的计算
  4. InTeamGetExp_RAID = 1
  6. --创建工会的物品检测
  7. function AskGuildItem(role,Guild_type)
  8. local gold = GetChaAttr(role,ATTR_GD)
  9. local fame = GetChaAttr(role,ATTR_FAME) 
  10. local attr_guild = HasGuild ( role ) 
  11. if attr_guild ~= 0 then 
  12. HelpInfo(role,0,"已有所属工会")
  13. --SystemNotice(role,0,"已有所属工会")
  14. return 0 
  15. end 
  16. local Lv = Lv ( role )
  17. if Lv < 40 then
  18. SystemNotice ( role , "等级不足40级，无法创建" )
  19. return 0
  20. end
  22. if Guild_type == 1 then --判定海盗工会
  23. if Guild2_ItemMax > 0 then
  24. for i = 1 , Guild2_ItemMax , 1 do
  25. local K = Check_BagItem(role,Guild2_item[i],Guild2_count[i])
  26. if K == 0 then
  27. HelpInfo(role,0,"道具不足无法创建")
  28. --SystemNotice(role,0,"道具不足无法创建")
  29. return 0
  30. end
  31. end
  32. end
  34. if gold < Guild2_Gold then
  35. HelpInfo(role,0,"金钱不足无法创建")
  36. --SystemNotice(role,0,"金钱不足无法创建")
  37. return 0
  38. end
  39. if fame < Guild2_fame then
  40. HelpInfo(role,0,"声望不足无法创建")
  41. --SystemNotice(role,0,"声望不足无法创建")
  42. return 0
  43. end
  44. elseif Guild_type == 0 then --判定海军工会
  45. if Guild1_ItemMax > 0 then
  46. for i = 1 , Guild1_ItemMax , 1 do
  47. local K = Check_BagItem(role,Guild1_item[i],Guild1_count[i])
  48. if K == 0 then
  49. HelpInfo(role,0,"道具不足无法创建")
  50. --SystemNotice(role,0,"道具不足无法创建")
  51. return 0
  52. end
  53. end
  54. end
  55. if gold < Guild1_Gold then
  56. HelpInfo(role,0,"金钱不足无法创建")
  57. --SystemNotice(role,0,"金钱不足无法创建")
  58. return 0
  59. end
  60. if fame < Guild1_fame then
  61. HelpInfo(role,0,"声望不足无法创建")
  62. --SystemNotice(role,0,"声望不足无法创建")
  63. return 0
  64. end
  65. else
  66. --LG("checkguild","工会类型错误  Guild_type = ",Guild_type)
  67. end
  68. return 1
  69. end 
  71. function Check_BagItem(role,a,b) --检查背包数量是否足够
  72. local a = CheckBagItem ( role , a ) 
  73. if a>= b then 
  74. return 1 
  75. else 
  76. return 0 
  77. end 
  78. end 
  82. --删除创建工会所需物品
  83. function DeductGuildItem(role,Guild_type)
  84. local gold = GetChaAttr(role,ATTR_GD)
  85. local fame = GetChaAttr(role,ATTR_FAME) 
  86. local attr_guild = HasGuild ( role )  
  87. -- if attr_guild ~= 0 then 
  88. -- HelpInfo(role,0,"已有所属工会") 
  89. --SystemNotice(role,0,"已有所属工会") 
  90. -- return 0 
  91. -- end 
  93. if Guild_type == 1 then --判定海盗工会
  94. -- if Guild2_ItemMax > 0 then
  95. -- for i = 1 ,Guild2_ItemMax,1 do
  96. -- local K = DelBagItem(role,Guild2_item[i],Guild2_count[i])
  97. -- end
  98. -- end
  99. DelBagItem(role,1780,1)
  100. gold = gold - Guild2_Gold
  101. fame = fame - Guild2_fame
  102. SetAttrChangeFlag ( role )
  104. SetChaAttr(role,ATTR_GD,gold)
  105. SetChaAttr(role,ATTR_FAME,fame)
  107. SyncChar( role, 4 )
  109. elseif Guild_type == 0 then --判定海军工会
  110. -- if Guild1_ItemMax > 0 then
  111. -- for i = 1 ,Guild1_ItemMax,1 do
  112. -- local K = DelBagItem(role,Guild1_item[i],Guild1_count[i])
  113. -- end
  114. -- end
  115. DelBagItem(role,1780,1)
  116. gold = gold - Guild1_Gold
  117. fame = fame - Guild1_fame
  118. SetAttrChangeFlag ( role )
  120. SetChaAttr(role,ATTR_GD,gold)
  121. SetChaAttr(role,ATTR_FAME,fame)
  123. SyncChar( role, 4 )
  124. else
  125. --LG("checkguild","工会类型错误  Guild_type = ",Guild_type)
  126. end
  128. end
  131. function AskJoinGuild ( role , guild_type )  -- 申请加入工会判定   工会类型 0－海军，1－海盗
  132. local attr_guild = HasGuild ( role )  
  133. if attr_guild ~= 0 then 
  134. HelpInfo(role,0,"已有所属工会") 
  135. --SystemNotice(role,0,"已有所属工会") 
  136. return 0 
  137. end 
  138. -- local fame = GetChaAttr ( role , ATTR_FAME ) 
  139. -- if guild_type == 0 then 
  140. -- if fame < JOINGUILD_NAVY_FAME then 
  141. -- HelpInfo(role,0,"海军名声不足") 
  142. -- --SystemNotice(role,0,"海军名声不足") 
  143. -- return 0 
  144. -- end 
  145. -- elseif guild_type == 1 then 
  146. -- if fame > JOINGUILD_PIRATE_FAME then 
  147. -- HelpInfo(role,0,"海盗名声不足") 
  148. -- --SystemNotice(role,0,"海盗名声不足") 
  149. -- return 0 
  150. -- end 
  151. -- end 
  152. return 1 
  153. end 
  159. --经验分配(包含组队经验分配)
  160. --当有角色死亡时被调用
  161. function GetExp_New(dead , atk  ) 
  162. if ValidCha(atk) == 0  then 
  163. LG ( "exp_atker=NIL" , "function GetExp_New : atker = nil " ) 
  164. return 
  165. end 
  166. KillFlower(dead , atk)
  167. if IsPlayer(dead)==1 then 
  168. if IsPlayerInJJC(dead)~= 0  then
  169. local teamNum,teamlv,inTeam,inTeamment=IsPlayerInJJC(dead)
  170. JJCteam[teamNum].lv[teamlv].InTeam[inTeam].deadth[inTeamment]= 3
  171. JJCteam[teamNum].lv[teamlv].InTeam[inTeam].deadthCha[inTeamment] =dead 
  172. if teamNum == 2 then
  173. JJCteam[teamNum].lv[teamlv].InTeam[3-inTeam].num = JJCteam[teamNum].lv[teamlv].InTeam[3-inTeam].num +1
  174. end
  175. KillPlayerDropFlower( dead , atk )
  176. return
  177. end
  178. end
  179. --SystemNotice ( atk , "进入GetExp_New")
  180. -- GoTo( dead, 66,66,"starena33")
  181. -- GoTo( dead, 66,66,"starena33")
  182. -- SetChaPerHp(dead,0.8)
  183. -- SetChaPerSp(dead,0.8)
  184. --LuaPrint("Enter function GetExp() --[[经验值获得公式1、正常杀怪 2、人物被怪物杀死 3、人物正常pk死亡 4、无经验奖惩]]--") 
  185. local a = Check_Combat_Mod(dead , atk ) 
  186. if a==1 then 
  187. --LG("exp" , " enter  pkm mod" ) 
  189. local rolemod_atker = IsPlayer(atk) 
  190. local rolemod_defer = IsPlayer(dead)  --检查角色种类：0、怪物， 1、玩家
  192. local MonsterID = GetChaID(dead)
  194. if rolemod_atker == 1 and rolemod_defer == 0 and MonsterID == 1143 then
  195. local Item_CanGet = GetChaFreeBagGridNum ( atk )
  196. if Item_CanGet < 1 then
  197. SystemNotice(atk , "你身上没有空格，无法获得命运宝箱。")
  198. UseItemFailed ( atk )
  199. return
  200. end
  202. local lv= GetChaAttr(atk, ATTR_LV) 
  203. if lv <40 then
  204. SystemNotice ( atk , "角色当前级别低于40级，无法获得命运宝箱。" )
  205. UseItemFailed ( atk )
  206. return
  207. end
  209. local Has_BOXBOX = CheckBagItem ( atk , 6359 )
  210. if Has_BOXBOX >= 1 then
  211. SystemNotice ( atk , "命运宝箱！贪婪退散！一个角色同时只能携带一口命运宝箱。" )
  212. UseItemFailed ( atk )
  213. return
  214. end
  215. GiveItem ( atk , 0 , 6359 , 1 , 0 )
  216. end
  218. local exp1= GetChaAttr(atk,ATTR_CEXP)
  219. GetExp_PKM( dead , atk ) --[[player kill monster]]--
  220. local exp2= GetChaAttr(atk,ATTR_CEXP)
  221. local expaddZB=exp2-exp1
  222. expaddZB=ZBexpadd(atk,expaddZB)
  223. if expaddZB <1 then
  224. expaddZB=1
  225. end 
  226. XSJYCunChu(atk,expaddZB)
  227. local expZB= exp1+expaddZB
  228. SetChaAttr(atk,ATTR_CEXP,expZB)
  229. --GetExp_PKM( dead , atk ) --[[player kill monster]]--
  230. --挖宝任务怪40-60级巨额经验(42W)op--by—locke.coco
  231. if rolemod_atker == 1 and rolemod_defer == 0 then
  232. if MonsterID == 1144 or MonsterID == 1145 or MonsterID == 1146 or MonsterID == 1147 then
  233. getmuchexpbf (atk)
  234. end
  235. end
  236. --挖宝任务怪40-60级巨额经验(42W)ed
  238. elseif a==2 then 
  239. --LG("exp" , " enter  mkp mod" ) 
  240. ----------------项链扣除
  241. local cha = TurnToCha ( dead )
  242. local Cha_Num = GetChaTypeID( cha )
  243. -- local xianglian = GetEquipItemP(dead,5)
  244. -- local xianglian_id = GetItemID ( xianglian )
  246. -- if xianglian_id == 5870 then
  247. -- RemoveChaItem ( dead , 5870 , 1 , 1 , -1, 0 , 1  )
  248. -- end
  249. ---------------戒指移除
  250. -- local jiezhi2 = GetEquipItemP(dead,8)
  251. -- local jiezhi2_id = GetItemID ( jiezhi2 )
  252. -- if  jiezhi2_id == 5871 then
  253. -- RemoveChaItem ( dead , jiezhi2_id , 0 , 1 , -1, 0 , 1  )
  254. -- end
  255. -------a=2--------------魔剑移除
  256. local mojian1 = GetEquipItemP( dead , 9 )
  257. local mojian1_id = GetItemID ( mojian1 )
  258. if  mojian1_id == 6347 then
  259. WaBao_MJdiaoluo( dead)
  260. RemoveChaItem ( dead , mojian1_id , 1 , 0 , -1, 0 , 1  )
  261. end
  262. local mojian2 = CheckBagItem ( dead , 6347 )
  263. if mojian2 > 0 then
  264. WaBao_MJdiaoluo( dead)
  265. RemoveChaItem ( dead , 6347 , 1 , 2 , -1, 0 , 1  )
  266. end
  267. GetExp_MKP(dead , atk) --[[monster kill player]]--
  268. elseif a==3 then 
  269. --LG("exp" , " enter  pkp mod" ) 
  270. -----------宙斯套装
  271. local CheckItem_ZHOUSI  = CheckItem_ZHOUSI ( dead )
  272. --local sklv = 1
  273. --- SystemNotice(dead,"CheckItem_ZHOUSI=="..CheckItem_ZHOUSI)
  274. if CheckItem_ZHOUSI == 1 then
  275. local t = {} 
  276. t[0] = atk  
  277. t[1] = GetTeamCha(atk, 0 )  
  278. t[2] = GetTeamCha(atk, 1 )   
  279. t[3] = GetTeamCha(atk, 2 )    
  280. t[4] = GetTeamCha(atk, 3 )
  281. local i=0
  282. for i=0,4,1 do
  283. if ValidCha (t[i]) ~= 0 then 
  284. local cha_name = GetChaDefaultName (t[i] )
  285. local hp = GetChaAttr( t[i] , ATTR_HP ) 
  286. local sp = GetChaAttr( t[i] , ATTR_SP ) 
  287. local  hp_add = math.floor(hp*0.5)
  288. local  sp_add = math.floor(sp*0.5)
  289. Sp_Red (t[i], sp_add) 
  290. Hp_Dmg(t[i],hp_add)
  291. Notice ("宙斯震怒！犯天威者受到严厉惩罚！")
  292. -- Notice(dead,"杀人者"..i.."  伤血完毕")
  293. end 
  294. end
  295. end
  296. ----------------项链扣除
  297. local cha = TurnToCha ( dead )
  298. local Cha_Num = GetChaTypeID( cha )
  299. -- local xianglian = GetEquipItemP(dead,5)
  300. -- local xianglian_id = GetItemID ( xianglian )
  302. -- if xianglian_id == 5870 then
  303. -- RemoveChaItem ( dead , 5870 , 1 , 1 , -1, 0 , 1  )
  304. -- end
  305. ---------------戒指移除
  306. -- local jiezhi2 = GetEquipItemP(dead,8)
  307. -- local jiezhi2_id = GetItemID ( jiezhi2 )
  308. -- if jiezhi2_id == 5871 then
  309. -- RemoveChaItem ( dead , jiezhi2_id , 0 , 1 , -1, 0 , 1  )
  310. -- end
  311. -------a=3--------------魔剑移除
  312. local mojian3 = GetEquipItemP( dead , 9 )
  313. local mojian3_id = GetItemID ( mojian3 )
  314. if  mojian3_id == 6347 then
  315. WaBao_MJdiaoluo( dead)
  316. RemoveChaItem ( dead , mojian3_id , 1 , 0 , -1, 0 , 1  )
  317. end
  318. local mojian4 = CheckBagItem ( dead , 6347 )
  319. if mojian4 > 0 then
  320. WaBao_MJdiaoluo( dead)
  321. RemoveChaItem ( dead , 6347 , 1 , 2 , -1, 0 , 1  )
  322. end
  324. ---------------证书移除
  325. local qingbao = CheckBagItem(dead,6322)
  326. if qingbao ~= 0 then
  327. RemoveChaItem( dead , 6322 , 1 , 2 , -1, 0 , 1  )
  328. end
  329. ---竞技场
  330. ---------竞技场死亡掉落花花草草
  331. GetExp_PKP(dead , atk) --[[player kill player]]--
  332. elseif a==4 then 
  333. --LG("exp" , " enter  mkm mod" ) 
  334. GetExp_Noexp(dead , atk) --[[monster kill monster]]--
  335. else 
  336. --LuaPrint("无法判定经验获得模式".."n") return 
  337. end 
  339. end 
  342. function WaBao_MJdiaoluo( dead)------------魔剑掉落(拥有者死亡)公告
  343. local x, y = GetChaPos(dead)
  344. local name = GetChaDefaultName(dead)
  345. local map_role = GetChaMapName ( dead )
  346. local map_role_name = 0
  349. if map_role == "garner" then
  350. local map_role_name = "加纳大陆"
  351. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  353. elseif map_role == "magicsea" then
  354. local map_role_name = "魔女海岸"
  355. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  357. elseif map_role == "darkblue" then
  358. local map_role_name = "深蓝群岛"
  359. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  361. elseif map_role == "eastgoaf" then
  362. local map_role_name = "东部废矿"
  363. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  365. elseif map_role == "lonetower" then
  366. local map_role_name = "寂寞之塔"
  367. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  369. elseif map_role == "secretgarden" then
  370. local map_role_name = "竞技花园"
  371. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  373. elseif map_role == "darkswamp" then
  374. local map_role_name = "阴暗沼泽"
  375. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  377. elseif map_role == "abandonedcity" then
  378. local map_role_name = "废灵之都"
  379. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  381. elseif map_role == "abandonedcity2" then
  382. local map_role_name = "废灵之都二层"
  383. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  385. elseif map_role == "abandonedcity3" then
  386. local map_role_name = "废灵之都三层"
  387. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  389. elseif map_role == "puzzleworld" then
  390. local map_role_name = "魔方世界"
  391. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  393. elseif map_role == "puzzleworld2" then
  394. local map_role_name = "魔方世界二层"
  395. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  397. elseif map_role == "teampk" then
  398. local map_role_name = "竞技场"
  399. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  401. elseif map_role == "jialebi" then
  402. local map_role_name = "加勒比"
  403. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  405. elseif map_role == "garner2" then
  406. local map_role_name = "乱斗白银城"
  407. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  409. elseif map_role == "hell" then
  410. local map_role_name = "地狱一层"
  411. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  413. elseif map_role == "hell2" then
  414. local map_role_name = "地狱二层"
  415. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  417. elseif map_role == "hell3" then
  418. local map_role_name = "地狱三层"
  419. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  421. elseif map_role == "hell4" then
  422. local map_role_name = "地狱四层"
  423. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  425. elseif map_role == "hell5" then
  426. local map_role_name = "地狱五层"
  427. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  429. elseif map_role == "guildwar" then
  430. local map_role_name = "圣战"
  431. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  433. elseif map_role == "leiting2" then
  434. local map_role_name = "幻影雷霆"
  435. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  437. elseif map_role == "shalan2" then
  438. local map_role_name = "幻影沙岚"
  439. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  441. elseif map_role == "binglang2" then
  442. local map_role_name = "幻影冰狼"
  443. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  445. elseif map_role == "guildwar2" then
  446. local map_role_name = "小圣战"
  447. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  449. elseif map_role == "yschurch" then
  450. local map_role_name = "伊式教堂"
  451. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  453. elseif map_role == "07xmas" then
  454. local map_role_name = "圣诞村"
  455. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  457. elseif map_role == "sdBoss" then
  458. local map_role_name = "圣诞竞技场"
  459. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  461. elseif map_role == "07xmas2" then
  462. local map_role_name = "逆反圣诞村"
  463. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  465. elseif map_role == "prisonisland" then
  466. local map_role_name = "监狱岛"
  467. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  469. elseif map_role == "starena1" then
  470. local map_role_name = "一号竞技场"
  471. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  473. elseif map_role == "starena2" then
  474. local map_role_name = "二号竞技场"
  475. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  477. elseif map_role == "starena3" then
  478. local map_role_name = "三号竞技场"
  479. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  481. elseif map_role == "winterland" then
  482. local map_role_name = "冬岛群岛"
  483. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  485. elseif map_role == "mjing1" then
  486. local map_role_name = "光明秘境第一境界"
  487. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  489. elseif map_role == "mjing2" then
  490. local map_role_name = "光明秘境第二境界"
  491. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  493. elseif map_role == "mjing3" then
  494. local map_role_name = "暗黑秘境第一境界"
  495. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  497. elseif map_role == "mjing4" then
  498. local map_role_name = "暗黑秘境第二境界"
  499. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  501. elseif map_role == "mingyun" then
  502. local map_role_name = "命运房间"
  503. ScrollNotice(" 魔剑噬魂的持有者 "..name.." 被击败了,魔剑掉在了 "..map_role_name.." 地区的 "..math.floor(x/100)..","..math.floor(y/100).." 附近,第一个拿起它的人将成为其新的主人! ", 1 )
  504. end
  505. end
  509. function Check_Combat_Mod(dead , atk) --[[判定经验奖惩方式]]-- 
  510. --LuaPrint("Enter function Check_Combat_Mod () --[[判定经验奖惩方式]]-- ") 
  511. local rolemod_atker = IsPlayer(atk) 
  512. --LG("exp" , " atker role = " ,  rolemod_atker ) 
  513. local rolemod_defer = IsPlayer(dead)  --检查角色种类：0、怪物， 1、玩家
  514. --LG("exp" , " defer role = " ,  rolemod_defer ) 
  515. if (rolemod_atker==0) and (rolemod_defer==0) then 
  516. return 4 
  517. elseif rolemod_atker==0 and rolemod_defer==1 then 
  518. return 2 
  519. elseif rolemod_atker==1 and rolemod_defer==0 then 
  520. return 1 
  521. elseif rolemod_atker==1 and rolemod_defer==1 then 
  522. return 3 
  523. else 
  524. --LuaPrint("错误的角色类型值".."n") 
  525. return 
  526. end 
  527. --LuaPrint("Out function Check_Combat_Mod () --[[判定经验奖惩方式]]-- ") 
  528. end 
  533. function GetExp_PKM( dead , atk  ) --[[player kill monster 经验值获得公式 所得exp＝exp(d)/math.floor(|lv(a)-lv(b)|*0.1+1)]]--
  534. -- SystemNotice ( atk , "GetExp_PKM")
  535. -- LG ( "exp" , " enter getexp " ) 
  536. --SystemNotice ( atk , "进入GetExp_PKM")
  537. -- local EXP_RAID_STATE = 1
  538. -- local StateLv = GetChaStateLv ( atk , STATE_SBJYGZ )
  541. -- if StateLv >= 0 and StateLv <= 10 then
  542. -- EXP_RAID_STATE = StateLv + 1
  543. -- end
  545. local dead_lv = GetChaAttrI( dead , ATTR_LV ) --获得死者的等级   
  546. local dead_exp = GetChaAttrI( dead , ATTR_CEXP ) * EXP_RAID
  547. LG("exp" , "deadlv = " , dead_lv ) 
  548. LG("exp" , "dead_exp = " , dead_exp ) 
  549. local k = {} 
  550. local kdmg = {} 
  551. local k_exp = {} 
  553. k[0] , kdmg[0] = GetChaHarmByNo ( dead , 0 ) 
  554. -- if ValidCha ( k[0] ) == 0 then 
  555. -- SystemNotice ( atk , "伤害列表首位为空" ) 
  556. -- end 
  557. --SystemNotice ( atk , "攻击伤害排位0号") 
  558. --SystemNotice ( atk , "攻击伤害为"..kdmg[0]) 
  560. k[1] , kdmg[1] = GetChaHarmByNo ( dead , 1 ) 
  561. -- if ValidCha ( k[1] ) == 0 then 
  562. -- SystemNotice ( atk , "伤害列表2位为空" ) 
  563. -- end 
  564. --SystemNotice ( atk , "攻击伤害排位1号") 
  565. --SystemNotice ( atk , "攻击伤害为"..kdmg[1]) 
  567. k[2] , kdmg[2] = GetChaHarmByNo ( dead , 2 ) 
  568. -- if ValidCha ( k[2] ) == 0 then 
  569. -- SystemNotice ( atk , "伤害列表3位为空" ) 
  570. -- end 
  571. --SystemNotice ( atk , "攻击伤害排位2号") 
  572. --SystemNotice ( atk , "攻击伤害为"..kdmg[2]) 
  574. k[3] , kdmg[3] = GetChaHarmByNo ( dead , 3 ) 
  575. -- if ValidCha ( k[3] ) == 0 then 
  576. -- SystemNotice ( atk , "伤害列表4位为空" ) 
  577. -- end 
  578. --SystemNotice ( atk , "攻击伤害排位3号") 
  579. --SystemNotice ( atk , "攻击伤害为"..kdmg[3]) 
  581. k[4] , kdmg[4] = GetChaHarmByNo ( dead , 4 ) 
  582. -- if ValidCha ( k[4] ) == 0 then 
  583. -- SystemNotice ( atk , "伤害列表5位为空" ) 
  584. -- end 
  585. --SystemNotice ( atk , "攻击伤害排位4号") 
  586. --SystemNotice ( atk , "攻击伤害为"..kdmg[4]) 
  587. local first_atker = GetFirstAtker ( dead ) 
  589. local Gen_dmg = 0 
  591. for i = 0 , 4 , 1 do 
  592. if k[i] ~= 0 then 
  593. Gen_dmg = Gen_dmg + kdmg[i] 
  594. --SystemNotice ( atk , "攻击伤害指针不为0的排位"..i) 
  595. --SystemNotice ( atk , "攻击伤害为"..kdmg[i]) 
  596. end 
  597. end 
  598. --SystemNotice ( atk , "总攻击伤害为"..Gen_dmg) 
  599. for i = 0 , 4 , 1 do 
  600. k_exp[i] = 0 
  602. if ValidCha( k[i] )== 1 then 
  603. if kdmg[i] > 0 then 
  604. if k[i] == first_atker then 
  605. k_exp[i] = dead_exp * ( 0.7 * kdmg[i] / Gen_dmg + 0.3 ) --第一位攻击者优先获得30％的怪物总经验
  606. else
  607. k_exp[i] =  dead_exp * 0.7 * kdmg[i] / Gen_dmg 
  608. end
  609. --SystemNotice ( atk , "攻击伤害排位"..i) 
  610. --SystemNotice ( atk , "分配到exp"..k_exp[i]) 
  611. ShareTeamExp ( dead , k[i] , k_exp[i] ,atk ) 
  612. end 
  613. end 
  614. end 
  615. local item_host = 0 
  616. local exp_max = k_exp[0] 
  617. --SystemNotice ( atk , "道具初始归属排位"..0) 
  618. for i = 1 , 4 , 1 do 
  619. --SystemNotice ( atk , "道具归属判定"..i) 
  620. --SystemNotice ( atk , "经验份额"..k_exp[i])
  622. if k_exp [i] > exp_max  then 
  623. exp_max = k_exp[i] 
  624. item_host = i 
  625. --SystemNotice ( atk , "道具更改归属排位"..i) 
  626. end 
  627. end 
  628. if ChaIsBoat (k[item_host] ) == 1 then 
  630. local ship_lv = GetChaAttr ( k[item_host] , ATTR_LV ) 
  631. local shipowner_lv  = GetChaAttr ( TurnToCha ( k[item_host] ) , ATTR_LV )  
  632. local ship_exp = GetChaAttr ( k[item_host] , ATTR_CEXP ) 
  633. local ship_expadd = math.floor ( math.min ( 7 , ( dead_lv / 10 + 2 ) ) ) 
  634. local lv_limit = math.min ( ship_lv , shipowner_lv ) - 10 
  635. if dead_lv >= lv_limit then 
  636. ship_exp = ship_exp + ship_expadd 
  637. SetCharaAttr (  ship_exp , k[item_host] ,ATTR_CEXP ) 
  638. -- SystemNotice ( k[item_host] , "增加船只熟练"..ship_expadd ) 
  640. end 
  641. end 
  642. SetItemHost ( dead , k[item_host] ) 
  644. end 
  647. function ValidCha(ter)
  648.   if ter==nil or ter==0 then 
  649. return 0 
  650.   end
  651.   return 1
  652. end
  654. function ShareTeamExp ( dead , team_atker , dead_exp , The_Killer) 
  655. local cha_name1100 = GetChaDefaultName (team_atker )
  656. local star111=GetChaAttr (  team_atker , ATTR_CEXP )----------当前等级经验
  657. LG("star_exp" , "玩家"..cha_name1100.."当前经验为"..star111.."进入ShareTeamExp" ) 
  658. local atker_role = ChaIsBoat ( team_atker ) 
  659. local monster_location = IsChaInLand ( dead ) 
  660. if atker_role == 1 and monster_location == 1 then 
  661. dead_exp = math.floor ( dead_exp / 5 + 1 ) 
  662. end 
  664. --SystemNotice ( team_atker , "进入ShareTeamExp")
  666. local dead_lv = GetChaAttrI( dead , ATTR_LV ) --获得死者的等级   
  667. --local team_atker = TurnToCha ( team_atker ) --转成人指针
  668. local t = {} 
  669. t[0] = team_atker  
  670. if ValidCha (team_atker) == 0 then 
  671. LG ( "luascript_err" , "function ShareTeamExp : 队伍经验来源者为空" ) 
  672. return 
  673. end 
  674. t[1] = GetTeamCha(team_atker, 0 )  
  675. t[2] = GetTeamCha(team_atker, 1 )   
  676. t[3] = GetTeamCha(team_atker, 2 )    
  677. t[4] = GetTeamCha(team_atker, 3 )
  678.     
  679.     --SystemNotice ( team_atker , "aaaa")
  680. -- LG("harm", "t[0] = ", t[0]," t[1] = ", t[1], "t[2] = ", t[2])
  681. -- LG("harm", "n")
  682.     --local notice = "t[1]="..t[1].." t[2]="..t[2].." t[3]="..t[3].." t[4]="..t[4]
  683.     ----SystemNotice ( team_atker , notice)
  684.     --SystemNotice ( team_atker , "bbbb")
  686.     
  687. local count = 0 
  688. local NewPlayer_CanGet = 0
  689. local NewPlayer_Lv = 0
  690. local NewPlayer_Lv_dif = -100
  691. local Check_Killer = 0
  692. if t[0] == The_Killer then
  693. Check_Killer = 1
  694. end
  695. for i = 0 , 4 , 1 do
  696. if ValidCha( t[i] )== 1  then --被加入组队经验分配的角色必须存在，且对队伍经验的加成和分享也仅由有效成员数起作用
  697. --SystemNotice(team_atker, "开始调用CheckExpShare")
  698. a = CheckExpShare ( t[i] , team_atker ) 
  699. --SystemNotice(team_atker, "结束调用CheckExpShare, 返回值="..a)
  700. if a == 1 then 
  701. count = count + 1 
  702. NewPlayer_Lv = Lv( TurnToCha(t[i]) )
  703. NewPlayer_Lv_dif = dead_lv - NewPlayer_Lv
  704. if NewPlayer_Lv <=30 and NewPlayer_Lv >= 10 and NewPlayer_Lv_dif >= -5 then
  705. NewPlayer_CanGet = NewPlayer_CanGet + 1
  706. end
  707. end 
  708. end 
  709.         end 
  710. if count == 0 then 
  711. LG ("luascript_err" , "function ShareTeamExp : 队员统计count 为 0 " )
  712. return 
  713. end 
  714. local TeamExp_Increas = 0.25 * TeamExp_RAID
  716. --SystemNotice ( team_atker , "被计入经验共享队员数count="..count)
  717. LG("exp" , "deadlv = " , dead_lv ) 
  718. LG("exp" , "dead_exp = " , dead_exp ) 
  719. LG("exp" , "teamer_count = " , count ) 
  720. -------------------------------------------------------------------------------------------------------
  721. -------------------------------------------------------------------------------------------------------
  722. local exp_add = math.floor( dead_exp * ( 1 + (count -1 )* TeamExp_Increas ) ) --总经验
  723. local exp_increase = math.floor ( dead_exp * (count -1 )* TeamExp_Increas ) --附加经验
  725. ---BB调整
  727. LG("exp" , "exp_add = " , exp_add ) 
  729. if count >=2 then
  730. exp_add = exp_add * InTeamGetExp_RAID
  731. end
  733. local exp_up
  735.     --SystemNotice ( team_atker , "开始为队员分配经验")
  736. for i = 0 , 4 , 1 do
  737. if ValidCha(t[i])==1 then --角色不为空
  738. local a = 1 --初始化角色在开始时是否分配经验的监测系数
  739. local b = 1 --初始化角色在开始时分配经验的倍数系数
  740. LG("exp" , "loop = " , i ) 
  742. if i >= 1 then 
  743. -- t[i] = TurnToCha ( t[i] )             --转成人指针
  744. a = CheckExpShare ( t[i] , team_atker )  --经验分配检测 
  745. LG("exp" , "经验分配检测 a =  " , a ) 
  746. exp_up = math.max (1,  math.floor ( exp_add/count ) )  * a 
  747. LG("exp" , "exp_up1  =  " , exp_up ) 
  748. else 
  749. exp_up = math.max ( 1, math.floor ( exp_add/count ) )  
  750. LG("exp" , "exp_up1  =  " , exp_up ) 
  751. --对直接杀怪者做特殊处理 
  752. end 
  754. t_lv = GetChaAttrI ( TurnToCha(t[i]) , ATTR_LV ) 
  756. lv_dis =  t_lv - dead_lv  --与怪物等级差对经验获取倍数的判断
  757. LG ( "exp" , " t_lv = " , t_lv , "  dead_lv = " , dead_lv , "  lv_dis = " , lv_dis ) 
  758. if lv_dis >= 4 then 
  759. b = math.min ( 10 , 1 + ( math.abs ( lv_dis - 4 ) * 0.4 ) )  --与怪物等级差距过大，无法获得全额经验
  760. elseif lv_dis <= -1 * 10 then 
  761. b = math.min ( 4 , 1 + math.abs ( lv_dis - 10)  * 0.1 )      --与怪物等级差距过大，无法获得全额经验 
  762. end 
  763. LG ( "exp" , "exp_up2 =  " , exp_up , " b = " , b , " a = ", a ) 
  765. exp_up = math.floor ( math.max ( 1 , exp_up / b ) ) * a 
  767. LG ( "exp" , "exp_up3 =  " , exp_up) 
  769. if count >=3 and NewPlayer_CanGet <= 0 and Check_Killer == 1 then ---判断获得组队贡献点数
  770. if lv_dis <=3 then
  771. Add_RYZ_TeamPoint ( TurnToCha(t[i]) , count , 1)
  772. end
  773. end
  774. if t_lv >= 50 and NewPlayer_CanGet > 0 and Check_Killer == 1 then
  775. Add_RYZ_TeamPoint ( TurnToCha(t[i]) , 6 , NewPlayer_CanGet)
  776. end
  778. exp = GetChaAttrI ( TurnToCha(t[i]) , ATTR_CEXP ) 
  779. LG("exp" , "exp_original = " , exp ) 
  780. local EXP_RAID_STATE = 1
  781. local StateLv = GetChaStateLv ( t[i] , STATE_SBJYGZ )
  782. EXP_RAID_STATE=SBStateBS[StateLv]
  784. local Item_ZHONGSHEN = CheckItem_ZHONGSHEN(TurnToCha(t[i]))
  785. if SBStateYXJxinyun[StateLv]~=0 or Item_ZHONGSHEN==1 then
  786. local CheckLucky = 0
  787. CheckLucky = CheckLuckyFinish ( StateLv )
  788. if CheckLucky == 1 then
  789. EXP_RAID_STATE = EXP_RAID_STATE * 2
  790. SystemNotice ( TurnToCha(t[i]) , "幸运一击，获得经验值加倍" )
  791. end
  792. if CheckLucky == 2 then
  793. EXP_RAID_STATE = 10
  794. SystemNotice ( TurnToCha(t[i]) , "超级幸运一击，获得10倍经验" )
  795. end
  796. end
  797. ---------------------众神的庇护
  798. if exp_up == 0 then 
  799. LG ( "exp" , "无经验成长" ) 
  800. return 
  801. end
  802. EXP_RAID_STATE=ZB8Debuff(TurnToCha(t[i]),EXP_RAID_STATE)
  803. exp_up = exp_up * EXP_RAID_STATE
  806. ---------------------------------------精灵加经验状态判断
  807. --local Check_star = {}
  808. -- Check_star[0] = t[i]  
  809. -- Check_star[1] = GetTeamCha( t[i] , 0 )  
  810. -- Check_star[2] = GetTeamCha( t[i] , 1 )   
  811. -- Check_star[3] = GetTeamCha( t[i] , 2 )    
  812. -- Check_star[4] = GetTeamCha( t[i] , 3 )
  813. --for m = 0 , 4 , 1 do
  814. -- if ValidCha( Check_star[m] )== 1  then --被加入组队经验分配的角色必须存在
  815. local Item_bg = GetChaItem ( t[i] , 2 , 1  ) --取角色背包第二栏的指针
  816. local Get_Item_Type = GetItemType ( Item_bg ) --调用程序接口获得Item道具类型
  817. if Get_Item_Type==59 then --------判断是否为精灵
  818. local  Item_ID = GetItemID ( Item_bg ) --取ID
  819. local str = GetItemAttr( Item_bg ,ITEMATTR_VAL_STR ) --力量 
  820. local con = GetItemAttr( Item_bg ,ITEMATTR_VAL_CON )  ---体质 
  821. local agi = GetItemAttr( Item_bg ,ITEMATTR_VAL_AGI ) --敏捷 
  822. local dex = GetItemAttr( Item_bg ,ITEMATTR_VAL_DEX )  --专注 
  823. local sta = GetItemAttr( Item_bg ,ITEMATTR_VAL_STA )  --精神 
  824. local URE = GetItemAttr( Item_bg ,ITEMATTR_URE ) --体力 
  825. local MAXURE = GetItemAttr( Item_bg ,ITEMATTR_MAXURE )  --最大体力
  826. local lv_JL = str + con + agi + dex + sta ----一个精灵的等级
  827. local Num_JL = GetItemForgeParam ( Item_bg , 1 )
  828. local Part1 = GetNum_Part1 ( Num_JL ) --Get Num Part 1 到 Part 7
  829. local Part2 = GetNum_Part2 ( Num_JL )
  830. local Part3 = GetNum_Part3 ( Num_JL )
  831. local StateLv1 = GetChaStateLv (t[i] , STATE_JLFT7 )
  832. local StateLv2 = GetChaStateLv (t[i] , STATE_JLFT8 )
  833. local flag=0
  834. if Item_ID==237 and StateLv1~=0 then
  835. flag=1
  836. end
  837. if Item_ID==681 and StateLv2~=0 then
  838. flag=1
  839. end
  840. if flag==1  then ----有id为237或是681号的精灵并且精灵附体技能存在
  841. --if StateLv1 == 1 or StateLv2 == 1 then ---初级
  842. -- exp_up = exp_up*(0.005*lv_JL*0.1+1)
  843. --end
  844. --if StateLv1 == 2 or StateLv2 == 2 then ---中级
  845. -- exp_up = exp_up*(0.0125*lv_JL*0.1+1)
  846. --end
  847. --if StateLv1 == 3 or StateLv2 == 3 then ---高级
  848. -- exp_up = exp_up*(0.025*lv_JL*0.1+1)
  849. --end
  850. if StateLv1 ~= 0 or StateLv2 ~= 0 then 
  851. exp_up = exp_up*(lv_JL*0.02+1)
  852. end
  853. -- URE=URE-4500
  854. end
  855. SetItemAttr ( Item_bg , ITEMATTR_URE , URE ) 
  856. end
  857. -- end
  858. --end
  859. -------------------------------------------
  860. -------------------------------------------
  861. local Check = {}
  862. Check[0] = t[i]  
  863. Check[1] = GetTeamCha( t[i] , 0 )  
  864. Check[2] = GetTeamCha( t[i] , 1 )   
  865. Check[3] = GetTeamCha( t[i] , 2 )    
  866. Check[4] = GetTeamCha( t[i] , 3 )
  868. for j = 0 , 4 , 1 do
  869. if ValidCha( Check[j] )== 1  then --被加入组队经验分配的角色必须存在
  870. local star = IsTeamLeader( Check[j] )
  871. if star==1 then -------------判断队长
  872. local StateLv = GetChaStateLv ( Check[j] , STATE_ZDSBJYGZ )
  873. local Isshare = CheckExpShare ( t[i] , Check[j])
  874. --SystemNotice ( TurnToCha(t[i]) , "Isshare" )
  875. if StateLv == 1 and Isshare == 1 then
  876. exp_up = 1.5*exp_up
  877. end
  878. end
  879. end
  880. end
  883. ----------------------------------------------
  884. ----------------------------------------------圣战打精灵草随机属性
  885.      --Notice("come here")
  886.      local map_name_atk = GetChaMapName ( The_Killer )
  887.      local map_name_def = GetChaMapName ( dead )
  888.      if map_name_atk == "guildwar" or map_name_def == "guildwar" then
  889.        local normal_monster =  GetChaID(dead)
  890.   --Notice("normal_monster=="..normal_monster)
  891.        if normal_monster == 220 then  ---紫色
  892.    --AddState ( The_Killer , The_Killer , STATE_JRQKL , 10 , 180 )
  893.    AddState ( The_Killer , The_Killer , STATE_HFZQ , 10 , 10 )
  894.        end
  895.        if normal_monster == 219 then  -----蓝色
  896.            AddState ( The_Killer , The_Killer , STATE_QINGZ , 10 , 300 )
  897.        end
  898.        if normal_monster == 217 then  -----红色
  899.            AddState ( The_Killer , The_Killer , STATE_JRQKL , 10 , 180 )
  900.        end
  901.        if normal_monster == 218 then -----黄色
  902.            AddState ( The_Killer , The_Killer , STATE_YS , 10 , 300 )
  903.        end
  904.       elseif map_name_atk == "guildwar2" or map_name_def == "guildwar2" then
  905.        local normal_monster =  GetChaID(dead)
  906.   --Notice("normal_monster=="..normal_monster)
  907.        if normal_monster == 220 then  ---紫色
  908.    --AddState ( The_Killer , The_Killer , STATE_JRQKL , 10 , 180 )
  909.    AddState ( The_Killer , The_Killer , STATE_HFZQ , 10 , 10 )
  910.        end
  911.        if normal_monster == 219 then  -----蓝色
  912.            AddState ( The_Killer , The_Killer , STATE_QINGZ , 10 , 300 )
  913.        end
  914.        if normal_monster == 217 then  -----红色
  915.            AddState ( The_Killer , The_Killer , STATE_JRQKL , 10 , 180 )
  916.        end
  917.        if normal_monster == 218 then -----黄色
  918.            AddState ( The_Killer , The_Killer , STATE_YS , 10 , 300 )
  919.        end
  920.      end
  923. ----------------------------------------
  924. -----------------------------------------团队之星处理
  925. local expGetNow = exp_up --当前角色正常打怪可可获得的经验
  926. local expCanGive = 0
  927. t[i] = TurnToCha ( t[i]  )-- 海洋处理
  928. local ptnItem = GetEquipItemP( t[i] , 8)--取到道具指针 pointer
  929. local IdItem = GetItemID ( ptnItem )
  930. local lvPerson = GetChaAttr(t[i] , ATTR_LV)
  931. --Notice ( "进行到这里" )
  932. if IdItem==1034 and lvPerson < 41 then
  933. local expItemNow = GetItemAttr( ptnItem , ITEMATTR_URE)*10   --100初始值
  934. local expItemMax = GetItemAttr ( ptnItem , ITEMATTR_MAXURE)*10
  935. local retIsInTeam = IsInTeam(t[i] )
  936. if retIsInTeam ~= LUA_TRUE then --触发石头经验储存机制
  937. expItemNow = expItemNow + expGetNow
  938. if expItemNow >= expItemMax then
  939. expItemNow = expItemMax
  940. end
  941. else --组队了
  942. if HasTeammate(t[i] ,0, 5) == LUA_TRUE then---没有比自己小5级的队友
  943. local ptnLowLvPlayer = returnLowLVPlayer( t[i], t[0], t[1], t[2], t[3], t[4]) --返回队伍中比自己等级小5的人物指
  944. if ValidCha(ptnLowLvPlayer) == 1 then      --人没死的处理
  946. local expCanUse = expItemNow - 1000 --经验返还处理
  947. if expGetNow * 2>= expCanUse then
  948. expCanGive = expCanUse
  949. expItemNow = 1000
  950. else
  951. expItemNow = expItemNow - expGetNow*2
  952. expCanGive = expGetNow * 2
  953. end
  954. if expItemNow <= 1000 then
  955. expItemNow = 1000
  956. end
  957. exp_up = exp_up + expCanGive
  958. else --死了的处理
  959. expCanGive = 0
  960. exp_up = exp_up + expCanGive
  961. end
  963. local expCanUse = expItemNow - 1000
  966. end
  967. end
  968. expItemNow= math.floor(expItemNow/10)
  969. SetItemAttr ( ptnItem ,ITEMATTR_URE , expItemNow )
  970. end
  971. ---------------------------------
  972. ---------------------------------
  973. -----------------------------------------
  974. if exp_up > 20000 then
  975. local cha_name = GetChaDefaultName ( TurnToCha(t[i]) )
  976. local Monster_name = GetChaDefaultName ( dead )
  977. LG ( "Big_exp" ,"角色"..cha_name.."攻击"..Monster_name.."获得"..exp_up.."经验" )
  978. end
  979. --SystemNotice ( team_atker , "经验为"..exp)
  980. --SystemNotice ( team_atker , "获得经验为"..exp_up)
  981. --SystemNotice ( TurnToCha(t[i]) , "exp = "..exp )
  982. if exp<DEXP[80] and (exp+exp_up)>DEXP[80] then
  983. --SystemNotice ( TurnToCha(t[i]) , "DEXP[80] = "..DEXP[80] )
  984. --SystemNotice ( TurnToCha(t[i]) , "exp_up前 = "..exp_up)
  985. exp_up =math.floor((DEXP[80]-exp) +(exp_up-(DEXP[80]-exp))/50)
  986. --SystemNotice ( TurnToCha(t[i]) , "exp_up后 = "..exp_up)
  987. end                                                                                  -------------避免79级到80级之后，拿到超出额度的经验 Jack
  989. if Lv ( TurnToCha(t[i]) ) >= 80 then 
  990. exp_up = math.floor ( exp_up / 50 ) 
  991. end 
  992. --防沉迷系数  
  993. local retExpState = GetExpState(t[i])
  995. if exp_up == 0 and retExpState ~= 0 then 
  996. SystemNotice ( TurnToCha(t[i]) , "实力差距太大，无法获得实战经验" )
  997. end 
  1000. --Notice("打怪获取经验的防沉迷系数为"..retExpState)
  1001. --Notice("防沉迷之前的exp"..exp_up)
  1003. exp_up =exp_up *GetExpState(t[i])/100
  1004. --Notice("防沉迷之后的exp"..exp_up)
  1006. --SystemNotice ( TurnToCha(t[i]) , "没做加成前的得到的exp_up = "..exp_up)
  1008. local expraid = LV_EXP[Lv ( TurnToCha(t[i]) )]
  1009. exp_up=math.floor(exp_up*expraid)
  1011. --SystemNotice ( TurnToCha(t[i]) , "经过各种计算后得到的exp_up = "..exp_up)
  1013. exp = exp + exp_up  
  1016. -- local lv = GetChaAttr(TurnToCha(t[i]), ATTR_LV)
  1017. -- if lv == 100 then
  1018. -- local a = CheckBagItem ( TurnToCha(t[i]), 171 )
  1019. -- --SystemNotice( TurnToCha(t[i]), "数目="..a)
  1020. -- if a == 1 then
  1021. -- local role_jyp = GetChaItem2 ( TurnToCha(t[i]), 2, 171)
  1022. -- local exp_store = GetItemAttr ( role_jyp, ITEMATTR_VAL_PARAM1 )
  1023. -- --SystemNotice( TurnToCha(t[i]), "原NUM="..exp_store)
  1024. -- exp_store = exp_store+exp_up
  1025. -- --SystemNotice( TurnToCha(t[i]), "现NUM="..exp_store)
  1026. -- SetItemAttr ( role_jyp, ITEMATTR_VAL_PARAM1, exp_store)
  1027. -- SystemNotice( TurnToCha(t[i]), "你的经验瓶中的积分增加了"..exp_up)
  1028. -- else
  1029. -- SetChaAttrI ( TurnToCha(t[i]) , ATTR_CEXP, exp )
  1030. -- end
  1031. -- else
  1032. -- SetChaAttrI ( TurnToCha(t[i]) , ATTR_CEXP, exp )
  1033. -- LG("exp" , "exp_now = " , exp ) 
  1034. -- end
  1035. SetChaAttrI ( TurnToCha(t[i]) , ATTR_CEXP, exp ) 
  1036. LG("exp" , "exp_now = " , exp ) 
  1037. else 
  1038.         --SystemNotice ( team_atker , "队员排位["..i.."]的值为空")
  1039. end 
  1040. end 
  1041. local star112=GetChaAttr (  team_atker , ATTR_CEXP )----------当前等级经验
  1042. LG("star_exp" , "玩家"..cha_name1100.."当前经验为"..star112.."结束ShareTeamExp" ) 
  1043. LG("exp" , "end getexp " )
  1044. end 
  1046. function returnLowLVPlayer(PlayerNow,Player1,Player2,Player3,Player4,Player5)    --返回队伍中比自己等级小5级的玩家指针
  1047. local lvPlayerNow = GetChaAttr(PlayerNow, ATTR_LV)
  1048. PlayerNow = TurnToCha(PlayerNow)
  1049. Player1 = TurnToCha(Player1)
  1050. Player2 = TurnToCha(Player2)
  1051. Player3 = TurnToCha(Player3)
  1052. Player4 = TurnToCha(Player4)
  1053. Player5 = TurnToCha(Player5)
  1055. if ValidCha(Player1) == 1 then
  1056. local lvPlayer1 = GetChaAttr(Player1, ATTR_LV)
  1057. if lvPlayerNow > lvPlayer1 + 5 then
  1058. return Player1
  1059. end
  1060. end
  1062. if ValidCha(Player2) == 1 then
  1063. local lvPlayer2 = GetChaAttr(Player2, ATTR_LV)
  1064. if lvPlayerNow > lvPlayer2 + 5 then
  1065. return Player2
  1066. end
  1067. end
  1069. if ValidCha(Player3) == 1 then
  1070. local lvPlayer3 = GetChaAttr(Player3, ATTR_LV)
  1071. if lvPlayerNow > lvPlayer3 + 5 then
  1072. return Player3
  1073. end
  1074. end
  1076. if ValidCha(Player4) == 1 then
  1077. local lvPlayer4 = GetChaAttr(Player4, ATTR_LV)
  1078. if lvPlayerNow > lvPlayer4 + 5 then
  1079. return Player4
  1080. end
  1081. end
  1083. if ValidCha(Player5) == 1 then
  1084. local lvPlayer5 = GetChaAttr(Player5, ATTR_LV)
  1085. if lvPlayerNow > lvPlayer5 + 5 then
  1086. return Player5
  1087. end
  1088. end
  1090. return 0
  1091. end
  1093. function CheckExpShare ( ti , atk ) --ti如果atk相等那就有问题了
  1094. if ValidCha(ti)==0 then 
  1095. LG ( "luascript_err" , "fucntion CheckExpShare : 队伍成员为空n" ) 
  1096. return 0
  1097. end 
  1099. if IsInSameMap ( atk , ti ) == 0   then 
  1100. --SystemNotice( atk , "由于所在地图不同，您无法与某些队友分享战斗经验") 
  1101. return 0 
  1102. end 
  1104. local pos_ti_x , pos_ti_y = GetChaPos ( ti ) 
  1105. if ValidCha( atk ) == 0 then 
  1106. LG ( "luascript_err" , "fucntion CheckExpShare : 杀怪者为空n" ) 
  1107. return 0
  1108. end 
  1111. local pos_atk_x , pos_atk_y = GetChaPos ( atk ) 
  1112. local distance = Dis ( pos_ti_x , pos_ti_y , pos_atk_x , pos_atk_y ) 
  1113. if distance >= 4000 then 
  1114. -- HelpInfo(ti,0,"由于相隔太远，您无法与您的某些队友分享战斗经验") 
  1115. return 0 
  1116. end 
  1117. if IsChaInRegion ( ti , AREA_SAFE ) == 1 then 
  1118. -- HelpInfo(ti,0,"由于处于安去区，您无法与您的队友分享战斗经验") 
  1119. return 0 
  1120. end 
  1121. return 1 
  1122. end 
  1125. function Dead_Punish ( dead , atk ) --死亡惩罚
  1127. local dead_lv=GetChaAttr(dead, ATTR_LV) --100级人物状态死亡不扣经验
  1128. if dead_lv>=100 then
  1129. SystemNotice (dead , "内测期间，100级以上玩家死亡不损失经验" )
  1130. return
  1131. end
  1133. local Cha_Boat = GetCtrlBoat ( dead ) --100级船只状态死亡不扣经验
  1134. if Cha_Boat ~= nil then
  1135. SystemNotice( dead , "内测期间，玩家在海上死亡不损失经验" )
  1136. return
  1137. end
  1139. --SystemNotice ( atk , "Dead_Punish")
  1140. local item_num=0
  1141. local item=0
  1142. item_num = CheckBagItem(  atk , 5803  ) --检查背包内5803号道具的数量
  1143. --SystemNotice ( atk , "item_num=="..item_num)
  1144. if item_num==1 then
  1145. -- SystemNotice ( atk , "come here")
  1146. item=GetChaItem2 (  atk , 2 , 5803 ) ---取5803号道具指针
  1147. local kill_num=0
  1148. kill_num=GetItemAttr(item,ITEMATTR_VAL_STR)
  1149. kill_num=kill_num+1
  1150. SetItemAttr ( item ,ITEMATTR_VAL_STR , kill_num )
  1151. end
  1153. ----------圣诞
  1154. local Role_ID = GetRoleID(dead)
  1155.  BBBB[ Role_ID ] = 0
  1156. ------------------
  1157. local map_name = GetChaMapName ( dead )
  1158. if map_name == "leiting2" or map_name == "binglang2" or map_name == "shalan2" or map_name == "guildwar" or map_name == "guildwar2" then
  1159. return
  1160. end
  1163. local map_name = GetChaMapName ( dead )
  1164. if map_name == "garner2" then
  1165. SetCharaAttr(0, dead, ATTR_SP)
  1166. return
  1167. end
  1168. dead = TurnToCha ( dead ) 
  1169. local lv = GetChaAttr( dead, ATTR_LV ) 
  1170. local check_pirate=CheckItem_pirate(dead)
  1171. local check_death=CheckItem_Death(dead)
  1172. local Check_ZHONGSHEN = CheckItem_ZHONGSHEN ( dead )
  1173. local Time = os.date("%H")
  1174. local TimeNum = tonumber(Time)
  1176. if lv<=10 then
  1177. return 
  1178. end --[[判定大于10级扣除经验]]--
  1179. if lv >= 70 and check_pirate ==1 then
  1180. if TimeNum<=6 or TimeNum >=18 then
  1181. SystemNotice (dead , "受到月光祝福，死亡不扣除经验和装备耐久" ) 
  1182. return
  1183. end
  1184. end
  1185. if lv >= 75 and check_death ==1 then
  1186. if TimeNum<=6 or TimeNum >=18 then
  1187. SystemNotice (dead , "受到死神庇佑，死亡不扣除经验和装备耐久" ) 
  1188. return
  1189. end
  1190. end
  1191. if lv >= 95 and Check_ZHONGSHEN ==1 then
  1192. SystemNotice (dead , "受到众神庇佑，死亡不扣除经验和装备耐久" ) 
  1193. return
  1194. end
  1195. local exp_red 
  1196. local exp = Exp(dead) 
  1197. local nlexp = GetChaAttrI ( dead , ATTR_NLEXP ) 
  1198. local clexp = GetChaAttrI ( dead , ATTR_CLEXP ) 
  1199. if  exp <= clexp then 
  1200. exp_red = 0 
  1201. else 
  1202. exp_red = math.min ( math.floor ( math.abs( nlexp - clexp ) * 0.02 ) , math.max ( exp - clexp , 0 ) ) 
  1203. end 
  1204. SetCharaAttr(0, dead, ATTR_SP) 
  1205. local i1 = CheckBagItem( dead,3846 )
  1206. local i2 = CheckBagItem( dead,3047 )
  1207. local i3 = CheckBagItem( dead,5609 )---------------------------------替身令牌kokora
  1208. local i4 = CheckBagItem( dead,6396 )---------------------------------替身令牌（女生专区）
  1210. if map_name == "secretgarden" or map_name == "teampk" then
  1211. SetCharaAttr(0, dead, ATTR_SP)
  1212. return
  1213. end
  1215. local i= CheckBagItem( dead, 2954 )-------死亡证明
  1216. --SystemNotice( dead , "i=="..i)
  1217. if i==1 then
  1218. local Dead_BK = GetChaItem2 ( dead , 2 , 2954 )
  1219. local DeadPoint=GetItemAttr ( Dead_BK , ITEMATTR_VAL_STR)
  1220. --SystemNotice( dead , "DeadPoint之前为=="..DeadPoint)
  1222. local DeadPoint=DeadPoint+1
  1223. SetItemAttr( Dead_BK , ITEMATTR_VAL_STR , DeadPoint )
  1224. local DeadPoint1=GetItemAttr ( Dead_BK , ITEMATTR_VAL_STR)
  1225. --SystemNotice( dead , "DeadPoint现在为=="..DeadPoint1)
  1227. if DeadPoint>=100 then
  1228. end
  1229. end
  1230. -------------------女生专区--------------替身令牌
  1231. if i4 ~= 0 then
  1232. local j2 = TakeItem( dead,0,6396,1)
  1233. if j2 == 0  then
  1234. LG ( "NewItem" , "替身令牌删除失败" )
  1235. SystemNotice ( dead , "替身令牌删除失败" )
  1236. exp = Exp(dead) - exp_red 
  1237. if Lv ( dead ) >= 80 then 
  1238. exp_red_80 = exp_red * 50 
  1239. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1240. else 
  1241. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1242. end 
  1243. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1244. if lv > 20 then
  1245. Dead_Punish_ItemURE ( dead )
  1246. end
  1247. else
  1248. SystemNotice ( dead , "由替身令牌代替死亡,免予经验和耐久惩罚" )
  1249. return
  1250. end
  1251. end
  1253. if i1 <= 0 and i2 <= 0 and  i3 <= 0then ---没娃娃没宝宝没替身令牌kokora
  1254. exp = Exp(dead) - exp_red 
  1255. if Lv ( dead ) >= 80 then 
  1256. exp_red_80 = exp_red * 50 
  1257. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1258. else 
  1259. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1260. end 
  1261. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1262. if lv > 20 then
  1263. Dead_Punish_ItemURE ( dead )
  1264. end
  1266. elseif i1~=0 and i2==0 and  i3==0 then --有娃娃没宝宝没替身令牌kokora
  1267. local j1 = TakeItem( dead,0,3846,1)
  1268. if j1 == 0  then
  1269. LG ( "NewItem" , "替身娃娃删除失败" )
  1270. SystemNotice ( dead , "替身娃娃删除失败" )
  1271. exp = Exp(dead) - exp_red 
  1272. if Lv ( dead ) >= 80 then 
  1273. exp_red_80 = exp_red * 50 
  1274. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1275. else 
  1276. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1277. end 
  1278. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1279. if lv > 20 then
  1280. Dead_Punish_ItemURE ( dead )
  1281. end
  1282. else
  1283. SystemNotice ( dead , "由替身娃娃代替死亡,免予经验和耐久惩罚" )
  1284. end
  1285. elseif i2~=0 and  i1==0 and i3==0  then --有宝宝没娃娃没替身令牌kokora
  1286. local j2 = TakeItem( dead,0,3047,1)
  1287. if j2 == 0  then
  1288. LG ( "NewItem" , "替身宝宝删除失败" )
  1289. SystemNotice ( dead , "替身宝宝删除失败" )
  1290. exp = Exp(dead) - exp_red 
  1291. if Lv ( dead ) >= 80 then 
  1292. exp_red_80 = exp_red * 50 
  1293. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1294. else 
  1295. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1296. end 
  1297. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1298. if lv > 20 then
  1299. Dead_Punish_ItemURE ( dead )
  1300. end
  1301. else
  1302. SystemNotice ( dead , "由替身宝宝代替死亡,免予经验和耐久惩罚" )
  1303. end
  1304. elseif i3~=0 and i1==0 and  i2==0  then --有替身令牌没娃娃没宝宝kokora
  1305. local j2 = TakeItem( dead,0,5609,1)
  1306. if j2 == 0  then
  1307. LG ( "NewItem" , "替身令牌删除失败" )
  1308. SystemNotice ( dead , "替身令牌删除失败" )
  1309. exp = Exp(dead) - exp_red 
  1310. if Lv ( dead ) >= 80 then 
  1311. exp_red_80 = exp_red * 50 
  1312. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1313. else 
  1314. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1315. end 
  1316. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1317. if lv > 20 then
  1318. Dead_Punish_ItemURE ( dead )
  1319. end
  1320. else
  1321. SystemNotice ( dead , "由替身令牌代替死亡,免予经验和耐久惩罚" )
  1322. end
  1323. elseif i1~=0 and i2~=0 and  i3==0 then --有娃娃有宝宝没替身令牌kokora 先删除娃娃
  1324. local j1 = TakeItem( dead,0,3846,1)
  1325. if j1 == 0  then
  1326. LG ( "NewItem" , "替身娃娃删除失败" )
  1327. SystemNotice ( dead , "替身娃娃删除失败" )
  1328. exp = Exp(dead) - exp_red 
  1329. if Lv ( dead ) >= 80 then 
  1330. exp_red_80 = exp_red * 50 
  1331. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1332. else 
  1333. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1334. end 
  1335. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1336. if lv > 20 then
  1337. Dead_Punish_ItemURE ( dead )
  1338. end
  1339. else
  1340. SystemNotice ( dead , "由替身娃娃代替死亡,免予经验和耐久惩罚" )
  1341. end
  1342. elseif i2~=0 and  i3~=0 and i1==0  then --有宝宝有替身令牌没娃娃kokora先删除宝宝
  1343. local j2 = TakeItem( dead,0,3047,1)
  1344. if j2 == 0  then
  1345. LG ( "NewItem" , "替身宝宝删除失败" )
  1346. SystemNotice ( dead , "替身宝宝删除失败" )
  1347. exp = Exp(dead) - exp_red 
  1348. if Lv ( dead ) >= 80 then 
  1349. exp_red_80 = exp_red * 50 
  1350. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1351. else 
  1352. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1353. end 
  1354. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1355. if lv > 20 then
  1356. Dead_Punish_ItemURE ( dead )
  1357. end
  1358. else
  1359. SystemNotice ( dead , "由替身宝宝代替死亡,免予经验和耐久惩罚" )
  1360. end
  1361. elseif i1~=0 and i3~=0 and  i2==0 then --有娃娃有替身令牌没宝宝kokora 先删除娃娃
  1362. local j1 = TakeItem( dead,0,3846,1)
  1363. if j1 == 0  then
  1364. LG ( "NewItem" , "替身娃娃删除失败" )
  1365. SystemNotice ( dead , "替身娃娃删除失败" )
  1366. exp = Exp(dead) - exp_red 
  1367. if Lv ( dead ) >= 80 then 
  1368. exp_red_80 = exp_red * 50 
  1369. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1370. else 
  1371. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1372. end 
  1373. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1374. if lv > 20 then
  1375. Dead_Punish_ItemURE ( dead )
  1376. end
  1377. else
  1378. SystemNotice ( dead , "由替身娃娃代替死亡,免予经验和耐久惩罚" )
  1379. end
  1380. elseif i1~=0 and i2~=0 and  i3~=0 then --有娃娃有替身令牌有宝宝kokora 先删除娃娃
  1381. local j1 = TakeItem( dead,0,3846,1)
  1382. if j1 == 0  then
  1383. LG ( "NewItem" , "替身娃娃删除失败" )
  1384. SystemNotice ( dead , "替身娃娃删除失败" )
  1385. exp = Exp(dead) - exp_red 
  1386. if Lv ( dead ) >= 80 then 
  1387. exp_red_80 = exp_red * 50 
  1388. SystemNotice (dead , "由于死亡丢失经验"..exp_red_80 ) 
  1389. else 
  1390. SystemNotice (dead , "由于死亡丢失经验"..exp_red ) 
  1391. end 
  1392. SetChaAttrI( dead , ATTR_CEXP , exp ) --[[扣除死亡玩家所在级别经验的2％]]--
  1393. if lv > 20 then
  1394. Dead_Punish_ItemURE ( dead )
  1395. end
  1396. else
  1397. SystemNotice ( dead , "由替身娃娃代替死亡,免予经验和耐久惩罚" )
  1398. end
  1399. end
  1401. local name = GetChaDefaultName ( dead )
  1402. local exp_new = ( exp - clexp ) / ( nlexp - clexp )
  1403. LG ( "die_exp" , "角色名" , name , "当前等级 = ", lv , "死亡扣除经验值 = " , exp_red , "最新经验比例 = " , exp_new )
  1405. local mars = 0
  1406. for mars = 0 , 4 , 1 do
  1407. if name == CheckDmgChaNameTest [mars] then
  1408. LG ( "whydie" , name.."挂了" )
  1409. end
  1410. end
  1411. end 
  1414. function GetExp_MKP(dead , atk) --[[player kill monster 经验值改变公式]]-- 
  1415. --LuaPrint("Enter function GetExp_MKP() --[[player kill monster 经验值改变公式]]--") 
  1416. local ZBMain= GetChaAttr(dead,ATTR_EXTEND0)
  1417. local ZBNType= math.floor(ZBMain/10)      ---第几次占卜
  1418. local ZBNMain= math.mod(ZBMain,10 ) ---BUFF OR DEBUFF
  1419. local ZBday = GetChaAttr(dead,ATTR_EXTEND2) --占卜天数
  1420. local ZBstate=GetChaAttr(dead, ATTR_EXTEND1) --
  1421. local ZBstate1=math.floor(ZBstate/10) --占卜效果注册
  1422. local ZBstate2=math.mod(ZBstate,10) --占卜类型
  1423. local now_day=os.date("%d")
  1424. now_day=tonumber(now_day)
  1425. if now_day==ZBday and ZBstate2==0 and ZBstate1~=0 then
  1426. SystemNotice(dead,"占卜获得死亡没有惩罚，不扣经验")
  1427. return
  1428. end
  1429. Dead_Punish( dead , atk) 
  1430. --LuaPrint("Out function GetExp_MKP() --[[player kill monster 经验值改变公式]]--") 
  1431. end 
  1433. function GetExp_PKP(dead , atk) --[[player kill player 经验值改变公式]]-- 
  1434. --LuaPrint("Enter function GetExp_MKP() --[[player kill monster 经验值改变公式]]--") 
  1435. -- Dead_Punish( dead , atk) 
  1436. --LuaPrint("Out function GetExp_MKP() --[[player kill monster 经验值改变公式]]--") 
  1437. end 
  1439. function GetExp_Noexp(dead , atk) --[[无奖惩经验值改变公式]]-- 
  1440. --LuaPrint("Enter function GetExp_Noexp() --[[无奖惩经验值改变公式]]-- ".."n" ) 
  1441. --LuaPrint("Out function GetExp_Noexp() --[[无奖惩经验值改变公式]]-- ".."n" ) 
  1442. end 
  1448. --角色非技能性复活脚本————————————————————————————————————————————
  1450. function Relive ( role )
  1451. local mxhp = GetChaAttr ( role , ATTR_MXHP ) 
  1452. local mxsp = GetChaAttr ( role , ATTR_MXSP ) 
  1453. local hp = math.max ( 1, math.floor(  ( mxhp * 0.01 ) + 0.5 ) ) 
  1454. local sp = math.max ( 1, math.floor(  ( mxsp * 0.01 ) + 0.5 ) ) 
  1455. SetCharaAttr ( hp , role , ATTR_HP ) 
  1456. SetCharaAttr ( sp , role , ATTR_SP ) 
  1457. end 
  1459. --角色技能性复活脚本————————————————————————————————————————————
  1461. function Relive_now ( role , sklv ) 
  1462. local cha_role = TurnToCha ( role ) 
  1463. local hp = math.max ( 1 , math.floor ( 0.05 * sklv * Mxhp ( cha_role ) ) ) 
  1464. local sp = math.max ( 1 , math.floor ( 0.05 * sklv * Mxsp ( cha_role ) ) ) 
  1465. SetCharaAttr ( hp , cha_role , ATTR_HP ) 
  1466. SetCharaAttr ( sp , cha_role , ATTR_SP ) 
  1467. end 
  1472. --船只死亡最大耐久减少——————————————————————————————————————————————————————————————
  1474. function   Ship_ShipDieAttr ( role ) 
  1475. local bmxhp = GetChaAttr ( role , ATTR_BMXHP ) 
  1476. local dead_count = GetChaAttr ( role , ATTR_BOAT_DIECOUNT ) 
  1477. LG ( "shipmxhp" , "___a new dead ship_____________________________________________________" ) 
  1478. LG ( "shipmxhp" , "role = " , role ,  "dead_count = " , dead_count , "form_mxhp = " , bmxhp ) 
  1479. bmxhp = bmxhp * math.max ( 0 , ( 1 - 0.02 - dead_count * 0.01 )  ) 
  1480. LG ( "shipmxhp" , "role = " , role ,   "now_mxhp = " , bmxhp ) 
  1481. SetCharaAttr ( bmxhp , role , ATTR_BMXHP ) 
  1482. end  
  1485. function BoatLevelUpProc ( cha, boat, levelup, exp, money ) 
  1486. if ValidCha( cha ) == 0 then 
  1487. LG ( "luascript_err" , "function BoatLevelUpProc : cha 为空" ) 
  1488. return 0 
  1489. end 
  1490. if ValidCha( boat ) == 0 then 
  1491. LG ( "luascript_err" , "function BoatLevelUpProc : boat 为空" ) 
  1492. return 0 
  1493. end 
  1494. PRINT( "BoatLevelUpProc: levelup = , exp = , money = ", levelup, exp, money )
  1495. local lv_up = levelup 
  1496. local req_exp = exp 
  1497. local req_gold = money 
  1498. local boat_lv = GetChaAttr ( boat , ATTR_LV ) 
  1499. if boat_lv ~= lv_up - 1 then 
  1500. PRINT( "BoatLevelUpProc:function BoatLevelUpProc :船只当前等级与想要提升的等级不匹配" )
  1501. LG ( "luascript_err" , "function BoatLevelUpProc :船只当前等级与想要提升的等级不匹配" )
  1502. return 0 
  1503. end 
  1505. local boat_exp = GetChaAttr ( boat , ATTR_CEXP ) 
  1506. if boat_exp < req_exp then 
  1507. SystemNotice ( cha , "船只熟练不足无法提升船只等级，加油修练～") 
  1508. return 0 
  1509. end 
  1511. local cha_money = GetChaAttr ( cha , ATTR_GD ) 
  1512. if cha_money < req_gold then 
  1513. SystemNotice ( cha , "金钱不足无法提升船只等级，努力赚钱～") 
  1514. return 0 
  1515. end 
  1516. PRINT( "BoatLevelUpProc: boat_exp, req_exp, cha_money, req_gold", boat_exp, req_exp, cha_money, req_gold )
  1517. SetAttrChangeFlag( boat)
  1518. SetAttrChangeFlag( cha)
  1520. boat_exp = boat_exp - req_exp 
  1521. SetCharaAttr ( boat_exp , boat , ATTR_CEXP ) 
  1522. cha_money = cha_money - req_gold 
  1523. SetCharaAttr ( cha_money , cha , ATTR_GD ) 
  1524. SetCharaAttr ( lv_up , boat , ATTR_LV ) 
  1525. ALLExAttrSet ( boat ) 
  1526. SystemNotice ( cha , "船只升级成功") 
  1527. SystemNotice ( cha , "扣除金钱"..req_gold) 
  1528. SystemNotice ( cha , "消耗船只熟练"..req_exp) 
  1529. SyncBoat ( boat, 4 )
  1530. SyncChar ( cha, 4 )
  1531. PRINT( "BoarLevelUpProc: return 1" )
  1532. return 1 
  1534. end 
  1539. function Ship_Tran (  buyer , boat ) 
  1540. local ship_lv = GetChaAttr ( boat , ATTR_LV ) 
  1541. local ship_exp = GetChaAttr ( boat , ATTR_CEXP ) 
  1542. -- if ValidCha ( seller ) == 0 then 
  1543. -- LG ( "luascript_err"  , "function Ship_Tran : seller 为空"  ) 
  1544. -- return 
  1545. -- end 
  1546. -- if ValidCha ( buyer ) == 0 then 
  1547. -- LG ( "luascript_err"  , "function Ship_Tran : buyer 为空"  ) 
  1548. -- return 
  1549. -- end 
  1550. SetAttrChangeFlag( boat)
  1552. ship_lv = math.max ( 1 , math.max (math.floor ( ship_lv /2 ), ship_lv - 10 ) )  
  1553. ship_exp = 0 
  1554. SetCharaAttr ( ship_exp , boat , ATTR_CEXP ) 
  1555. SetCharaAttr ( ship_lv , boat , ATTR_LV ) 
  1556. SystemNotice ( buyer , "交易后，船只等级为"..ship_lv )
  1557. SystemNotice ( buyer , "交易后，船只经验为"..ship_exp )  
  1559. SyncBoat ( boat, 4 )
  1560. end 
  1563. --幸运一击
  1564. -- function CheckLuckyFinish ( StateLv )
  1565. -- if StateLv == 4 then
  1566. -- local Huge_Lucky = Percentage_Random ( 0.01 )
  1567. -- if Huge_Lucky == 1 then
  1568. -- return 2
  1569. -- end
  1570. -- end
  1572. -- local a = 0.1
  1573. -- local b = Percentage_Random ( a )
  1574. -- return b
  1575. -- end
  1577. function ZBexpadd(atk,expaddZB)
  1578. local ZBMain= GetChaAttr(atk,ATTR_EXTEND0)
  1579. local ZBNType= math.floor(ZBMain/10)      ---第几次占卜
  1580. local ZBNMain= math.mod(ZBMain,10 ) ---BUFF OR DEBUFF
  1581. local ZBday = GetChaAttr(atk,ATTR_EXTEND2) --占卜天数
  1582. local ZBstate=GetChaAttr(atk, ATTR_EXTEND1) --
  1583. local ZBstate1=math.floor(ZBstate/10) --占卜效果注册
  1584. local ZBstate2=math.mod(ZBstate,10) --占卜类型
  1585. local now_day=os.date("%d")
  1586. now_day=tonumber(now_day)
  1587. local ZBStateLV = {}
  1588. ZBStateLV[0]={}
  1589. ZBStateLV[0][0] =0 
  1590. ZBStateLV[1] = {}
  1591. ZBStateLV[1][1] = 2
  1592. ZBStateLV[1][2] = 4
  1593. ZBStateLV[1][3] = 6
  1594. ZBStateLV[1][4] = 8
  1595. ZBStateLV[1][5] = 10
  1596. if now_day==ZBday and ZBstate2==1 then
  1597. expaddZB=math.floor(expaddZB*(1+ZBStateLV[ZBstate2][ZBstate1]/100))
  1598. end
  1599. return expaddZB
  1600. end
  1601. function ZB8Debuff(role,expraid)
  1602. local zbState=ZBNowState(role)
  1603. local expraid1=expraid
  1604. if zbState==-81 then 
  1605. expraid1 =expraid*0.9
  1606. end
  1607. if zbState==-82 then 
  1608. local ZBtime=GetChaAttr(role,ATTR_EXTEND7)
  1609. local Zbexpper=math.mod( ZBtime,60)
  1610. if Zbexpper>40 then
  1611. expraid1=expraid*(1-0.1*(60-Zbexpper)/20)
  1612. elseif Zbexpper<=40 then
  1613. expraid1=expraid*(0.5-Zbexpper*Zbexpper/3000+Zbexpper/50+Zbexpper/300)
  1614. end
  1615. end
  1616. if zbState==-83 then 
  1617. expraid1=1.2
  1618. end
  1619. return expraid1
  1620. end
  1621. function CheckLuckyFinish ( StateLv )
  1622. if SBStateYXJxinyun[StateLv] == 2 then
  1623. local Huge_Lucky = Percentage_Random ( 0.01 )
  1624. if Huge_Lucky == 1 then
  1625. return 2
  1626. end
  1627. end
  1629. local a = 0.1
  1630. local b = Percentage_Random ( a )
  1631. return b
  1632. end
  1633. ---------------------------------------
  1634. ----挖宝巨额经验—by lucke.coco----
  1635. ---------------------------------------
  1636. function getmuchexpbf (atk) --挖宝给予巨额经验玩家判断
  1637. local lv= GetChaAttr(atk, ATTR_LV) 
  1638. if lv <40 then
  1639. -- SystemNotice ( atk , "40级" )
  1640. return
  1641. elseif lv >= 40 and lv < 60 then
  1642. -- SystemNotice ( atk , "40——60级" )
  1643. local has_expbf = GetChaAttr ( atk , ATTR_CEXP )
  1644. local new_expbf = has_expbf + 420000
  1645. SetChaAttr ( atk , ATTR_CEXP , new_expbf )
  1646. SystemNotice ( atk , "为了表彰40级以上、60级以下玩家敢于惩治盗宝贼的正义之举，秘宝猎手·莱椰在此奖励您42W的巨额经验^_^" )
  1647. return
  1648. elseif lv >= 60 then
  1649. -- SystemNotice ( atk , "60级" )
  1650. return
  1651. end
  1652. end
  1656. function KillFlower(dead , atk) ----------竞技场杀死花花草草获得道具
  1657. local rolemod_atker = IsPlayer(atk) 
  1658. local rolemod_defer = IsPlayer(dead)  --检查角色种类：0、怪物， 1、玩家
  1659. if rolemod_atker == 1 and rolemod_defer == 0  then
  1660. local MonsterID = GetChaID(dead)
  1661. if MonsterID == 1176 then
  1662. local Item_CanGet = GetChaFreeBagGridNum ( atk )
  1663. if Item_CanGet <= 0 then 
  1664. SystemNotice ( atk , "您的背包栏没有足够的空间，所以无法获得花叶。")
  1665. return
  1666. end
  1667. local a = CheckBagItem( atk , 5961 )
  1668. local b = CheckBagItem( atk , 5962 )
  1669. if a ~= 0 or b ~= 0 then 
  1670. SystemNotice ( atk , "您必须将您背包内的道具交给竞技场交货员之后才能够再获得花叶。")
  1671. else
  1672. GiveItem ( atk , 0 , 5961 , 1 , 0 )
  1673. end
  1674. elseif MonsterID == 1177 then
  1675. local Item_CanGet = GetChaFreeBagGridNum ( atk )
  1676. if Item_CanGet <= 0 then 
  1677. SystemNotice ( atk , "您的背包栏没有足够的空间，所以无法获得草叶。")
  1678. return
  1679. end
  1680. local a = CheckBagItem( atk , 5961 )
  1681. local b = CheckBagItem( atk , 5962 )
  1682. if a ~= 0 or b ~= 0 then 
  1683. SystemNotice ( atk , "您必须将您背包内的道具交给竞技场交货员之后才能够再获得草叶。")
  1684. else
  1685. GiveItem ( atk , 0 , 5962 , 1 , 0 )
  1686. end
  1688. elseif MonsterID == 1178 then
  1689. local Item_CanGet = GetChaFreeBagGridNum ( atk )
  1690. if Item_CanGet <= 0 then 
  1691. SystemNotice ( atk , "您的背包栏没有足够的空间，所以无法获得巴拉卡特的羽毛。")
  1692. return
  1693. end
  1694. local c = CheckBagItem( atk , 5963 )
  1695. if c == 0 then 
  1696. GiveItem ( atk , 0 , 5963 , 1 , 0 )
  1697. else
  1698. SystemNotice ( atk , "您必须将您背包内的巴拉卡特的羽毛交给竞技场交货员之后才能够再获得巴拉卡特的羽毛。")
  1699. end
  1700. end 
  1701. end
  1702. end 
  1704. function KillPlayerDropFlower( dead )
  1705. --SystemNotice(atk,"11")
  1706. local a = CheckBagItem( dead , 5961 )
  1707. local b = CheckBagItem( dead , 5962 )
  1708. local c = CheckBagItem( dead , 5963 )
  1709. if a ~= 0 or b ~= 0 or c ~= 0 then
  1710. RemoveChaItem ( dead , 5961 , 0 , 2 , -1, 2 , 1  )
  1711. RemoveChaItem ( dead , 5962 , 0 , 2 , -1, 2 , 1  )
  1712. RemoveChaItem ( dead , 5963 , 0 , 2 , -1, 2 , 1  )
  1713. end
  1714. end