sanjeok77/ore
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
f43e7fa91536d4f47a5310e3cfbdb8ceb9ab1732
ore/inc/ore_sub-subduetime.cgi
T

345 lines
8.7 KiB
Perl
Executable File
Raw Blame History

#-----------------------------------------------------------#
# 罪と罰++ 二律背反 #
# Copyright(C) 2001-2002 by Vivid Studio. BLANK BOARD #
# Vivid Studio.[ http://www17.big.or.jp/~obochan/vivid/ ] #
# BLANK BOARD [ http://pom.to/ ] #
#-----------------------------------------------------------#
# 討伐中 Version 1.0
#--- [注意事項] --------------------------------------------#
# 1.このスクリプトは以下の利用規程に従って配布しています。 #
# http://www24.big.or.jp/~obo/game/ore_/gild/ #
#-----------------------------------------------------------#
#-------------------------------------------------------------------------------
#討伐中処理
sub ws_st {
if(!$tm && !$ck){
$log .="$date $cmp[$nation] 을 탐색 중입니다<br>\n";
# NPC(魑魅魍魎)読み込み
require './inc/ore_sub-npc_2.cgi';
local $v=int(rand(7));
&ck_ne_2;
$log .="<hr size=1 noshade>\n";
$log .="$cmp[$nation]에 도사리는 $tnm(을)를 발견했다!<br>\n";
$log .="전투 태세를 갖춥니다!<br>\n";
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
$log2 .=qq|<td align="center" valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
$log2 .=qq|<input type="hidden" name="cmd" value="-1"><input $button1 type="submit" value=" 전투 돌입!!">$td_end</form>\n|;
$tm=40;
$ck=1;
}elsif($ck){
# 戦闘処理読み込み
require './inc/ore_sub-battle.cgi';
if(!$b_n && !$tlr){
$tm = 0;
$ck = 0;
$nation = 0;#討伐
$type='';
$log .="전투 중 오류가 발생했습니다! 강제로 메인 화면으로 돌아갑니다<br>\n";
}
if($tm==40 && $cmd==-1){
$tm=55;
$log .="<p>$tnm과의 대결!!</p><p>어떻게 하겠습니까?</p>\n";
$log .="<p>이매망량 능력치 - $tnm ( HP $thp MP $tmp UA $tua UD $tud LV $tlv )</p>\n";
}
if($tm==55){
if($cmd==10){
my $btp = $ag + int(rand($lv)*0.8);
my $bte = $tag+ int(rand($tlv)*0.8);
if($btp>=$bte){
$log .="$nm 은 걸음아 날 살려라 하고 도망쳤다...<br>평판이 크게 떨어졌다<br>\n";
$tm=0;
$v = int(2 + rand(4));
$rank_exe-=$v;
$sol=0;
$tnm='';
$ck=0;
$nation=0;#討伐
$type='';
$vv = int(rand(2));
if(!$vv){
$we-- if($we>0);
}
}else{
$log .="$nm 은 걸음아 날 살려라 하고 도망쳤다...<br>하지만! $tnm에게 덜미를 잡히고 말았다!!<br>\n";
$tm=65;
$rank_exe-=1;
}
}elsif($cmd==20){
$log .="$tnm 토벌을 시작합니다!<br>\n";
$tm=65;
$rank_exe+=1;
}
}elsif($tm==65){
$log .="진검승부 시작!<br>\n";
$tm=75;
}elsif($tm==75){
&bt_cm;
if($thp<1){
# 獲得金
$G =int(rand(200))+((500*$tlv)-($lv*50));
$G =1 if($G<1);
$G =int(rand(500))+1500 if($G>2000);
$gold +=$G;
# 経験値
$E = int((($tlv*2)+$tua+$tud+$tag)*(rand($lv/10)+3))-$lv*2;
$E = int(rand(300)+1300) if($E>1500);
$exe+=$E;
$thp=0;
$bst ='';
$bt =0;
$log .="$nm 은 $tnm 을 쓰러뜨렸다!<br>\n";
$log .="$G GOLD와 $E 경험치를 획득했다!<br>\n";
$log .="<br>\n";
# 賞金(自国優位)
if($nation==$camp){
$G =int($my_cg/(rand(6)+15));
$G =int(rand(500))+1500 if(int(2000>=$G));
$G =int(rand(1500))+4000 if(int(5000<=$G));
}else{
if($nation==1){$G =int($cg1/(rand(11)+20));}
elsif($nation==2){$G =int($cg2/(rand(11)+20));}
elsif($nation==3){$G =int($cg2/(rand(11)+20));}
elsif($nation==4){$G =int($cg2/(rand(11)+20));}
elsif($nation==5){$G =int($cg2/(rand(11)+20));}
$G =int(rand(500))+500 if(int(1000>=$G));
$G =int(rand(1000))+2500 if(int(3500<=$G));
}
$exe+=$E;
$gold+=$G;
$tsol=int($tsol/2);
$log .="$cmp[$nation]로부터 $G 의 현상금을 획득했다!<br>\n";#討伐
$V =int(rand(4));
$sol_lv-=$V;
$rank_exe+=int($V*2)+5;
# 拾得物処理 1
if(int(rand(100))==0){
&syutoku1;
}else{
$sol=0;
$tnm='';
$ck = $tm = 0;
$nation=0;
$type='';
}
$we++;
if($we>250){
$log .="엘타니아 땅에 도사리는 이매망량 토벌에 매진한 공로로 $nm 은 $sogo_p[2] 칭호를 하사받았다!<br>\n";
$sogo =2;
$we =0;
}
}elsif($hp<1){
$bst ='';
$bt =0;
$ck =0;
$hp =0;
$G=int(rand(10))+1;
$E=int(rand(5))+1;
$gold+=$G;
$exe+=$E;
$log .="당신은 $tnm 에게 패배했다…<br>\n";
$log .="$G GOLD와 $E 경험치를 획득했다<br>\n";
$log .="<p></p>\n";
$sol=int($sol/2);
$rank_exe-=25;
$log .="괴수에게 당했다는 불명예스러운 패배로 인해 당신에 대한 평판이 곤란할 정도로 크게 떨어졌다<br>\n";
if($rank_exe<1){
$rank--;
$rank=1 if($rank<1);
$next_rank=int(($rank*$rank)*3);
$v=$next_rank-10;
$rank_exe=$v;
$log .="계급이 한 단계 강등되었다…<br>\n";
}
$sol=0;
$tnm='';
$ck= $tm = 0;
$nation=0;#討伐
$type='';
}
}
# 拾得物処理 2
if($cmd==40){
&syutoku2;
}elsif($cmd ==41){
$log .="$nm 은 못 본 척하고 자리를 떴다......<br>\n";
$sol=0;
$tnm='';
$ck = $tm = 0;
$nation=0;#討伐
$type='';
}
$log2 .=qq|<form action="$script" method="$method" name="ore_">\n|;
$log2 .=qq|<td valign="middle">\n| if($mv_mode eq 'pc');
$log2 .=qq|<input type="hidden" name="id" value="$id">\n<input type="hidden" name="pw" value="$pw">\n|;
if($tsol<1||$sol<1){
$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
}if($tm==55){
$log2 .=qq|<select name="cmd" size="1"><option value="10">도망친다</option><option value="20">싸운다</option>\n|;
$log2 .=qq|</select>|;
}elsif($tm==65){
$log2 .=qq|<input type="hidden" name="cmd" value="-1">\n|;
}elsif($tm==75){
&spell_sp;
}elsif($tm>=100){
$log2 .=qq|<select name="cmd" size="1"><option value="40">줍는다</option><option value="41">그냥 둔다</option>\n|;
$log2 .=qq|</select>|;
}
$log2 .=qq|<br>|;#テーブルずれ修正
$log2 .=qq|<input type="submit" $button1 value="다음으로!">$td_end</form>\n|;#テーブル追加</tr></table>
}
&dat_write;
}
#拾得物処理
sub syutoku1{
$log .="$tnm 이 소멸한 자리에 무언가 떨어져 있다......<br>$nm 은 ";
my $S = int(rand(10)+1);
# 武具
if($S == 1){
$log .="$dg_data[2][1]을 발견했다!!<br><br>장착할 경우 현재 장착 중인 무구";
$tm = 110;
}elsif($S == 2){
$log .="$dg_data[3][1]을 발견했다!!<br><br>장착할 경우 현재 장착 중인 무구";
$tm = 120;
}elsif($S == 3){
$log .="$dg_data[4][1]을 발견했다!!<br><br>장착할 경우 현재 장착 중인 무구";
$tm = 130;
# 道具
}elsif($S == 4){
$log .="$di_data[1][1]을 발견했다!!<br><br>소지할 경우 현재 소지 중인 도구";
$tm = 140;
}elsif($S == 5){
$log .="$di_data[2][1]을 발견했다!!<br><br>소지할 경우 현재 소지 중인 도구";
$tm = 150;
}elsif($S == 6){
$log .="$di_data[3][1]을 발견했다!!<br><br>소지할 경우 현재 소지 중인 도구";
$tm = 160;
}elsif($S == 7){
$log .="$di_data[4][1]을 발견했다!!<br><br>소지할 경우 현재 소지 중인 도구";
$tm = 170;
# 防具
}elsif($S == 8){
$log .="$df_data[2][1]을 발견했다!!<br><br>장착할 경우 현재 소지 중인 방어구";
$tm = 180;
}elsif($S == 9){
$log .="$df_data[3][1]을 발견했다!!<br><br>장착할 경우 현재 소지 중인 방어구";
$tm = 190;
}elsif($S == 10){
$log .="$df_data[4][1]을 발견했다!!<br><br>장착할 경우 현재 소지 중인 방어구";
$tm = 200;
}
$log .="은 파기됩니다.<br>어떻게 하겠습니까?<br>";
}
#拾得物処理2
sub syutoku2{
$log .="$nm 은 ";
# 武具2
if($tm==110){
$log .="$dg_data[2][1]";
$dg_a = 2;
$dg_cnt=$dg_data[2][3];
}elsif($tm==120){
$log .="$dg_data[3][1]";
$dg_a = 3;
$dg_cnt=$dg_data[3][3];
}elsif($tm==130){
$log .="$dg_data[4][1]";
$dg_a = 4;
$dg_cnt=$dg_data[4][3];
# 道具2
}elsif($tm==140){
$log .="$di_data[1][1]";
$di_a = 1;
$di_cnt=$di_data[1][3];
}elsif($tm==150){
$log .="$di_data[2][1]";
$di_a = 2;
$di_cnt=$di_data[2][3];
}elsif($tm==160){
$log .="$di_data[3][1]";
$di_a = 3;
}elsif($tm==170){
$log .="$di_data[4][1]";
$di_a = 4;
$di_cnt=$di_data[4][3];
# 防具2
}elsif($tm==180){
$log .="$df_data[2][1]";
$df_a = 2;
$df_cnt=$df_data[2][3];
}elsif($tm==190){
$log .="$df_data[3][1]";
$df_a = 3;
$df_cnt=$df_data[3][3];
}elsif($tm==200){
$log .="$df_data[4][1]";
$df_a = 4;
$df_cnt=$df_data[4][3];
}
$log .="을 손에 넣었다!!<br>\n";
$sol=0;
$tnm='';
$ck = $tm = 0;
$nation=0;#討伐
$type='';
}
1;
Reference in New Issue View Git Blame Copy Permalink