罪と罰++二律背反
チャットに居酒屋
をテンプレートにして作成
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
] [
リンク元
]
開始行:
*傭兵さんみたいに作ったんですけど・・ [#cdda054d]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[スポンサー]]
-優先順位: 緊急
-状態: 完了
-カテゴリー: エラーが出ます
-投稿日: 2004-06-15 (火) 18:53:17
-バージョン:
**メッセージ [#ab6c8db0]
傭兵さんみたいに作ったんですけど・・うまく稼動しません
おねがいします。どうかみてください。
----
-アップしたんで見てくれませんか? -- [[スポンサー]] &new{...
-変更点をいくつか -- [[あくあ]] &new{2004-06-16 (水) 17:1...
<input type="submit" value="注文する" class="button1" s...
</form>
EOM
$imd=$in{'imd'};
if($imd>0 && $imd<21 ){
$drink_cut++;
$P=HP if($imd>0 && $imd<7);
$P=MP if($imd>6 && $imd<13);
$P=MAXHP if($imd>12 && $imd<15);
$P=MAXMP if($imd>14 && $imd<17);
$P=UA if($imd>16 && $imd<19);
$P=UD if($imd>18 && $imd<21);
$L="回復した。" if($imd>0 && $imd<13);
$L="上がった。" if($imd>12 && $imd<21);
# $A="$nm は $tymo[$imd][1] を $tymo[$imd][2] Gを払い $...
$A="$tymo[$imd][2] Gを支払い頼んだ $tymo[$imd][1]で $P ...
# $com="$nm:$A $camp_info[$camp][0] $date]";
$com="$nm:$A";
$hp+=$tymo[$imd][3] if($imd>0 && $imd<7);
$mp+=$tymo[$imd][3] if($imd>6 && $imd<13);
$max_hp+=$tymo[$imd][3] if($imd>12 && $imd<15);
$max_mp+=$tymo[$imd][3] if($imd>14 && $imd<17);
$ua+=$tymo[$imd][3] if($imd>16 && $imd<19);
$ud+=$tymo[$imd][3] if($imd>18 && $imd<21);
# open(OUT,">$logfile") || &error("Can't open $logfile.");
# print OUT $com;
# close(OUT);
®ist;
}
print <<EOM;
</select> <input type="submit" value="変更" class="butt...
-能力がうまく上がらないんですけど何故でしょうか? -- [[ス...
-たぶん キャラの書きこみ処理がないからだと思うのだが・・...
-どうしたらよいか教えてくれませんか? -- [[スポンサー]] &...
-®ist;の前に
$dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$...
$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
open (OUT,">$usrdata$id\.cgi") || &error("open error:$us...
print OUT @dat;
close(OUT);
-こんな処理で書き込めるのかなと思って付けたのですが・・思...
-チェッカで調べても特に反応ナシ。ほんとに困ってます。
-スポンサー
-ふー、なんかハマって時間かかりました・・・ -- [[あくあ]]...
まず、回復するパラメータを下の様に変更
# $hp+=$tymo[$imd][3] if($imd>0 && $imd<7);
# $mp+=$tymo[$imd][3] if($imd>6 && $imd<13);
# $max_hp+=$tymo[$imd][3] if($imd>12 && $imd<15);
# $max_mp+=$tymo[$imd][3] if($imd>14 && $imd<17);
# $ua+=$tymo[$imd][3] if($imd>16 && $imd<19);
# $ud+=$tymo[$imd][3] if($imd>18 && $imd<21);
$DAT{'hp'}+=$tymo[$imd][3] if($imd>0...
$DAT{'mp'}+=$tymo[$imd][3] if($imd>6...
$DAT{'max_hp'}+=$tymo[$imd][3] if($imd>1...
$DAT{'max_mp'}+=$tymo[$imd][3] if($imd>1...
$DAT{'ua'}+=$tymo[$imd][3] if($imd>1...
$DAT{'ud'}+=$tymo[$imd][3] if($imd>1...
次にユーザ書き込み呼び出しを追加
®ist; # DEBUG
&mandata_write;
最後に呼び出されるユーザ書き込みルーチンを追加
sub mandata_write{
$usrdata = "./usrdata/";
if(-e "$usrdata$id\.cgi"){
open(IN,"$usrdata$id\.cgi") or die "キャラデータが開...
@dat = <IN>;
close IN;
}
my @prats = split(/,/,$dat[0]);
$dat[0]="";
foreach (0..$#prats){
my($key,$v) = split(/;/,$prats[$_]);
$dat[0].="$key;$DAT{$key},";
}
open(OUT,">$usrdata$id\.cgi") or die "キャラデータが...
print OUT @dat;
close(OUT);
}
-携帯にその機能を追加する時も同じですか? -- [[スポンサー...
-表示に関連しているところは無いので大丈夫だと思いますよ -...
- comment1 -- [[Lfxctqzn]] &new{2009-11-16 (月) 10:40:46};
- comment5 -- [[Yqxtbbkz]] &new{2009-11-16 (月) 15:22:04};
- comment3 -- [[Phzvcqbq]] &new{2009-11-16 (月) 17:45:41};
- comment6 -- [[Himphfpm]] &new{2009-11-16 (月) 20:11:47};
- comment6 -- [[Himphfpm]] &new{2009-11-16 (月) 20:11:51};
- comment6 -- [[Himphfpm]] &new{2009-11-16 (月) 20:11:54};
- comment1 -- [[Jpfxcmiw]] &new{2009-11-16 (月) 22:29:13};
- comment4 -- [[Gkowbmvl]] &new{2009-11-17 (火) 00:47:03};
- 270_96.txt;8;12 -- [[YlLTzuuqBUbkaT]] &new{2009-11-18 (...
- 270_98.txt;8;12 -- [[YPDEoSKeWeVULq]] &new{2009-11-18 (...
- 270_109.txt;8;12 -- [[zzRyBaxhCEiEocgv]] &new{2009-11-1...
- 270_110.txt;8;12 -- [[jMIJkmbgzYniYChKglf]] &new{2009-1...
- 270_111.txt;8;12 -- [[wAjzedpMbRdudR]] &new{2009-11-18 ...
- 270_112.txt;8;12 -- [[hhPscRwNdpWYq]] &new{2009-11-19 (...
- 270_113.txt;8;12 -- [[XhkFeylQz]] &new{2009-11-19 (木) ...
- 270_114.txt;8;12 -- [[VqdXkSPNzlfHqikBBPX]] &new{2009-1...
- 270_115.txt;8;12 -- [[ymvvrfEawpEIUtOM]] &new{2009-11-1...
- 270_116.txt;8;12 -- [[GBAOyQTHKibJJuqXsO]] &new{2009-11...
- 270_117.txt;8;12 -- [[cmDXaEupty]] &new{2009-11-19 (木)...
- 270_118.txt;8;12 -- [[gzwbPzRTu]] &new{2009-11-19 (木) ...
- 270_119.txt;8;12 -- [[NcfRgKKMMgyhsaV]] &new{2009-11-20...
- 270_120.txt;8;12 -- [[tIdQLPpiMeZjalWtt]] &new{2009-11-...
- 4nUbyV pepyaka -- [[gfdggdfg]] &new{2010-10-12 (火) 06:...
- doorslinks.txt;7;12 -- [[nLqwbMSuht]] &new{2010-10-14 (...
#comment
終了行:
*傭兵さんみたいに作ったんですけど・・ [#cdda054d]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[スポンサー]]
-優先順位: 緊急
-状態: 完了
-カテゴリー: エラーが出ます
-投稿日: 2004-06-15 (火) 18:53:17
-バージョン:
**メッセージ [#ab6c8db0]
傭兵さんみたいに作ったんですけど・・うまく稼動しません
おねがいします。どうかみてください。
----
-アップしたんで見てくれませんか? -- [[スポンサー]] &new{...
-変更点をいくつか -- [[あくあ]] &new{2004-06-16 (水) 17:1...
<input type="submit" value="注文する" class="button1" s...
</form>
EOM
$imd=$in{'imd'};
if($imd>0 && $imd<21 ){
$drink_cut++;
$P=HP if($imd>0 && $imd<7);
$P=MP if($imd>6 && $imd<13);
$P=MAXHP if($imd>12 && $imd<15);
$P=MAXMP if($imd>14 && $imd<17);
$P=UA if($imd>16 && $imd<19);
$P=UD if($imd>18 && $imd<21);
$L="回復した。" if($imd>0 && $imd<13);
$L="上がった。" if($imd>12 && $imd<21);
# $A="$nm は $tymo[$imd][1] を $tymo[$imd][2] Gを払い $...
$A="$tymo[$imd][2] Gを支払い頼んだ $tymo[$imd][1]で $P ...
# $com="$nm:$A $camp_info[$camp][0] $date]";
$com="$nm:$A";
$hp+=$tymo[$imd][3] if($imd>0 && $imd<7);
$mp+=$tymo[$imd][3] if($imd>6 && $imd<13);
$max_hp+=$tymo[$imd][3] if($imd>12 && $imd<15);
$max_mp+=$tymo[$imd][3] if($imd>14 && $imd<17);
$ua+=$tymo[$imd][3] if($imd>16 && $imd<19);
$ud+=$tymo[$imd][3] if($imd>18 && $imd<21);
# open(OUT,">$logfile") || &error("Can't open $logfile.");
# print OUT $com;
# close(OUT);
®ist;
}
print <<EOM;
</select> <input type="submit" value="変更" class="butt...
-能力がうまく上がらないんですけど何故でしょうか? -- [[ス...
-たぶん キャラの書きこみ処理がないからだと思うのだが・・...
-どうしたらよいか教えてくれませんか? -- [[スポンサー]] &...
-®ist;の前に
$dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$...
$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
open (OUT,">$usrdata$id\.cgi") || &error("open error:$us...
print OUT @dat;
close(OUT);
-こんな処理で書き込めるのかなと思って付けたのですが・・思...
-チェッカで調べても特に反応ナシ。ほんとに困ってます。
-スポンサー
-ふー、なんかハマって時間かかりました・・・ -- [[あくあ]]...
まず、回復するパラメータを下の様に変更
# $hp+=$tymo[$imd][3] if($imd>0 && $imd<7);
# $mp+=$tymo[$imd][3] if($imd>6 && $imd<13);
# $max_hp+=$tymo[$imd][3] if($imd>12 && $imd<15);
# $max_mp+=$tymo[$imd][3] if($imd>14 && $imd<17);
# $ua+=$tymo[$imd][3] if($imd>16 && $imd<19);
# $ud+=$tymo[$imd][3] if($imd>18 && $imd<21);
$DAT{'hp'}+=$tymo[$imd][3] if($imd>0...
$DAT{'mp'}+=$tymo[$imd][3] if($imd>6...
$DAT{'max_hp'}+=$tymo[$imd][3] if($imd>1...
$DAT{'max_mp'}+=$tymo[$imd][3] if($imd>1...
$DAT{'ua'}+=$tymo[$imd][3] if($imd>1...
$DAT{'ud'}+=$tymo[$imd][3] if($imd>1...
次にユーザ書き込み呼び出しを追加
®ist; # DEBUG
&mandata_write;
最後に呼び出されるユーザ書き込みルーチンを追加
sub mandata_write{
$usrdata = "./usrdata/";
if(-e "$usrdata$id\.cgi"){
open(IN,"$usrdata$id\.cgi") or die "キャラデータが開...
@dat = <IN>;
close IN;
}
my @prats = split(/,/,$dat[0]);
$dat[0]="";
foreach (0..$#prats){
my($key,$v) = split(/;/,$prats[$_]);
$dat[0].="$key;$DAT{$key},";
}
open(OUT,">$usrdata$id\.cgi") or die "キャラデータが...
print OUT @dat;
close(OUT);
}
-携帯にその機能を追加する時も同じですか? -- [[スポンサー...
-表示に関連しているところは無いので大丈夫だと思いますよ -...
- comment1 -- [[Lfxctqzn]] &new{2009-11-16 (月) 10:40:46};
- comment5 -- [[Yqxtbbkz]] &new{2009-11-16 (月) 15:22:04};
- comment3 -- [[Phzvcqbq]] &new{2009-11-16 (月) 17:45:41};
- comment6 -- [[Himphfpm]] &new{2009-11-16 (月) 20:11:47};
- comment6 -- [[Himphfpm]] &new{2009-11-16 (月) 20:11:51};
- comment6 -- [[Himphfpm]] &new{2009-11-16 (月) 20:11:54};
- comment1 -- [[Jpfxcmiw]] &new{2009-11-16 (月) 22:29:13};
- comment4 -- [[Gkowbmvl]] &new{2009-11-17 (火) 00:47:03};
- 270_96.txt;8;12 -- [[YlLTzuuqBUbkaT]] &new{2009-11-18 (...
- 270_98.txt;8;12 -- [[YPDEoSKeWeVULq]] &new{2009-11-18 (...
- 270_109.txt;8;12 -- [[zzRyBaxhCEiEocgv]] &new{2009-11-1...
- 270_110.txt;8;12 -- [[jMIJkmbgzYniYChKglf]] &new{2009-1...
- 270_111.txt;8;12 -- [[wAjzedpMbRdudR]] &new{2009-11-18 ...
- 270_112.txt;8;12 -- [[hhPscRwNdpWYq]] &new{2009-11-19 (...
- 270_113.txt;8;12 -- [[XhkFeylQz]] &new{2009-11-19 (木) ...
- 270_114.txt;8;12 -- [[VqdXkSPNzlfHqikBBPX]] &new{2009-1...
- 270_115.txt;8;12 -- [[ymvvrfEawpEIUtOM]] &new{2009-11-1...
- 270_116.txt;8;12 -- [[GBAOyQTHKibJJuqXsO]] &new{2009-11...
- 270_117.txt;8;12 -- [[cmDXaEupty]] &new{2009-11-19 (木)...
- 270_118.txt;8;12 -- [[gzwbPzRTu]] &new{2009-11-19 (木) ...
- 270_119.txt;8;12 -- [[NcfRgKKMMgyhsaV]] &new{2009-11-20...
- 270_120.txt;8;12 -- [[tIdQLPpiMeZjalWtt]] &new{2009-11-...
- 4nUbyV pepyaka -- [[gfdggdfg]] &new{2010-10-12 (火) 06:...
- doorslinks.txt;7;12 -- [[nLqwbMSuht]] &new{2010-10-14 (...
#comment
ページ名: