网站地图 设为首页 加入收藏
 
红月私服中心 下载中心 发布红月 技术资料 发布家族 游戏IP生成   开区服务  
红月私服自由军团存储汉化之军队总部已封闭
文章作者:管理员 文章来源:红月私服中心-Www.hy45.Net 更新时间:2012/2/25 15:34:06 

 

/****** Object:  Stored Procedure dbo.RMS_ARMY_INITIALIZEARMYBASE    Script Date: 2004-5-13 11:21:07 ******/


alter PROCEDURE RMS_ARMY_INITIALIZEARMYBASE

AS
set nocount on

begin transaction RMS_ARMY_INITIALIZEARMYBASE

 DELETE tblArmyBase1 
 DELETE tblArmyBaseGuardList1
 UPDATE tblArmyList1 SET ArmyBaseScore=0
 DECLARE @BaseOpenDate datetime
 DECLARE @BeginOpenWar datetime
 SET @BaseOpenDate='2001-1-1 12:00:00'
 IF @BaseOpenDate>GETDATE()   --  HQ Openafter the current date
 BEGIN
  SET @BeginOpenWar=@BaseOpenDate
 END
 ELSE
 BEGIN
  SET @BeginOpenWar=CAST(CONVERT(varchar, GetDate(), 120) as datetime)
 END
 
 INSERT tblArmyBase1 (ArmyID,ControlBeginDate,AgitTaxRate) VALUES(0,@BeginOpenWar,0)

 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(1,61,8,17,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(2,61,9,16,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(3,61,10,15,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(4,61,89,16,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(5,61,90,17,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(6,61,91,18,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(7,61,20,47,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(8,61,21,47,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(9,61,22,47,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(10,61,77,47,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(11,61,78,47,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(12,61,79,47,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(13,61,20,112,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(14,61,21,112,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(15,61,22,112,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(16,61,78,112,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(17,61,79,112,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(18,61,80,112,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(19,61,6,142,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(20,61,7,143,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(21,61,8,144,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(22,61,92,144,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(23,61,93,143,42664050)
 INSERT tblArmyBaseGuardList1 (GuardNumber,GuardKind,X,Y,HP) VALUES(24,61,94,142,42664050)
 EXEC RMS_ARMY_WRITEARMYBASELOG @LogKind='ArmyBaseInitialized'

 DECLARE @Commander varchar(14)
 DECLARE @MailContent varchar(1000)
 SET @MailContent=
'我是军队的管理员。
我曾不惜铤而走险,与危亡为您带来这
讯息,让您可能会得到提升,通过行列
帮助太阳。

原因是军队总部已封闭
通道。

'+convert(varchar, @BeginOpenWar, 120)+'
如果你想一直占据总部,你
将成为最高级别的军队.

我将放弃一切为了你
我很信任你.

'+convert(varchar, @BeginOpenWar, 120)+'
记住,只有你能.'


 DECLARE BaseMailList CURSOR
 FOR
  SELECT Commander FROM tblArmyList1 WHERE ID in (SELECT distinct  ArmyID FROM tblAgitList1)
  
 OPEN BaseMailList

 FETCH FROM BaseMailList INTO @Commander
 WHILE @@FETCH_STATUS =0
 BEGIN
  EXEC RMS_SENDMAIL @Recipient=@Commander,@Sender='自由军管理员',@Title='军队总部已封闭!',@Line=15,@MailContent=@MailContent,@Item=''
  FETCH FROM BaseMailList INTO @Commander
 END
 CLOSE BaseMailList
 DEALLOCATE BaseMailList


commit transaction RMS_ARMY_INITIALIZEARMYBASE

 


GO

浏览次数:383
最新文章
· 2003系统任务栏显示桌面图标不见了处理办法...
· 修改红月私服某特定怪属性...
· 红月管理工具使用的配置...
· 教你怎么1个怪1级(去除10%限制)...
· 红月游戏帐号注册之二...
· 红月游戏帐号注册之三...
· 红月游戏帐号注册之一...
· 红月私服带杀人次数排行榜...
· 带防盗码生化排行...
· 出身完成任务一级发针存储过程...
热门文章
· 红月技能点属性上限...
· 3.8C红月私服限制部分外挂的方法...
· 调皮外挂不能正常使用...
· 红月私服角色之说...
· 升华原版升级代码...
· 红月私服自由军团存储汉化之自由军解散原因...
· 红月B2战争规则...
· 红月NPC各地点坐标...
· 红月服务器如何做到冲卡的...
· 红月外挂不能使用新解决办法...
关于我们 开区服务 网站帮助 全部私服
 
CopyRight @2010 hy45.net, Inc. All Rights Reserved  

备案登记号:苏ICP备11017169号-1