*傭兵さんみたいに作ったんですけど・・ [#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}; - TgzMMWYMJZ -- [[gsipjnsz]] &new{2009-03-02 (月) 15:15:08}; - ml5ArK hfN2cnPosa82GhrpCayYr -- [[paul]] &new{2009-06-19 (金) 18:59:19}; - comment2 -- [[Plklgjgn]] &new{2009-11-06 (金) 03:26:33}; - comment1 -- [[Peggggky]] &new{2009-11-06 (金) 08:31:15}; - comment5 -- [[Knmqiede]] &new{2009-11-06 (金) 13:34:08}; - comment4 -- [[Hhpubtbz]] &new{2009-11-06 (金) 18:32:04}; - comment1 -- [[Unofqofx]] &new{2009-11-06 (金) 23:49:26}; - comment2 -- [[Qrhhpujh]] &new{2009-11-07 (土) 04:49:21}; - comment2 -- [[Zekpcmwz]] &new{2009-11-07 (土) 09:37:25}; - comment2 -- [[Telrsyoj]] &new{2009-11-07 (土) 14:47:11}; - comment2 -- [[Olumnqwl]] &new{2009-11-07 (土) 20:12:31}; - comment2 -- [[Tgolquai]] &new{2009-11-08 (日) 01:37:35}; - comment6 -- [[Djktnvij]] &new{2009-11-08 (日) 06:54:34}; - comment3 -- [[Iynivvqb]] &new{2009-11-08 (日) 12:04:53}; - comment6 -- [[Iwmnkwyd]] &new{2009-11-08 (日) 17:40:24}; - comment2 -- [[Ooikxdiw]] &new{2009-11-08 (日) 23:18:42}; - comment3 -- [[Adamstiu]] &new{2009-11-09 (月) 05:01:23}; - comment6 -- [[Snmfisxi]] &new{2009-11-09 (月) 10:22:28}; - comment1 -- [[Dhxfwuzb]] &new{2009-11-09 (月) 15:45:57}; - comment3 -- [[Eaqwhjgq]] &new{2009-11-09 (月) 21:12:10}; - comment5 -- [[Gnyyshei]] &new{2009-11-10 (火) 02:36:17}; - comment1 -- [[Vqjfvzqa]] &new{2009-11-10 (火) 02:36:23}; - comment4 -- [[Hiiepghj]] &new{2009-11-10 (火) 07:44:03}; - comment4 -- [[Hiiepghj]] &new{2009-11-10 (火) 07:44:40}; - comment2 -- [[Qybrjfnb]] &new{2009-11-10 (火) 12:45:39}; - comment6 -- [[Nsojmaso]] &new{2009-11-10 (火) 18:00:30}; - comment5 -- [[Pqreqztk]] &new{2009-11-10 (火) 23:13:48}; - comment5 -- [[Pqreqztk]] &new{2009-11-10 (火) 23:13:56}; - comment1 -- [[Pgejscso]] &new{2009-11-11 (水) 04:12:17}; - comment3 -- [[Kxmkrjob]] &new{2009-11-11 (水) 04:12:23}; - comment6 -- [[Jecvlhxf]] &new{2009-11-11 (水) 08:53:16}; - comment3 -- [[Psfuahtz]] &new{2009-11-11 (水) 13:42:46}; - comment3 -- [[Psfuahtz]] &new{2009-11-11 (水) 13:44:38}; - comment1 -- [[Gmjzzqka]] &new{2009-11-11 (水) 18:37:00}; - comment2 -- [[Wfvypchl]] &new{2009-11-11 (水) 23:03:50}; - comment4 -- [[Nsuiyhqo]] &new{2009-11-12 (木) 03:38:39}; - comment1 -- [[Ayasewkk]] &new{2009-11-12 (木) 08:01:55}; - comment1 -- [[Ayasewkk]] &new{2009-11-12 (木) 08:02:31}; - comment2 -- [[Liholphg]] &new{2009-11-12 (木) 12:15:11}; - comment1 -- [[Euxqzklb]] &new{2009-11-12 (木) 14:21:23}; - comment2 -- [[Owtadotl]] &new{2009-11-12 (木) 16:29:09}; - comment5 -- [[Auhlcxyq]] &new{2009-11-12 (木) 18:36:21}; - comment4 -- [[Snxyoebt]] &new{2009-11-12 (木) 20:44:08}; - comment5 -- [[Fjlromwn]] &new{2009-11-12 (木) 22:53:55}; - comment6 -- [[Pvzqdvmn]] &new{2009-11-13 (金) 01:05:18}; - comment3 -- [[Acixxxlb]] &new{2009-11-13 (金) 03:13:46}; - comment2 -- [[Awsfexmh]] &new{2009-11-13 (金) 05:20:41}; - comment6 -- [[Xfofxukw]] &new{2009-11-13 (金) 07:24:27}; - comment2 -- [[Ltrldtez]] &new{2009-11-13 (金) 09:30:06}; - comment4 -- [[Kzrwohfl]] &new{2009-11-13 (金) 11:39:30}; - comment4 -- [[Kzrwohfl]] &new{2009-11-13 (金) 11:40:02}; - comment4 -- [[Pnsbcikg]] &new{2009-11-13 (金) 13:44:57}; - comment5 -- [[Hbtumhfk]] &new{2009-11-13 (金) 15:52:04}; - comment5 -- [[Vnborwko]] &new{2009-11-13 (金) 18:09:42}; - comment2 -- [[Kktomxtf]] &new{2009-11-13 (金) 20:24:12}; - comment5 -- [[Icaezbvy]] &new{2009-11-13 (金) 22:36:04}; - comment5 -- [[Tzekzhdq]] &new{2009-11-14 (土) 00:50:45}; - comment1 -- [[Xejgytas]] &new{2009-11-14 (土) 19:05:59}; - comment4 -- [[Unrihfxc]] &new{2009-11-15 (日) 20:46:40}; - comment4 -- [[Unrihfxc]] &new{2009-11-15 (日) 20:46:42}; - comment4 -- [[Npcpqwan]] &new{2009-11-15 (日) 23:08:54}; #comment