用于战神引擎手游传奇服务端的称号晋升Npc脚本,因为脚本添加的是自定义对话框,牵扯到的素材帮主一并提取出来了,脚本关联了多份属性文件,添加的时候,记得备份一下版本原先的,在提取对应的变量到文件里面,脚本提取自3.0的版本,无法跟2.0直接兼容。其他的方面喜欢脚本的兄弟自行研究。
部分脚本
if This_Player.YBnum >= fy(xx) then begin This_Player.ScriptRequestSubYBNum(fy(xx)); This_Player.SetV(117,1,xx); This_Player.SetS(70,16,(This_Player.GetS(70,16) + bj(xx))); This_Player.SetS(61,13,(This_Player.GetS(61,13) + bg(xx))); This_Player.SetS(71,14,(This_Player.GetS(71,14) + blv1(xx))); This_Player.Setv(69,1,xx1); givefenghao; shuxing11; shuxing1; shuxing10; _byzy1; This_Player.Setv(117,2,xx1+1); NOTICE('恭喜你','成功晋升称号'+chmz(xx)+''); end else OKKK('失败','元宝不足'); end; end; procedure _js2; var xx ,xx1:integer; begin xx1 := This_Player.GetV(117,1); if xx1 > 0 then begin This_Player.Setv(69,1,0); givefenghao; NOTICE('成功','操作成功,称号已隐藏'); end else OKKK('失败','操作失败,当前无称号'); end; procedure _js3; var xx ,xx1:integer; begin xx := This_Player.GetV(117,2); xx1 := This_Player.GetV(117,1); if xx1 > 0 then begin This_Player.Setv(69,1,xx-1); givefenghao; NOTICE('成功','操作成功,称号已显示'); end else OKKK('失败','操作失败,当前无称号'); end; begin if This_Player.GetV(117,1) < 0 then This_Player.SetV(117,1,0); if This_Player.GetV(117,2) < 0 then This_Player.SetV(117,2,9); if This_Player.GetS(70,16) < 0 then This_Player.SetS(70,16,0); if This_Player.GetS(71,14) < 0 then This_Player.SetS(71,14,0); if This_Player.GetS(61,13) < 0 then This_Player.SetS(61,13,0); domain; end.