CREATEPROCEDURERMS_LEVEL1000MAIL
@GameIDvarchar(14),
@Timedatetime
AS
setnocounton
declare@MailCountint,@InsertMailErrorint,@InsertTickErrorint,@levelint,@faceint,@WindowKindint,@WindowIndexint,
@permissionint,@isFirstint,@Time2dateTime,@itemNumint,@itemNum2int,@itemNum3int,@randIndexint
set@MailCount=0
set@InsertMailError=1
set@InsertTickError=1
begintransaction
select@MailCount=count(*)fromtblMail1whereRecipient=@GameIDandTime=@Time
while@MailCount>0
begin

set@MailCount=0
set@Time=dateadd(second,1,@Time)
select@MailCount=count(*)fromtblMail1whereRecipient=@GameIDandTime=@Time
end

select@InsertMailError=@@ERROR
select@Level=lvlfromtblGameID1where@GameID=GameID
select@Time2=CONVERT(varchar,getdate(),120)
begin
select@face=facefromtblGameID1where@GameID=GameID
select@isFirst=count(*)fromtblGameID1wherelvl=1000
if@isFirst=1
BEGIN
inserttblMail1(Time,Recipient,Sender,ReadOrNot,Title,Line,Content,Item)values(@Time,@GameID,[红月基地],0,红月冲级奖励,20,您好！
祝贺您夺得冲级奖励总排行第一名，这是您的奖励，请查收！
更多资料尽在[url]www.hyk8.com[/url],)
set@itemNum2=0
while@itemNum2<500--发放物品数量
BEGIN
inserttblSpecialItem1(ItemKind,ItemIndex,ItemDurability,Position,Map,X,Y,TileKind,GameID,WindowKind,WindowIndex,MiscTime,AttackGrade,StrengthGrade,SpiritGrade,DexterityGrade,PowerGrade)values(6,200,4,2,1,100,100,1,@GameID,100,0,@Time,0,0,0,0,0)
set@itemNum2=@itemNum2+1
END

END
elseif@isFirst=2
BEGIN
inserttblMail1(Time,Recipient,Sender,ReadOrNot,Title,Line,Content,Item)values(@Time,@GameID,[红月基地],0,红月冲级奖励,20,您好！
祝贺您夺得冲级奖励总排行第二名，这是您的奖励，请查收！
更多资料尽在[url]www.hyk8.com[/url],)
set@itemNum2=0
while@itemNum2<400--发放物品数量
BEGIN
inserttblSpecialItem1(ItemKind,ItemIndex,ItemDurability,Position,Map,X,Y,TileKind,GameID,WindowKind,WindowIndex,MiscTime,AttackGrade,StrengthGrade,SpiritGrade,DexterityGrade,PowerGrade)values(6,200,4,2,1,100,100,1,@GameID,100,0,@Time,0,0,0,0,0)
set@itemNum2=@itemNum2+1
END

END
elseif@isFirst=3
BEGIN
inserttblMail1(Time,Recipient,Sender,ReadOrNot,Title,Line,Content,Item)values(@Time,@GameID,[红月GM交流基地],0,红月冲级奖励,20,您好！
祝贺您夺得冲级奖励总排行第三名，这是您的奖励，请查收！
更多资料尽在[url]www.hyk8.com[/url],)
set@itemNum2=0
while@itemNum2<300--发放物品数量
BEGIN
inserttblSpecialItem1(ItemKind,ItemIndex,ItemDurability,Position,Map,X,Y,TileKind,GameID,WindowKind,WindowIndex,MiscTime,AttackGrade,StrengthGrade,SpiritGrade,DexterityGrade,PowerGrade)values(6,200,4,2,1,100,100,1,@GameID,100,0,@Time,0,0,0,0,0)
set@itemNum2=@itemNum2+1
END

END
else
BEGIN
select@isFirst=count(*)fromtblGameID1wherelvl=1000andface=@face
if@isFirst=1
BEGIN
inserttblMail1(Time,Recipient,Sender,ReadOrNot,Title,Line,Content,Item)values(@Time,@GameID,[红月基地],0,红月冲级奖励,20,您好！
祝贺您夺得冲级奖励角色第一名，这是您的奖励，请查收！
更多资料尽在[url]www.hyk8.com[/url],)
set@itemNum3=0
while@itemNum3<200--发放物品数量
BEGIN
inserttblSpecialItem1(ItemKind,ItemIndex,ItemDurability,Position,Map,X,Y,TileKind,GameID,WindowKind,WindowIndex,MiscTime,AttackGrade,StrengthGrade,SpiritGrade,DexterityGrade,PowerGrade)values(6,200,4,2,1,100,100,1,@GameID,100,0,@Time,0,0,0,0,0)
set@itemNum3=@itemNum3+1
END
END
END
end
set@Time2=dateadd(second,2,@Time)
inserttblMail1(Time,Recipient,Sender,ReadOrNot,Title,Line,Content,Item)values(@Time2,@GameID,[红月基地],0,红月冲级奖励,20,更多资料尽在[url]www.hyk8.com[/url],)
set@itemNum=0
while@itemNum<5--发放物品数量
begin

--注释：设置随机奖励生化
select@randIndex=cast((100+round(RAND()*16,0))asint)
if@randIndex=109
begin
set@randIndex=110
end
inserttblSpecialItem1(ItemKind,ItemIndex,ItemDurability,Position,Map,X,Y,TileKind,GameID,WindowKind,WindowIndex,MiscTime,AttackGrade,StrengthGrade,SpiritGrade,DexterityGrade,PowerGrade)values(6,@randIndex,4,2,1,100,100,1,@GameID,100,@itemNum,@Time2,0,0,0,0,0)
set@itemNum=@itemNum+1
end

select@InsertTickError=@@ERROR

If@InsertMailError=0and@InsertTickError=0
begin
committransaction
end
else
begin
rollbacktransaction

end
GO