|
被打會亂跑~跨海域城鎮
開發中 還未詳細debug 大家幫忙測試測試
寫在battle.cgi
把原始code
# Sub Battle # - } else {
- &add_record("襲擊$uname!<br>獲得[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>被害[奪取:$uget_s、擊沉:$usink_s]");
- &add_record("受到$name襲擊!<br>被害[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>獲得[奪取:$uget_s、擊沉:$usink_s]",1)
- }
- &into_ind; &into_uind;
- &set_me;
- &set_u;
- &play
- }
複製代碼 改成這個 - } else {
- &add_record("襲擊$uname!<br>獲得[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>被害[奪取:$uget_s、擊沉:$usink_s]");
- &add_record("受到$name襲擊!<br>被害[奪取:$get_s、擊沉:$sink_s、資金:$get_money G、財寶:$rob_item]<br>獲得[奪取:$uget_s、擊沉:$usink_s]",1)
- }
-
- #NPC Test
- if($uid == 00002){ #change uid to NPC's id
-
- my $des_area = int(1001 + rand(9));
- my $area_file = new Nfile("$datadir/$des_area\.dat",'read');
- my @test_arealine = $area_file->read;
-
- my @area_array;
-
- foreach (@test_arealine) {
- ($test_move_num) = split(/<>/,$_);
- push (@area_array,$test_move_num);
- }
-
- my $area_index = int(rand(scalar(@area_array)));
- my $des_port = $area_array[$area_index];
- $uarea = "$des_area";
- $uport = "$des_port";
-
- }
-
-
- &into_ind; &into_uind;
- &set_me;
- &set_u;
- &play
複製代碼 |
|