www.pudn.com > BATTLEROYALE.zip > battle.cgi

#! /usr/bin/perl 
#require"jcode.pl"; 
require"br.cgi"; 
require"$LIB_DIR/lib1.cgi"; 
 
&LOCK; 
require"pref.cgi"; 
&DECODE; 
&CREAD; 
&IDCHK; 
if ($mode eq "main"){&MAIN;} 
elsif ($mode eq "command"){&COM;} 
else {&ERROR("不正当的访问","No Command selected","BATTLE");} 
&UNLOCK; 
exit; 
sub MAIN { 
	&HEADER; 
	require"$LIB_DIR/disp_sts.cgi"; 
	require"$LIB_DIR/disp_cmd.cgi"; 
	&STS(); 
	&FOOTER; 
} 
sub COM { 
if (($Command eq "MOVE")&&($Command2 =~ /MV/))	{require "$LIB_DIR/lib2.cgi";&MOVE;}				#移动 
elsif($Command eq "SEARCH")						{require "$LIB_DIR/lib2.cgi";&SEARCH;}				#探索 
elsif($Command =~ /GET_/)						{require "$LIB_DIR/lib2.cgi";&WINGET;}				#战利品 
elsif($Command eq "kaifuku"){	if($Command5 eq "HEAL")		{&HEAL;}								#治疗 
								if($Command5 eq "INN")		{&INN;}									#睡眠 
								if($Command5 eq "INNHEAL")	{&INNHEAL;}}							#静养 
elsif($Command eq "HEAL")	{&HEAL;}																#治疗 
elsif($Command eq "INN")	{&INN;}																	#睡眠 
elsif($Command eq "INNHEAL"){&INNHEAL;}																#静养 
elsif($Command =~ /ITEM_/)			{require "$LIB_DIR/item1.cgi";&ITEM;}							#道具使用 
elsif($Command =~ /DEL_/)			{require "$LIB_DIR/item1.cgi";&ITEMDEL;}						#道具弃置 
elsif($Command eq "ITEMDELNEW")		{require "$LIB_DIR/item1.cgi";&ITEMDELNEW;}						#道具丢弃 
elsif($Command eq "ITEMGETNEW")		{require "$LIB_DIR/item1.cgi";&ITEMGETNEW;}						#道具捡拾 
elsif($Command =~ /ITEMNEWXCG_/)	{require "$LIB_DIR/item1.cgi";&ITEMNEWXCG;}						#道具交换 
elsif($Command eq "ITMAIN"){if($Command3 eq "WEPDEL")	{require "$LIB_DIR/item1.cgi";&WEPDEL;}		#武器除下 
							if($Command3 eq "WEPDEL2")	{require "$LIB_DIR/item1.cgi";&WEPDEL2;}	#武器丢弃 
							if($Command3 eq "BOUDELH")	{require "$LIB_DIR/item1.cgi";&BOUDELH;}	#头防具除下 
							if($Command3 eq "BOUDELB")	{require "$LIB_DIR/item1.cgi";&BOUDELB;}	#体防具除下 
							if($Command3 eq "BOUDELA")	{require "$LIB_DIR/item1.cgi";&BOUDELA;}	#腕防具除下 
							if($Command3 eq "BOUDELF")	{require "$LIB_DIR/item1.cgi";&BOUDELF;}	#足防具除下 
							if($Command3 eq "BOUDEL")	{require "$LIB_DIR/item1.cgi";&BOUDEL;}}	#装饰品除下 
elsif($Command =~ /ATK/)		{require "$LIB_DIR/attack.cgi";require"$LIB_DIR/lib4.cgi";&ATTACK1;}#攻击 
elsif($Command eq "RUNAWAY")	{require "$LIB_DIR/attack.cgi";&RUNAWAY;}							#逃亡 
elsif($Command =~ /OUK_/)								{require"$LIB_DIR/lib3.cgi";&OUKYU;}		#应急处置 
elsif(($msg2 ne "")||($dmes2 ne "")||($com2 ne ""))		{require"$LIB_DIR/lib3.cgi";&WINCHG;}		#口头语变更 
elsif(($teamID2 ne "")||($teamPass2 ne ""))				{require"$LIB_DIR/lib3.cgi";&TEAM;}			#小组操作 
elsif($Command eq "SPECIAL"){if($Command4 eq "SPEAKER")	{require "$LIB_DIR/lib3.cgi";&SPEAKER;}		#携带扬声器使用 
							 if($Command4 eq "HACK")	{require "$LIB_DIR/lib3.cgi";&HACKING;}}	#Hacking 
elsif($Command =~ /KOU_/)		{require"$LIB_DIR/lib3.cgi";&KOUDOU;}								#基本方针 
elsif($Command =~ /OUS_/)		{require"$LIB_DIR/lib3.cgi";&OUSEN;}								#应战方针 
elsif ($Command eq "SEVE")		{require"$LIB_DIR/lib3.cgi";&SEVE;}									#Messener 
elsif($Command =~ /POI_/)		{require "$LIB_DIR/lib3.cgi";&POISON;}								#毒物混入 
elsif($Command =~ /PSC_/)		{require "$LIB_DIR/lib3.cgi";&PSCHECK;}								#毒见 
elsif(($Command =~ /SEIRI_/)&&($Command2 =~ /SEIRI2_/)){require "$LIB_DIR/item2.cgi";&ITEMSEIRI;}	#道具整理 
elsif(($Command =~ /GOUSEI1_/)&&($Command2 =~ /GOUSEI2_/)&&($Command3 =~ /GOUSEI3_/)) 
														{require "$LIB_DIR/item2.cgi";&ITEMGOUSEI;}	#道具合成 
elsif(($Command =~ /SEITO_/)&&($Command2 =~ /JO_/)) {require "$LIB_DIR/item2.cgi";&ITEMJOUTO;}		#道具转让 
elsif($Command eq "BSAVE")	{require "admin.cgi";&BACKSAVE;}										#保存 
elsif($Command eq "BREAD")	{require "admin.cgi";&BACKREAD;}										#读入 
elsif($Command eq "RESET")	{require "admin.cgi";&DATARESET;}										#初始化 
if(($Command =~ /BATTLE/)||($Command =~ /ATK/)) 
		{&HEADER;require "$LIB_DIR/disp_att.cgi";require"$LIB_DIR/disp_cmd.cgi";&BATTLE;&FOOTER;}	#战斗结果 
elsif($Command eq "ITEMJOUTO") 
		{&HEADER;require "$LIB_DIR/disp_att.cgi";require"$LIB_DIR/disp_cmd.cgi";&BATTLE;&FOOTER;}	#道具转让 
elsif ($mflg ne "ON") {&MAIN;} 
} 
sub HEAL	{$sts = "治疗";$endtime = $now;&SAVE;} 
sub INN		{$sts = "睡眠";$endtime = $now;&SAVE;} 
sub INNHEAL	{$sts = "静养";$endtime = $now;&SAVE;} 
sub BB_CK{if($wf eq $w_id){$wf = "";}else{&ERROR("不正当访问。","Used Browser Back Command","BATTLE-BB_CK");}} 
1;