sanjeok77/ore
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit of original files

Browse Source
This commit is contained in:
sanjeok77
2026-06-22 21:09:26 +09:00
commit dc9058e0da
74 changed files with 12466 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
inc/ore_sub-base_pc.cgi
+368
View File
@@ -0,0 +1,368 @@
#-----------------------------------------------------------#
# 罪と罰++ 二律背反 #
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
# BLANK BOARD [ http://pom.to/ ] #
#-----------------------------------------------------------#
# PC用サブルーチン Version 1.1 #
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
#-----------------------------------------------------------#
#-------------------------------------------------------------------------------
# 画面レイアウト
sub html{
# ヘッダー&圧縮転送有無
&content_type;
# ﾏｳｽ自動操作ﾁｰﾄ撃退 戦闘時に4/400 の確立で発動
my $no_mouse = ($no_mouse && $type eq '修行中') ? int(rand(400)) : 100 ;
print <<EOM;
<html>
<head>
<title>$titleh</title>
<link rel=stylesheet type="text/css" href="$css" title="style">
EOM
# Javascript自動操作チート防衛(frame取り込み防衛)
if($no_js){
print <<EOM;
<script language="javascript">
<!--
if(self!=top){
top.location = self.location;
}
//-->
</script>
EOM
}
print <<EOM;
</head>
<body $body class="bar">
<center>
<table width="740" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left">
$title
</td>
</tr>
</table>
<table width="740" border="0" cellspacing="0" cellpadding="0" height="300">
<tr>
<td align="center" valign="middle" width="500">
<table width="540" border="0" cellspacing="6" cellpadding="6" height="285" bgcolor="#444466">
<tr>
<td bgcolor="#000000" align="left" valign="top">
$log1
</td>
</tr>
</table>
</td>
<td align="right" valign="middle" width="200">
<table border="0" cellspacing="0" cellpadding="5" height="285">
<tr>
<form method="get" action="$index">
<td bgcolor="#000000" valign="middle">
<input type="submit" value="† タイトルへ戻る †" class="button1">
</td>
</form>
</tr>
EOM
if($no_mouse==0){
print qq|<tr>$log2</tr>|;
}
print<<EOM;
<tr>
<form method="$method" action="$park">
<td valilgn="middle">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="hidden" name="camp" value="$camp">
<input type="hidden" name="sogo" value="$sogo">
<input type="submit" value="† 国際交流広場 †" class="button1">
</td>
</form>
</tr>
EOM
if($no_mouse==1){
print qq|<tr>$log2</tr>|;
}
print<<EOM;
<tr>
<form method="$method" action="$hist">
<td valilgn="middle">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="submit" value="† 過去の栄光 †" class="button1">
</td>
</form>
</tr>
EOM
if(!$type && $cmd<=0){
print <<"EOM";
<tr>
<form method="$method" action="$script">
<td valilgn="middle">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="hidden" name="cmd" value="20">
<input type="submit" value="† ｼｮｯﾋﾟﾝｸﾞﾓｰﾙ †" class="button1">
</td>
</form>
</tr>
EOM
}
print <<"EOM";
<tr>
<form method="$method" action="$public">
<td valilgn="middle">
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="submit" value="† 公式条約 †" class="button1">
</td>
</form>
</tr>
EOM
if($no_mouse==2){
print qq|<tr>$log2</tr>|;
}
print<<EOM;
<tr>
<form method="$method" action="$campbbs">
<td>
<input type="hidden" name="id" value="$id">
<input type="hidden" name="pw" value="$pw">
<input type="submit" value="†各国作戦会議室†" class="button1">
</td>
</form>
</tr>
EOM
if($no_mouse>=3){
print qq|<tr>$log2</tr>|;
}
print<<EOM;
</table>
</td>
</tr>
</table>
<br>
EOM
my($uti, $sti, $cuti, $csti) = times();
$uti += $cuti;
$sti += $csti;
my($cpu) = $uti + $sti;
my $disp="CPUs($cpu): User($uti) System($sti)<br>";
if($layout_flag==1){
print <<EOM;
<table width="740" border="0" cellspacing="4" cellpadding="4" bgcolor="#444466">
<tr>
<td bgcolor="#000000" align="center" valign="top" height="120">
<tt class="moji1">
$log
</tt>
</td>
</tr>
</table>
<br><br>
EOM
}elsif(!$layout_flag){
require './inc/ore_sub-base-p1_pc.cgi';&layout_flag_0;
}
print <<"EOM";
$disp<br>
<br>
$kakiko
EOM
}
#-------------------------------------------------------------------------------
#ステータス表示
sub status{
&settei;#設定読み込み
my(
$hp_v,$hp_c,$hp_y,
$mp_v,$mp_c,$mp_y,
$ua_v,$ua_c,
$ud_v,$ud_c,
$lr_v,$lr_c,
);
#HPグラフ
if($max_hp <= 75){
$hp_v = $hp*2;
$hp_c = "#00bbff";
$hp_y = $max_hp*2-$hp*2;
}elsif($max_hp <= 300){
$hp_v = $hp;
$hp_c = "#0099ff";
$hp_y = $max_hp-$hp;
}elsif($max_hp <= 600){
$hp_v = int($hp/2);
$hp_c = "#0077ff";
$hp_y = int($max_hp/2-$hp/2);
}elsif($max_hp <= 1200){
$hp_v = int($hp/4);
$hp_c = "#0055ff";
$hp_y = int($max_hp/4-$hp/4);
}elsif($max_hp <= 2400){
$hp_v = int($hp/8);
$hp_c = "#0033ff";
$hp_y = int($max_hp/8-$hp/8);
}elsif($max_hp <= 4800){
$hp_v = int($hp/16);
$hp_c = "#0011ff";
$hp_y = int($max_hp/16-$hp/16);
}else{
$hp_v = int($hp/32);
$hp_c = "#0011ff";
$hp_y = int($max_hp/32-$hp/32);
}
#MPグラフ
if($max_mp <= 75){
$mp_v = $mp*2;
$mp_c = "#00ffcc";
$mp_y = $max_mp*2-$mp*2;
}elsif($max_mp <= 300){
$mp_v = $mp;
$mp_c = "#00ddcc";
$mp_y = $max_mp-$mp;
}elsif($max_mp <= 600){
$mp_v = int($mp/2);
$mp_c = "#00bbcc";
$mp_y = int($max_mp/2-$mp/2);
}elsif($max_mp <= 1200){
$mp_v = int($mp/4);
$mp_c = "#0099cc";
$mp_y = int($max_mp/4-$mp/4);
}elsif($max_mp <= 2400){
$mp_v = int($mp/8);
$mp_c = "#0077cc";
$mp_y = int($max_mp/8-$mp/8);
}elsif($max_mp <= 4800){
$mp_v = int($mp/16);
$mp_c = "#0055cc";
$mp_y = int($max_mp/16-$mp/16);
}else{
$mp_v = int($mp/32);
$mp_c = "#0033cc";
$mp_y = int($max_mp/32-$mp/32);
}
#UAグラフ
if($ua <= 25){
$ua_v = $ua*4;
$ua_c = "#99ccff";
}elsif($ua <= 50){
$ua_v = $ua*2;
$ua_c = "#9999ff";
}elsif($ua <= 100){
$ua_v = $ua;
$ua_c = "#9966ff";
}elsif($ua <= 500){
$ua_v = int($ua/2);
$ua_c = "#9933ff";
}else{
$ua_v = int($ua/4);
$ua_c = "#9900ff";
}
#UDグラフ
if($ud <= 25){
$ud_v = $ud*4;
$ud_c = "#33ffff";
}elsif($ud <= 50){
$ud_v = $ud*2;
$ud_c = "#33ccff";
}elsif($ud <= 100){
$ud_v = $ud;
$ud_c = "#3399ff";
}elsif($ud <= 500){
$ud_v = int($ud/2);
$ud_c = "#3366ff";
}else{
$ud_v = int($ud/4);
$ud_c = "#3333ff";
}
#LRグラフ
if($lr <= 25){
$lr_v = $lr*4;
$lr_c = "#ccccff";
}elsif($lr <= 50){
$lr_v = $lr*2;
$lr_c = "#cc99ff";
}elsif($lr <= 100){
$lr_v = $lr;
$lr_c = "#cc66ff";
}elsif($lr <= 500){
$lr_v = int($lr/2);
$lr_c = "#cc33ff";
}else{
$lr_v = int($lr/4);
$lr_c = "#cc00ff";
}
#LRグラフ
if($ag <= 25){
$ag_v = $ag*4;
$ag_c = "#ccccff";
}elsif($ag <= 50){
$ag_v = $ag*2;
$ag_c = "#cc99ff";
}elsif($ag <= 100){
$ag_v = $ag;
$ag_c = "#cc66ff";
}elsif($ag <= 500){
$ag_v = int($ag/2);
$ag_c = "#cc33ff";
}else{
$ag_v = int($ag/4);
$ag_c = "#cc00ff";
}
$hp_y = (!$hp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$hp_y\" style=\"background-color:#555555\">";
$mp_y = (!$mp_y) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$mp_y\" style=\"background-color:#555555\">";
$ua_y = (!$dg_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$dg_data[$dg_a][4]\" style=\"background-color:#6666cc\">";
$ud_y = (!$df_a) ? "" : "<img src=\"$imgs/spc.gif\" height=\"8\" width=\"$df_data[$df_a][4]\" style=\"background-color:#6666cc\">";
$log1.=<<EOM;
<tt class="moji1">
<b>$nm</b>　　　<span style="font-size:12px">$seibetu[$sei]</span>&nbsp;&nbsp;&nbsp;&nbsp;ID: $id<br>
レベル <b>$lv</b>　階　級 <b>$cl[$rank]</b>　称　号 [<b>$sogo_p[$sogo]</b>]<br>
<br>
体　力[HP] <img src="$imgs/spc.gif" height="8" width="$hp_v" style="background-color:$hp_c">$hp_y $hp/$max_hp<br>
魔　力[MP] <img src="$imgs/spc.gif" height="8" width="$mp_v" style="background-color:$mp_c">$mp_y $mp/$max_mp<br>
攻撃力[UA] <img src="$imgs/spc.gif" height="8" width="$ua_v" style="background-color:$ua_c">$ua_y $ua +$dg_data[$dg_a][4]<br>
防御力[UD] <img src="$imgs/spc.gif" height="8" width="$ud_v" style="background-color:$ud_c">$ud_y $ud +$df_data[$df_a][4]<br>
指揮力[LR] <img src="$imgs/spc.gif" height="8" width="$lr_v" style="background-color:$lr_c"> $lr<br>
敏捷力[AG] <img src="$imgs/spc.gif" height="8" width="$ag_v" style="background-color:$ag_c"> $ag<br>
<br>
資　金 <b>$gold</b>　経験値 <b>$exe/$next_lv</b>　貢献値 <b>$rank_exe</b><br>
<br>
所　属 <b>$cmp[$camp]</b>　部　隊 <b>$g_p[$rank]</b>　訓練度 <b>$sol_lv</b><br>
<br>
武　具 [<b>$dg_data[$dg_a][1]</b>]　回数 [<b>$dg_cnt</b>]<br>
防　具 [<b>$df_data[$df_a][1]</b>]　回数 [<b>$df_cnt</b>]<br>
道　具 [<b>$di_data[$di_a][1]</b>]　回数 [<b>$di_cnt</b>]
</tt>
EOM
}
1;#削除不可