| Dangers SrO |
10-03-2017 03:08 AM |
Title system' On Vsro Multi Tool'
http://upload.wikimedia.org/wikipedi...9%8A%D9%85.png
معلشي عارف بقالي كتير اوي مش بعمل موضيع :yes:
اهو هحاول اعمل اللي في الخير هنا :tooth:
اولا السيستيم عباره عن ان انتا هتكلم بوت عادي
وتقلو title start
هيديك تعليمات عن السيستيم ازاي تشغلو وكده
تاني حاجه هتقول للبوت title list هيديك ال titles اللي انتا هتحددها عادي
تالت حاجه هتخطار ال title وانتا المفرود توافق عليه او لا
نبتدي الشغل بقي
1
هتعمل ال trigger ده في _IncomingPrivateChat
كود PHP:
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
كود PHP:
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
كود PHP:
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
صور من السيستيم
http://www13.0zz0.com/2017/03/10/03/714905338.jpg
------------------------------------
http://www13.0zz0.com/2017/03/10/03/783154660.jpg
------------------------------------------------
http://www13.0zz0.com/2017/03/10/03/626647793.jpg
------------------------------------------------
http://www4.0zz0.com/2017/03/10/03/260976713.jpg
=====================
ملحوظه انا خافي اسم السيرفر علشان محدش يقول دعايه
تحياتي :gun_bandana:
|
