");
mixtitle("種牡馬");
$frc=chk_mix($f,9);
if($frc){
if(chk_owner($f)){
$fp=0;
possprint($f,$f,$m);
}else{
if(chk_market($f)){
$fmdiv = "レンタル";
$fp=marketprint($f,$f,$m);
}else{
alllist(9,$m);
}
}
}else{
alllist(9,$m);
}
mixtitle("繁殖牝馬");
$mrc=chk_mix($m,0);
if($mrc){
if(chk_owner($m)){
$mp=0;
possprint($m,$f,$m);
}else{
if(chk_market($m)){
$mmdiv = "レンタル";
$mp=marketprint($m,$f,$m);
}else{
alllist(0,$f);
}
}
}else{
alllist(0,$f);
}
print("");
if ($frc and $mrc) {
if (!$dummy) {
form();
form2($f,$m);
} else {
while ($continue > 0) {
if(!mix_exec($f,$m)){
break;
}
}
}
}
function mixtitle($title){
print("| $title |
|---|
");
print("| 馬名 | 産駒賞金 | ");
// print("スタート | スピード | パワー | スタミナ | ");
print("生産残 | 区分 | 価格 | 庭先取引 | 選択 |
|---|
");
}
function chk_mix($name,$sex){
if ($name and (chk_owner($name) or chk_market($name))) {
$sql="SELECT division,count from horse where sex = $sex and name = '$name'";
$result =db_access($sql);
$division =pg_result($result,0,0);
$count =pg_result($result,0,1);
if ($division == 5 and $count > 0){
return true;
}else{
return false;
}
}else{
return false;
}
}
function chk_market($name){
global $PHP_AUTH_USER;
$sql="select division,partner from market where name = '$name'";
$result2 = db_access($sql);
if (pg_numrows($result2) > 0) {
$mdiv =pg_result($result2,0,0);
$partner=pg_result($result2,0,1);
if ($mdiv == 0) {
if (!$partner) {
return true;
} else {
if ($partner == $PHP_AUTH_USER) {
return true;
} else {
return false;
}
}
} else {
return false;
}
} else {
return false;
}
}
function possprint($name,$f,$m){
global $PHP_SELF;
$sql ="select count,start,speed,power,stamina from horse where name = '$name'";
$result =db_access($sql);
$count =pg_result($result,0,0);
// $start =number_format(pg_result($result,0,1));
// $speed =number_format(pg_result($result,0,2));
// $power =number_format(pg_result($result,0,3));
// $stamina =number_format(pg_result($result,0,4));
$coltprize =calc_colt_prize($name);
print("| $name | $coltprize | ");
// print("$start | $speed | $power | $stamina | ");
print("$count"."回 | 持ち馬 | | | 選択 |
");
}
function marketprint($name,$f,$m){
global $PHP_SELF;
$sql ="select count,start,speed,power,stamina,price,partner,owner from horse h,market m where m.name = h.name and m.name = '$name'";
$result =db_access($sql);
$count =pg_result($result,0,0);
// $start =number_format(pg_result($result,0,1));
// $speed =number_format(pg_result($result,0,2));
// $power =number_format(pg_result($result,0,3));
// $stamina =number_format(pg_result($result,0,4));
$price =number_format(pg_result($result,0,5));
$partner =pg_result($result,0,6);
$owner =pg_result($result,0,7);
if ($partner){
$partner=$owner;
}
$coltprize =calc_colt_prize($name);
print("| $name | $coltprize | ");
// print("$start | $speed | $power | $stamina | ");
print("$count"."回 | レンタル | $price | $partner | 選択 |
");
return pg_result($result,0,5);
}
function alllist($sex,$partner){
global $PHP_AUTH_USER;
$sql ="select name from horse where division = 5 and sex = '$sex' and owner = '$PHP_AUTH_USER'";
$result3=db_access($sql);
$row =pg_numrows($result3);
for ($i=0;$i<$row;$i++) {
$name=pg_result($result3,$i,0);
if ($sex == 9){
possprint($name,$name,$partner);
}else{
possprint($name,$partner,$name);
}
}
$sql ="select m.name from horse h,market m where m.name = h.name and h.division = 5 and sex = '$sex' and owner != '$PHP_AUTH_USER' and m.division = 0 and (partner = '' or partner = '$PHP_AUTH_USER') order by m.price DESC";
$result4=db_access($sql);
$row =pg_numrows($result4);
for ($i=0;$i<$row;$i++) {
$name=pg_result($result4,$i,0);
if ($sex == 9){
marketprint($name,$name,$partner);
}else{
marketprint($name,$partner,$name);
}
}
}
function form2($f,$m){
print("");
print("");
print("上記配合で頭");
print("する。");
print("血統
");
print("");
}
function chk_count($fcount,$mcount){
if($fcount>0 and $mcount>0){
return true;
}else{
print("生産残が足りません。");
return false;
}
}
function mix_exec($f,$m){
global $PHP_AUTH_USER,$t,$fmdiv,$mmdiv,$mp,$fp,$continue,$inetyear,$inetmonth;
db_access("BEGIN");
lock("prize");
lock("horse");
$sql ="select start,speed,power,stamina,color,count,owner from horse where name = '$f'";
$result94 =db_access($sql);
$fstart =pg_result($result94,0,0);
$fspeed =pg_result($result94,0,1);
$fpower =pg_result($result94,0,2);
$fstamina =pg_result($result94,0,3);
$fcolor =pg_result($result94,0,4);
$fcount =pg_result($result94,0,5);
$fowner =pg_result($result94,0,6);
$sql ="select start,speed,power,stamina,color,count,owner from horse where name = '$m'";
$result95 =db_access($sql);
$mstart =pg_result($result95,0,0);
$mspeed =pg_result($result95,0,1);
$mpower =pg_result($result95,0,2);
$mstamina =pg_result($result95,0,3);
$mcolor =pg_result($result95,0,4);
$mcount =pg_result($result95,0,5);
$mowner =pg_result($result95,0,6);
if(chk_count($fcount,$mcount) and chk_prize($fp+$mp)){
$sex=random(0,1)*9;
if ($inetmonth >= 6) {
$year =$inetyear-2;
$birthadjust =($inetmonth-6)*866+($inetday-1)*100;
} else {
$year =$inetyear-3;
$birthadjust =($inetmonth+12-6)*866+($inetday-1)*100;
}
// $sql ="select count(*) from horse where breeder = '$PHP_AUTH_USER'";
// $result90 =db_access($sql);
// $sql ="select count(*) from horse where owner = '$PHP_AUTH_USER'";
// $result91 =db_access($sql);
// $breedadjust =(1000-(pg_result($result90,0,0)+pg_result($result91,0,0))/2)/1000;
if($fowner=='admin' and $mowner=='admin'){
$countadjust =0.75+($fcount+$mcount)/4000;
}else{
if($fowner=='admin'){
$countadjust =0.875+$fcount/4000;
}else{
if($mowner=='admin'){
$countadjust =0.875+$mcount/4000;
}else{
$countadjust =1;
}
}
}
$start =(int)(($fstart+$mstart)*random(40,60)/200)*$countadjust;
$speed =(int)(($fspeed+$mspeed)*50/200+$birthadjust)*$countadjust;
$power =(int)(($fpower+$mpower)*random(40,60)/200)*$countadjust;
$stamina=(int)(($fstamina+$mstamina)*50/200+$birthadjust)*$countadjust;
if ($sex == 9) {
$color=$fcolor;
} else {
$color=$mcolor;
}
if($color==6){
$color=5;
}
if($color==5 and random(1,1000)==1){
$color=6;
}
$sql="select * from horse where name ='$t$PHP_AUTH_USER'";
$result95=db_access($sql);
if(pg_numrows($result95)==0){
$sql="insert into horse values('$t$PHP_AUTH_USER','-1',0,$year,'$sex','$color','$f','$m',0,0,'0','9','0',1,$start,$speed,$power,$stamina,0,'$PHP_AUTH_USER',1000,3600,5,'$PHP_AUTH_USER','$PHP_AUTH_USER')";
$result96=db_access($sql);
$sql="update horse set count = count - 1 where name = '$f'";
$result97=db_access($sql);
$sql="update horse set count = count - 1 where name = '$m'";
$result98=db_access($sql);
if ($fmdiv == 'レンタル') {
$buyfp = $fp * (-1);
$recap="レンタル料 ".$f."号 ".$PHP_AUTH_USER."様";
$sql="insert into prize values($t,$fp,'$recap','$fowner')";
$result91 = db_access($sql);
$recap="レンタル料 ".$f."号 ".$fowner."様";
$sql="insert into prize values($t,$buyfp,'$recap','$PHP_AUTH_USER')";
$result92 = db_access($sql);
}else{
$result91=true;
$result92=true;
}
if ($mmdiv == 'レンタル') {
$buymp = $mp * (-1);
$recap="レンタル料 ".$m."号 ".$PHP_AUTH_USER."様";
$sql="insert into prize values($t,$mp,'$recap','$mowner')";
$result93 = db_access($sql);
$recap="レンタル料 ".$m."号 ".$mowner."様";
$sql="insert into prize values($t,$buymp,'$recap','$PHP_AUTH_USER')";
$result94 = db_access($sql);
}else{
$result93=true;
$result94=true;
}
if($result96 and $result97 and $result98 and $result91 and $result92 and $result93 and $result94){
print("登録完了($continue)
\n");
db_access("COMMIT");
$continue=$continue-1;
$t=$t+1;
return true;
}else{
abort();
return false;
}
}else{
$t=$t+1;
db_access("ABORT");
return true;
}
}else{
abort();
return false;
}
}
require('../footer.inc');
?>