Title system' On Vsro Multi Tool'

[Dangers SrO]

معلشي عارف بقالي كتير اوي مش بعمل موضيع

اهو هحاول اعمل اللي في الخير هنا

اولا السيستيم عباره عن ان انتا هتكلم بوت عادي
وتقلو title start

هيديك تعليمات عن السيستيم ازاي تشغلو وكده

تاني حاجه هتقول للبوت title list هيديك ال titles اللي انتا هتحددها عادي

تالت حاجه هتخطار ال title وانتا المفرود توافق عليه او لا

نبتدي الشغل بقي

1

هتعمل ال trigger ده في _IncomingPrivateChat

USE [DANGER_SYSTEMS]  GO  /****** Object:  Trigger [dbo].[Title]    Script Date: 10/03/2017 01:50:59 ص ******/  SET ANSI_NULLS ON  GO  SET QUOTED_IDENTIFIER ON  GO  -- =============================================   --        Dev.DANGER MoHaMeD AhmeD  -- =============================================   CREATE TRIGGER [dbo].[Title]    ON  [dbo].[_IncomingPrivateChat]   after  insert     as   -----------------------------------------------------------------------------------------------------   DECLARE @CharName varchar(60) , @Messege varchar(MAX) ,@DANGER_SYSTEMS_START_Service INT,@Price varchar(60),@Workon varchar(60),@level int,@CharID INT,@CharJID INT,@Silk_Own INT,@nametitle varchar(60)  set @DANGER_SYSTEMS_START_Service=(select Service from DANGER_SYSTEMS_START where SystemName='Title-System')  IF @DANGER_SYSTEMS_START_Service=1  BEGIN  Select @CharName=CharName ,@Messege=Chat From _IncomingPrivateChat   -----------------------------------------------------------------------------------------------------   ---Start System  IF @Messege='Titles start'  BEGIN  Insert Into iLegend_Tool (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Hello And Welcome ,, First You must be have silk to buy A Title',Getdate())   Insert Into iLegend_Tool (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Second ,, Send to me  [Title List] To Show Title to buy one ',Getdate())   Insert Into iLegend_Tool (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Third ,, Choose title You need Have Fun ^_^',Getdate())   End  IF(@Messege='Title List')  Begin   Insert Into iLegend_Tool (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Baron/KING/QUEEN/TIGER/DANGER !',Getdate())   Insert Into iLegend_Tool (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'This All Titles Lisst And More Add SoOoN :)',Getdate())   End  ---=================================================================================================================---  Set @Price=(select Price From [TitleSYSTEM] where Hwanname=@Messege)  Set @Workon=(select Workon from [TitleSYSTEM] where Hwanname=@Messege)  If @Messege in (Select Hwanname from [TitleSYSTEM])  BEGIN  Insert Into DANGER_SYSTEMS..iLegend_Tool (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'['+@Messege+'] Price=['+@Price+']Silk IF you need send['+@Workon+']  ',Getdate())   End  ---=================================================================================================================---  ---========================================  Dev.DANGER MoHaMeD AhmeD  =========================================================================---  ---=================================================================================================================---  set @level =(select level_db from [TitleSYSTEM] where Workon=@Messege)  select @CharID=[CharID] from SRO_VT_SHARD.dbo._Char where CharName16 = @CharName  select @CharJID=[UserJID] from SRO_VT_SHARD.dbo._User where CharID = @CharID  select @Silk_Own=[silk_own] from SRO_VT_ACCOUNT.dbo.SK_Silk where JID = @CharJID  Set @Workon =(select Workon from [TitleSYSTEM] where Hwanname=@Messege)  Set @nametitle=(select Hwanname From [TitleSYSTEM] where Workon=@Messege)  If @Messege in (Select Workon from [TitleSYSTEM])  BEGIN  iF @Silk_Own >=100  BEGIN  Update SRO_VT_ACCOUNT.dbo.SK_Silk SET silk_own = @Silk_Own-150 where JID = @CharJID  insert into DANGER_SYSTEMS..iLegend_Tool (Service,Type,target,Message,Date)   values ('1','Private',@CharName,'congurtulation ,, You Received  ['+@nametitle+'] Title...Please now teleport To Show New Title .. Enjoy :) ',GETDATE())  update [SRO_VT_SHARD].[dbo].[_Char] set HwanLevel=@level where CharName16=@CharName  End  --==================================================== Dev.DANGER MoHaMeD AhmeD ====================================================================--   /***************************************** No Enough Silk***************************************************************/   iF @Silk_Own <=100  BEGIN  insert into DANGER_SYSTEMS..iLegend_Tool (Service,Type,target,Message,Date) values ('1','Private',@CharName,'You canot Received ['+@nametitle+'] Title because you donot have enough Silk',GETDATE())  End   End    End  GO  ALTER TABLE [dbo].[_IncomingPrivateChat] ENABLE TRIGGER [Title]  GO   2

2

USE [DANGER_SYSTEMS] GO /****** Object:  Table [dbo].[TitleSYSTEM]    Script Date: 10/03/2017 01:52:37 ص ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[TitleSYSTEM](     [ID] [int] IDENTITY(1,1) NOT NULL,     [service] [int] NULL,     [Hwanname] [varchar](max) NULL,     [level_db] [int] NULL,     [Price] [int] NULL,     [Workon] [varchar](60) NULL,  CONSTRAINT [PK_Tile-Sale-System] PRIMARY KEY CLUSTERED  (     [ID] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO

3

USE [DANGER_SYSTEMS] GO /****** Object:  Table [dbo].[DANGER_SYSTEMS_START]    Script Date: 10/03/2017 01:53:27 ص ******/ SET ANSI_NULLS ON GO SET QUOTED_IDENTIFIER ON GO CREATE TABLE [dbo].[DANGER_SYSTEMS_START](     [ID] [int] NOT NULL,     [Service] [int] NULL,     [Run] [varchar](max) NULL,     [Type] [varchar](max) NULL,     [SystemName] [varchar](max) NULL,     [Time] [varchar](max) NULL,  CONSTRAINT [PK_Dragon_System] PRIMARY KEY CLUSTERED  (     [ID] ASC )WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY] ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY] GO

صور من السيستيم



------------------------------------



------------------------------------------------



------------------------------------------------




=====================

ملحوظه انا خافي اسم السيرفر علشان محدش يقول دعايه

تحياتي