#-----------------------------------------------------------# # 罪と罰++ 二律背反 # # Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD # # Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] # # BLANK BOARD [ http://pom.to/ ] # #-----------------------------------------------------------# # Arranged by こさど # # 罪と罰++ 英雄列伝 # # [http://kosado.net] # #--- [注意事項] --------------------------------------------# # ・このスクリプトは以下の利用規程に従って配布しています。 # # http://www24.big.or.jp/~obo/game/ore_/gild/ # #-----------------------------------------------------------# #=============================================================================== # 参加者データ変更 sub tusr_file_open{ $kid=$id;$kpw=$pw; $lock = &lock if $lock_check; open(IN,"$usrdata$aid\.cgi") || &error("Open Error : $usrdata$aid\.cgi",1); @dat = ; close(IN); $t_dat=$dat[1]; %DAT = ''; my @prats = split(/,/,$dat[0]); foreach (0 .. $#prats){ my($key,$v) = split(/;/,$prats[$_]); $v =~ s/\r\n//g; $v =~ s/\r//g; $v =~ s/\n//g; $DAT{$key} = $v; } require './inc/ore_sub-system.cgi';&hash_data; &error("open error no such a file!",1) if(!$in{'nm'} || !$aid); # 書き換えありの場合の値の追加 $hp-=$in{'hp'} if($in{'hp'}); $let+=$in{'let'} if($in{'let'}); $gold=$in{'tgp'} if($in{'tgp'}); # ↓ここの変数はご自分のサイトに合わせて変更してください。ただし、一番最初のla;$laはla;$timeとしないように。 # この$laという変数はログインした時間ですので、$timeとすると相手のログインした時間まで狂ってしまいます。 # system.cgiからコピペする場合はここだけ変更忘れないように気をつけてください。 $dat[0] = "la;$la,nm;$nm,pw;$pw,id;$aid,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,team1_lv;$team1_lv,team1_exe;$team1_exe,team1;$team1,team2_lv;$team2_lv,team2_exe;$team2_exe,team2;$team2,team3_lv;$team3_lv,team3_exe;$team3_exe,team3;$team3,team4_lv;$team4_lv,team4_exe;$team4_exe,team4;$team4,team5_lv;$team5_lv,team5_exe;$team5_exe,team5;$team5,nation;$nation,we;$we,camp;$camp,pr;$pr,tnm;$tnm,tid;$tid,tid2;$tid2,thp;$thp,tlr;$tlr,tag;$tag,tsol;$tsol,tsg;$tsg,tsol_lv;$tsol_lv,tteam1_lv;$tteam1_lv,tteam1;$tteam1,tteam2_lv;$tteam2_lv,tteam2;$tteam2,tteam3_lv;$tteam3_lv,tteam3;$tteam3,tteam4_lv;$tteam4_lv,tteam4;$tteam4,tteam5_lv;$tteam5_lv,tteam5;$tteam5,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,asid;$asid,kenf;$kenf,tdmg;$tdmg,ua_bst;$ua_bst,ud_bst;$ud_bst,ag_bst;$ag_bst,hosp;$hosp,rap;$rap,koken;$koken,ushu;$ushu,sogo2;$sogo2,let;$let,bonus_cnt;$bonus_cnt,\n"; $dat[1] = $t_dat; open (OUT,">$usrdata$aid\.cgi") || &error("open error:$usrdata$aid\.cgi",1); print OUT @dat; close(OUT) or die "Can't close : $!"; $id=$kid;$pw=$kpw; require './inc/ore_sub-system.cgi';&usr_file_open;&hash_data; # ファイルアンロック(rename式) &unlock($lock) if $lock_check; } 1;#削除不可