战神引擎增加信用分的脚本

战神引擎增加信用分的脚本

1. {********************************************************************
   
2. 
   
3. *******************************************************************}
   
4. program mir2;
   
5. 
   
6. {$I common.pas}
   
7. {$I WarehouseAndMbind.pas}
   
8. {$I ActiveValidateCom.pas}
   
9. {$I goToMonMap.pas}
   
10. 
    
11. procedure _DoExit;
    
12. begin
    
13.   This_Npc.CloseDialog(This_Player);
    
14. end;
    
15. 
    
16. procedure _Exit;
    
17. begin
    
18.   This_Npc.CloseDialog(This_Player);
    
19. end;
    
20. 
    
21. procedure domain;
    
22. begin
    
23.     This_NPC.NpcDialog(This_Player,
    
24.     '比奇城是玛法大陆上最繁华的城市\'
    
25.     +'|{cmd}<确定/@exit>            ^<提升信用分/@xinyong>\'
    
26.     );
    
27. end;
    
28. 
    
29. 
    
30. Procedure _xinyong;
    
31. Begin
    
32.     if This_Player.GoldNum >= 10000 then
    
33.     This_Player.DecGold(10000);
    
34.      This_Player.IncActivePoint(1);  //增加信用分1
    
35. 
    
36. end;
    
37. 
    
38. begin
    
39. domain;
    
40. end.

复制代码