小修改 Transistor 的Npc重生

teng

這次不把npcupdata放在sea.cgi

直接放在
battle.cgi

找

1. sub enemy {
   
2.         &get_all_users;
   
3.         &form_table('up','100%',1);
   
4.         &reload;
   
5.         print qq|襲擊　　|;
   
6.         &submit_button;
   
7.         print qq|</td></tr><tr><td align=left>\n|;
   
8.         foreach (@alllines) {
   
9.                 ($uid,$uname,$usex,$uarea,$uport,$utactics) = (split(/<>/))[0,1,3,15,16,18];
   
10.                 if ( ((($port != $uport) || !$port) && ($port || $uport || ($area != $uarea))) || $id == $uid) { next }
    
11.                 $checked = !$first ? ' checked' : '';
    
12.                 $surrender = $utactics == 3 ? ' 白旗' : '';
    
13.                 $first =1;
    
14.                 $sex_img = $usex ? $wmn_img : $man_img;
    
15.                 $on_click = qq|onClick="return opWin('$listcgi?mode=uprofile&uid=$uid','win6')"|;
    
16.                 print qq|<input type=radio name=uid value="$uid"$checked>\n|;
    
17.                 print qq|<img src="$img/$sex_img"><a href="$listcgi?mode=uprofile&uid=$uid" $on_click target=_blank>$uname</a>$surrender<br>\n|;
    
18.         }
    
19.         if (!$sex_img) { print qq|附近沒有發現其他艦隊...| }
    
20.         print qq|<input type=hidden name=mode value="battle">\n|;
    
21.         &id_ps;
    
22.         &form_table('down');
    
23.         &b_lift;
    
24. }

複製代碼

以下加上

1. #NPC#
   
2. sub NPC_update{
   
3.         my  @NPC_uid = ("00002");        # NPC ID
   
4.         my  $NPCdir  = 'npcdir';         # NPC帳戶資料存放目錄（※可更改 不可與usrdir相同）
   
5.        
   
6.            foreach (@NPC_uid) {
   
7.              my  $NPC_load_file = new Nfile("$NPCdir\/$_\.dat",'read');
   
8.              my  @npc_ilines = $NPC_load_file->read;
   
9.                if (!@npc_ilines) { &error("NPC資料讀取錯誤"); }
   
10.                if ($npc_ilines[0] eq "Read Error") {&msg("<font color="#FF0000">NPC檔案不存在！</font>");return;}
    
11. 
    
12.              my  $NPC_save_file = new Nfile("$usrdir\/$_\.dat",'save');
    
13.              my  @npc_update = $NPC_save_file->read;
    
14. 
    
15.              if (!@npc_update) { &error("NPC資料讀取錯誤"); }
    
16.              if ($npc_update[0] eq "Read Error") {&msg("<font color="#FF0000">NPC檔案不存在！</font>");return;}
    
17. 
    
18.              $NPC_save_file->write(@npc_ilines);
    
19. 
    
20.         }
    
21. 
    
22. }

複製代碼

========================
找

1. sub battle {
   
2. .........
   
3. 
   
4. 
   
5. 
   
6.         &into_ind; &into_uind;
   
7.         &set_me;
   
8.         &set_u;
   
9. 
   
10. 改成
    
11. 
    
12. [code]
    
13. #if($Npcship_total < 50 ){ #判斷如果小於50條船重新
    
14. 
    
15.         if ($uship_line =~ /武藏/) {  #判斷全部船中 如果如果沒有武藏...
    
16.         }else { #如果沒有武藏...
    
17.            &NPC_update; #重生Npc
    
18. 
    
19.                         #$ship[0][4]; = 中間那條船  
    
20.                         #$ship[2][4]; = 中間左邊那條船
    
21.                         #$ship[1][4]; = 中間右邊那條船
    
22.         }
    
23.      
    
24.         &play;
    
25. }

複製代碼

這如果NPC一條武藏也沒有了, 就會重生

至於重生後的NPC 會否出現新船名 還在研究中

//---------------------------------------------------------

1.                 if($uid == '00002'){
   
2.                         $uship[0][4] ='測試改船名';
   
3.                         $action = '';
   
4.                         &set_u;
   
5.                 }

複製代碼

這方法是失敗的

Transistor

自動產生日期

1. 
   
2. 
   
3.         #下面整個if會自動幫NPC補船
   
4.        
   
5.         if($#uship < 16) {
   
6. 
   
7. 
   
8. 
   
9.                 &get_date(time);
   
10.        
    
11.                 my @NPC_ship = ("ship.gif<>1500<>1000<>8<>大和",               
    
12.             "te.png<>2000<>500<>7.5<>武藏$year-$month",);
    
13.                
    
14.                 my $ship_type = 1;        #0代表NPC_ship第一艘船  1代表第二艘
    
15.        
    
16.                 my ($shipimg,$shipquan,$shiphp,$shipvec,$shipname) = split(/<>/,$NPC_ship[$ship_type]);
    
17. 
    
18.        
    
19.                 push(@uship_ind , "$shipimg,$shipquan,$shiphp,$shipvec,$shipname");
    
20.         }
    
21. 
    
22. 
    

複製代碼