getitem.pl

这个社区是虚拟社区使用的程序

###############################################################################
# GetItem.pl                                                                  #
###############################################################################
# GetItem Ver. 1.61 by LastSun （龙追日）                                     #
# Scripts written by [e-mail]                                      #
# --------------------------------------------------------------------------- #
# PROGRAM NAME : GetItem for UltraBoard v:1.61                                #
# VERSION : 0.99                                                              #
# LAST MODIFIED : 30/12/1999                                                  #
# =========================================================================== #
# COPYRIGHT NOTICE :                                                          #
#                                                                             #
# Copyright (c) 1999 龙追日. All Rights Reserved.                             #
###############################################################################

###############################################################################
# GetItem                                                                     #
###############################################################################
sub GetItem {
	if (-e "$Shop_DIRECTORY/$MemberData[0].Box") {
		$GetMoney=substr($MemberData[7],-2);
		$GetMoney++;
		$GetExp=substr($MemberData[18],-1);
		$GetExp++;
		@MemberInfo23 = &DecodeDBOutput($MemberData[23]);
		$MemberData[18]+=$GetMoney;
		$MemberInfo23[1]+=$GetExp;
		$MemberData[23]=$MemberInfo23[0]."|^|".$MemberInfo23[1];
		$MemberData[7]++;
		&SaveMemberData($MemberData[0],@MemberData);
		unlink ("$Shop_DIRECTORY/$MemberData[0].Box");
		&ShowThank( "恭喜你找到宝箱！",
					"你很惊讶的在宝箱中发现了 <font color=red>$GetMoney</font> VRM！<br> 你仔细的看了看四周，然后快速把这些钱放到自己口袋中，飘然而去。<br>在你搜索的过程中，你的江湖经验增加了 <font color=blue>$GetExp</font> Exp！",
					"6",
					"UltraBoard.$Ext?Action=ShowBoard&Board=$in{'Board'}&Idle=$in{'Idle'}&Sort=$in{'Sort'}&Order=$in{'Order'}&Page=$in{'Page'}&UserName=$UserName&Password=$Password"
					);
	}
	else{
		&ShowError("空的宝箱到是不少！","都翻过这么多次了，告诉你是空的，你还不相信！");
	}
#	&ShowError("艰苦建设中！","请各位关注并提供宝贵的意见！");
	exit;
}
###############################################################################
1;# End of ShowProfile Function
###############################################################################