[開發中]NPC自動重生

Transistor

npcdir是存放npc資料的

寫在sea.cgi

1. 
   
2. 
   
3. # Sub NPC Update
   
4. sub NPC_update{
   
5. 
   
6. 
   
7.         my  @NPC_uid = ("00002");        # NPC ID
   
8.         my  $NPCdir        = 'npcdir';                # NPC帳戶資料存放目錄（※可更改 不可與usrdir相同）
   
9.         my        $NPC_cycle = 3;                        # NPC重生週期
   
10. 
    
11.        
    
12.         &get_date(time);
    
13.        
    
14.         if($day % $NPC_cycle){
    
15.                 my $NPC_upflag = 1;
    
16.                 return;
    
17.         }
    
18.                
    
19. 
    
20.         if((!($day % $NPC_cycle) || $day == 1) && $NPC_upflag){
    
21.        
    
22.                 foreach (@NPC_uid) {
    
23.                         my        $NPC_load_file = new Nfile("$NPCdir\/$_\.dat",'read');
    
24.                         @npc_ilines = $NPC_load_file->read;
    
25.                         if (!@npc_ilines) { &error("NPC資料讀取錯誤"); }
    
26.                        
    
27.                         open(write_file,">$usrdir\/$_\.dat") or "open file error!";
    
28.                         print write_file @npc_ilines;
    
29.                         close(write_file);
    
30.                 }
    
31.                 undef $NPC_upflag;
    
32.         }
    
33.        
    
34. }
    
35. 
    
36. 
    
37. 
    

複製代碼

並把原本的play函式

1. 
   
2. 
   
3. sub play {
   
4.         &get_me($F{'id'});
   
5.         &set_cookie if $F{'mode'} eq 'play';
   
6.         &get_host;
   
7.         &get_port($area,$port) if $port;
   
8.         &get_port($area,$area) if !$port;
   
9.         &ship_data;
   
10.         $last = time;
    
11.         &t_check;
    
12.         &sink;
    
13. 
    
14. 
    
15. 
    

複製代碼

改為這個(其實只是多呼叫一個函式XD)

1. 
   
2. 
   
3. sub play {
   
4.         &get_me($F{'id'});
   
5.         &set_cookie if $F{'mode'} eq 'play';
   
6.         &get_host;
   
7.         &get_port($area,$port) if $port;
   
8.         &get_port($area,$area) if !$port;
   
9.         &ship_data;
   
10.         &NPC_update;
    
11.         $last = time;
    
12.         &t_check;
    
13.         &sink;
    
14. 
    
15. 
    
16. 
    

複製代碼

Transistor

這個方法有個缺點

如果重生那一整天都沒人上線  就會跳過重生(人氣應該不會這麼慘吧)

Transistor

原來NFILE要先讀才能寫

優化一下寫法~

1. 
   
2. 
   
3.         if((!($day % $NPC_cycle) || $day == 1)){
   
4.        
   
5.                 foreach (@NPC_uid) {
   
6.                         my        $NPC_load_file = new Nfile("$NPCdir\/$_\.dat",'read');
   
7.                         @npc_ilines = $NPC_load_file->read;
   
8.                         if (!@npc_ilines) { &error("NPC資料讀取錯誤"); }
   
9.                         my        $NPC_save_file = new Nfile("$usrdir\/$_\.dat",'save');
   
10.                         $NPC_save_file->read;
    
11.                         $NPC_save_file->write(@npc_ilines); #(bug)
    
12.                 }
    
13.                 undef $NPC_upflag;
    
14.         }
    
15. 
    
16. 
    

複製代碼

Transistor

新增一下讀取確認 防止讀取錯誤整個當機

1. 
   
2. 
   
3. 
   
4. 
   
5. 
   
6.         if((!($day % $NPC_cycle) || $day == 1)){
   
7.        
   
8.                 foreach (@NPC_uid) {
   
9.                         my        $NPC_load_file = new Nfile("$NPCdir\/$_\.dat",'read');
   
10.                         my  @npc_ilines = $NPC_load_file->read;
    
11.                         if (!@npc_ilines) { &error("NPC資料讀取錯誤"); }
    
12.                         if ($npc_ilines[0] eq "Read Error") {&msg("<font color="#FF0000">NPC檔案不存在！</font>");return;}
    
13. 
    
14.                        
    
15.                        
    
16.                        
    
17.                         my        $NPC_save_file = new Nfile("$usrdir\/$_\.dat",'save');
    
18.                         my  @npc_update = $NPC_save_file->read;
    
19.                         if (!@npc_update) { &error("NPC資料讀取錯誤"); }
    
20.                         if ($npc_update[0] eq "Read Error") {&msg("<font color="#FF0000">NPC檔案不存在！</font>");return;}
    
21.                        
    
22.        
    
23.                        
    
24.                         $NPC_save_file->write(@npc_ilines);
    
25.                 }
    
26.                 undef $NPC_upflag;
    
27.         }
    
28. 
    
29. 
    
30. 
    
31. 
    

複製代碼

dog29329584

Transistor 發表於 2017-3-21 01:02
這個方法有個缺點

如果重生那一整天都沒人上線  就會跳過重生(人氣應該不會這麼慘吧) ...

那是否只要有人登入 就會重生?

teng

dog29329584 發表於 2017-3-21 16:20
那是否只要有人登入 就會重生?

以他做法是的0 0