eGameX

 找回密碼
 註冊
搜索
查看: 103|回復: 6

[開發中]NPC亂跑 [複製鏈接]

Rank: 1

金錢
42
威望
0
積分
23
發表於 5 天前 |顯示全部樓層
被打會亂跑~跨海域城鎮

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

寫在battle.cgi

把原始code

# Sub Battle #
  1.         } else {
  2.                 &add_record("襲擊$uname!<br>獲得[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>被害[奪取:$uget_s、擊沉:$usink_s]");
  3.                 &add_record("受到$name襲擊!<br>被害[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>獲得[奪取:$uget_s、擊沉:$usink_s]",1)
  4.         }
  5.         &into_ind; &into_uind;
  6.         &set_me;
  7.         &set_u;
  8.         &play
  9. }
複製代碼
改成這個
  1.         } else {
  2.                 &add_record("襲擊$uname!<br>獲得[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>被害[奪取:$uget_s、擊沉:$usink_s]");
  3.                 &add_record("受到$name襲擊!<br>被害[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>獲得[奪取:$uget_s、擊沉:$usink_s]",1)
  4.         }
  5.        
  6.         #NPC Test
  7.         if($uid == 00002){                                #change uid to NPC's id
  8.        
  9.         my $des_area = int(1001 + rand(9));
  10.         my $area_file = new Nfile("$datadir/$des_area\.dat",'read');
  11.         my @test_arealine = $area_file->read;
  12.        
  13.         my @area_array;
  14.        
  15.         foreach (@test_arealine) {
  16.                 ($test_move_num) = split(/<>/,$_);
  17.                 push (@area_array,$test_move_num);
  18.         }
  19.        
  20.         my $area_index = int(rand(scalar(@area_array)));
  21.         my $des_port = $area_array[$area_index];

  22.         $uarea = "$des_area";
  23.         $uport = "$des_port";
  24.        
  25.         }
  26.        
  27.        
  28.         &into_ind; &into_uind;
  29.         &set_me;
  30.         &set_u;
  31.         &play
複製代碼

Rank: 1

金錢
42
威望
0
積分
23
發表於 4 天前 |顯示全部樓層
補充~

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

把這行

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

改成這個

my $des_area = $uarea;

這樣就好了^^

使用道具 舉報

管理員

網站測試中

Rank: 9Rank: 9Rank: 9

金錢
1510
威望
4146
積分
6975
發表於 4 天前 |顯示全部樓層
看起來蠻有趣的,有空再來測試看看,這個應該不會有甚麼BUG吧

使用道具 舉報

Rank: 1

金錢
67
威望
0
積分
27
發表於 4 天前 |顯示全部樓層
這寫法不錯, 應該是不會有Bug的

使用道具 舉報

管理員

網站測試中

Rank: 9Rank: 9Rank: 9

金錢
1510
威望
4146
積分
6975
發表於 3 天前 |顯示全部樓層
問目前的玩家一個問題喔,現在遊戲中的NPC是自己生出來的還是之前就有的?

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

使用道具 舉報

Rank: 1

金錢
67
威望
0
積分
27
發表於 3 天前 |顯示全部樓層
台中人2000 發表於 2017-3-21 18:01
問目前的玩家一個問題喔,現在遊戲中的NPC是自己生出來的還是之前就有的?

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

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

使用道具 舉報

Rank: 1

金錢
40
威望
13
積分
33
發表於 3 天前 |顯示全部樓層
大家都以為是台中人你開出來的耶......@@

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 註冊 |

Archiver|排行榜|eGameX

GMT+8, 2017-3-24 16:00 , Processed in 0.205206 second(s), 10 queries , Gzip On, Memcache On.

Powered by Discuz! X2

© 2001-2011 Comsenz Inc.

回頂部