| elbattawy1st |
17-08-2017 12:29 AM |
رد: Release] Marriage System]
اقتباس:
المشاركة الأصلية كتبت بواسطة ahmedbadrbedo
(المشاركة 5325497)
كود:
USE [ELBATTAWY_SYSTEMS]
GO
/****** Object: Trigger [dbo].[Marrige] Script Date: 10/4/2016 11:49:25 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: Abdelrhman Elbattawy
-- Create date: <2016 - 10 - 04>
-- Description: <Marrige System>
-- =============================================
CREATE TRIGGER [dbo].[Marrige]
ON [dbo].[_IncomingPrivateChat]
after insert
as
/********************************* System Start ********************************/
----------- # Main Declares
DECLARE @CharName varchar(60) ,@CharName_Male varchar(50) ,@CharName_Female varchar(50)
,@Chat varchar(MAX) ,@Configration varchar(25) ,@Case varchar(50)
,@system varchar(50) ,@Level_Male int ,@Level_Female int
,@ReFCharID int ,@charsex varchar(max) ,@charsex2 varchar(max)
,@targetrefcharid int
Select @CharName=CharName ,@Chat=Chat From _IncomingPrivateChat
----------- # Sets
Set @ReFCharID = (Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @CharName)
Set @Case = (Select [Case] From [dbo].[Marriage_challenge] where CharName_Male = @CharName)
Set @System = 'Marriage System'
----------- # Male Section
IF (@Chat = @System)
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Hey u , u wanna marriage ???',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Pm with char name that the girl u want ^_^',Getdate())
End
----- @ Part secuss
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case is NULL And Not Exists (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @Chat) And Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat) And (@RefCharID <=14887 And @RefCharID >=14875 or @RefCharID<=1919 AND @RefCharID>=1907))
Begin
Insert into [dbo].[Marriage_challenge] (CharName_Male,CharName_Female) Values (@CharName,@Chat)
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@Chat,'This Is CharName ['+@CharName+'] want to marrie u .',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@Chat,'IF u Accept pm with Yes',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@Chat,'IF u Dont Accept pm with No',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'wait until she accpet or Not',Getdate())
End
----- @ Part fail
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case is NULL And Not Exists (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @Chat) And Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat) And (@RefCharID<=1932 AND @RefCharID>=1920 OR @RefCharID<=14900 AND @RefCharID>=14888))
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'u are not male only male can do it.',Getdate())
Delete From [dbo].[_IncomingPrivateChat] Where CharName = @CharName
End
----- @ Application Yet
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case is NULL And Exists (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @Chat) And Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat))
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'She Have Application For Marrie Not Finish Yet.',Getdate())
End
----- @ Part error char female marrie
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case = 'Married')
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Already Married.',Getdate())
End
----- @ Part error char female not exists
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And Not Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat))
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'There Is No Charname With This Charname.',Getdate())
End
----------- # Female Section
----- @ Sets
Set @Configration = (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @CharName)
Set @CharName_FeMale = (Select Top 1 CharName_Female From [dbo].[Marriage_challenge] Where CharName_Female = @CharName)
Set @CharName_Male = (Select Top 1 CharName_Male From [dbo].[Marriage_challenge] Where CharName_Female = @CharName)
Set @level_Female = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_Char] Where CharName16 = @CharName_Female)
Set @Level_Male = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_Char] Where CharName16 = @CharName_Male)
Set @ReFCharID = (Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @CharName_Male)
Set @charsex = case
when @RefCharID <=14887 And @RefCharID >=14875 or @RefCharID<=1919 AND @RefCharID>=1907 then 'Male'
else 'Female' end
Set @targetrefcharid =(Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_Char] Where CharName16 = @CharName_Female)
Set @charsex2 = case
when @targetrefcharid <=14887 And @targetrefcharid >=14875 or @targetrefcharid<=1919 AND @targetrefcharid>=1907 then 'Male'
else 'Female' end
------------- @ Accepted Part
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @Level_Female >= 120 And @Level_Male >= 120 And @charsex != @charsex2)
Begin
Update [dbo].[Marriage_challenge] Set Configration = 'Yes' where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'She like u , And Accepted Challenge Fun Will be Start Soon ^_^',Getdate())
End
----------- @ error level require Char female
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @Level_Female < 120)
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'Your Partner Must Be Level 120.',Getdate())
End
----------- @ error level require Char male
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @Level_Male < 120)
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'You Must Be Level 120 At First To Enjoy This Feature.',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Female,'Your Partner Must Be Level 120.',Getdate())
End
---------- @ error Same Sex
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @charsex = @charsex2)
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'You Can Not Marry Player With The Same Sex.',Getdate())
End
---------- @ Don't Accepted part
Else IF (@Chat = 'No')
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'She Dont like u try another girl ^_^',Getdate())
End
GO
|
كود PHP:
USE [ELBATTAWY_SYSTEMS]
GO
/****** Object: Trigger [dbo].[Marrige] Script Date: 10/4/2016 11:49:25 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
-- =============================================
-- Author: Abdelrhman Elbattawy
-- Create date: <2016 - 10 - 04>
-- Description: <Marrige System>
-- =============================================
CREATE TRIGGER [dbo].[Marrige]
ON [dbo].[_IncomingPrivateChat]
after insert
as
/********************************* System Start ********************************/
----------- # Main Declares
DECLARE @CharName varchar(60) ,@CharName_Male varchar(50) ,@CharName_Female varchar(50)
,@Chat varchar(MAX) ,@Configration varchar(25) ,@Case varchar(50)
,@system varchar(50) ,@Level_Male int ,@Level_Female int
,@ReFCharID int ,@charsex varchar(max) ,@charsex2 varchar(max)
,@targetrefcharid int
Select @CharName=CharName ,@Chat=Chat From _IncomingPrivateChat
----------- # Sets
Set @ReFCharID = (Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @CharName)
Set @Case = (Select [Case] From [dbo].[Marriage_challenge] where CharName_Male = @CharName)
Set @System = 'Marriage System'
----------- # Male Section
IF (@Chat = @System)
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Hey u , u wanna marriage ???',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Pm with char name that the girl u want ^_^',Getdate())
End
----- @ Part secuss
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case is NULL And Not Exists (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @Chat) And Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat) And (@RefCharID <=14887 And @RefCharID >=14875 or @RefCharID<=1919 AND @RefCharID>=1907))
Begin
Insert into [dbo].[Marriage_challenge] (CharName_Male,CharName_Female) Values (@CharName,@Chat)
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@Chat,'This Is CharName ['+@CharName+'] want to marrie u .',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@Chat,'IF u Accept pm with Yes',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@Chat,'IF u Dont Accept pm with No',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'wait until she accpet or Not',Getdate())
End
----- @ Part fail
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case is NULL And Not Exists (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @Chat) And Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat) And (@RefCharID<=1932 AND @RefCharID>=1920 OR @RefCharID<=14900 AND @RefCharID>=14888))
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'u are not male only male can do it.',Getdate())
Delete From [dbo].[_IncomingPrivateChat] Where CharName = @CharName
End
----- @ Application Yet
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case is NULL And Exists (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @Chat) And Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat))
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'She Have Application For Marrie Not Finish Yet.',Getdate())
End
----- @ Part error char female marrie
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And @Case = 'Married')
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'Already Married.',Getdate())
End
----- @ Part error char female not exists
else IF (@System in (Select Chat From _IncomingPrivateChat where CharName = @CharName) And Not Exists (Select * from [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @Chat))
Begin
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName,'There Is No Charname With This Charname.',Getdate())
End
----------- # Female Section
----- @ Sets
Set @Configration = (Select Top 1 Configration From [dbo].[Marriage_challenge] Where CharName_FeMale = @CharName)
Set @CharName_FeMale = (Select Top 1 CharName_Female From [dbo].[Marriage_challenge] Where CharName_Female = @CharName)
Set @CharName_Male = (Select Top 1 CharName_Male From [dbo].[Marriage_challenge] Where CharName_Female = @CharName)
Set @level_Female = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_Char] Where CharName16 = @CharName_Female)
Set @Level_Male = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_Char] Where CharName16 = @CharName_Male)
Set @ReFCharID = (Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_char] where CharName16 = @CharName_Male)
Set @charsex = case
when @RefCharID <=14887 And @RefCharID >=14875 or @RefCharID<=1919 AND @RefCharID>=1907 then 'Male'
else 'Female' end
Set @targetrefcharid =(Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_Char] Where CharName16 = @CharName_Female)
Set @charsex2 = case
when @targetrefcharid <=14887 And @targetrefcharid >=14875 or @targetrefcharid<=1919 AND @targetrefcharid>=1907 then 'Male'
else 'Female' end
------------- @ Accepted Part
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @Level_Female >= 110 And @Level_Male >= 110 And @charsex != @charsex2)
Begin
Update [dbo].[Marriage_challenge] Set Configration = 'Yes' where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'She like u , And Accepted Challenge Fun Will be Start Soon ^_^',Getdate())
End
----------- @ error level require Char female
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @Level_Female < 110)
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'Your Partner Must Be Level 110.',Getdate())
End
----------- @ error level require Char male
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @Level_Male < 110)
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'You Must Be Level 110 At First To Enjoy This Feature.',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Female,'Your Partner Must Be Level 110.',Getdate())
End
---------- @ error Same Sex
IF (@Chat = 'Yes' And @CharName in (Select CharName_Female From [dbo].[Marriage_challenge]) And @Configration is NULL And @charsex = @charsex2)
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'You Can Not Marry Player With The Same Sex.',Getdate())
End
---------- @ Don't Accepted part
Else IF (@Chat = 'No')
Begin
Delete From [dbo].[Marriage_challenge] where CharName_Female = @CharName
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,Date) Values (1,'Private',@CharName_Male,'She Dont like u try another girl ^_^',Getdate())
End
GO
|
