⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 ebs_sub3.cgi

📁 WEBGAME 机器人大战EBS(无尽的战争) 架設方法 WIN2K系列主機
💻 CGI
📖 第 1 页 / 共 3 页
字号:
🔍
123 
	/^出售$/ && do{	$SW=$PL_VALUES[10] if $FORM{'sellw'}==1;$SW=$PL_VALUES[11] if $FORM{'sellw'}==2;$SW=$PL_VALUES[35] if $FORM{'sellw'}==3;$SW=$PL_VALUES[36] if $FORM{'sellw'}==4;
		my($wk,$wl)= split(/!/,$SW);my@www=split(/\,/,$WEAPON_LIST{"$wk"});
		if ($FORM{'sellw'}==1 && $PL_VALUES[10]){$PL_VALUES[10]='';$PL_VALUES[8]+=int $www[5]/3;}
		elsif ($FORM{'sellw'}==2 && $PL_VALUES[11]){$PL_VALUES[11]='';$PL_VALUES[8]+=int $www[5]/3;}
		elsif ($FORM{'sellw'}==3 && $PL_VALUES[35]){$PL_VALUES[35]='';$PL_VALUES[8]+=int $www[5]/3;}
		elsif ($FORM{'sellw'}==4 && $PL_VALUES[36]){$PL_VALUES[36]='';$PL_VALUES[8]+=int $www[5]/3;}

	last CUSTOM;};
	/^CUSTOM化$/ && do{my($wk,$wl) = split(/!/,$PL_VALUES[9]);
		if ($FORM{'wname'} =~ m/^$wk/){$PL_VALUES[9]="$FORM{'wname'}!0";}last CUSTOM;
	};
	/^装备$/ && do{
		if ($FORM{'soubi'} eq "B" && $PL_VALUES[10]){($PL_VALUES[9],$PL_VALUES[10])=($PL_VALUES[10],$PL_VALUES[9]);}
	 elsif ($FORM{'soubi'} eq "C" && $PL_VALUES[11]){($PL_VALUES[9],$PL_VALUES[11])=($PL_VALUES[11],$PL_VALUES[9]);}
	 elsif ($FORM{'soubi'} eq "D" && $PL_VALUES[35]){($PL_VALUES[9],$PL_VALUES[35])=($PL_VALUES[35],$PL_VALUES[9]);}
	 elsif ($FORM{'soubi'} eq "E" && $PL_VALUES[36]){($PL_VALUES[9],$PL_VALUES[36])=($PL_VALUES[36],$PL_VALUES[9]);}

	last CUSTOM;};
	/^购入$/ && do{my @www=split(/\,/,$WEAPON_LIST{"$FORM{'buyw'}"});
		if (!$PL_VALUES[5]){$www[5]=int ($www[5]*0.8);}$PL_VALUES[8]-=$www[5];
### cheat low
		$WEP=$FORM{'buyw'};
		if (length($WEP)>=2){$PL_VALUES[8]='0';$WEP='a';}
### cheat low end
		if (!$PL_VALUES[10]){$PL_VALUES[10]="$FORM{'buyw'}!0";}
		elsif (!$PL_VALUES[11]){$PL_VALUES[11]="$FORM{'buyw'}!0";}
		elsif (!$PL_VALUES[35]){$PL_VALUES[35]="$FORM{'buyw'}!0";}
		elsif (!$PL_VALUES[36]){$PL_VALUES[36]="$FORM{'buyw'}!0";}
	last CUSTOM;};
### old
#	/^Custom$/ && do{$PL_VALUES[24]=$PL_VALUES[24]-110;$PL_VALUES[8]-=20000;$PL_VALUES[23]++;$PL_VALUES[27]=$FORM{'icon'};
#		$PL_VALUES[13]=$FORM{'MsColor'};$PL_VALUES[4]=$FORM{'MsType'};$PL_VALUES[3]=$FORM{'MsName'};
#	last CUSTOM;};

	### add start 多窗改造bug
	/^Custom$/ && do{$PL_VALUES[24]=$PL_VALUES[24]-110;$PL_VALUES[8]-=20000;if ($PL_VALUES[24]>=100){$PL_VALUES[23]++};$PL_VALUES[27]=$FORM{'icon'};
		$PL_VALUES[13]=$FORM{'MsColor'};if ($PL_VALUES[13] eq ""){$PL_VALUES[13]="#FFFFFF";}$PL_VALUES[4]=$FORM{'MsType'};$PL_VALUES[3]=$FORM{'MsName'};
	last CUSTOM;};
	### add end


	/^脸谱变更$/ && do{$PL_VALUES[37]=$FORM{'icon'};last CUSTOM;};
	/^HP小量升级$/ && do{$PL_VALUES[8]-=$PL_VALUES[16]+5000;$PL_VALUES[16]+=200 if $PL_VALUES[16] < $MAX_HP;$PL_VALUES[16]=$MAX_HP if $PL_VALUES[16] > $MAX_HP;last CUSTOM;};
	/^EN小量升级$/ && do{$PL_VALUES[8]-=$PL_VALUES[18]*10+5000;$PL_VALUES[18]+=5 if $PL_VALUES[18] < $MAX_EN;$PL_VALUES[18]=$MAX_EN if $PL_VALUES[18] > $MAX_EN;last CUSTOM;};
	/^HP中量升级$/ && do{$PL_VALUES[8]-=($PL_VALUES[16]+5000)*5;$PL_VALUES[16]+=1000 if $PL_VALUES[16] < $MAX_HP;$PL_VALUES[16]=$MAX_HP if $PL_VALUES[16] > $MAX_HP;last CUSTOM;};
	/^EN中量升级$/ && do{$PL_VALUES[8]-=($PL_VALUES[18]*10+5000)*5;$PL_VALUES[18]+=25 if $PL_VALUES[18] < $MAX_EN;$PL_VALUES[18]=$MAX_EN if $PL_VALUES[18] > $MAX_EN;last CUSTOM;};
	/^HP大量升级$/ && do{$PL_VALUES[8]-=($PL_VALUES[16]+5000)*7;$PL_VALUES[16]+=1400 if $PL_VALUES[16] < $MAX_HP;$PL_VALUES[16]=$MAX_HP if $PL_VALUES[16] > $MAX_HP;last CUSTOM;};
	/^EN大量升级$/ && do{$PL_VALUES[8]-=($PL_VALUES[18]*10+5000)*7;$PL_VALUES[18]+=35 if $PL_VALUES[18] < $MAX_EN;$PL_VALUES[18]=$MAX_EN if $PL_VALUES[18] > $MAX_EN;last CUSTOM;};
/^辅助購入$/ && do{my @www=split(/\,/,$BOUGU_LIST{"$FORM{'buyb'}"});
$PL_VALUES[8]-=$www[5];$PL_VALUES[41]="$FORM{'buyb'}!$www[9]";
last CUSTOM;};
/^輔助裝置出售$/ && do{$SB=$PL_VALUES[41];
my($bk,$bl)= split(/!/,$SB);my@www=split(/\,/,$BOUGU_LIST{"$bk"});
if ($PL_VALUES[41]){$PL_VALUES[41]='';$PL_VALUES[8]+=int $www[5]/3;}
last CUSTOM;};
/^武器$/ && do{my @www=split(/\,/,$WEAPONEX_LIST{"$FORM{'buyww'}"});
&LOCK;&DBM_CONVERT('P',"$FORM{pname}");&UNLOCK;
local($WN_A,$WLV_A,$WEX_A) = split(/!/,$PL_VALUES[9]);
@WN_sA=split(/\,/,$WEAPON_LIST{"$WN_A"});
$PL_VALUES[8]-=1000000;$PL_VALUES[24]=400;
if ($PL_VALUES[9]){$PL_VALUES[9]="$WN_A!0!$FORM{'buyww'}";}
last CUSTOM;};
	
/^变更$/ && do{$PL_VALUES[7]="$FORM{'com'}";last CUSTOM;};
	/^台词$/ && do{$PL_VALUES[31]="$FORM{'bacom'}";last CUSTOM;};
/^必杀/ && do{$PL_VALUES[39]="$FORM{'hicom'}";last CUSTOM;};
/^超必$/ && do{$PL_VALUES[38]="$FORM{'cicom'}";last CUSTOM;};
/^ID变更$/ && do{
#
&ERROR('现在密码不存在。')if $FORM{'c_pass'} eq '';
&ERROR('密码错误。') if $FORM{'pass'} ne $FORM{'c_pass'};
&ERROR('密码错误。') if crypt ($FORM{'c_pass'},eb) ne "$PL_VALUES[2]";
&DBM_INPORT(P);
if($P{"$FORM{'c_pname'}"}){&ERROR('同名用户存在','换个id试试');}
$PL_VALUES[8] -= 100000;
if($FORM{'c_pass2'} ne ''){
$PL_VALUES[2] = crypt ($FORM{'c_pass2'},eb);
$FORM{'pass'} = $FORM{'c_pass2'};
}
if($FORM{'c_pname'} ne ''){
if($FORM{'pname'} ne $FORM{'c_pname'}){
$flagp=1;
&LOCK;
dbmopen (%PL,"$DBM_P",0666);
$PL{"$FORM{'c_pname'}"}="@PL_VALUES";
delete $PL{"$FORM{'pname'}"};
dbmclose %PL;
$FORM{'pname'} = $FORM{'c_pname'};
&UNLOCK;
}
}
last CUSTOM;};
	/^亡命$/ && do{$PL_VALUES[5]="$FORM{'boumeiC'}";$PL_VALUES[28]='';$PL_VALUES[0]=$PL_VALUES[6]=0;last CUSTOM;};
	/^入队$/ && do{$PL_VALUES[28]="$FORM{'inunit'}";last CUSTOM;};
	/^离队$/ && do{$PL_VALUES[28]="";$PL_VALUES[6]=0;last CUSTOM;};
	/^部队编成$/ && do{&ERROR('部队名尚未输入') if !$FORM{'uname'};
		&DBM_INPORT(C);&ERROR('这个国家不存在') if !$C{"$PL_VALUES[5]"};
		$flagc=1;
		$PL_VALUES[8]-=$MAKE_TEAM;$PL_VALUES[28]="$FORM{'uname'}";$PL_VALUES[6]=-1;
		UNIT:for ($i=2;$i <= 4; $i++){if (!$CL_VALUES[$i]){$CL_VALUES[$i]="$FORM{'uname'}";last UNIT;}}
	last CUSTOM;};
	/^建国$/ && do{&DBM_INPORT(C);&ERROR('和已建立的国家重名') if $C{"$FORM{'cname'}"};
		&ERROR(noName) if $FORM{'cname'} eq '';@CL_VALUES='';$Moto="$PL_VALUES[5]" if $PL_VALUES[5];
        $PL_VALUES[8]-=$MAKE_COUNTRY;$PL_VALUES[5]="$FORM{'cname'}";$PL_VALUES[0]=200;$PL_VALUES[6]=1;
		$CL_VALUES[0]='#'.$FORM{'cl'};$CL_VALUES[1]=10000;$CL_VALUES[7]=0;
		$CL_VALUES[11]="$YOUSAI_HP!$YOUSAI_HP!$DATE";$CL_VALUES[12]="1!1!1!$FORM{'cname'}防卫要塞";$flagc=1;
		$HISTORY="$FORM{'pname'} 建国 $FORM{'cname'}。最高指导者$FORM{'pname'}同时就任" if !$Moto;
		$HISTORY="$FORM{'pname'} 建立$FORM{'cname'}同时宣布独立。对$Moto发布了独立宣言" if $Moto;
	last CUSTOM;};
	/^解散$/ && $PL_VALUES[5] && $PL_VALUES[6] == 1 && do{$flagc=1;$flagp=0;
		&DBM_INPORT(C);&ERROR('这个国家不存在') if !$C{"$PL_VALUES[5]"};
		$CL_VALUES[2]='' if $FORM{'delunit'} eq "$CL_VALUES[2]";
		$CL_VALUES[3]='' if $FORM{'delunit'} eq "$CL_VALUES[3]";
		$CL_VALUES[4]='' if $FORM{'delunit'} eq "$CL_VALUES[4]";
	last CUSTOM;};
	/^发动$/ && $PL_VALUES[5] && $PL_VALUES[6] == 1 && $CL_VALUES[7] < time && do{
		&DBM_INPORT(C);&ERROR('这个国家不存在') if !$C{"$PL_VALUES[5]"};
		$flagc=1;$flagp=0;
		$CL_VALUES[7]=time+7200*$FORM{'kikan'};$CL_VALUES[1]-=$FORM{'dmmy'};
		$CL_VALUES[6]="$FORM{'main'}";$CL_VALUES[5]="$FORM{'mname'}";
		$CL_VALUES[8]="$FORM{'u1'}";$CL_VALUES[9]="$FORM{'u2'}";$CL_VALUES[10]="$FORM{'u3'}";
		$HISTORY="$PL_VALUES[5]宣布$FORM{'mname'}开始。" if $FORM{'mname'} =~ /作战$/ ;
		$HISTORY="$PL_VALUES[5]的$FORM{'mname'}作战发动。" if !$HISTORY;
	last CUSTOM;};

/^手續$/ && do{&DBM_INPORT(P);&DBM_INPORT(C);&ERROR('請設定金額') if !$FORM{'money'} || $FORM{'money'}!~ /[0-9]+/ || $FORM{'money'} < 0;
if ($FORM{'bank'}eq"bank1"){&ERROR('你沒有國籍。') if !$C{"$PL_VALUES[5]"};
if ($FORM{'money'}>=$PL_VALUES[8]){
$CL_VALUES[1]+=$PL_VALUES[8];
$PL_VALUES[8]=0;
$flagc=1;
}else{
$PL_VALUES[8]-=$FORM{'money'};
$CL_VALUES[1]+=$FORM{'money'};
$flagc=1;
}}
elsif ($FORM{'bank'}eq"bank2"){
while (my($key,$value) = each %P){my@VS_VALUE = split(/\s/,$value);
if ($FORM{'soukin'} eq $key){
$PL_VALUES[8]-=$FORM{'money'};
$VS_VALUE[8]+=$FORM{'money'};
dbmopen (%PL,"$DBM_P",0666);$PL{"$FORM{'soukin'}"}="@VS_VALUE";dbmclose %PL;
}}}
elsif($FORM{'bank'}eq"bank3"){
$PL_VALUES[8]-=$FORM{'money'};
$PL_VALUES[40]+=$FORM{'money'};
}
elsif($FORM{'bank'}eq"bank4"){
if ($FORM{'money'}>=$PL_VALUES[40]){
$PL_VALUES[8]+=$PL_VALUES[40];
$PL_VALUES[40]=0;
}else{
$PL_VALUES[40]-=$FORM{'money'};
$PL_VALUES[8]+=$FORM{'money'};
}}else{&ERROR('不能實行');}
last CUSTOM;};

	$FORM{'yousaiCheck'} && $PL_VALUES[6] != 0 && $PL_VALUES[5] && do{
		&DBM_INPORT(C);&ERROR('这个国家不存在') if !$C{"$PL_VALUES[5]"};
		@Y_HP=split(/!/,$CL_VALUES[11]);
		@Y_ST=split(/!/,$CL_VALUES[12]);$flagc=1;$flagp=0;
		if ($FORM{'Cmode'} eq "回覆大"){$Y_HP[0]+=int($Y_HP[1]*0.2);$CL_VALUES[1]-=1000;}
		if ($FORM{'Cmode'} eq "回覆少"){$Y_HP[0]+=int($Y_HP[1]*0.5);$CL_VALUES[1]-=10000;}
		if ($FORM{'Cmode'} eq "HP强化"){$Y_HP[1]+=5000;$CL_VALUES[1]-=50000;}
		if ($FORM{'Cmode'} eq "攻击力强化"){$Y_ST[0]++;$CL_VALUES[1]-=10000;}
		if ($FORM{'Cmode'} eq "防御力强化"){$Y_ST[1]++;$CL_VALUES[1]-=10000;}
		if ($FORM{'Cmode'} eq "命中力强化"){$Y_ST[2]++;$CL_VALUES[1]-=10000;}
		$CL_VALUES[11]="$Y_HP[0]!$Y_HP[1]!$Y_HP[2]";
		$CL_VALUES[12]="$Y_ST[0]!$Y_ST[1]!$Y_ST[2]!$Y_ST[3]";
	last CUSTOM;};
	/^武器改造$/ && do{my($wa,$waa)= split(/!/,$PL_VALUES[9]);my($wb,$wbb)= split(/!/,$PL_VALUES[10]);@PW_A=split(/\,/,$WEAPON_LIST{"$wb"});if ($PW_A[8] && $PW_A[8]!=1) {$PL_VALUES[9]="$PW_A[8]!0";$PL_VALUES[10]='';}last CUSTOM;};
	/^转生$/ && do{if ($PL_VALUES[29]>300 && $PL_VALUES[8]>$PL_VALUES[29]*10000) {$PL_VALUES[8]-=$PL_VALUES[29]*10000;$PL_VALUES[29]=1;$PL_VALUES[30]=0;$PL_VALUES[19]=int($PL_VALUES[19]*0.9);$PL_VALUES[20]=int($PL_VALUES[20]*0.9);$PL_VALUES[21]=int($PL_VALUES[21]*0.9);$PL_VALUES[22]=int($PL_VALUES[22]*0.9);}last CUSTOM;};

        /^继承$/ && do{&DBM_INPORT(P);
while (my($key,$value) = each %P){my@VS_VALUE = split(/\s/,$value);
if ($FORM{'atotugi'} eq $key) {$VS_VALUE[6]='1';$VS_VALUE[28]='';$PL_VALUES[0]=0;$PL_VALUES[6]=0;
$HISTORY="$PL_VALUES[5]的总帅<font color=blue>$FORM{'pname'} </font>決定了新的继承人。新的继承人<font color=blue>$FORM{'atotugi'}</font>继承王位。";
dbmopen (%PL,"$DBM_P",0666);$PL{"$FORM{'atotugi'}"}="@VS_VALUE";dbmclose %PL;
}
}
last CUSTOM;};

	/^解雇$/ && $PL_VALUES[5] && $PL_VALUES[6] == 1 && do{&DBM_INPORT(P);

while (my($key,$value) = each %P){my@VS_VALUE = split(/\s/,$value);
if ($FORM{'delunit'} eq $key) {
$VS_VALUE[5]='';
$VS_VALUE[6]='0';
$VS_VALUE[28]='';
dbmopen (%PL,"$DBM_P",0666);$PL{"$FORM{'delunit'}"}="@VS_VALUE";dbmclose %PL;
}
}
last CUSTOM;};
	/^司令就任$/ && $PL_VALUES[5] && !$PL_VALUES[6] && do{&DBM_INPORT(P);
		while (my($key,$value) = each %P){my@VS_VALUE = split(/\s/,$value);
			if($FORM{'team'} eq "$VS_VALUE[28]" && $VS_VALUE[6] == -1){&ERROR('已经有其它玩家就任了这个位置');}
		}
		$PL_VALUES[6]='-1';$PL_VALUES[28]="$FORM{'team'}";
	last CUSTOM;};
	/^总帅就任$/ && $PL_VALUES[5] && $PL_VALUES[6] == 0 && do{&DBM_INPORT(P);
		while (my($key,$value) = each %P){my@VS_VALUE = split(/\s/,$value);
			if($PL_VALUES[5] eq "$VS_VALUE[5]" && $VS_VALUE[6] == 1){&ERROR('已经有其它玩家就任了这个位置');}
		}
		$PL_VALUES[6]='1';$PL_VALUES[0]='200';
		$HISTORY="$FORM{'pname'} 的总帅就任经过 $PL_VALUES[5]的议会承认$FORM{'pname'}委任其完全指挥权";
	last CUSTOM;};
}
	&ERROR('资金不足') if $PL_VALUES[8] < 0 || $CL_VALUES[1] < 0;
	&LOCK;
	if($flagp){dbmopen (%PL,"$DBM_P",0666);$PL{"$FORM{'pname'}"}="@PL_VALUES";dbmclose %PL;}
	if($flagc){dbmopen (%CL,"$DBM_C",0666);$CL{"$PL_VALUES[5]"}="@CL_VALUES";dbmclose %CL;}
	if($HISTORY){dbmopen (%DH,"$DBM_H",0666);$DH{"$DATE"}="$HISTORY";dbmclose %DH;}
	&UNLOCK;
}

1;
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -