[問題]請問怎樣在網海航行時加入聊天室

[神狼]

如題 在航行時沒有聊天室會很悶!

[roida]

如題 在航行時沒有聊天室會很悶!

網路上各種CGI聊天室都可加入

如果怕麻煩的話可以使用 BSM大的2.73版本裡面就已經內建聊天室了

連結如下

http://www.et99.org/viewtopic.php?t=32744

[神狼]

BSM大的2.73版本裡面只能在不航行時進行聊天
在航行時聊天室會消失呢 哪時不能聊天
但我想在航行時都加入聊天室呢
應該怎辦??可教教我??
(航行時=正前往另一個地方時)

[hcp5000]

see down, i updated!

[神狼]

已經照這位大大做了 還是不行 還出現錯誤 可能是我太笨了吧
可以傳做好的sea.cgi檔給我嗎??
感謝你!!

[roida]

已經照這位大大做了 還是不行 還出現錯誤 可能是我太笨了吧
可以傳做好的sea.cgi檔給我嗎??
pplk1234@yahoo.com.hk
感謝你!!

這邊提示你 sea.cgi 裡面有分不同的視界

可以在裡面改你想要的版面跟位置 懂了之後很好修改的

多改改看 會有很多新發現

[hcp5000]

it not ok!!

[hcp5000]

Sea.cgi
原本:

代碼: 選擇全部

# Sub Play #
sub play {
   &get_me($F{'id'});
   &set_cookie if $F{'mode'} eq 'play';
   &get_host;
   &get_port($area,$port) if $port;
   &get_port($area,$area) if !$port;
   &ship_data;
   $last = time;
   &t_check;
   &sink;
   &header;
   ?
   my ($y,$x) = split(/,/,$p_locate);
   $x = int($x * $map_x + $x_rev + 0.5); #0.5は四捨五入
   $y = int($y_rev - $y * $map_y + 0.5);
   print qq|<center><H2><font color=#4169e1>$title</font></H2>\n|;
   print qq|<table width="90%"><tr align=center valign=top><td>\n|;
   print qq|<table width=$map_width><tr><td height=$map_height background="$img/worldmap.gif" align=left valign=top>\n|;
   print qq|<div><span style="position:relative; top:$y; left:$x;">\n|;
   print qq|<img src="$img/pointer.gif"></span></div></td></tr><tr><td>\n|;
   &ships;
   &dis_tactics if $tactics != 4 || $moved < $last;
   print qq|</td></tr></table><td width="40%">\n|;
   &status;
   &move_point if $last > $moved; # $port &&  $portがあれば（港にいれば）、港内移動表示
   print qq|</td><td width="30%">\n|;
   if($_[0]) {print qq|$_[0]\n<form method=$method action=$seacgi><input type=hidden name="mode" value="play">|; &id_ps; &submit_button; print qq|</form>|;}
   elsif ($point==1 && $last >= $moved )   { require 'move.cgi'; &move_list }
   elsif ($point==2) { require 'trade.cgi'; &trade_dis('購入',$trade_line); &trade_dis('賣出',$load) if $load; }
   elsif ($point==3) { require 'yard.cgi'; &shipyard }
   elsif ($point==4) { require 'bar.cgi'; &bar_meet }
   elsif ($point==5) { require 'city.cgi'; &city_top }
   elsif ($point==6) { require 'battle.cgi'; &enemy }
   elsif ($last < $moved) { &moving }
   print qq|</td></tr></table></center>\n|;
   &home_button;
   &footer;
   &set_me;exit;
}

變成:

代碼: 選擇全部

# Sub Play #
sub play {
   &get_me($F{'id'});
   &set_cookie if $F{'mode'} eq 'play';
   &get_host;
   &get_port($area,$port) if $port;
   &get_port($area,$area) if !$port;
   &ship_data;
   $last = time;
   &t_check;
   &sink;
   &header;
   ?
   my ($y,$x) = split(/,/,$p_locate);
   $x = int($x * $map_x + $x_rev + 0.5); #0.5は四捨五入
   $y = int($y_rev - $y * $map_y + 0.5);
   print qq|<center><H2><font color=#4169e1>$title2</font></H2>\n|;
   print qq|<table width="90%"><tr align=center valign=top><td>\n|;
   print qq|<table width=$map_width><tr><td align=left valign=top>\n|;
   print qq|<div><span style="position:relative; top:$y; left:$x;">\n|;
   print qq|</span></div></td></tr><tr><td>\n|;
   &ships;
[color=red]   &move_point if $last > $moved; # $port &&  $portがあれば（港にいれば）、港内移動表示
   &dis_tactics if $tactics != 4 || $moved < $last;[/color]
   print qq|</td></tr></table><td width="40%">\n|;
   &status;
   print qq|</td><td width="30%">\n|;
   if($_[0]) {print qq|$_[0]\n<form method=$method action=$seacgi><input type=hidden name="mode" value="play">|; &id_ps; &submit_button; print qq|</form>|;}
   elsif ($point==1 && $last >= $moved )   { require 'move.cgi'; &move_list }
   elsif ($point==2) { require 'trade.cgi'; &trade_dis('購入',$trade_line); &trade_dis('賣出',$load) if $load; }
   elsif ($point==3) { require 'yard.cgi'; &shipyard }
   elsif ($point==4) { require 'bar.cgi'; &bar_meet }
   elsif ($point==5) { require 'city.cgi'; &city_top }
   elsif ($point==6) { require 'battle.cgi'; &enemy }
   elsif ($last < $moved) { &moving }
   print qq|</td></tr></table></center>\n|;
   &home_button;
   &footer;
   &set_me;exit;
}

sea.cgi -------- Sub Move Point

Delet it :

#插入聊天室
require 'chat.cgi';
&chat;

代碼: 選擇全部

# Sub Move Point #
sub move_point {
   my(@in_port)=('港口','交易','造船','酒場','城鎮','襲撃'); # $point 海上＝0、港＝1、交易＝2、造船＝3、酒場＝4、町＝5、襲撃＝6
   print qq|<br>\n|;
   &form_table('up','100%',1);
   print qq|港內移動　　| if $port;
   print qq|行動　　| if !$port;
   &submit_button;
   print qq|</td></tr><tr><td align=center>\n|;
   for($i=1;$i<7;$i++) {
      $checked = $i == $point  ? ' checked' : '';
      print qq|<input type=radio name=point value="$i"$checked>$in_port[$i-1] \n|;
      $i += 4 if !$port;
   }
   &id_ps;
   print qq|<input type=hidden name=mode value="ch_point">\n|;
      &form_table('down');
[color=red]#插入聊天室
require 'chat.cgi';
&chat;[/color]
}

Change it:Sub Status

Add :
#插入聊天室
require 'chat.cgi';
&chat;

at:

代碼: 選擇全部

# Sub Status #
sub status {
   .
   .

   .

   .

   .

   .

</tr><tr>
<td colspan=2 align=center>$message</td>
</tr><tr>
<td colspan=2 align=center>
STATUS_TABLE
   print qq|</td></tr></table>\n|;
[color=red]#插入聊天室
require 'chat.cgi';
&chat;[/color]
}

see it(my):


my sea:(hong kong 100% can in,Tainw 1=0.001% only)

http://netsea.freehostia.com/netsail/sea.cgi

[神狼]

不明白= =

[hcp5000]

不明白= =???????

[hcp5000]

i know who are you,go my sea.cgi and i will help you~

[BSM]

畫面還跟我的一模一樣耶....

[hcp5000]

代碼: 選擇全部

畫面還跟我的一模一樣耶....

 
 [給予評價]

_________________
繼續貶低自我價值XD
MSN：sakobsm@gmail.com
想找我就加吧=ˇ=
---
如果只是單純想跟我拿網頁遊戲的程式或是問問題
請多發文...=_=
---
網海我打算停工了....
給你們搞就好啦~

B大大不要停工...................
我只是希望我個版好....................

BSM:畫面還跟我的一模一樣耶....

我到目前至小還有15%未完工(汗).....

[hcp5000]

[BSM]

我的意思是說...你難道不能發展屬於你自己的專屬特色？

非要把畫面跟架構搞的跟我一樣？


那給你搞就好啦ˊˇˋ