沙巴克奖励+行会+满血+传送综合Npc脚本(带Gm后台)

用于战神引擎的拿沙巴克奖励+创建行会+一键满血+沙城传送等综合Npc脚本，脚本支持沙巴克成员和沙巴克老大领取奖励，需要用到变量，脚本功能非常的丰富，里面其他的功能比较常见，但这个沙巴克老大奖励是第一次看到，脚本要先升级Gm权限，然后点击Gm后台，可以控制攻城时间和奖励，第一次记得点击初始攻城。

部分脚本

begin    
        This_NPC.InputDialog(This_Player,'请输入攻沙奖励-元宝',0,13) ;
end;
procedure p13;
begin
   gcjl :=  StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1
   if This_NPC.InputOK  then             
    begin
    if (gcjl >= 1000) and (gcjl < 1000000) then
         begin 
    SetG(93,40,gcjl);  
This_NPC.NpcDialog(This_Player,
'调整攻城奖励系统：\'+
'|<元宝奖励/fcolor=254>：      <'+inttostr(GetG(93,40))+'/@xq13>      1000-1000000\'+
'|<灵符奖励/fcolor=254>：      <'+inttostr(GetG(93,41))+'/@xq14>      1000-1000000\'+
'|<金刚石奖励/fcolor=254>：    <'+inttostr(GetG(93,42))+'/@xq15>      100-10000\'+
 '|{cmd}<返回上页/@GM>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
  end else
This_NPC.NpcDialog(This_Player,  
'攻城奖励元宝输入错误：  1000-1000000 之内|\'+
 '|{cmd}<返回上页/@xq12>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
  end else
This_NPC.NpcDialog(This_Player,  
'攻城奖励元宝输入错误：非法字符，只能输入数字！|\'+
 '|{cmd}<返回上页/@xq12>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
end; 
procedure _xq14; 
begin    
        This_NPC.InputDialog(This_Player,'请输入攻沙奖励-灵符',0,14) ;
end;
procedure p14;
begin
   gcjl2 :=  StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1
   if This_NPC.InputOK  then             
    begin
    if (gcjl2 >= 10000) and (gcjl2 < 10000000) then
         begin 
    SetG(93,41,gcjl2); 
This_NPC.NpcDialog(This_Player,
'调整攻城奖励系统：\'+
//'|<元宝奖励/fcolor=254>：      <'+inttostr(GetG(93,40))+'/@xq13>      1000-1000000\'+
'|<灵符奖励/fcolor=254>：      <'+inttostr(GetG(93,41))+'/@xq14>      10000-10000000\'+
//'|<金刚石奖励/fcolor=254>：    <'+inttostr(GetG(93,42))+'/@xq15>      100-10000\'+
 '|{cmd}<返回上页/@GM>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
  end else
 This_NPC.NpcDialog(This_Player, 
'攻城奖励灵符输入错误：  10000-10000000 之内|\'+
 '|{cmd}<返回上页/@xq12>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
  end else
This_NPC.NpcDialog(This_Player,  
'攻城奖励灵符输入错误：非法字符，只能输入数字！|\'+
 '|{cmd}<返回上页/@xq12>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
end;   
procedure _xq15; 
begin    
        This_NPC.InputDialog(This_Player,'请输入攻沙奖励-金刚石',0,15) ;
end;
procedure p15;
begin
   gcjl3 :=  StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1
   if This_NPC.InputOK  then             
    begin
    if (gcjl3 >= 100) and (gcjl3 < 10000) then
         begin 
    SetG(93,42,gcjl3);  
This_NPC.NpcDialog(This_Player,
'调整攻城奖励系统：\'+
//'|<元宝奖励/fcolor=254>：      <'+inttostr(GetG(93,40))+'/@xq13>      1000-1000000\'+
'|<灵符奖励/fcolor=254>：      <'+inttostr(GetG(93,41))+'/@xq14>      1000-1000000\'+
//'|<金刚石奖励/fcolor=254>：    <'+inttostr(GetG(93,42))+'/@xq15>      100-10000\'+
 '|{cmd}<返回上页/@GM>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
  end else
This_NPC.NpcDialog(This_Player,  
'攻城奖励金刚石输入错误：  100-10000 之内|\'+
 '|{cmd}<返回上页/@xq12>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
  end else
This_NPC.NpcDialog(This_Player,  
'攻城奖励金刚石输入错误：非法字符，只能输入数字！|\'+
 '|{cmd}<返回上页/@xq12>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
end;

分享到：

赞(0)