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

📄 douserrumor.pl

📁 这个社区是虚拟社区使用的程序
💻 PL
📖 第 1 页 / 共 2 页
字号:
🔍
12 
###############################################################################
# DoUserRumor.pl                                                              #
###############################################################################
# DoUserRumor Ver. 1.61 by LastSun （龙追日）                                 #
# Scripts written by lastsun@netease.com                                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : DoUserRumor for UltraBoard v:1.61                            #
# VERSION : 0.99                                                              #
# LAST MODIFIED : 30/12/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 龙追日. All Rights Reserved.                             #
###############################################################################

###############################################################################
# DoUserRumor                                                                 #
###############################################################################
sub DoUserRumor {
	if ($in{'Function'} eq "ExpTop") {
		$ColSpan="5";
		$Title.=&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>玩家名称及ID</b>"."</font>"."</td>".
					&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前所属</b>"."</font>"."</td>".
						&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前身份</b>"."</font>"."</td>".
							&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>权限等级</b>"."</font>"."</td>".
								&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>最近经验</b>"."</font>"."</td>";
		open(USERRUMOR,"$Shop_DIRECTORY/BeggarData/UserRumor.Data")||&CGIError("Couldn't open/read the UserRumor.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
			flock(USERRUMOR,1) if ($FLock);
				@USERRUMOR_DATA=<USERRUMOR>;
		close(USERRUMOR);
		for (my ($i)=1;$i<=$#USERRUMOR_DATA;$i++) {
			@RUMOR_DATA=&DecodeDBOutput($USERRUMOR_DATA[$i]);
			if ($in{'Function'} eq $RUMOR_DATA[0]) {
				$SpendVRM=$RUMOR_DATA[6];
				last;
			}
		}
		open(COUNT,"$Shop_DIRECTORY/BeggarData/BeggarMoney.Data")||&CGIError("Couldn't open/read the BeggarMoney.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
			flock(COUNT,1) if ($FLock);
				@COUNT_DATA=&DecodeDBOutput(<COUNT>);
		close(COUNT);
		if ($MemberData[3] ne "administrator"){
			if ($MemberData[18] > $SpendVRM) {
				$MemberData[18]-= $SpendVRM;
				&SaveMemberData($MemberData[0],@MemberData);
				$COUNT_DATA[0]+=$SpendVRM;
				open(COUNT,">$Shop_DIRECTORY/BeggarData/BeggarMoney.Data")||&CGIError("Couldn't create/write the BeggarMoney.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,2) if ($FLock);
						print COUNT &EncodeDBInput(@COUNT_DATA);
					flock(COUNT,8) if ($FLock);
				close(COUNT);
				open(COUNT,"$Shop_DIRECTORY/BeggarData/BeggarMoney1.Data")||&CGIError("Couldn't open/read the BeggarMoney1.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,1) if ($FLock);
						@COUNT_DATA1=&DecodeDBOutput(<COUNT>);
				close(COUNT);
				$COUNT_DATA1[0]+=10;
				open(COUNT,">$Shop_DIRECTORY/BeggarData/BeggarMoney1.Data")||&CGIError("Couldn't create/write the BeggarMoney1.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,2) if ($FLock);
						print COUNT &EncodeDBInput(@COUNT_DATA1);
					flock(COUNT,8) if ($FLock);
				close(COUNT);
			}
			else{
				&ShowError("你没有足够的虚拟货币！","丐帮的兄弟也要吃饭，请凑够的钱再来吧，谢谢！");
			}
		}
		open(TOPEXP,"$TOP_DIRECTORY/TopExp.Data")||&CGIError("Couldn't open/read the TopExp.Data file<br>\nPath: $TOP_DIRECTORY<br>\nReason : $!");
			flock(TOPEXP,1) if ($FLock);
				@TOPEXP_DATA=<TOPEXP>;
		close(TOPEXP);
		$#TOPEXP_DATA++;
		$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
			&Tr("","",$HeaderBGColor).
				&Td("","","","","","","","","").
					&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
						"<center><b>江湖 <font color=yellow> $#TOPEXP_DATA</font> 大杰出英雄排行榜</b><center>".
						&Td("","","","","RIGHT","","","","").
							&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
								"丐帮总资产：<font color=orange>$COUNT_DATA[0]</font>".
							"</font>".
						"</font>".
					"</td>".
				"</td>".
			"</tr>";
		printf("<div align=center><table width=700><tr><td>");

		for($i=0;$i<$#TOPEXP_DATA;$i++){
			@TopExpInfo=&DecodeDBOutput($TOPEXP_DATA[$i]);
			@MemberInfo=&GetMemberData($TopExpInfo[0]);
			open(GROUP,"$MembersPath/Groups.db")||&CGIError("Couldn't open/read the Groups.db file<br>\nPath: $MembersPath<br>\nReason : $!");
				flock(GROUP,1) if ($FLock);
			while (<GROUP>) {
				@Group=&DecodeDBOutput($_);
				if ($MemberInfo[3] eq $Group[0]) {
					$Status=$Group[1];
           				last;
				}
			}
			close(GROUP);
			$Rank="一般";
			$ChatLevel=1;
			@MemberInfo23 = &DecodeDBOutput($MemberInfo[23]);
			open(GROUP,"$MembersPath/$MemberInfo[3].rank")||&CGIError("Couldn't open/read the $MemberInfo[3].rank file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(GROUP,1) if ($FLock);
			while (<GROUP>) {
				@Group=&DecodeDBOutput($_);
				if ($MemberInfo23[0] eq $Group[0]) {
				   	$Rank=$Group[1];
					$ChatLevel=1 + $Group[2];
	              	last;
				}
			}
			close(GROUP);
			$Message.="<table width=100% border=0 cellspacing=1 cellpadding=3 align=CENTER bgcolor=black>";
			$GenderColor="<font color=blue>";
			if ($MemberInfo[22] eq "male"){
				$GenderColor="<font color=smalt>";
			}
			elsif ($MemberInfo[22] eq "female"){
				$GenderColor="<font color=claret>";
			}
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Tr("","","").
									&Td("","","","","","","","","").
										&Font($FontFace,$BoardNameTextSize,$TextColor).
											&Link("UltraBoard.$Ext?Action=ShowProfile&ID=$MemberInfo[0]&Category=$in{'Category'}&Session=$SessionID","Profile","",
												"显示人物详细资料").
												"<b>".$GenderColor.$MemberInfo[1]."</b>".
											"</a>".
											"</font>".
											" (".
											&Link("UltraBoard.pl?Action=SendMessage&ReName=$MemberInfo[0]&Ref=$in{'Action'}&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Session=$SessionID","Call","",
												"即刻联系 $MemberInfo[1]").
											$MemberInfo[0].
											"</a>".
											")".
										"</font>".
									"</td>".
								"</tr>".
							"</table>".
						"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"navy").
									$Status.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$Rank.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"maroon").
									$ChatLevel.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,"blue").
									$TopExpInfo[1].
								"</font>".
							"</td>";
					$List.=	&Tr("","",$RowEvenBGColor).
								&Td("","",$ColSpan,"","","","","","").
							        &Font($FontFace,$BoardDesTextSize,$TextColor).
										"江湖履历：".$MemberInfo[14].
									"</font>".
								"</td>".
							"</tr>";
				}
		$HTML.=	"</table></td></tr></table><p>".
			&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
				&Tr("","",$HeaderBGColor).
					$Title.
				"</tr>".
				$List.
				&Tr("","",$MenuBGColor).
					&Td("","",$ColSpan,"","","","","","").
						&PrintVersion("YES").
					"</td>".
				"</tr>".
			&CBTable();
		&PrintTheme("$UBName",$HTML);
	}
	elsif ($in{'Function'} eq "VRMTop") {
		$ColSpan="5";
		$Title.=&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>玩家名称及ID</b>"."</font>"."</td>".
					&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前所属</b>"."</font>"."</td>".
						&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>目前身份</b>"."</font>"."</td>".
							&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>权限等级</b>"."</font>"."</td>".
								&Td("","","","","","","","","").&Font($FontFace,$HeaderTextSize,$HeaderTextColor)."<b>最近金钱</b>"."</font>"."</td>";
		open(USERRUMOR,"$Shop_DIRECTORY/BeggarData/UserRumor.Data")||&CGIError("Couldn't open/read the UserRumor.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
			flock(USERRUMOR,1) if ($FLock);
				@USERRUMOR_DATA=<USERRUMOR>;
		close(USERRUMOR);
		for (my ($i)=1;$i<=$#USERRUMOR_DATA;$i++) {
			@RUMOR_DATA=&DecodeDBOutput($USERRUMOR_DATA[$i]);
			if ($in{'Function'} eq $RUMOR_DATA[0]) {
				$SpendVRM=$RUMOR_DATA[6];
				last;
			}
		}
		open(COUNT,"$Shop_DIRECTORY/BeggarData/BeggarMoney.Data")||&CGIError("Couldn't open/read the BeggarMoney.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
			flock(COUNT,1) if ($FLock);
				@COUNT_DATA=&DecodeDBOutput(<COUNT>);
		close(COUNT);
		if ($MemberData[3] ne "administrator"){
			if ($MemberData[18] > $SpendVRM) {
				$MemberData[18]-= $SpendVRM;
				&SaveMemberData($MemberData[0],@MemberData);
				$COUNT_DATA[0]+=$SpendVRM;
				open(COUNT,">$Shop_DIRECTORY/BeggarData/BeggarMoney.Data")||&CGIError("Couldn't create/write the BeggarMoney.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,2) if ($FLock);
						print COUNT &EncodeDBInput(@COUNT_DATA);
					flock(COUNT,8) if ($FLock);
				close(COUNT);
				open(COUNT,"$Shop_DIRECTORY/BeggarData/BeggarMoney1.Data")||&CGIError("Couldn't open/read the BeggarMoney1.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,1) if ($FLock);
						@COUNT_DATA1=&DecodeDBOutput(<COUNT>);
				close(COUNT);
				$COUNT_DATA1[0]+=10;
				open(COUNT,">$Shop_DIRECTORY/BeggarData/BeggarMoney1.Data")||&CGIError("Couldn't create/write the BeggarMoney1.Data file<br>\nPath: $Shop_DIRECTORY/BeggarData/<br>\nReason : $!");
					flock(COUNT,2) if ($FLock);
						print COUNT &EncodeDBInput(@COUNT_DATA1);
					flock(COUNT,8) if ($FLock);
				close(COUNT);
			}
			else{
				&ShowError("你没有足够的虚拟货币！","丐帮的兄弟也要吃饭，请凑够的钱再来吧，谢谢！");
			}
		}
		open(TOPEXP,"$TOP_DIRECTORY/TopVRM.Data")||&CGIError("Couldn't open/read the TopVRM.Data file<br>\nPath: $TOP_DIRECTORY<br>\nReason : $!");
			flock(TOPEXP,1) if ($FLock);
				@TOPEXP_DATA=<TOPEXP>;
		close(TOPEXP);
		$#TOPEXP_DATA++;
		$HTML.=	"<p>".&BTable($TableWidth,$TableAlign,"0","0",$TableCellSpacing,$TableCellPadding,$TableBorderColor,"","").
			&Tr("","",$HeaderBGColor).
				&Td("","","","","","","","","").
					&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
						"<center><b>江湖 <font color=yellow> $#TOPEXP_DATA</font> 大杰出富豪排行榜</b><center>".
						&Td("","","","","RIGHT","","","","").
							&Font($FontFace,$HeaderTextSize,$HeaderTextColor).
								"丐帮总资产：<font color=orange>$COUNT_DATA[0]</font>".
							"</font>".
						"</font>".
					"</td>".
				"</td>".
			"</tr>";
		printf("<div align=center><table width=700><tr><td>");

		for($i=0;$i<$#TOPEXP_DATA;$i++){
			@TopExpInfo=&DecodeDBOutput($TOPEXP_DATA[$i]);
			@MemberInfo=&GetMemberData($TopExpInfo[0]);
			open(GROUP,"$MembersPath/Groups.db")||&CGIError("Couldn't open/read the Groups.db file<br>\nPath: $MembersPath<br>\nReason : $!");
				flock(GROUP,1) if ($FLock);
			while (<GROUP>) {
				@Group=&DecodeDBOutput($_);
				if ($MemberInfo[3] eq $Group[0]) {
					$Status=$Group[1];
           				last;
				}
			}
			close(GROUP);
			$Rank="一般";
			$ChatLevel=1;
			@MemberInfo23 = &DecodeDBOutput($MemberInfo[23]);
			open(GROUP,"$MembersPath/$MemberInfo[3].rank")||&CGIError("Couldn't open/read the $MemberInfo[3].rank file<br>\nPath: $MembersPath<br>\nReason : $!");
			flock(GROUP,1) if ($FLock);
			while (<GROUP>) {
				@Group=&DecodeDBOutput($_);
				if ($MemberInfo23[0] eq $Group[0]) {
				   	$Rank=$Group[1];
					$ChatLevel=1 + $Group[2];
	              	last;
				}
			}
			close(GROUP);
			$Message.="<table width=100% border=0 cellspacing=1 cellpadding=3 align=CENTER bgcolor=black>";
			$OtherStatus="显示人物详细资料";
			$GenderColor="<font color=blue>";
			if ($MemberInfo[22] eq "male"){
				$GenderColor="<font color=smalt>";
			}
			elsif ($MemberInfo[22] eq "female"){
				$GenderColor="<font color=claret>";
			}
			$List.=	&Tr("","",$RowOddBGColor).
						&Td("","","","","","","",$ColumnOddBGColor,"").
							&Table("","","0","0","","").
								&Tr("","","").
									&Td("","","","","","","","","").
										&Font($FontFace,$BoardNameTextSize,$TextColor).
											&Link("UltraBoard.$Ext?Action=ShowProfile&ID=$MemberInfo[0]&Category=$in{'Category'}&Session=$SessionID","Profile","",
												"$OtherStatus").
												"<b>".$GenderColor.$MemberInfo[1]."</b>".
											"</a>".
											"</font>".
											" (".
											&Link("UltraBoard.pl?Action=SendMessage&ReName=$MemberInfo[0]&Ref=$in{'Action'}&Category=$in{'Category'}&Board=$in{'Board'}&Post=$in{'Post'}&ID=$in{'ID'}&Session=$SessionID","Call","",
												"即刻联系 $MemberInfo[1]").
											$MemberInfo[0].
											"</a>".
											")".
										"</font>".
									"</td>".
								"</tr>".
							"</table>".
						"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"navy").
									$Status.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,$TextColor).
									$Rank.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnEvenBGColor,"").
								&Font($FontFace,$TextSize,"maroon").
									$ChatLevel.
								"</font>".
							"</td>";
					$List.=	&Td("","","","","","","",$ColumnOddBGColor,"").
								&Font($FontFace,$TextSize,"blue").
									$TopExpInfo[1].
								"</font>".
							"</td>";
					$List.=	&Tr("","",$RowEvenBGColor).
12

⌨️ 快捷键说明

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