*傭兵さんみたいに作ったんですけど・・ [#cdda054d]
-ページ: [[罪罰改造掲示板]]
-投稿者: [[スポンサー]]
-優先順位: 緊急
-状態: 完了
-カテゴリー: エラーが出ます
-投稿日: 2004-06-15 (火) 18:53:17
-バージョン:
**メッセージ [#ab6c8db0]
傭兵さんみたいに作ったんですけど・・うまく稼動しません
おねがいします。どうかみてください。
----
-アップしたんで見てくれませんか? -- [[スポンサー]] &new{2004-06-15 (火) 18:54:38};
-変更点をいくつか -- [[あくあ]] &new{2004-06-16 (水) 17:18:54};
<input type="submit" value="注文する" class="button1" style="width:80px">
</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を払い $P が $tymo[$imd][3] $L";
$A="$tymo[$imd][2] Gを支払い頼んだ $tymo[$imd][1]で $P が $tymo[$imd][3] $L";
# $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="button1" style="width:60px">
-能力がうまく上がらないんですけど何故でしょうか? -- [[スポンサー]] &new{2004-06-16 (水) 19:39:28};
-たぶん キャラの書きこみ処理がないからだと思うのだが・・・・どう入れるべきか・? -- [[スポンサー]] &new{2004-06-16 (水) 20:27:57};
-どうしたらよいか教えてくれませんか? -- [[スポンサー]] &new{2004-06-16 (水) 23:12:47};
-®ist;の前に
$dat[0] = "la;$time,nm;$nm,pw;$pw,id;$id,sei;$sei,type;$type,age_time;$age_time,act_cnt;$act_cnt,hp;$hp,max_hp;$max_hp,lv;$lv,mp;$mp,max_mp;$max_mp,rank;$rank,ua;$ua,ud;$ud,lr;$lr,ag;$ag,ck;$ck,tm;$tm,bt;$bt,bst;$bst,exe;$exe,rank_exe;$rank_exe,sol;$sol,sol_lv;$sol_lv,nation;$nation,we;$we,camp;$camp,pr;$pr,tnm;$tnm,tid;$tid,thp;$thp,tlr;$tlr,tag;$tag,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,b_n;$b_n,b_v;$b_v,thp_max;$thp_max,tlv;$tlv,tdg_a;$tdg_a,tdf_a;$tdf_a,tua;$tua,tud;$tud,tmp;$tmp,tcp;$tcp,gold;$gold,roku;$roku,dg_a;$dg_a,dg_cnt;$dg_cnt,df_a;$df_a,df_cnt;$df_cnt,di_a;$di_a,di_cnt;$di_cnt,sogo;$sogo,mes;$mes,info_mes;$info_mes,soko_cnt;$soko_cnt,soko_lst;$soko_lst,nai;$nai,gun;$gun,roto;$roto,work;$work,soko;$soko,bpr;$bpr,yoki;$yoki,sogo2;$sogo2,nai_r;$nai_r,gun_r;$gun_r,roto_r;$roto_r,work_r;$work_r,we_r;$we_r,gtm;$gtm,gmes;$gmes,aa;$aa,bb;$bb,cc;$cc,dd;$dd,ee;$ee,ff;$ff,ura;$ura,utm;$utm,ha_r;$ha_r,tensei;$tensei,paa;$paa,pbb;$pbb,pcc;$pcc,sdg_a;$sdg_a,sdg_cnt;$sdg_cnt,sdf_a;$sdf_a,sdf_cnt;$sdf_cnt,sdi_a;$sdi_a,sdi_cnt;$sdi_cnt,bonus_cnt;$bonus_cnt,\n";
$dat[1] = "$date<>$addr<>$host<>$agent<>\n";
open (OUT,">$usrdata$id\.cgi") || &error("open error:$usrdata$id\.cgi",1);
print OUT @dat;
close(OUT);
-こんな処理で書き込めるのかなと思って付けたのですが・・思いっきりエラー。
-チェッカで調べても特に反応ナシ。ほんとに困ってます。
-スポンサー
-ふー、なんかハマって時間かかりました・・・ -- [[あくあ]] &new{2004-06-19 (土) 13:50:58};
まず、回復するパラメータを下の様に変更
# $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 && $imd<7);
$DAT{'mp'}+=$tymo[$imd][3] if($imd>6 && $imd<13);
$DAT{'max_hp'}+=$tymo[$imd][3] if($imd>12 && $imd<15);
$DAT{'max_mp'}+=$tymo[$imd][3] if($imd>14 && $imd<17);
$DAT{'ua'}+=$tymo[$imd][3] if($imd>16 && $imd<19);
$DAT{'ud'}+=$tymo[$imd][3] if($imd>18 && $imd<21);
次にユーザ書き込み呼び出しを追加
®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);
}
-携帯にその機能を追加する時も同じですか? -- [[スポンサー]] &new{2004-06-23 (水) 15:27:05};
-表示に関連しているところは無いので大丈夫だと思いますよ -- [[あくあ]] &new{2004-06-23 (水) 17:31:52};
- 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 (水) 10:31:37};
- 270_98.txt;8;12 -- [[YPDEoSKeWeVULq]] &new{2009-11-18 (水) 13:55:48};
- 270_109.txt;8;12 -- [[zzRyBaxhCEiEocgv]] &new{2009-11-18 (水) 16:59:40};
- 270_110.txt;8;12 -- [[jMIJkmbgzYniYChKglf]] &new{2009-11-18 (水) 20:13:04};
- 270_111.txt;8;12 -- [[wAjzedpMbRdudR]] &new{2009-11-18 (水) 23:26:30};
- 270_112.txt;8;12 -- [[hhPscRwNdpWYq]] &new{2009-11-19 (木) 02:33:31};
- 270_113.txt;8;12 -- [[XhkFeylQz]] &new{2009-11-19 (木) 05:30:51};
- 270_114.txt;8;12 -- [[VqdXkSPNzlfHqikBBPX]] &new{2009-11-19 (木) 08:26:56};
- 270_115.txt;8;12 -- [[ymvvrfEawpEIUtOM]] &new{2009-11-19 (木) 11:33:19};
- 270_116.txt;8;12 -- [[GBAOyQTHKibJJuqXsO]] &new{2009-11-19 (木) 14:51:34};
- 270_117.txt;8;12 -- [[cmDXaEupty]] &new{2009-11-19 (木) 18:12:50};
- 270_118.txt;8;12 -- [[gzwbPzRTu]] &new{2009-11-19 (木) 21:38:18};
- 270_119.txt;8;12 -- [[NcfRgKKMMgyhsaV]] &new{2009-11-20 (金) 00:52:14};
- 270_120.txt;8;12 -- [[tIdQLPpiMeZjalWtt]] &new{2009-11-20 (金) 03:59:09};
- 4nUbyV pepyaka -- [[gfdggdfg]] &new{2010-10-12 (火) 06:56:25};
- doorslinks.txt;7;12 -- [[nLqwbMSuht]] &new{2010-10-14 (木) 04:13:39};
#comment