#----------------------------------------------------------#
# PDindex2.cgi$SUBg悤ɐݒB
#----------------------------------------------------------#

require 'search_config.cgi';

	sub search	{require './r/search.cgi';&search;}
	sub search_pc	{require './r/search_pc.cgi';&search_pc;}
	sub search_en	{require './r/search_en.cgi';&search_en;}

urequire 'search_config.cgi';v͕K{łB
#----------------------------------------------------------#
# QDrtH_̃t@C悤ɕύX
#----------------------------------------------------------#

#----------------------------------------------------------#
# RDsearch_config.cgi̒gB
#----------------------------------------------------------#

#----------------------------------------------------------#
# SDAbv[hB
#----------------------------------------------------------#

#----------------------------------------------------------#
# TDf[^ϊB
#----------------------------------------------------------#
f[^̐Ȃ邽߁A%MOBœǂݍނƒxȂ܂B
̂DBMČyʉ͂܂B

Abv[hsearch_exchange.cgiɃANZX܂B
f[^ŕϊ܂B

#----------------------------------------------------------#
# UD&FORM_IN&DBM_OPEN悤ɕύXB
#----------------------------------------------------------#
̂܂܂ł삷Ǝv܂B

#----------------------------------------------------------#
# VDT{^
#----------------------------------------------------------#
searchɃANZXł{^Cʂɍ܂B

#----------------------------------------------------------#
ȏŏIłB
f[^ϊԖʓ|łB

#----------------------------------------------------------#
# ǋL omݒ
#----------------------------------------------------------#
@d_mob_p_start=('aa','ab','ac','ad','ae','af','ag','ah','ai');
ƂȂĂƂ
@d_mob_p_start=('aa!100','ab!10','ac!10','ad!10','ae!10','af!10','ag!10','ah!10','ai!10');#ID!o
ƂŕύX܂B

ȉ̋Lq
	$MOB_NUM=int(rand($#d_mob_place+1));
	my$num=0;
	foreach(0..$#d_mob_place){
	if($MOB_NUM<=$num){
	$EN_KEY=$d_mob_place[$num];
	last;
	}
	$num++;
	}
ȉ̂悤ɕύX܂B
	$MOB_NUM=0;
#oǂݍ
	my$num=0;
	foreach(@d_mob_place){
	my($mob_id,$mob_percent)=split(/!/,$d_mob_place[$num]);

	$MOB_NUM+=$mob_percent;
	$num++;
	}

	$MOB_NUM=int(rand($MOB_NUM+1));
#oݒ
	my$num=0;
	foreach(@d_mob_place){
	my($mob_id,$mob_percent)=split(/!/,$d_mob_place[$num]);

		if($MOB_NUM<=$mob_percent){
		$EN_KEY=$mob_id;
		}
	$MOB_NUM-=$mob_percent;
	$num++;
	}

ȏ̂悤ɂƐݒłƎv܂BőPł͂Ȃ܂B
#----------------------------------------------------------#
Search PlayerCharacter&Enemy make by R.
