紅人系統 如何改成 在PK區殺紅人 不會變紅人

s880074

紅人系統 如何改成 在PK區殺紅人 不會變紅人

出門一段時間回來 就不見了

1. 
   
2. //=======================================================================
   
3. // 【腳本名稱】: 紅人系統
   
4. //=======================================================================
   
5. // 【製作人】: 阿雍&無心插柳柳橙汁
   
6. // 【製作日期】: 2009年 1月19日   【最後修正】: 2009年8月08日
   
7. // 【版    本】: [EA13675]使用OK! [EA13912]使用OK!
   
8. //    //===========================【注意事項】================================
   
9. //  
   
10. //                              有BUG請聯絡: [email protected]
    
11. //  目前設定 再禁白區殺死2人以上後便成紅人
    
12. //  請自行更改.添加地圖
    
13. //  
    
14. //  
    
15. //                              98/7/11 修正地圖數量問題 上限128.
    
16. //                              98/7/17 改成使用getarraysize! 謝謝 啊神~
    
17. //                              98/8/8   使@die和毒水自殺不影響腳本 感謝 小葉 !
    
18. //=======================================================================
    
19. - script 設定 -1,{
    
20. OnInit:
    
21. 
    
22. //設定殺人會變成紅人的地圖
    
23. setarray $@DMAP1$[0],"amatsu","prontera";
    
24. 
    
25. //設定死亡會減少殺人點數並開始復原的地圖
    
26. setarray $@DMAP2$[0],"morocc","payon";
    
27. end;
    
28. }
    
29. pvp_y_7-2.gat,0,0,0 script 耍白程度 -1,{
    
30. 
    
31. OnPCKillEvent:
    
32. if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) goto L_Finish;
    
33. for(set .@i,0; .@i <= getarraysize($@DMAP1$);  set .@i,.@i +1)
    
34.   if (@mapname$ == $@DMAP1$[.@i])  {
    
35.   set bkillpeople,bkillpeople+1;
    
36. //自行決定 殺人點數高於多少時會變成紅人 ( bkillpeople )
    
37.     if(already == 0){
    
38.      if(bkillpeople == 2){
    
39.       set already,1;
    
40.       announce "系統公告 :  "+strcharinfo(0)+"耍白 變成歐克頭紅人了,大家快砍他!!",20;
    
41.       atCommand "@killable";
    
42.       atCommand "@option 0 0 2048";
    
43.       sc_start SC_OVERTHRUST,6000000,1;
    
44.       end;
    
45.       }
    
46.     }
    
47.   end;
    
48.   }
    
49. L_Finish:
    
50. 
    
51. end;
    
52. }
    
53. 
    
54. - script 判斷紅人 -1,{
    
55. OnPCLoginEvent:
    
56. if(already ==1){
    
57.   if(bkillpeople > 0){
    
58.    announce "系統公告 : +紅人+ "+strcharinfo(0)+" 進入  伺服器!!",20;
    
59.    atCommand "@killable";
    
60.    sc_start SC_OVERTHRUST,60000000,1;
    
61.    end;
    
62.    }
    
63.   }
    
64. end;
    
65. }
    
66. - script 變回正常人 -1,{
    
67. OnPCKillEvent:
    
68. attachrid killedrid;
    
69. if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) goto L_Finish;
    
70. for(set .@i,0; .@i <=getarraysize($@DMAP2$); set .@i,.@i +1)
    
71.   if (@mapname$ == $@DMAP2$[.@i])  {
    
72.     if(bkillpeople >0){
    
73.     set bkillpeople,bkillpeople-1;
    
74.       if(bkillpeople ==0){
    
75.       set already,0;
    
76.       atCommand "@killable";
    
77.       atCommand "@option 0 0 0";
    
78.       }
    
79.     end;
    
80.     }
    
81.   }
    
82. 
    
83. L_Finish:
    
84. end;
    
85. }
    
86. 
    
87. 
    

複製代碼

goddameit

1. //設定殺人會變成紅人的地圖
   
2. setarray $@DMAP1$[0],"amatsu","prontera";

複製代碼

你沒設就不會增

sinya

殺紅人不會變紅人........

1. 
   
2. -        script        耍白程度        -1,{
   
3. 
   
4. OnPCKillEvent:
   
5. if (getmapxy(@mapname$,@mapx,@mapy,0) == -1) goto L_Finish;
   
6. for(set .@i,0; .@i <= getarraysize($@DMAP1$);set .@i,.@i +1)
   
7.    {
   
8.      if (@mapname$ == $@DMAP1$[.@i])  
   
9.        {      
   
10.         set .@aidtemp,getcharid(3,strcharinfo(0));
    
11.         attachrid killedrid;
    
12.         if(!already)
    
13.           {
    
14.            detachrid;
    
15.            attachrid .@aidtemp;
    
16.            set bkillpeople,bkillpeople+1;
    
17.            if(bkillpeople<2) end;
    
18.            announce "系統公告 :  "+strcharinfo(0)+"耍白 變成歐克頭紅人了,大家快砍他!!",20;
    
19.            set already,1;
    
20.            if(checkoption(0x800)) end;
    
21.            atCommand "@killable";
    
22.            atCommand "@option 0 0 2048";      
    
23.            sc_start SC_OVERTHRUST,6000000,1;
    
24.           }
    
25.           detachrid;
    
26.           attachrid .@aidtemp;
    
27.                
    
28.        }
    
29.     }
    
30. 
    
31. L_Finish:
    
32. 
    
33. end;
    
34. }
    

複製代碼

s880074

sinya  謝謝 本來洗白我絕望了 我已為你不會在回答了= =