[問題]如何做出增加寄信的人呢︿︿?
發表於 : 2007-01-01 6:51 am
信件裡面,好像不能自己手動加入玩家
要怎麼改才能改入呢0.0?
題外話:恭喜bsm改版 XD"
(因為看到你在我那邊的留言=3=)
要怎麼改才能改入呢0.0?
題外話:恭喜bsm改版 XD"
(因為看到你在我那邊的留言=3=)
print qq|<form method=$method action=$listcgi><input type=hidden name=mode value='mail_add'>\n|;
print qq|<input type=hidden name=id value="$F{'id'}"><input type=hidden name=ps value="$F{'ps'}"><hr class=text>《新增友人》對方ID:<input type=text name=frad size=10><input type=submit value='新增' class=button></form>\n|;
teng 寫:@@
先在mail.cgi加入
- 代碼: 選擇全部
print qq|<form method=$method action=$listcgi><input type=hidden name=mode value='mail_add'>\n|;
print qq|<input type=hidden name=id value="$F{'id'}"><input type=hidden name=ps value="$F{'ps'}"><hr class=text>《新增友人》對方ID:<input type=text name=frad size=10><input type=submit value='新增' class=button></form>\n|;
之後...在.
加一個
# Sub mail_add #
sub mail_add {
?????????????
不明代碼-v-"
&mail_form;
}
# Sub mail_add #
sub mail_add {
?????????????
不明代碼-v-"
&mail_form;
}
# Sub mail_add #
sub mail_add (@alllines) {
($uid,$uname,$usex,$uarea,$uport,$upoint,$ufriend_line) = (split(/<>/))[0,1,3,15,16,17,22];
if ( $friend_line !~ /$uid/ ) {
if (!$friend_line) { $friend_line = "$uid,$uname" }
else { $friend_line .= "△$uid,$uname" }
}
if ( $ufriend_line !~ /$id/ ) {
&get_u($uid);
if (!$ufriend_line) { $ufriend_line = "$id,$name" }
else { $ufriend_line .= "△$id,$name" }
&set_u;
&mail_form;
}
}
你的&get_all_users; 到哪了XD?急速 寫:# Sub mail_add #
sub mail_add (@alllines) {
($uid,$uname,$usex,$uarea,$uport,$upoint,$ufriend_line) = (split(/<>/))[0,1,3,15,16,17,22];
if ( $friend_line !~ /$uid/ ) {
if (!$friend_line) { $friend_line = "$uid,$uname" }
else { $friend_line .= "△$uid,$uname" }
}
if ( $ufriend_line !~ /$id/ ) {
&get_u($uid);
if (!$ufriend_line) { $ufriend_line = "$id,$name" }
else { $ufriend_line .= "△$id,$name" }
&set_u;
&mail_form;
}
}
目前大概知道是這部份在新增玩家
但在加入時卻都出現ID不存在
而我又不知是何處出錯= =
抱歉一直發問...
我好弱阿 Orz
print qq|<input type=hidden name=id value="$F{'id'}"><input type=hidden name=ps value="$F{'ps'}"><hr class=text>《新增友人》對方ID:<input type=text [color=red]name=frad [/color]size=10><input type=submit value='新增' class=button></form>\n|;
sub mail_add {
&get_all_users;
$F{'frad'} = $uid;
foreach (@alllines) {
($uid,$uname,$usex,$uarea,$uport,$upoint,$ufriend_line) = (split(/<>/))[0,1,3,15,16,17,22];
if ($uport == $port && $upoint >= 0 && $uid != $id) {
if ( $friend_line !~ /$uid/ ) {
if (!$friend_line) { $friend_line = "$uid,$uname" }
else { $friend_line .= "△$uid,$uname" }
}
if ( $ufriend_line !~ /$id/ ) {
&get_u($uid);
if (!$ufriend_line) { $ufriend_line = "$id,$name" }
else { $ufriend_line .= "△$id,$name" }
&set_u;
}
}
}
&mail_form;
}
if ($uport == $port && $upoint >= 0 && $uid != $id) {
# Sub Mail Add #
sub mail_add{
&get_me($F{'id'});
&get_u($F{'frad'},'read');
if ($id == $uid ) { &error('你不能把自已加在友人名單上.<br>難度你想寄信比自已?') }
if ( $friend_line !~ /$uid/ ) {
if ( !$friend_line ) {
$friend_line .= "$uid,$uname";
$passed=1;
$unm=$uname;
}
else{
$friend_line .= "△$uid,$uname";
$passed=1;
$unm=$uname;
}
}
else{
$nopassed=1;
$unm=$uname;
}
&set_me;
&mail_form
}
print qq|訊息已傳送至"$uname"<br><br>\n| if $mailok;
print qq|成功追加玩家"$unm"<br><br>\n| if $passed;
print qq|追加玩家"$unm"失敗<br>原因:該玩家ID己在你的友人名單上.<br><br>\n| if $nopassed;
&set_me;
&add_record("$name:「$F{'message'}」",1);
$urecord .= "收到訊息<br>";
$mailok= 1;
&set_u;
&mail_form
}
}