[战神脚本]转职变性脚本

乾乾与行

这个脚本可以给游戏提供角色转职和变性功能，分享给大家是因为这个脚本还有技能领取功能，使用起来也很便捷。

部分脚本：

1. procedure _GM;
   
2. begin
   
3. if This_Player.GMLevel > 4  then
   
4. begin
   
5.   This_Npc.NpcDialog(This_Player,          
   
6.            +'|尊敬的管理大人，我这里可以控制元宝数量!\'   
   
7.       +'|<─────────────────────>\'                   
   
8.            +'|<主号变性元宝数量/fcolor=250>     <'+inttostr(GetG(108,4))+'/@bxyb>\'             
   
9.            +'|<主号转职元宝数量/fcolor=250>     <'+inttostr(GetG(108,5))+'/@zyyb>\'  
   
10.        +'|<─────────────────────>\'   
    
11.        +'|默认：变性 <20000/fcolor=250> 元宝  转职 <50000/fcolor=250> 元宝\ \'           
    
12.        +'|<您可以直接点击数量进行调整>  \ \'
    
13.        +'|{cmd}<关闭此页/@exit>^<返回首页/@main>\ \'         
    
14.    );                 
    
15.    end else
    
16.    begin
    
17. This_NPC.NpcDialog(This_Player,
    
18. '警告：你无权此操作，请速速联系管理员！！|\'+
    
19. '|                                                  <返回首页/@main>');
    
20.      
    
21.   end;
    
22.   end;
    
23. 
    
24. 
    
25. procedure _bxyb;
    
26. begin   
    
27.         This_NPC.InputDialog(This_Player,'请输入变性元宝数量',0,155) ;
    
28. end;
    
29. 
    
30. procedure p155;
    
31. begin
    
32.    bxsl :=  StrToIntDef(This_NPC.InputStr,-1);//只能输入数字，否则都返回-1
    
33.    if This_NPC.InputOK  then            
    
34.     begin
    
35.     if (bxsl >= 100) and (bxsl < 10000000) then
    
36.          begin
    
37.   SetG(108,4,bxsl);  
    
38.   This_Npc.NpcDialog(This_Player,          
    
39.            +'|尊敬的管理大人，我这里可以控制元宝数量!\'   
    
40.       +'|<─────────────────────>\'                   
    
41.            +'|<主号变性元宝数量/fcolor=250>     <'+inttostr(GetG(108,4))+'/@bxyb>\'             
    
42.            +'|<主号转职元宝数量/fcolor=250>     <'+inttostr(GetG(108,5))+'/@zyyb>\'  
    
43.        +'|<─────────────────────>\'  
    
44.        +'|默认：变性 <20000/fcolor=250> 元宝  转职 <50000/fcolor=250> 元宝\ \'           
    
45.        +'|<您可以直接点击数量进行调整>  \ \'
    
46.        +'|{cmd}<关闭此页/@exit>^<返回首页/@main>\ \'         
    
47.    );               
    
48.   end else
    
49. This_NPC.NpcDialog(This_Player,  
    
50. '变性元宝数量输入错误：  100-10000000 之内|\'+
    
51. '|{cmd}<返回上页/@GM>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
    
52.   end else
    
53. This_NPC.NpcDialog(This_Player,  
    
54. '变性元宝数量输入错误：非法字符，只能输入数字！|\'+
    
55. '|{cmd}<返回上页/@GM>     ^<返回首页/@main>       ^<关闭此页/@DoExit>');
    
56. 
    
57. end;     

复制代码