用于战神引擎手游三职业锻体师Npc脚本,玩家通过元宝和金刚石,锻体以后,可以获得50血量的额外增加,总共可以锻体20次,脚本是明文版的,可以任意修改里面的需要的元宝、材料还要血量,经过帮主亲自测试,确实有效。
补发脚本
procedure _lianti1; var today , num,AddHP,AddHP1,AddHP2: integer; begin num := This_Player.GetV(68,2); begin case This_Player.Job of 0 : //战士 begin This_Player.AddPlayerAbil(4, AddHP, 36000); This_Player.AddHeroAbil(4,AddHP,36000); ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功!', 2); This_Npc.NpcDialog(This_Player, '恭喜你炼体成功开启成功\' ); end; 1 : //法师 begin This_Player.AddPlayerAbil(4, AddHP1, 36000); This_Player.AddHeroAbil(4,AddHP1,36000); ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功!', 2); This_Npc.NpcDialog(This_Player, '恭喜你开启成功\' ); end; 2 : //道士 begin This_Player.AddPlayerAbil(4, AddHP2, 36000); This_Player.AddHeroAbil(4,AddHP2,36000); ServerSay('玩家<' + This_Player.Name + '>炼体属性开启成功!', 2); This_Npc.NpcDialog(This_Player, '恭喜你开启成功\' ); end; end; end else This_Npc.NpcDialog(This_Player, '你没有炼体,无法开启属性\' ); end; begin begin if This_Player.YBNum >= 500 then begin case This_Player.Job of 0 : //0是战士 begin This_Player.ScriptRequestSubYBNum(500); This_Player.Take('金刚石' , 100); This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一 num := This_Player.GetV(68,2); ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功,当前炼体层数'+inttostr(num)+'层!', 2); This_Npc.NpcDialog(This_Player, '恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\' ); end; 1 : //法师 begin This_Player.ScriptRequestSubYBNum(500); This_Player.Take('金刚石' , 100); This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一 num := This_Player.GetV(68,2); ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功,当前炼体层数'+inttostr(num)+'层!', 2); This_Npc.NpcDialog(This_Player, '恭喜你炼体成功,当前炼体层数<'+inttostr(num)+'/c=red>层!\' ); end; 2 : //道士 begin This_Player.ScriptRequestSubYBNum(500); This_Player.Take('金刚石' , 100); This_Player.SetV(68,2, num + 1); //领取变量每领取一次加一 num := This_Player.GetV(68,2); ServerSay('恭喜玩家<' + This_Player.Name + '>炼体成功,当前炼体层数'+inttostr(num)+'层!', 2); This_Npc.NpcDialog(This_Player, '恭喜你炼体成功,当前炼体层数<'+inttostr(num) +'/c=red>层!\' ); end; end; end else This_Npc.NpcDialog(This_Player, '元宝不足500,无法炼体\' ); end else This_Npc.NpcDialog(This_Player, '金刚石不足100,无法炼体\' ); end else This_Player.PlayerDialog( '<你的炼体层数已经达到顶级,无法继续/c=red>' ); end; '|你当前的元宝总数是:<' + inttostr(This_Player.YBnum)+'/c=251>个\'+ '|当前炼体层数:<'+inttostr(num)+'/c=58>层,共20层\'+ +'|☆☆☆欢迎光临【夜雨传奇】☆☆☆\' +'|<战士/c=red>每次增加<HP50点/c=244>,当前层数可加血<'+inttostr(num*50)+'/c=red>点\'+ +'|<道士/c=red>每次增加<HP30点/c=244>,当前层数可加血<'+inttostr(num*30)+'/c=red>点\'+ +'|<法师/c=red>每次增加<HP15点/c=244>,当前层数可加血<'+inttostr(num*15)+'/c=red>点\'+ +'|<每次炼体需要500元宝+100金刚石/c=146>\' +'|<HP属性,有效时间为10小时/c=224>\' +'|<10小时后/c=58>免费<再次激活10小时/c=70>\' +'|{cmd}<开始炼体/@lianti> ^<开启属性/@lianti1>' ); end else begin '|你当前的元宝总数是:<' + inttostr(This_Player.YBnum)+'/c=251>个\'+ '|当前炼体层数:<'+inttostr(num)+'/c=58>层,共20层\'+ +'|☆☆☆欢迎光临【夜雨传奇】☆☆☆\' +'|<战士/c=red>每次增加<HP50点/c=244>,当前层数可加血<'+inttostr(num*50)+'/c=red>点\'+ +'|<道士/c=red>每次增加<HP30点/c=244>,当前层数可加血<'+inttostr(num*30)+'/c=red>点\'+ +'|<法师/c=red>每次增加<HP15点/c=244>,当前层数可加血<'+inttostr(num*15)+'/c=red>点\'+ +'|<每次炼体需要500元宝+100金刚石/c=146>\' +'|<HP属性,有效时间为10小时/c=224>\' +'|<10小时后/c=58>免费<再次激活10小时/c=70>\' +'|{cmd}<开始炼体/@lianti> ^<开启属性/@lianti1>' ); end; end.