- 追加された行はこの色です。
- 削除された行はこの色です。
*傭兵さんみたいに作ったんですけど・・ [#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};
#comment
