www.pudn.com > sangoku_26_zh_tw.rar > buy.pl

#_/_/_/_/_/_/_/_/# 
#    米賣買      # 
#_/_/_/_/_/_/_/_/# 
 
sub BUY { 
 
	$ksub2=0; 
	if($csub){ 
		if($cnum > 3000){ 
			$cnum = 3000; 
		} 
		if(!$cno){ 
			if($kgold >= $cnum){ 
				if($cnum * $csub){ 
					$kadd = int((2-$csub) * $cnum); 
				}else{ 
					$kadd = 0; 
				} 
				$kgold -= $cnum; 
				$krice += $kadd; 
				&K_LOG("$mmonth月:【商人】：支付了 $cnum 金、得到 $kadd 米。"); 
				$kint_ex++; 
				$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,$ktec1,$ktec2,$ktec3,$kvsub1,$kvsub2,"; 
			}else{ 
				&K_LOG("$mmonth月:【商人】：手持資金不足。"); 
			} 
		}else{ 
			if($krice > $cnum){ 
				$kadd = int($cnum * $csub); 
				$krice -= $cnum; 
				$kgold += $kadd; 
				&K_LOG("$mmonth月:【商人】：賣了 $cnum 米、得到了 $kadd 金。"); 
				$kint_ex++; 
				$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,$ktec1,$ktec2,$ktec3,$kvsub1,$kvsub2,"; 
			}else{ 
				&K_LOG("$mmonth月:【商人】：米不夠了。"); 
			} 
		} 
	} 
 
} 
1;