Release] Marriage System]

[ahmedbadrbedo]

المشاركة الأصلية كتبت بواسطة elbattawy1st

هات كدا Trigger (Marrige)

كود 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 >= 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