[開發中]NPC亂跑

Transistor

被打會亂跑~跨海域城鎮

開發中 還未詳細debug  大家幫忙測試測試

寫在battle.cgi

把原始code

# Sub Battle #

1. 
   
2. 
   
3.         } else {
   
4.                 &add_record("襲擊$uname！<br>獲得[奪取：$get_s、擊沉：$sink_s、資金：$get_money G、財寶：$rob_item]<br>被害[奪取：$uget_s、擊沉：$usink_s]");
   
5.                 &add_record("受到$name襲擊！<br>被害[奪取：$get_s、擊沉：$sink_s、資金：$get_money G、財寶：$rob_item]<br>獲得[奪取：$uget_s、擊沉：$usink_s]",1)
   
6.         }
   
7.         &into_ind; &into_uind;
   
8.         &set_me;
   
9.         &set_u;
   
10.         &play
    
11. }
    
12. 
    

複製代碼

改成這個

1. 
   
2. 
   
3. 
   
4.         } else {
   
5.                 &add_record("襲擊$uname！<br>獲得[奪取：$get_s、擊沉：$sink_s、資金：$get_money G、財寶：$rob_item]<br>被害[奪取：$uget_s、擊沉：$usink_s]");
   
6.                 &add_record("受到$name襲擊！<br>被害[奪取：$get_s、擊沉：$sink_s、資金：$get_money G、財寶：$rob_item]<br>獲得[奪取：$uget_s、擊沉：$usink_s]",1)
   
7.         }
   
8.        
   
9.         #NPC Test
   
10.         if($uid == 00002){                                #change uid to NPC's id
    
11.        
    
12.         my $des_area = int(1001 + rand(9));
    
13.         my $area_file = new Nfile("$datadir/$des_area\.dat",'read');
    
14.         my @test_arealine = $area_file->read;
    
15.        
    
16.         my @area_array;
    
17.        
    
18.         foreach (@test_arealine) {
    
19.                 ($test_move_num) = split(/<>/,$_);
    
20.                 push (@area_array,$test_move_num);
    
21.         }
    
22.        
    
23.         my $area_index = int(rand(scalar(@area_array)));
    
24.         my $des_port = $area_array[$area_index];
    
25. 
    
26.         $uarea = "$des_area";
    
27.         $uport = "$des_port";
    
28.        
    
29.         }
    
30.        
    
31.        
    
32.         &into_ind; &into_uind;
    
33.         &set_me;
    
34.         &set_u;
    
35.         &play
    
36. 
    
37. 
    
38. 
    

複製代碼

Transistor

補充~

如果只想在特定海域內移動

把這行

my $des_area = int(1001 + rand(9));

改成這個

my $des_area = $uarea;

這樣就好了^^

teng

這寫法不錯, 應該是不會有Bug的

teng

台中人2000 發表於 2017-3-21 18:01
問目前的玩家一個問題喔，現在遊戲中的NPC是自己生出來的還是之前就有的?

我看程式裡面沒有相關的設定?

那個不是你開出來的嗎?
是突然出現的0.0

j85040370

大家都以為是台中人你開出來的耶......@@

dog29329584

這個程式編碼有漏洞，750艘會維持不變。要嘛改成17艘或是750艘會慢慢遞減

Transistor

dog29329584 發表於 2017-3-27 18:34
這個程式編碼有漏洞，750艘會維持不變。要嘛改成17艘或是750艘會慢慢遞減

能貼一下戰報嗎?
理論上這個程式不會動到船隻設定

看有沒有少寫into_uind這個函式

teng

我建議分兩隻NPC, 一隻是船的, 一隻是財寶的

teng

台中人2000 發表於 2017-3-28 10:20
戰報?
這是甚麼

台中人大大請問你設定自動重新 重生的時間設定幾天了?
現在變成750條線= = 無限重新了, 這樣第一是很傷服務器, 會加大流量

第二玩家會變的超超超超級難取得寶物和船隻

teng

teng 發表於 2017-3-28 10:22
台中人大大請問你設定自動重新 重生的時間設定幾天了?
現在變成750條線= = 無限重新了, 這樣第一是很傷 ...

750 條船~ 不是線