الـجـروب الـرسـمى لـلـمـنـتـدى FaceBook | Official Group

**elbattawy1st** · 17-08-2017, 12:29 AM

اقتباس:

المشاركة الأصلية كتبت بواسطة ahmedbadrbedo عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

كود:

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

**blalelsayed2015** · 23-08-2017, 04:04 PM

لا انت كده ناوي تنجس اللعبه هههه

y.png" border="0" alt="" title="Hairy

y" class="inlineimg" />

يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر)

	حفظ بياناتي ؟

شـريـط الاهـداءات