--将临时表的使用改为表变量,
--增加处理人数参数
--增加敌友关系
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
CREATE PROC [PrMoney_UpdateCash3]
@intUserNum int,
@chvModeName varchar(16),
@chvSourceName varchar(64),
@chvRemark varchar(128),
@intUserID1 int,
@intUserID2 int,
@intUserID3 int,
@intUserID4 int,
@intUserID5 int,
@intUserID6 int,
@intWantedAmount1 bigint,
@intWantedAmount2 bigint,
@intWantedAmount3 bigint,
@intWantedAmount4 bigint,
@intWantedAmount5 bigint,
@intWantedAmount6 bigint,
@chvIPAddress1 varchar(15),
@chvIPAddress2 varchar(15),
@chvIPAddress3 varchar(15),
@chvIPAddress4 varchar(15),
@chvIPAddress5 varchar(15),
@chvIPAddress6 varchar(15),
@inyLog tinyint
as
set nocount on
set xact_abort on
Declare @intCashAmount1 int,@intCashAmount2 int,@intCashAmount3 int,@intCashAmount4 int,@intCashAmount5 int,@intCashAmount6 int
Declare @FRate float,@FTemp float
Declare @bNeedReCalc bit --0:不用重算 ;1:需要重算
set @FRate=1.0
set @FTemp=1.0
set @bNeedReCalc=0
--Declare @FTemp1 float,@FTemp2 float,@FTemp3 float,@FTemp4 float
--对友关系变量
Declare @bivUserID1 varbinary(1024)
Declare @bivUserID2 varbinary(1024)
Declare @bivUserID3 varbinary(1024)
Declare @bivUserID4 varbinary(1024)
Set @bivUserID1=Convert(varbinary(512),@intUserID2)+Convert(varbinary(512),@intUserID3)+Convert(varbinary(512),@intUserID4)
Set @bivUserID2=Convert(varbinary(512),@intUserID1)+Convert(varbinary(512),@intUserID3)+Convert(varbinary(512),@intUserID4)
Set @bivUserID3=Convert(varbinary(512),@intUserID2)+Convert(varbinary(512),@intUserID1)+Convert(varbinary(512),@intUserID4)
Set @bivUserID4=Convert(varbinary(512),@intUserID2)+Convert(varbinary(512),@intUserID3)+Convert(varbinary(512),@intUserID1)
if @intUserNum > 4
begin
Declare @bivUserID5 varbinary(1024)
Declare @bivUserID6 varbinary(1024)
Set @bivUserID1=@bivUserID1+Convert(varbinary(512),@intUserID5)+Convert(varbinary(512),@intUserID6)
Set @bivUserID2=@bivUserID2+Convert(varbinary(512),@intUserID5)+Convert(varbinary(512),@intUserID6)
Set @bivUserID3=@bivUserID3+Convert(varbinary(512),@intUserID5)+Convert(varbinary(512),@intUserID6)
Set @bivUserID4=@bivUserID4+Convert(varbinary(512),@intUserID5)+Convert(varbinary(512),@intUserID6)
Set @bivUserID5=Convert(varbinary(512),@intUserID1)+Convert(varbinary(512),@intUserID2)+Convert(varbinary(512),@intUserID3)+Convert(varbinary(512),@intUserID4)+Convert(varbinary(512),@intUserID6)
Set @bivUserID6=Convert(varbinary(512),@intUserID1)+Convert(varbinary(512),@intUserID2)+Convert(varbinary(512),@intUserID3)+Convert(varbinary(512),@intUserID4)+Convert(varbinary(512),@intUserID5)
end
--这里要注意,更新用户现金取数据库中的数据,跟游戏服务器能否保持一致
--取得用户现金
select @intCashAmount1=[Amount] from [dbo].[Money] where [UserID]=@intUserID1
select @intCashAmount2=[Amount] from [dbo].[Money] where [UserID]=@intUserID2
select @intCashAmount3=[Amount] from [dbo].[Money] where [UserID]=@intUserID3
select @intCashAmount4=[Amount] from [dbo].[Money] where [UserID]=@intUserID4
Declare @T_T Table(TTemp float)
if @intCashAmount1+@intWantedAmount1<0
begin
set @FTemp=-@intCashAmount1/@intWantedAmount1
insert into @T_T values(@FTemp)
end
if @intCashAmount2+@intWantedAmount2<0
begin
set @FTemp=-@intCashAmount2/@intWantedAmount2
insert into @T_T values(@FTemp)
end
if @intCashAmount3+@intWantedAmount3<0
begin
set @FTemp=-@intCashAmount3/@intWantedAmount3
insert into @T_T values(@FTemp)
end
if @intCashAmount4+@intWantedAmount4<0
begin
set @FTemp=-@intCashAmount4/@intWantedAmount4
insert into @T_T values(@FTemp)
end
if @intUserNum>4
begin
if @intUserID5<>0
begin
select @intCashAmount5=[Amount] from [dbo].[Money] where [UserID]=@intUserID5
if @intCashAmount5+@intWantedAmount5<0
begin
set @FTemp=-@intCashAmount5/@intWantedAmount5
insert into @T_T values(@FTemp)
end
end
if @intUserID6<>0
begin
select @intCashAmount6=[Amount] from [dbo].[Money] where [UserID]=@intUserID6
if @intCashAmount6+@intWantedAmount6<0
begin
set @FTemp=-@intCashAmount6/@intWantedAmount6
insert into @T_T values(@FTemp)
end
end
end
set @FTemp=(select min(@FTemp) from @T_T)
if @FTemp<@FRate
begin
set @FRate=@FTemp
set @BNeedReCalc=1
end
if @BNeedReCalc=1
begin
set @intWantedAmount1=@intWantedAmount1*@FRate
set @intWantedAmount2=@intWantedAmount2*@FRate
set @intWantedAmount3=@intWantedAmount3*@FRate
set @intWantedAmount4=@intWantedAmount4*@FRate
if @intUserNum>4
begin
set @intWantedAmount5=@intWantedAmount5*@FRate
set @intWantedAmount6=@intWantedAmount6*@FRate
end
end
begin tran
exec [prMoney_UpdateCash]
@chvModeName, -- 通过什么方式,如'WEB'、'GameServer'等
@chvSourceName, -- 方式的源,如'金币麻将服务器'、'虚拟股市'等
@chvRemark, -- 其它信息 注释.
@intUserID1, -- 用户ID
@bivUserID1, -- 相关的用户ID
@intWantedAmount1, -- 希望更新的数量(>0 加金, <0 扣金)
0, -- 税金(税金>0,要在现金中扣除,游戏服务器可以置为0)
@chvIPAddress1, -- IP地址
0, -- 机器码
1 -- 是否做Log,如果>0,则表示做Log,否则不做Log
exec [prMoney_UpdateCash]
@chvModeName, -- 通过什么方式,如'WEB'、'GameServer'等
@chvSourceName, -- 方式的源,如'金币麻将服务器'、'虚拟股市'等
@chvRemark, -- 其它信息 注释.
@intUserID2, -- 用户ID
@bivUserID2, -- 相关的用户ID
@intWantedAmount2, -- 希望更新的数量(>0 加金, <0 扣金)
0, -- 税金(税金>0,要在现金中扣除,游戏服务器可以置为0)
@chvIPAddress2, -- IP地址
0, -- 机器码
1 -- 是否做Log,如果>0,则表示做Log,否则不做Log
exec [prMoney_UpdateCash]
@chvModeName, -- 通过什么方式,如'WEB'、'GameServer'等
@chvSourceName, -- 方式的源,如'金币麻将服务器'、'虚拟股市'等
@chvRemark, -- 其它信息 注释.
@intUserID3, -- 用户ID
@bivUserID3, -- 相关的用户ID
@intWantedAmount3, -- 希望更新的数量(>0 加金, <0 扣金)
0, -- 税金(税金>0,要在现金中扣除,游戏服务器可以置为0)
@chvIPAddress3, -- IP地址
0, -- 机器码
1 -- 是否做Log,如果>0,则表示做Log,否则不做Log
exec [prMoney_UpdateCash] @chvModeName, -- 通过什么方式,如'WEB'、'GameServer'等
@chvSourceName, -- 方式的源,如'金币麻将服务器'、'虚拟股市'等
@chvRemark, -- 其它信息 注释.
@intUserID4, -- 用户ID
@bivUserID4, -- 相关的用户ID
@intWantedAmount4, -- 希望更新的数量(>0 加金, <0 扣金)
0, -- 税金(税金>0,要在现金中扣除,游戏服务器可以置为0)
@chvIPAddress4, -- IP地址
0, -- 机器码
1 -- 是否做Log,如果>0,则表示做Log,否则不做Log
if @intUserNum>4
begin
if @intUserID5<>0
exec [prMoney_UpdateCash]
@chvModeName, -- 通过什么方式,如'WEB'、'GameServer'等
@chvSourceName, -- 方式的源,如'金币麻将服务器'、'虚拟股市'等
@chvRemark, -- 其它信息 注释.
@intUserID5, -- 用户ID
@bivUserID5, -- 相关的用户ID
@intWantedAmount5, -- 希望更新的数量(>0 加金, <0 扣金)
0, -- 税金(税金>0,要在现金中扣除,游戏服务器可以置为0)
@chvIPAddress5, -- IP地址
0, -- 机器码
1 -- 是否做Log,如果>0,则表示做Log,否则不做Log
if @intUserID6<>0
exec [prMoney_UpdateCash]
@chvModeName, -- 通过什么方式,如'WEB'、'GameServer'等
@chvSourceName, -- 方式的源,如'金币麻将服务器'、'虚拟股市'等
@chvRemark, -- 其它信息 注释.
@intUserID6, -- 用户ID
@bivUserID6, -- 相关的用户ID
@intWantedAmount6, -- 希望更新的数量(>0 加金, <0 扣金)
0, -- 税金(税金>0,要在现金中扣除,游戏服务器可以置为0)
@chvIPAddress6, -- IP地址
0, -- 机器码
1 -- 是否做Log,如果>0,则表示做Log,否则不做Log
end
commit tran
return 1
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO