Image WELCOME TO MY HOMEPAGE
ふぁぶりーず王国

初心者だけどよろしく

Icon 氏名/ニックネーム
yk127 
Icon 職業/会社名/学校名
某K市N中学校 
Icon 役職/学年
中学2年 
Icon 誕生日
1月27日 
Icon 性別
男性 
Icon 出身地/出身校
A小学校 
Icon 住まい
K市 
Icon 趣味
読書・音楽鑑賞 
Icon 特技
剣道初段 英検3級 漢検3級 
Icon 好きなもの、嫌いなもの
嫌いなのはトマト 
ゲストブックを読む ゲストブックに書く 日記帳 ランキング

Mail
メールお待ちしてます

お気に入りのサイト
Icon
Icon
Icon
Icon
Icon



2003年03月12日 21時15分51秒


GeoCities Japan

メイン / コミュニティ / アベニュー / E-List / 街角広場
インフォメーションセンター / 検索 / ヘルプ / ガイドライン

#!/usr/local/bin/perl #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ # # The Endless Battle program Satellite # Copyright Net Game Communications All Rights reserved # メインスクリプト # # フリーウェアですが、著作権は放棄していません。 # 再配布、商用利用する場合はご報告願います。 #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ # # The Endless Battle sub program # Copyright masimaro All Rights reserved # 参加者表示スクリプト # #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ #設定 $SCRIPTNM="member.cgi"; #参加者表示スクリプト名 $timer = "30"; #参加者表示の時間 # #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ require 'ebs_sub1.cgi'; &ERROR('直リンクは禁止です','入り口からのアクセスお願いします。') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST'; !$SUB && ($SUB='MEMBER'); &$SUB; sub MEMBER{ &HEADER; &DBM_INPORT(P); print << " -----END-----";
-----END----- $COUNT=1; while (my($key,$val) = each %P){ @VALS = split(/\s/,$val);$ET++; if($VALS[5] eq''){$NATION="$NONE_NATIONALITY";}else{$NATION="$VALS[5]";} if ( $VALS[26] >= time-$timer*60){ print ""; print ""; $COUNT++; } } print << " -----END-----";
$timer分以内の参戦状況
$COUNT$key【$NATION】所属$VALS[3]機
-----END----- print "
参加者\表\示:EDIT BY MASIMARO"; &FOOTER; print "
"; } #!/usr/local/bin/perl #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ # # The Endless Battle program Satellite # Copyright Net Game Communications All Rights reserved # メインスクリプト # # フリーウェアですが、著作権は放棄していません。 # 再配布、商用利用する場合はご報告願います。 #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ # # The Endless Battle sub program # Copyright masimaro All Rights reserved # 攻略ミッションスクリプト # #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ # 設定 $SCRIPTNM="mission.cgi"; #ミッションスクリプト名 $YOUSAINM = "暗黒要塞"; #要塞名称 $MABOROSI = "2号機"; #ミラー機体名称 $ZAKO = "訓練機"; #訓練機名称 $ZAKOGIF="194"; #訓練機画像番号 $timer = "60"; #使用できる時間の間隔(秒) # #_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/_/ require 'ebs_sub1.cgi'; &ERROR('直リンクは禁止です','入り口からのアクセスお願いします。') if $ENV{'HTTP_REFERER'} !~ m/^$THIS_DIR/ && $DIRECT_LINK && $SUB ne 'MY_LIST' && $SUB ne 'C_LIST'; !$SUB && ($SUB='TOP'); &$SUB; sub LOGIN {&LOGIN2;} sub LOG0 {require 'ebs_sub2.cgi';&LOG01;} sub LOGO {require 'ebs_sub2.cgi';&LOGO2;} sub TOP {&FRAME;} sub MAIN_FRAME {require "./$LOG_FOLDER/$HASH_DATA";&STATUS;} sub BATTLE_2 {&BATTLE2;} sub FRAME{ print <<" -----END-----"; Content-type: text/html ENDLESS BATTLE -----END----- } sub LOGIN2{ @pair = split(/;/, $ENV{'HTTP_COOKIE'}); foreach (@pair) {my($key, $value) = split(/=/, $_);$DUMMY{$key} = $value;} @pairs = split(/,/, $DUMMY{EB}); foreach (@pairs) {my($key, $value) = split(/:/, $_);$COOKIE{$key} = $value;} $BG_TOP="bgcolor=\"$BG_TOP\"" if $BG_TOP !~ /\./; $BG_TOP="background=\"$BG_TOP\"" if $BG_TOP =~ /\./; print "Content-type: text/html\n\n"; print << " -----END-----";
The Endless Battle
Program Satellite
Copyright NET GAME Communications All Right Reserved.

-----END----- $js1=""; print " "; print "Special Mission"; print "

特別指令:EDIT BY MASIMARO"; print "
"; print "\n" if $BANNER_DISPLAY; } sub STATUS{ &DBM_CONVERT('P',"$FORM{pname}") if !$FORM{'Cmode'}; &DBM_CONVERT('C',"$PL_VALUES[5]") if $PL_VALUES[5]; &ERROR('NameError','IDが間違っているか、登録されていません。') if !@PL_VALUES; &ERROR('PwdError','パスワードが間違っている恐れがあります。') if crypt ($FORM{'pass'},eb) ne "$PL_VALUES[2]"; &REPAIR(PL); if ($FORM{'login'}){ if ($ENV{'REMOTE_HOST'}){$host="$ENV{'REMOTE_HOST'}";}else{$ipad=pack('C4',split(/\./,$ENV{'REMOTE_ADDR'})); $host = gethostbyaddr($ipad,2);} dbmopen (%L,"$DBM_L",0666); foreach (sort {$b <=> $a} keys %L){$lc++;delete $L{"$_"} if $lc > 51;} $L{"$DATE"}="$FORM{'pname'}!$ENV{'REMOTE_ADDR'}!$host"; dbmclose %L; } SET_COOKIE:{ my @gmt = gmtime(time + $COOKIE_KEEP*24*60*60); $gmt[0] = sprintf("%02d", $gmt[0]); $gmt[1] = sprintf("%02d", $gmt[1]); $gmt[2] = sprintf("%02d", $gmt[2]); $gmt[3] = sprintf("%02d", $gmt[3]); $gmt[5] += 1900; $gmt[4] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$gmt[4]]; $gmt[6] = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$gmt[6]]; my $date_gmt = "$gmt[6], $gmt[3]\-$gmt[4]\-$gmt[5] $gmt[2]:$gmt[1]:$gmt[0] GMT"; my $cook = "pname:$FORM{'pname'},pass:$FORM{'pass'}";print "Set-Cookie: EB=$cook; expires=$date_gmt\n"; } if ($PL_VALUES[28]){ foreach ("$CL_VALUES[2]","$CL_VALUES[3]","$CL_VALUES[4]"){if ($PL_VALUES[28] eq "$_") {$DeleteFlag=1;}} if (!$DeleteFlag){$PL_VALUES[6]=$PL_VALUES[28]="";$flagd=1;} } if ($PL_VALUES[5] && !@CL_VALUES){$PL_VALUES[5]=$PL_VALUES[28]='';$PL_VALUES[6]=0;$flagd=1;} if (!$PL_VALUES[5] && $PL_VALUES[6]){$PL_VALUES[6]='0';$flagd=1;} if ($flagd){ dbmopen (%PL,"$DBM_P",0666); $PL{"$FORM{'pname'}"}="@PL_VALUES"; dbmclose %PL; } local($WN_A,$WLV_A) = split(/!/,$PL_VALUES[9]); local($WN_B,$WLV_B) = split(/!/,$PL_VALUES[10]); local($WN_C,$WLV_C) = split(/!/,$PL_VALUES[11]); if ($PL_VALUES[25] == 0){$CONDITIONAL = '発進可';} elsif($PL_VALUES[25] == 1){$CONDITIONAL = '修理中';} $CL_VALUES[0]='#808080' if !$PL_VALUES[5]; &HEADER; print "
"; print ""; sub BORDER {"border$_[0]:1px solid $_[1];";} $AT=int(($PL_VALUES[19]/50)*30); $DE=int(($PL_VALUES[20]/50)*30); $SP=int(($PL_VALUES[21]/50)*30); $MT=int(($PL_VALUES[22]/50)*30); print ""; print ""; $WEP_A=$WLV_A%$WEAPON_LVUP; $WEP_B=$WLV_B%$WEAPON_LVUP; $WEP_C=$WLV_C%$WEAPON_LVUP; $WLV_A=int$WLV_A/$WEAPON_LVUP;$WLV_B=int$WLV_B/$WEAPON_LVUP;$WLV_C=int$WLV_C/$WEAPON_LVUP; print ""; print << "-----END-----";
"; print "$FORM{pname}"; print &RANK($PL_VALUES[0],$PL_VALUES[5],$PL_VALUES[6])." "; $PL_VALUES[5]="$NONE_NATIONALITY" if !$PL_VALUES[5]; print "($PL_VALUES[5])  "; print "$PL_VALUES[28]

$PL_VALUES[3]
"; print "熟練度: ".&STATUS_CONVERT("$PL_VALUES[24]",'j')."
"; print "$CONDITIONAL
   "; print ""; $fil='style="position:relative;filter:alpha(opacity=70,finishopacitiy=70);"'; print ""; print ""; print "
$STATUS_NAME[0]
".&STATUS_CONVERT("$PL_VALUES[19]",'s')."
$STATUS_NAME[1]
".&STATUS_CONVERT("$PL_VALUES[20]",'s')."
$STATUS_NAME[2]
".&STATUS_CONVERT("$PL_VALUES[21]",'s')."
"; print ""; print ""; print ""; print ""; print "
"; print ""; print "
"; print ""; print "
"; $STYL1="background-color:$TABLE_COLOR2;font-size:13px;"; $STYL2="style=\"border:1px solid $TABLE_BORDER;\""; print "
$STATUS_NAME[3]
".&STATUS_CONVERT("$PL_VALUES[22]",'s')."
"; print "
   "; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print ""; print "
$STATUS_NAME[4]"; print "$PL_VALUES[15]/ $PL_VALUES[16]
$STATUS_NAME[5]"; print "$PL_VALUES[17]/ $PL_VALUES[18]
Level$PL_VALUES[29]
EXP$PL_VALUES[30]/ "; $NEXT=($PL_VALUES[29]+1)*200; print "$NEXT
性格".&STATUS_CONVERT("$PL_VALUES[12]",'c')."
$STATUS_NAME[6]"; print &STATUS_CONVERT("$PL_VALUES[4]",'t')."型
Money$PL_VALUES[8]
   "; @WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});print"  装備  ".$WN_sA[0]." Lv.$WLV_A/exp.$WEP_A
"; @WN_sB=split(/\,/,$WEAPON_LIST{"$WN_B"});print'  予備  '.$WN_sB[0].''; print " Lv.$WLV_B/exp.$WEP_B" if $WN_sB[0];print "
"; @WN_sC=split(/\,/,$WEAPON_LIST{"$WN_C"});print'  予備  '.$WN_sC[0].""; print " Lv.$WLV_C/exp.$WEP_C" if $WN_sC[0];print "
"; print "  LASTBATTLE    "; ($DatHp,$Result) = split(/!/,$PL_VALUES[1]); print &DATE_DECORD("$DatHp")." 
  $Result"; print "
         
-----END----- print "\n" if $BANNER_DISPLAY; print << " -----END-----"if $ENV{'HTTP_USER_AGENT'} =~ m/MSIE/i; -----END----- exit; } sub BATTLE2{ SET_COOKIE:{ my @gmt = gmtime(time + $COOKIE_KEEP*24*60*60); $gmt[0] = sprintf("%02d", $gmt[0]);$gmt[1] = sprintf("%02d", $gmt[1]);$gmt[2] = sprintf("%02d", $gmt[2]); $gmt[3] = sprintf("%02d", $gmt[3]);$gmt[5] += 1900; $gmt[4] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$gmt[4]]; $gmt[6] = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$gmt[6]]; my $date_gmt = "$gmt[6], $gmt[3]\-$gmt[4]\-$gmt[5] $gmt[2]:$gmt[1]:$gmt[0] GMT"; print "Set-Cookie:EBMISSON=$FORM{'mode'}; expires=$date_gmt\n"; } &LOCK; &DBM_CONVERT('P',"$FORM{pname}",'VS',"$FORM{vsname}") if !$FORM{'yousai'}; &DBM_CONVERT('C',"$PL_VALUES[5]",'VC',"$VS_VALUES[5]") if !$FORM{'yousai'}; &DBM_CONVERT('C',"$PL_VALUES[5]",'VC',"$FORM{'vsname'}") if $FORM{'yousai'}; &UNLOCK; ###要塞能力設定 if ($FORM{'b_mode'} eq '突入'){ $RAND=int(rand(10)+1); $HITPOINT=$PL_VALUES[16]*$RAND;$MAXPOINT=$PL_VALUES[16]*$RAND; @VS_VALUES=("300","$PL_VALUES[1]","0","要塞","AL","$PL_VALUES[5]","99","","0","zzzz","zzzz","zzzz","6","$PL_VALUES[0]","0","$HITPOINT","$MAXPOINT","9999","9999","$PL_VALUES[19]","$PL_VALUES[20]","$PL_VALUES[21]","$PL_VALUES[22]","99","999","0","$DATE","1000","0","99","0"); } if ($FORM{'b_mode'} eq '特訓'){ $YOUSAINM = $MABOROSI; @VS_VALUES=("$PL_VALUES[0]","$PL_VALUES[1]","$PL_VALUES[2]","$PL_VALUES[3]","AL","$PL_VALUES[5]","$PL_VALUES[6]","$PL_VALUES[7]","$PL_VALUES[8]","$PL_VALUES[9]","$PL_VALUES[10]","$PL_VALUES[11]","$PL_VALUES[12]","$PL_VALUES[13]","$PL_VALUES[14]","$PL_VALUES[15]","$PL_VALUES[16]","$PL_VALUES[17]","$PL_VALUES[18]","$PL_VALUES[19]","$PL_VALUES[20]","$PL_VALUES[21]","$PL_VALUES[22]","$PL_VALUES[23]","$PL_VALUES[24]","$PL_VALUES[25]","$DATE","$PL_VALUES[27]","$PL_VALUES[28]","$PL_VALUES[29]","$PL_VALUES[30]"); } if ($FORM{'b_mode'} eq '演習'){ $YOUSAINM = $ZAKO; $RAND=int(rand(10)+1); $HITPOINT=int($PL_VALUES[16]/$RAND);$MAXPOINT=int($PL_VALUES[16]/$RAND); @VS_VALUES=("0","$PL_VALUES[1]","","$ZAKO","AL","$PL_VALUES[5]","$PL_VALUES[6]","$PL_VALUES[7]","0","a","$PL_VALUES[10]","$PL_VALUES[11]","6","$PL_VALUES[13]","$PL_VALUES[14]","$HITPOINT","$MAXPOINT","100","100","$PL_VALUES[19]","$PL_VALUES[20]","$PL_VALUES[21]","$PL_VALUES[22]","$PL_VALUES[23]","$PL_VALUES[24]","$PL_VALUES[25]","$DATE","$ZAKOGIF","$PL_VALUES[28]","$PL_VALUES[29]","$PL_VALUES[30]"); } &REPAIR(PL);&REPAIR(VS); if (@CL_VALUES){$PL_Country="$PL_VALUES[5]";}else{$PL_Country=$NONE_NATIONALITY;$CL_VALUES[0]='#808080';} if (@VC_VALUES){$VS_Country="$VS_VALUES[5]";}else{$VS_Country=$NONE_NATIONALITY;$VC_VALUES[0]='#808080';} if ( $PL_VALUES[26] >= time-$timer){&ERROR('連続での戦闘はできません')} &ERROR('修理中です') if $PL_VALUES[25]==1; local($PL_WN,$PL_WLV) = split(/!/,$PL_VALUES[9]); local($VS_WN,$VS_WLV) = split(/!/,$VS_VALUES[9]); require "./$LOG_FOLDER/$HASH_DATA"; @Pl_W=split(/\,/,$WEAPON_LIST{"$PL_WN"}); @Vs_W=split(/\,/,$WEAPON_LIST{"$VS_WN"}); $plbs=int ($PL_VALUES[20]+7) if $Pl_W[7] =~ m/4/; $vsbs=int ($VS_VALUES[20]+7) if $Vs_W[7] =~ m/4/; $Pl_AttPoint=int($Pl_W[1]*(($PL_WLV*0.0001)+1)); $Pl_SpPoint=$PL_VALUES[21];$Pl_DefPoint=($PL_VALUES[20]+$plbs)*2-int($VS_VALUES[19]/3);$Pl_MisPoint=$PL_VALUES[22]; $Pl_Kaikyu=&RANK($PL_VALUES[0],$PL_VALUES[5],$PL_VALUES[6]); $pwl=int $PL_WLV/$WEAPON_LVUP;$Pl_WeaponNameA="$Pl_W[0](Level.$pwl)"; &ERROR('noEnergy','ENが足りません。') if $PL_VALUES[17] < $Pl_W[4]; $Vs_AttPoint=int($Vs_W[1]*(($VS_WLV*0.0001)+1)); $Vs_SpPoint=$VS_VALUES[21];$Vs_DefPoint=($VS_VALUES[20]+$vsbs)*2-int($PL_VALUES[19]/3);$Vs_MisPoint=$VS_VALUES[22]; $Vs_Kaikyu=&RANK($VS_VALUES[0],$VS_VALUES[5],$VS_VALUES[6]); $vwl=int $VS_WLV/$WEAPON_LVUP;$Vs_WeaponNameA="$Vs_W[0](Level.$vwl)"; $Pl_SpPoint=int ($Pl_SpPoint*1.5) if $Pl_W[7] =~ m/3/; $Vs_SpPoint=int ($Vs_SpPoint*1.5) if $Vs_W[7] =~ m/3/; if ($PL_VALUES[16] > 50000){$Pl_SpPoint-=int(($PL_VALUES[16]-50000)/5000);} if ($VS_VALUES[16] > 50000){$Vs_SpPoint-=int(($VS_VALUES[16]-50000)/5000);} &SYUSEI('m',"$FORM{'mode'}",'Pl'); $VsMsnNo=int(rand(8)+1); &SYUSEI('m',"$VsMsnNo",'Vs'); &SYUSEI('s',"$PL_VALUES[12]",'Pl'); &SYUSEI('s',"$VS_VALUES[12]",'Vs'); $Pl_Times=$Vs_Times=0; $Pl_Check=$Vs_Check=1; $hImg=""; $mImg=""; for ($Plt=1;$Plt < 100; $Plt++ ){ $Pl_Initiative=$Pl_SpPoint+int(rand(30));$Vs_Initiative=$Vs_SpPoint+int(rand(30)); if($Pl_Initiative >= $Vs_Initiative){$Initiative=1;}else{$Initiative=0;} if($VS_W >= $Vs_W[3] && $PL_W >= $Pl_W[3]){last;} if ($Vs_AtPoint < $PL_VALUES[15] && $PL_W < $Pl_W[3] && ($Initiative || $VS_W >= $Vs_W[3])){ $Pl_Check=int(rand(100)+$Vs_SpPoint/2-$Pl_MisPoint/2);$PL_W++; if ($Pl_Check < $Pl_W[2]){$PlResult.="$hImg";$Pl_Times++; $Pl_AtPoint=$Pl_AtPoint+int($Pl_AttPoint-int($Vs_DefPoint*(int(rand(50)+90))/$Pl_W[3])); }elsif ($Pl_Check >= $Pl_W[2]) {$PlResult.="$mImg";} unless($PL_W % 10){$PlResult.="
\n";} next; } if ($Pl_AtPoint < $VS_VALUES[15] && $VS_W < $Vs_W[3] && (!$Initiative || $PL_W >= $Pl_W[3])){ $Vs_Check=int(rand(100)+$Pl_SpPoint/2-$Vs_MisPoint/2);$VS_W++; if ($Vs_Check < $Vs_W[2]){$VsResult.="$hImg";$Vs_Times++; $Vs_AtPoint=$Vs_AtPoint+int($Vs_AttPoint-int($Pl_DefPoint*(int(rand(50)+90))/$Vs_W[3])); }elsif ($Vs_Check >= $Vs_W[2]){$VsResult.="$mImg";} unless($VS_W % 10){$VsResult.="
\n";} next; } } $Pl_AtPoint=0 if $Pl_AtPoint < 0; $Vs_AtPoint=0 if $Vs_AtPoint < 0; $dmgStyl="style=\"font-size:21px;color:#9acd32;\""; $chaStyl="style=\"font-size:12px;color:#dc143c;\""; $PlsumDmg="$Pl_W[3] Attack $Pl_Times hit $Pl_AtPoint Damage" if $Pl_Times > 0; $PlsumDmg='Miss' if $Pl_Times == 0; $VssumDmg="$Vs_W[3] Attack $Vs_Times hit $Vs_AtPoint Damage" if $Vs_Times > 0; $VssumDmg='Miss' if $Vs_Times == 0; $Pl_BfrHP=$PL_VALUES[15]; $Vs_AtPoint=$PL_VALUES[15] if $PL_VALUES[15] < $Vs_AtPoint; $PL_VALUES[15]=$PL_VALUES[15]-$Vs_AtPoint; $Pl_width_per=$PL_VALUES[16]/150; $Pl_width_hp=int($PL_VALUES[15]/$Pl_width_per); $Pl_width_zen=int(($PL_VALUES[16]-$Pl_BfrHP)/$Pl_width_per); $Pl_width_dmg=int($Vs_AtPoint/$Pl_width_per); $PL_HPTAG="" if $Pl_width_hp; $PL_HPTAG.="" if $Pl_width_dmg; $PL_HPTAG.="" if $Pl_width_zen; $Vs_BfrHP=$VS_VALUES[15]; $Pl_AtPoint=$VS_VALUES[15] if $VS_VALUES[15] < $Pl_AtPoint; $VS_VALUES[15]=$VS_VALUES[15]-$Pl_AtPoint; $Vs_width_per=$VS_VALUES[16]/150; $Vs_width_hp=int($VS_VALUES[15]/$Vs_width_per); $Vs_width_zen=int(($VS_VALUES[16]-$Vs_BfrHP)/$Vs_width_per); $Vs_width_dmg=int($Pl_AtPoint/$Vs_width_per); $VS_HPTAG="" if $Vs_width_hp; $VS_HPTAG.="" if $Vs_width_dmg; $VS_HPTAG.="" if $Vs_width_zen; WORL:{ $VS_VALUES[15] == 0 && $PL_VALUES[15] > 0 && do{ $ResultBattle=0; $PL_In[0]=int (rand(5)+8);$VS_In[0]=int (rand(2)+2); $PL_In[1]=3;$VS_In[1]=-2; $PL_In[2]=int(rand(200)+400)+((250-$PL_VALUES[29])*$GET_MONEY); $VS_In[2]=int(rand(200)+400)+((250-$VS_VALUES[29])*int($GET_MONEY/3)); $PL_VALUES[24]++;$VS_VALUES[25]=1; ($PL_VALUES[0]=0,$PL_VALUES[5]="$FORM{'boumeiC'}",$B_Com='成功',$PL_VALUES[6]=0)if $FORM{'b_mode'} eq '亡命'; ($PL_VALUES[6]="$VS_VALUES[6]",$PL_VALUES[28]="$VS_VALUES[28]",$VS_VALUES[6]=0,$Vs_KakutokuRank=-120,$VS_VALUES[5]=$VS_VALUES[28]='',$B_Com='成功') if $FORM{'b_mode'} eq '内乱'; last WORL;}; $PL_VALUES[15] == 0 && $VS_VALUES[15] > 0 && do { $ResultBattle=1; $PL_In[0]=int (rand(2)+2);$VS_In[0]=int (rand(5)+8); $PL_In[1]=-2;$VS_In[1]=3; $PL_In[2]=int(rand(200)+400)+((250-$PL_VALUES[29])*int($GET_MONEY/3)); $VS_In[2]=int(rand(200)+400)+((250-$VS_VALUES[29])*$GET_MONEY); $VS_VALUES[24]++;$PL_VALUES[25]=1; ($PL_In[1]=int($PL_VALUES[0]/-3)*2,$B_Com='失敗') if $FORM{'b_mode'} eq '亡命'; ($PL_In[1]=($PL_VALUES[0])*-1,$B_Com='失敗') if $FORM{'b_mode'} eq '内乱'; last WORL;}; $VS_VALUES[15] > 0 && $PL_VALUES[15] > 0 && do{ $ResultBattle=2; $PL_In[0]=int (rand(3)+4);$VS_In[0]=int (rand(3)+4); $PL_In[1]=1;$VS_In[1]=1; $PL_In[2]=int(rand(200)+400);$VS_In[2]=int(rand(200)+400); ($PL_In[1]=int($PL_VALUES[0]/-3)*2,$B_Com='失敗') if $FORM{'b_mode'} eq '亡命'; ($PL_In[1]=($PL_VALUES[0])*-1,$B_Com='失敗') if $FORM{'b_mode'} eq '内乱'; last WORL;}; } $PL_In[2]=10 if $PL_In[2]<10;$VS_In[2]=10 if $VS_In[2]<10; $PL_VALUES[0]+=$PL_In[1]; $VS_VALUES[0]+=$VS_In[1]; $PL_VALUES[8]+=$PL_In[2]; $VS_VALUES[8]+=$VS_In[2]; $PL_VALUES[0]=0 if $PL_VALUES[0] < 0; $PL_VALUES[0]=215 if $PL_VALUES[0] >= 215; $PL_VALUES[0]=220 if $PL_VALUES[6] == 1; $VS_VALUES[0]=0 if $VS_VALUES[0] < 0; $VS_VALUES[0]=215 if $VS_VALUES[0] >= 215; $VS_VALUES[0]=220 if $VS_VALUES[6] == 1; $PL_VALUES[17]-=$Pl_W[4] if $Pl_Times;$PL_VALUES[17]=0 if $PL_VALUES[17] < 0; $Pl_vs="$VS_VALUES[5]の"if $VS_VALUES[5];$Pl_vs="$NONE_NATIONALITYの"if !$VS_VALUES[5]; $Vs_vs="$PL_VALUES[5]の"if $PL_VALUES[5];$Vs_vs="$NONE_NATIONALITYの"if !$PL_VALUES[5]; $PL_VALUES[1]="$DATE!$Pl_vs$YOUSAINMと交戦。";$PL_VALUES[26]=time; $VS_VALUES[1]="$DATE!$Vs_vs$FORM{'pname'}と交戦。"; ($ResultTag.="$YOUSAINM大破。
",$PL_VALUES[1].="$YOUSAINM大破。",$VS_VALUES[1].="$YOUSAINM大破。") if $ResultBattle==0; ($ResultTag.="$PL_VALUES[3]大破。
",$PL_VALUES[1].="$PL_VALUES[3]大破。",$VS_VALUES[1].="$PL_VALUES[3]大破。") if $ResultBattle==1; &HEADER; print << " -----END-----";
$PL_Country $PL_Country
$PL_VALUES[3]
($FORM{'pname'}$Pl_Kaikyu機)
$VS_VALUES[3]
($YOUSAINM)
【$Pl_MsnStyle】
HP  $PL_HPTAG$Pl_BfrHP /$PL_VALUES[16]
【$Vs_MsnStyle】
HP  $VS_HPTAG$Vs_BfrHP /$VS_VALUES[16]
$Pl_WeaponNameA
$PlResult
$PlsumDmg
EN:-$Pl_W[4]
$Vs_WeaponNameA
$VsResult
$VssumDmg
EN:-$Vs_W[4]
 
$ResultTag -----END----- print << " -----END-----"; -----END----- $Ch_rank=&RANK($PL_VALUES[0],$PL_VALUES[5],$PL_VALUES[6]); if($Ch_rank ne $Pl_Kaikyu && $Ch_rank){ print "$FORM{'pname'}は、$Ch_rankに"; print $PL_In[1] > 0 ? "昇格
":$PL_In[1] < 0 ? "降格
":"
"; } $Ch_rank=&RANK($VS_VALUES[0],$VS_VALUES[5],$VS_VALUES[6]); if($Ch_rank ne $Vs_Kaikyu && $Ch_rank){ print "$FORM{'vsname'}は、$Ch_rankに"; print $VS_In[1] > 0 ? "昇格
":$PL_In[1] < 0 ? "降格
":"
"; } $PL_In[4]=$PL_In[0]*($VS_VALUES[0]+1); $PL_VALUES[30]+=$PL_In[4]; print "$FORM{'pname'} は $PL_In[4] の経験値を獲得
"; if (($PL_VALUES[29]+1)*200 <= $PL_VALUES[30]){ print "$FORM{'pname'} は レベルが上がった
"; $PL_VALUES[30]=0; $PL_VALUES[29]++; sub BONUS{"   $_[0]がわずかにアップ。
";} $C=$PL_VALUES[23];$C=4 if $C > 4; $StatusMax=('20','30','35','40','50')[$C]; $BoAt=$BoSp=$BoDe=$BoAg=5; if ($PL_VALUES[4] == 1){$BoAt=20;} elsif ($PL_VALUES[4] == 2){$BoDe=20;} elsif ($PL_VALUES[4] == 3){$BoSp=20;} elsif ($PL_VALUES[4] == 4){$BoAg=20;} elsif ($PL_VALUES[4] == 0){$BoAt=$BoSp=$BoDe=$BoAg=9;} if (rand(22) < $BoAt && $PL_VALUES[19] < $StatusMax){print &BONUS('攻撃力');$PL_VALUES[19]++;} if (rand(22) < $BoDe && $PL_VALUES[20] < $StatusMax){print &BONUS('防御力');$PL_VALUES[20]++;} if (rand(22) < $BoSp && $PL_VALUES[21] < $StatusMax){print &BONUS('スピード');$PL_VALUES[21]++;} if (rand(22) < $BoAg && $PL_VALUES[22] < $StatusMax){print &BONUS('命中力');$PL_VALUES[22]++;} } if ($ResultBattle==1){ sub DOWN{"   機体損壊 $_[0]がわずかにダウン。
";} $Event=int(rand(70)); if ($Event == 12 && $PL_VALUES[19] >= 1){print &DOWN("$STATUS_NAME[0]");$PL_VALUES[19]--;} if ($Event == 13 && $PL_VALUES[20] >= 1){print &DOWN("$STATUS_NAME[1]");$PL_VALUES[20]--;} if ($Event == 14 && $PL_VALUES[21] >= 1){print &DOWN("$STATUS_NAME[2]");$PL_VALUES[21]--;} if ($Event == 15 && $PL_VALUES[22] >= 1){print &DOWN("$STATUS_NAME[3]");$PL_VALUES[22]--;} if ($Event == 20 && $PL_VALUES[16] >= 5000){print &DOWN("$STATUS_NAME[4]");$PL_VALUES[16]=int($PL_VALUES[16]*0.995);} if ($Event == 40 && $PL_VALUES[18] >= 100){print &DOWN("$STATUS_NAME[5]");$PL_VALUES[18]=int($PL_VALUES[18]*0.995);} } if (!$ResultBattle && (!$PL_VALUES[10] || !$PL_VALUES[11])){ my@al=keys %WEAPON_LIST;$alw=@al; $alw=int rand($alw);$gw=@al[$alw];$gw='a' if !$gw; @q=split(/\,/,$WEAPON_LIST{"$gw"}); if ($FORM{'b_mode'} eq '突入'){$q[8]=$q[8]*2;} elsif ($FORM{'b_mode'} eq '演習'){$q[8]=0;} if ($q[8] > rand(100)){ if (!$PL_VALUES[10]){$PL_VALUES[10]=$gw;} elsif(!$PL_VALUES[11]){$PL_VALUES[11]=$gw;} print "武器を獲得。
\n"; } } if ($PL_VALUES[12] != 6){$PL_VALUES[12]='6' if ($FORM{'mode'} ==1 && rand(255) > 253 && $NT_START==1) || (rand(255) > 253 && $NT_START==2) || (rand(255) > 253 && $NT_START==2) || (rand(500) == 1 && $NT_START==3);}else{$PL_VALUES[12]="$VS_VALUES[12]" if ($FORM{'mode'} !=1 && rand(255) > 200 && $NT_END==1) || (rand(255) > 253 && $NT_END==2) || (rand(255) > 253 && $NT_END==2) || (rand(500) == 1 && $NT_END==3);} if ($Pl_W[7] =~ m/1/){ if (rand(255) > 240){print "敵機攻撃系統を破壊
\n";$VS_VALUES[19]--;} if (rand(255) > 240){print "敵機防御系統を破壊
\n";$VS_VALUES[20]--;} if (rand(255) > 240){print "敵機回避系統を破壊
\n";$VS_VALUES[21]--;} if (rand(255) > 240){print "敵機命中系統を破壊
\n";$VS_VALUES[22]--;} } if ($Pl_W[7] =~ m/2/ && rand(255) > 240){print "$VS_VALUES[3]は戦闘不\能\
\n";$VS_VALUES[25]=1;} if ($Vs_W[7] =~ m/2/ && rand(255) > 240){print "$PL_VALUES[3]は戦闘不\能\
\n";$PL_VALUES[25]=1;} $WLDUMMYpl=$PL_WLV;$PL_WLV+=$PL_In[0] if $PL_WLV < $MAX_WEAPONLV*100; $WLDUMMYvs=$VS_WLV;$VS_WLV+=$VS_In[0] if $VS_WLV < $MAX_WEAPONLV*100; $PL_WLV=$MAX_WEAPONLV*100 if $PL_WLV > $MAX_WEAPONLV*100; $VS_WLV=$MAX_WEAPONLV*100 if $VS_WLV > $MAX_WEAPONLV*100; if(int($PL_WLV/$WEAPON_LVUP) > int($WLDUMMYpl/$WEAPON_LVUP) && $PL_WLV < $MAX_WEAPONLV*100){ print "$FORM{'pname'}の$Pl_W[0]がレべルアップ
\n"; $PL_VALUES[14]=$PL_VALUES[14]-$WEAPON_LVUP; } if(int($VS_WLV/$WEAPON_LVUP) > int($WLDUMMYvs/$WEAPON_LVUP) && $VS_WLV < $MAX_WEAPONLV*100){ print "$YOUSAINMの$Vs_W[0]がレべルアップ
\n"; $VS_VALUES[14]=$VS_VALUES[14]-$WEAPON_LVUP; } $PL_VALUES[9]="$PL_WN!$PL_WLV"; $VS_VALUES[9]="$VS_WN!$VS_WLV"; $TheEnd=1 if $FORM{'yousai'} && !$ResultBattle; $VC_VALUES[11]="$VS_VALUES[15]!$Y_HP[1]!$DATE" if $FORM{'yousai'}; if(!$ResultBattle && $PL_VALUES[5]){$CL_VALUES[1]+=$VS_VALUES[0]+20;$CL_VALUES[1]+=5000 if $TheEnd==1;} elsif($ResultBattle && $PL_VALUES[5]){$CL_VALUES[1]+=int(($VS_VALUES[0]+20)/3);} $CL_VALUES[1]+=$VS_VALUES[0]+20; $CL_VALUES[1]='99999' if $CL_VALUES[1] > 99999; &LOCK; dbmopen (%PL,"$DBM_P",0666); $PL{"$FORM{'pname'}"}="@PL_VALUES"; dbmclose %PL; if ($PL_Country ne "$NONE_NATIONALITY" && !$FORM{'b_mode'}){ dbmopen (%CL,"$DBM_C",0666); $CL{"$PL_Country"}="@CL_VALUES" if $CL{"$PL_Country"} && $PL_Country ne "$NONE_NATIONALITY"; dbmclose %CL; } &UNLOCK; print << " END_OF_HTML";
END_OF_HTML } sub SYUSEI{ $AT="$_[2]_AttPoint";$DE="$_[2]_DefPoint";$SP="$_[2]_SpPoint"; if($_[0] eq 'm'){ $MsnStyle="$_[2]_MsnStyle"; if ($_[1] == 1){$$MsnStyle="通常攻撃";} elsif($_[1] == 2){$$AT*=1.3;$$DE*=0.7;$$MsnStyle="突撃";} elsif($_[1] == 3){$$AT*=0.8;$$DE*=2;$$MsnStyle="防御";} elsif($_[1] == 4){$$AT*=0.7;$$SP*=2;$$MsnStyle="ヒットアンドアウェイ";} elsif($_[1] == 5){$$DE*=0.8;$$MsnStyle="狙撃"; $Pl_W[2]+=20 if $_[2] eq 'Pl';$Vs_W[2]+=20 if $_[2] eq 'Vs'; }elsif($_[1] == 6){$$AT*=2;$$DE/=5;$$MsnStyle="捨て身";} elsif($_[1] == 7){$$AT*=0.9;$$SP*=3;$$MsnStyle="見切り"; $Pl_W[2]+=10 if $_[2] eq 'Pl';$Vs_W[2]+=10 if $_[2] eq 'Vs'; }elsif($_[1] == 8){$$MsnStyle="全弾放出"; ($Pl_W[2]-=35,$Pl_W[3]*=2,$Pl_W[4]*=2) if $_[2] eq 'Pl'; ($Vs_W[2]-=35,$Vs_W[3]*=2,$Vs_W[4]*=2) if $_[2] eq 'Vs'; }else{$$MsnStyle="通常攻撃";} } if($_[0] eq 's'){ if ($_[1] eq "1"){$$AT*=1.2;$$DE-=2;} elsif($_[1] eq "2"){$$AT*=1.2;$$WM-=5;} elsif($_[1] eq "3"){$$AT*=0.9;$$SP+=3;} elsif($_[1] eq "4"){$$WM+=5;} elsif($_[1] eq "5"){$$AT*=1.3;$$WM+=10;$$DE-=4;} elsif($_[1] eq "6"){$$AT*=1.5;$$DE*=1.5;$$SP*=4;$$WM*=1.5;} } }