SroPedia
Casper 4Gold

    Silkroad Online




   Silkroad Online > >

[ ] [ ]


         :: Skill ( : Hazem Borkan)       :: [Release] Spirit Killer Scroll ( :HB#)       ::  ١:٨ ( :Iron.Man)       ::   ( :Iron.Man)       ::   ( :_Legend_R_)       ::  ( :Iron.Man)       ::  ߿ ( :alsampox)       ::   ( :alsampox)       ::  ( :alaamostafa)       :: Adding Item in F10 ( :wher4u2love)       ::  job temple ( :Destructions)       ::   ( :Destructions)       ::  tablets ( :bolasamir)       :: start loding ( :Helper4You)       :: spear hybird or pure s/s  ( :bolasamir)       :: Uniques Killer For Silk ( :HB#)       ::   ( :police_3001)       :: Item Mall F10 Problem ( :wher4u2love)       :: New Avatar By [GM]Kingof30 ( :X-Vortex)       ::  Need for Speed: Payback  ( :Iron.Man)       ::   ( :Iron.Man)       ::   ( :Iron.Man)       :: []  ( :Iron.Man)       ::   ( :PeW)       :: []  ( :Iron.Man)      

 
15-08-2017, 06:28 AM   #1

elbattawy1st



  elbattawy1st


Mar 2014
116941
755
TanTa
SilkRoaD
Pavo
Male
83
elbattawy1st

elbattawy1st

881  


   Yahoo  elbattawy1st

Release] Marriage System]






Vsro Multi Tools V1.8
Male Marriage System
Guide Female
Female Pro (Marrige_Settings) pvp Male Female
^_^ Female Male
notice
^_^
fun
:D


DownLoad

: Cheat Male Female ^_^


PW :
Abdo.Elbattawy


elbattawy1st :

elbattawy1st ; 15-08-2017 11:03 PM

15-08-2017, 02:03 PM   #2

Hamza FiGo


ChaosRoad Owner

  Hamza FiGo


Dec 2007
6993
7,763
Cairo
Helping ppl
Private Server
Male
966
Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo

Hamza FiGo

11021  


   Yahoo  Hamza FiGo    Skype  Hamza FiGo

: Release] Marriage System]





Hamza FiGo :

|| ||


15-08-2017, 03:46 PM   #3

elbattawy1st



  elbattawy1st


Mar 2014
116941
755
TanTa
SilkRoaD
Pavo
Male
83
elbattawy1st

elbattawy1st

881  


   Yahoo  elbattawy1st

: Release] Marriage System]



Hamza FiGo
^_^


elbattawy1st :


15-08-2017, 03:56 PM   #4

EgY_KhaN


E g y Em pire

   EgY_KhaN


Aug 2012
103935
1,247
Mansoura
Love the Destruction
Private Server
Male
28
 EgY_KhaN

 EgY_KhaN

4431  


   Yahoo   EgY_KhaN    Skype   EgY_KhaN

   
: 1

: Release] Marriage System]





EgY_KhaN :

EgY_KhaN is There !



15-08-2017, 06:31 PM   #5

Hamza FiGo


ChaosRoad Owner

  Hamza FiGo


Dec 2007
6993
7,763
Cairo
Helping ppl
Private Server
Male
966
Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo  Hamza FiGo

Hamza FiGo

11021  


   Yahoo  Hamza FiGo    Skype  Hamza FiGo

: Release] Marriage System]



EgY_KhaN



Hamza FiGo :

|| ||


15-08-2017, 07:34 PM   #6

Destructions





Aug 2017
133321
171
No Server
Male
10
Destructions

Destructions

366  



: Release] Marriage System]



<3 5




15-08-2017, 09:24 PM   #7

HB#



  HB#


Jul 2017
133179
135
Daquhlia - Mansoura
Private Server
Male
10
HB#

HB#

210  


   Yahoo  HB#

: Release] Marriage System]



: Abdo.Elbattawy


HB# :
PVPERZ-REBORN
:LOL
Server : EUNE
Solo&Duo: Gold V
Flex : Gold IV
Nickname : GearFourth


15-08-2017, 10:30 PM   #8

ahmedbadrbedo



  ahmedbadrbedo


Sep 2016
131020
80
Egypt
No Server
Male
10
ahmedbadrbedo

ahmedbadrbedo

226  



: Release] Marriage System]



reward


ahmedbadrbedo :


15-08-2017, 11:01 PM   #9

elbattawy1st



  elbattawy1st


Mar 2014
116941
755
TanTa
SilkRoaD
Pavo
Male
83
elbattawy1st

elbattawy1st

881  


   Yahoo  elbattawy1st

: Release] Marriage System]



EgY_KhaN

^_^

Destructions
<3 5


HB#
: Abdo.Elbattawy


ahmedbadrbedo
reward
Enjoy ^_^


elbattawy1st :


16-08-2017, 12:23 AM   #10






Jul 2015
122775
461
()
+ sql
Private Server
Male
10



929  



: Release] Marriage System]







16-08-2017, 05:03 AM   #11

elbattawy1st



  elbattawy1st


Mar 2014
116941
755
TanTa
SilkRoaD
Pavo
Male
83
elbattawy1st

elbattawy1st

881  


   Yahoo  elbattawy1st

: Release] Marriage System]



:D


elbattawy1st :


16-08-2017, 09:10 AM   #12

Destructions





Aug 2017
133321
171
No Server
Male
10
Destructions

Destructions

366  



: Release] Marriage System]



!
your parnter must be level 120
120
110 110




16-08-2017, 04:10 PM   #13

elbattawy1st



  elbattawy1st


Mar 2014
116941
755
TanTa
SilkRoaD
Pavo
Male
83
elbattawy1st

elbattawy1st

881  


   Yahoo  elbattawy1st

: Release] Marriage System]



Destructions
!
your parnter must be level 120
120
110 110
Trigger (Marrige)


elbattawy1st :


16-08-2017, 11:01 PM   #14

ahmedbadrbedo



  ahmedbadrbedo


Sep 2016
131020
80
Egypt
No Server
Male
10
ahmedbadrbedo

ahmedbadrbedo

226  



: Release] Marriage System]



elbattawy1st
Trigger (Marrige)
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].[_charwhere CharName16 = @CharName)
Set @Case = (Select [Case] From [dbo].[Marriage_challengewhere CharName_Male = @CharName)
Set @System 'Marriage System'
----------- # Male Section
IF (@Chat = @System)
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@CharName,'Hey u , u wanna marriage ???',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengeWhere CharName_FeMale = @Chat) And Exists (Select from [SRO_VT_SHARD].[dbo].[_charwhere CharName16 = @Chat) And (@RefCharID <=14887 And @RefCharID >=14875 or @RefCharID<=1919 AND @RefCharID>=1907))
Begin
Insert into 
[dbo].[Marriage_challenge] (CharName_Male,CharName_FemaleValues (@CharName,@Chat)
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@Chat,'This Is CharName ['+@CharName+'] want to marrie u .',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@Chat,'IF u Accept pm with Yes',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@Chat,'IF u Dont Accept pm with No',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengeWhere CharName_FeMale = @Chat) And Exists (Select from [SRO_VT_SHARD].[dbo].[_charwhere CharName16 = @Chat) And (@RefCharID<=1932 AND @RefCharID>=1920 OR @RefCharID<=14900 AND @RefCharID>=14888))
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@CharName,'u are not male only male can do it.',Getdate())
Delete From [dbo].[_IncomingPrivateChatWhere 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_challengeWhere CharName_FeMale = @Chat) And Exists (Select from [SRO_VT_SHARD].[dbo].[_charwhere CharName16 = @Chat))
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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,DateValues (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].[_charwhere CharName16 = @Chat))
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@CharName,'There Is No Charname With This Charname.',Getdate())
End

----------- # Female Section
----- @ Sets
Set 
@Configration = (Select Top 1 Configration From [dbo].[Marriage_challengeWhere CharName_FeMale = @CharName)
Set @CharName_FeMale = (Select Top 1 CharName_Female From [dbo].[Marriage_challengeWhere CharName_Female = @CharName)
Set @CharName_Male = (Select Top 1 CharName_Male From [dbo].[Marriage_challengeWhere CharName_Female = @CharName)
Set @level_Female = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_CharWhere CharName16 = @CharName_Female)
Set @Level_Male = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_CharWhere CharName16 = @CharName_Male)
Set @ReFCharID = (Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_charwhere 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].[_CharWhere 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_challengeSet Configration 'Yes' where CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengewhere CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengewhere CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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,DateValues (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_challengewhere CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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 


ahmedbadrbedo :

ahmedbadrbedo ; 17-08-2017 07:23 PM

17-08-2017, 12:29 AM   #15

elbattawy1st



  elbattawy1st


Mar 2014
116941
755
TanTa
SilkRoaD
Pavo
Male
83
elbattawy1st

elbattawy1st

881  


   Yahoo  elbattawy1st

: Release] Marriage System]



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 
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].[_charwhere CharName16 = @CharName)
Set @Case = (Select [Case] From [dbo].[Marriage_challengewhere CharName_Male = @CharName)
Set @System 'Marriage System'
----------- # Male Section
IF (@Chat = @System)
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@CharName,'Hey u , u wanna marriage ???',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengeWhere CharName_FeMale = @Chat) And Exists (Select from [SRO_VT_SHARD].[dbo].[_charwhere CharName16 = @Chat) And (@RefCharID <=14887 And @RefCharID >=14875 or @RefCharID<=1919 AND @RefCharID>=1907))
Begin
Insert into 
[dbo].[Marriage_challenge] (CharName_Male,CharName_FemaleValues (@CharName,@Chat)
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@Chat,'This Is CharName ['+@CharName+'] want to marrie u .',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@Chat,'IF u Accept pm with Yes',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@Chat,'IF u Dont Accept pm with No',Getdate())
Insert Into [dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengeWhere CharName_FeMale = @Chat) And Exists (Select from [SRO_VT_SHARD].[dbo].[_charwhere CharName16 = @Chat) And (@RefCharID<=1932 AND @RefCharID>=1920 OR @RefCharID<=14900 AND @RefCharID>=14888))
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@CharName,'u are not male only male can do it.',Getdate())
Delete From [dbo].[_IncomingPrivateChatWhere 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_challengeWhere CharName_FeMale = @Chat) And Exists (Select from [SRO_VT_SHARD].[dbo].[_charwhere CharName16 = @Chat))
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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,DateValues (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].[_charwhere CharName16 = @Chat))
Begin
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (1,'Private',@CharName,'There Is No Charname With This Charname.',Getdate())
End

----------- # Female Section
----- @ Sets
Set 
@Configration = (Select Top 1 Configration From [dbo].[Marriage_challengeWhere CharName_FeMale = @CharName)
Set @CharName_FeMale = (Select Top 1 CharName_Female From [dbo].[Marriage_challengeWhere CharName_Female = @CharName)
Set @CharName_Male = (Select Top 1 CharName_Male From [dbo].[Marriage_challengeWhere CharName_Female = @CharName)
Set @level_Female = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_CharWhere CharName16 = @CharName_Female)
Set @Level_Male = (Select Top 1 CurLevel From [SRO_VT_SHARD].[dbo].[_CharWhere CharName16 = @CharName_Male)
Set @ReFCharID = (Select Top 1 RefObjID From [SRO_VT_SHARD].[dbo].[_charwhere 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].[_CharWhere 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_challengeSet Configration 'Yes' where CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengewhere CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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_challengewhere CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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,DateValues (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_challengewhere CharName_Female = @CharName
Insert Into 
[dbo].[iLegend_Tool] (Service,Type,Target,Message,DateValues (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 


elbattawy1st :



« | »

: 1 (0 1 )
 






[ : | ]

@ @ @ @ @ @ SilkroadOnline @ @ @ @ @ @ @ @ (Gold) @ ( Gold) @ (Gold) @ @ ( Korean SilkRoad ) @ AgBot @ ( Accounts ) @ [ ] @ ( Item ) @ ( Gold ) @ ( Item ) @ @ Flora @ Minerva @ Feronia @ Bellona @ [ iSro ] @ @ @ @ PhBot @ -== T-BOT ==- @ Ceres @ @ @ @ @ @ @ StealthLite Bot @ Agbot @ StealthLite @ PHBOT @ T-BOT @ SroKing Bot @ [ iSro ] @ Flora @ Ceres @ Bellona @ Minerva @ Feronia @ 2017 @ @ @ @ ECSRO @ ECSRO(Fembria) @ ECSRO(VIP) @ SJSRO (OLD) @ SJSRO (new) @ sunworld @ IBot @ ( Gold ) @ @ Vsro @ Rusro @ [ Private-SRO ] @ ZSZC & Aurora @ Sbot @ Mbot @ V.I.P Zone @ VIP @ VIP @ [ PK2 Edit ] @ Mysro @ | WWE @ @ @ @ IBOT @ Sbot @ Mbot @ Sroking @ Elite & Eroad @ DreamWorld @ @ [ Silkroad-R ] @ Maycena @ @ [ Silkroad-R ] @ - Private SRO @ Perfection @ Ex.Silkroad R @ SroKings @ @ Other Online Games @ S4 League @ CrossFire @ Conquer Online @ LOL @ Pc Games @ @ Barons Online @ (AriesOnline (Pvp @ QueenSRO Network @ & S4 League @ & CrossFire @ World's Gate @ Sun-World @ Aion @ Continent Of The Ninth @ World Of Warcraft @ PanicSro @ @ @ IceSro-R @ Kings_Silkroad @ Justice Road @ ArabianRoadOnline Network @ Devias Online @ @ CrossFire Fantasy Game @ CrossFire @ & Aion @ & Conquer Online @ League Of Legends @ legenD road @ WantedSro Online @ @ @ Mixsro @ @ SRO-R @ LegenD Road @ Knights War Online @ Evolution Network @ FlagSRO Network @ Perfection (PvP) Network @ S4league @ @ @ @ @ Destructions Network @ FanTasYWorld @ @ Smart-Sro Online @ InFusion Online @ @ Divine Online @ Dota @ PC @ WrestleMania 33 @ GameXen Network @ inferno online @ @ @ PK2 edit @ Velestia @ Punisher Sro Online @ Atlantis Online @ ALEXNADER SRO @ Hell World Online @ ImmortalRoad @ Centerbot @ Centerbot @ Time.Sro-Online @ Revenge (PVE) Online @ PC Other Online Games @ Online Games @ @ @ @ @ @ @ @ DarkWorldSro @ @ Creddy Online @ Alliance-sro @ Quick Road (PvP ) @ @ League Of Legends @ League Of Legends @ CrossFire @ League Of Legends @ [ LOL ] @ North America @ EU West @ EU Nordic & East @ League Of Legends @ @ @ @ Wolf team @ Dota 2 @ Dragon nest @ DC Universe Online @ Windows @ Quenth Online @ Wolf team Arabic @ RealDreamSro ( PvP ) @ EmpireSRO @ Amazing Sro @ Speed-sro @ . Destructions Network @ SilkRoad E 80 China @ @ @ Greats-sro Online @ @ @ Srowing @ Dakupra-Online @ @ @ @ @ @ @ @ PantuSRO @ Silkroad4arab ( vps ,server) @ Tyr Online @ RocSro @ Legend Of Silkroad @ Pioneer Gaming-Network @ Valentus - CAP 80 @ MirrorSro @ Eridanus Online Cap90 @ Fear-Sro @ Silkroad-Z Online PVE @ @ Massive-Network @ Kryptonite-Sro @ JoySro Online @ DeathRoad @ Mysro Servers @ Devils Team @ DooMSRO Network @ EROAD SRO @ Story-SRO @ Ventrue-Online @ Settlers-SRO @ Elamidas @ MarsRoad Online @ Arrow Online @ Selene @ Hermes @ OldSro Online (cap 80 ) @ Sunroad @ Eloys Online @ Sentiero-Road Online @ Steam-Sro @ Arcane Reborn Online @ Eryxonline @ Vengeance Online @ Mirage Online @ SyndiCateOnline @ Desert Sro @ NeSro Network @ silkroad classic @ Android @ @ @ MegaWar Sro @ Mirror Sro @ AdvancedSRO @ OblivionSilkroad @ Arrivals_Sro @ Amphibius Online @ Royal online @ Forbidden-Sro @ vanish-sro @ Majesty Online @ Chaos Network @ srAssist Bot @ srAssist Bot @ Damocles Sro @ Demo Sro @ KingsRoad @ Arius 9D ch & eu @ brother sro @ DreamWorld-Online @ Poseidon-Sro @ Ph-Sro @ Eternal-Online @ Jupiet-Online @ Fury Sro @ JungleSro @ Xemia Games @ invctus-sro @ Revolution Gaming Network @ DemonSro @ Aeolus @ Golden Sro @ Chaos Road 15D @ Chaos II Online @ Fallen Soul @ StarLife Online @ Hogwarts D11 @ Xian @ Xian @ joysro @ Hector Network @ VictorSRO @ Vehalla-Sro D11 @ Revira online @ ClashSRO @ play metal @


- - -

Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2017, vBulletin Solutions, Inc.