📄 index.cgi
字号:
}
if($kadd > 3000){$kadd=3000;}
$kgold += $kadd;
$k_ex_fol= ($kclass % $LANK)+$kcex;
if($k_ex_fol > $LANK){
$nadd = int(rand(3));
if($nadd eq "1"){
$kstr++;
$add_m = "武力";
}elsif($nadd eq "2"){
$kint++;
$add_m = "智力";
}else{
$klea++;
$add_m = "统率力";
}
&K_LOG("$mmonth月:【<font color=red>升格</font>】$add_m登录");
}
$kclass += $kcex;
$kcex = 0;
&K_LOG("$mmonth月:税捐<font color=red>$kadd</font>收钱!");
}elsif($mmonth eq "7"){
&SALARY;
if($cou_num[$kcon] eq "0" || $cou_num[$kcon] eq ""){
$cou_num[$kcon] = 1;
}
$kadd = 0;
if($cex_total[$kcon] ne 0){
$kadd = int(($ksal * $kcex / $cex_total[$kcon]) + $kcex * 1.5);
}
if($kadd > 3000){$kadd=3000;}
$krice += $kadd;
$k_ex_fol= ($kclass % $LANK)+$kcex;
if($k_ex_fol > $LANK){
$nadd = int(rand(3));
if($nadd eq "1"){
$kstr++;
$add_m = "武力";
}elsif($nadd eq "2"){
$kint++;
$add_m = "智力";
}else{
$klea++;
$add_m = "统率力";
}
&K_LOG("$mmonth月:【<font color=red>升格</font>】$add_m登录");
}
$kclass += $kcex;
$kcex = 0;
&K_LOG("$mmonth月:收获<font color=red>$kadd</font>食物!");
}
open(IN,"./charalog/command/$kid\.cgi");
@COM_DATA = <IN>;
close(IN);
($cid,$cno,$cname,$ctime,$csub,$cnum,$cend) = split(/<>/,$COM_DATA[0]);
$kdate += $TIME_REMAKE;
&CHARA_MAIN_INPUT;
splice(@COM_DATA,0,1);
push(@COM_DATA,"<><><><><><><>\n");
open(OUT,">./charalog/command/$kid\.cgi");
print OUT @COM_DATA;
close(OUT);
($zname,$zcon,$znum,$znou,$zsyo,$zshiro,$znou_max,$zsyo_max,$zshiro_max,$zpri,$zx,$zy,$zsouba,$z[0],$z[1],$z[2],$z[3])=split(/<>/,$TOWN_DATA[$kpos]);
if($zcon eq "$kcon" || $cid eq "20" || $cid eq "21" || $cid eq "27" || $cid eq "0" || $cid eq ""){
$kprodmg = 0;
if($kbook ne "" && $kbook ne 0){
open(IN,"$PRO_LIST");
@PRO_DATA = <IN>;
close(IN);
($kproname,$kproval,$kprodmg) = split(/<>/,$PRO_DATA[$kbook]);
}
if($cid eq "1"){
$ksub2=0;
if($kgold<50){
&K_LOG("$mmonth月:因金钱不足不能实行");
}else{
$znouadd = int(($kint+$kprodmg)/10 + rand(($kint+$kprodmg)) / 20);
$znou += $znouadd;
$kgold -= 50;
if($znou > $znou_max){
$znou = $znou_max;
}
$kcex += 30;
if("$zname" ne ""){
splice(@TOWN_DATA,$kpos,1,"$zname<>$zcon<>$znum<>$znou<>$zsyo<>$zshiro<>$znou_max<>$zsyo_max<>$zshiro_max<>$zpri<>$zx<>$zy<>$zsouba<>$z[0]<>$z[1]<>$z[2]<>$z[3]<>\n");
}
&K_LOG("$mmonth月:$zname的农业<font color=red>+$znouadd</font>开发.");
$kint_ex++;
$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,";
}
}elsif($cid eq "2"){
$ksub2=0;
if($kgold<50){
&K_LOG("$mmonth月:因金钱不足不能实行");
}else{
$zsyoadd = int(($kint+$kprodmg)/10 + rand(($kint+$kprodmg)) / 20);
$zsyo += $zsyoadd;
$kgold -= 50;
if($zsyo > $zsyo_max){
$zsyo = $zsyo_max;
}
$kcex += 30;
if("$zname" ne ""){
splice(@TOWN_DATA,$kpos,1,"$zname<>$zcon<>$znum<>$znou<>$zsyo<>$zshiro<>$znou_max<>$zsyo_max<>$zshiro_max<>$zpri<>$zx<>$zy<>$zsouba<>$z[0]<>$z[1]<>$z[2]<>$z[3]<>\n");
}
&K_LOG("$mmonth月:$zname的商业<font color=red>+$zsyoadd</font>开发.");
$kint_ex++;
$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,";
}
}elsif($cid eq "3"){
$ksub2=0;
if($kgold<50){
&K_LOG("$mmonth月:因金钱不足不能实行");
}else{
$zshiroadd = int(($kint+$kprodmg)/10 + rand(($kint+$kprodmg)) / 20);
$zshiro += $zshiroadd;
$kgold -= 50;
if($zshiro > $zshiro_max){
$zshiro = $zshiro_max;
}
$kcex += 30;
if("$zname" ne ""){
splice(@TOWN_DATA,$kpos,1,"$zname<>$zcon<>$znum<>$znou<>$zsyo<>$zshiro<>$znou_max<>$zsyo_max<>$zshiro_max<>$zpri<>$zx<>$zy<>$zsouba<>$z[0]<>$z[1]<>$z[2]<>$z[3]<>\n");
}
&K_LOG("$mmonth月:$zname的城强<font color=red>+$zshiroadd</font>强化.");
$kint_ex++;
$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,";
}
}elsif($cid eq "8"){
$ksub2=0;
if($krice<50){
&K_LOG("$mmonth月:因米的不足不能实行");
}else{
$zpriadd = int($kcha/20 + rand($kcha) / 20);
$zpri += $zpriadd;
$krice -= 50;
if($zpri > 100){
$zpri = 100;
}
$kcex += 30;
if("$zname" ne ""){
splice(@TOWN_DATA,$kpos,1,"$zname<>$zcon<>$znum<>$znou<>$zsyo<>$zshiro<>$znou_max<>$zsyo_max<>$zshiro_max<>$zpri<>$zx<>$zy<>$zsouba<>$z[0]<>$z[1]<>$z[2]<>$z[3]<>\n");
}
&K_LOG("$mmonth月:$zname国民忠城度<font color=red>+$zpriadd</font>上升.");
$kcha_ex++;
$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,";
}
}elsif($cid eq "10"){
$ksub2=0;
if($ksol eq "$klea" && $csub eq $ksub1_ex){
&K_LOG("$mmonth月:【军事】:士兵数最大!");
}elsif($kgold < $cnum * $SOL_PRICE[$csub]){
&K_LOG("$mmonth月:【军事】:所持的钱不足");
}elsif($znum < $cnum * 10){
&K_LOG("$mmonth月:【军事】:没有农民!");
}elsif($zpri < int($cnum / 10)){
&K_LOG("$mmonth月:【军事】:农民拒绝!");
}else{
if($ksub1_ex eq $csub || $ksub1_ex eq "" && $csub eq 0){
if($ksol + $cnum > $klea){
$cnum = $klea - $ksol;
}
$ksol += $cnum;
}else{
if($cnum > $klea){
$cnum = $ksol;
}
$ksol = $cnum;
}
$kgat -= $cnum;
if($kgat < 0 ){
$kgat = 0;
}
$ksub1_ex = $csub;
$kcex += 10;
$kgold -= $cnum * $SOL_PRICE[$csub];
$znum -= $cnum * 10;
$zpri -= int($cnum / 10);
if("$zname" ne ""){
splice(@TOWN_DATA,$kpos,1,"$zname<>$zcon<>$znum<>$znou<>$zsyo<>$zshiro<>$znou_max<>$zsyo_max<>$zshiro_max<>$zpri<>$zx<>$zy<>$zsouba<>$z[0]<>$z[1]<>$z[2]<>$z[3]<>\n");
}
&K_LOG("$mmonth月:$SOL_TYPE[$ksub1_ex]在<font color=red>+$cnum</font>微兵.");
$kstr_ex++;
$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,";
}
}elsif($cid eq "11"){
$ksub2=0;
$kgat += int($klea/5 + rand($klea/5));
if($kgat > 100){
$kgat = 100;
}
$kcex += 15;
&K_LOG("$mmonth月:士兵的士气<font color=red>$kgat</font>上升.");
$klea_ex++;
$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,";
}elsif($cid eq "12"){
$ksub2=0;
if($ksol eq "0" || $ksol eq ""){
&K_LOG("$mmonth月:在兵 0 不会守.");
}else{
open(IN,"$DEF_LIST");
@DEF_LIST = <IN>;
close(IN);
my @NEW_DEF_LIST2=();
$whit=0;
foreach(@DEF_LIST){
($tid,$tname,$ttown_id,$ttown_flg,$tcon) = split(/<>/);
if("$tid" eq "$kid"){
}else{
push(@NEW_DEF_LIST2,"$_");
}
}
unshift(@NEW_DEF_LIST2,"$kid<>$kname<>$kpos<>0<>$kcon<>\n");
open(OUT,">$DEF_LIST");
print OUT @NEW_DEF_LIST2;
close(OUT);
$kcex += 20;
&K_LOG("$mmonth月:$zname防御完.");
$kcha_ex++;
$ksub1 = "$kstr_ex,$kint_ex,$klea_ex,$kcha_ex,$ksub1_ex,$ksub2_ex,";
}
}elsif($cid eq "18"){
$ksub2=0;
($zname,$zcon,$znum,$znou,$zsyo,$zshiro,$znou_max,$zsyo_max,$zshiro_max,$zpri,$zx,$zy,$zsouba,$z[0],$z[1],$z[2],$z[3])=split(/<>/,$TOWN_DATA[$cnum]);
if($zcon eq $kcon){
&K_LOG("$mmonth月:本国不会被攻打.");
}elsif($z[0] ne $kpos && $z[1] ne $kpos && $z[2] ne $kpos && $z[3] ne $kpos ){
&K_LOG("$mmonth月:$zname邻边的国没有外交.");
}else{
open(IN,"$COUNTRY_LIST");
@COU_DATA = <IN>;
close(IN);
@NEW_COU_DATA=();
$zvhit=0;
foreach(@COU_DATA){
($xvcid,$xvname,$xvele,$xvmark,$xvking,$xvmes,$xvsub,$xvpri)=split(/<>/);
if($xvcid eq $zcon){$zvhit=1;last;}
}
if($zvhit && $xvmark < 12){
&K_LOG("$mmonth月:$xvname国家不会被攻打($xvmark转动)");
}else{
&COUNTRY_DATA_OPEN("$kcon");
if($xmark < 12){
&K_LOG("$mmonth月:$xname国家会被攻打($xmark转动)");
}else{
open(IN,"$DEF_LIST");
@DEF_LIST3 = <IN>;
close(IN);
$d_hit=0;
foreach(@DEF_LIST3){
($mdid,$mdname,$mdtown_id,$mdtown_flg,$mdcon) = split(/<>/);
if($cnum eq $mdtown_id){
$d_hit=1;last;
}
}
&MAP_LOG("$xname国家的$kname的$zname攻进去!");
$eid="";
if($d_hit){
open(IN,"./charalog/main/$mdid\.cgi");
@E_DATA = <IN>;
close(IN);
($eid,$epass,$ename,$echara,$estr,$eint,$elea,$echa,$esol,$egat,$econ,$egold,$erice,$ecex,$eclass,$earm,$ebook,$ebank,$esub1,$esub2,$epos,$emes,$ehost,$edate,$email,$eos) = split(/<>/,$E_DATA[0]);
($estr_ex,$eint_ex,$elea_ex,$echa_ex,$esub1_ex,$esub2_ex) = split(/,/,$esub1);
$last_battle=0;
}else{
$ename = "城墙";
$esol = $zshiro;
$estr = 60;
$egat = 50;
$last_battle=1;
$esub1_ex="";
}
&K_LOG2("$xname国家$kname的$zname攻进去!");
&E_LOG2("$xname国家$kname的$ename在战斗!");
&CHARA_ITEM_OPEN;
if($ksub1_ex eq "1"){
$katt_add = 10;
$katt_def = 0;
}elsif($ksub1_ex eq "2"){
$katt_add = 0;
$katt_def = 15;
}elsif($ksub1_ex eq "3"){
$katt_add = 20;
$katt_def = 10;
}else{
$katt_add = 0;
$katt_def = 0;
}
if($esub1_ex eq "1"){
$eatt_add = 10;
$eatt_def = 0;
}elsif($esub1_ex eq "2"){
$eatt_add = 0;
$eatt_def = 15;
}elsif($esub1_ex eq "3"){
$eatt_add = 20;
$eatt_def = 10;
}else{
$eatt_add = 0;
$eatt_def = 0;
}
$katt = int(($kstr + $karmdmg + $katt_add - $eatt_def - int($egat / 4))/8);
if($katt < 0){$katt = 0;}
$eatt = int(($estr + $earmdmg + $eatt_add - $katt_def - int($kgat / 4))/8);
if($eatt < 0){$eatt = 0;}
$win=0;
for($count=0;$count<50;$count++){
$kdmg=0;
$edmg=0;
if($ksol <= 0){last;}
$kdmg = int(rand($katt));
if($kdmg <= 0){$kdmg=1;}
$esol -= $kdmg;
if($esol <= 0){
$esol=0;
&K_LOG2("转动<font color=red>$count</font>:$kname $SOL_TYPE[$ksub1_ex] $ksol人 ↓\(-$edmg\) |$ename $SOL_TYPE[$esub1_ex] $esol人 ↓\(-$kdmg\)");
&E_LOG2("转动<font color=red>$count</font>:$kname $SOL_TYPE[$ksub1_ex] $ksol人 ↓\(-$edmg\) |$ename $SOL_TYPE[$esub1_ex] $esol人 ↓\(-$kdmg\)");
$win = 1;last;
}
$edmg = int(rand($eatt));
if($edmg <= 0){$edmg=1;}
$ksol -= $edmg;
if($ksol <= 0){
$ksol=0;
&K_LOG2("转动<font color=red>$count</font>:$kname $SOL_TYPE[$ksub1_ex] $ksol人 ↓\(-$edmg\) |$ename $SOL_TYPE[$esub1_ex] $esol人 ↓\(-$kdmg\)");
&E_LOG2("转动<font color=red>$count</font>:$kname $SOL_TYPE[$ksub1_ex] $ksol人 ↓\(-$edmg\) |$ename $SOL_TYPE[$esub1_ex] $esol人 ↓\(-$kdmg\)");
last;
}
&K_LOG2("转动<font color=red>$count</font>:$kname $SOL_TYPE[$ksub1_ex] $ksol人 ↓\(-$edmg\) |$ename $SOL_TYPE[$esub1_ex] $esol人 ↓\(-$kdmg\)");
}
if($win){
if($last_battle){
&K_LOG2("<font color=red>$zname</font>放入手!");
if($town_get[$zcon] <= 1){
@NEW_COU=();
foreach(@COU_DATA){
($xcid,$xname,$xele,$xmark,$xking,$xmes,$xsub,$xpri)=split(/<>/);
if("$zcon" eq "$xcid"){
}else{
push(@NEW_COU,"$_");
}
}
open(OUT,">$COUNTRY_LIST");
print OUT @NEW_COU;
close(OUT);
&MAP_LOG2("<font color=grey>【灭亡】</font>\[$old_date\]$cou_name[$zcon]国家灭亡.");
&MAP_LOG("<font color=grey>【灭亡】</font>\[$old_date\]$cou_name[$zcon]国家灭亡.");
}
$zcon = $kcon;
$znou = int($znou*0.8);
$zsyo = int($zsyo*0.8);
$znum = int($znum*0.9);
$zpri = int($zpri*0.8);
$kcex += 50;
$kpos = $cnum;
@NEW_DEF_LIST3=();
$pphit=0;
foreach(@DEF_LIST3){
($did,$dname,$dtown_id,$dtown_flg,$dcon) = split(/<>/);
if("$did" eq "$kid"){
$pphit=1;
unshift(@NEW_DEF_LIST3,"$kid<>$kname<>$kpos<>0<>$kcon<>\n");
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -