الموقع العربي الاول للعبة Silkroad Online - Auto Event 'Ask And Questions' On Vsro Multi Tool

- قسم الحماية والاوتوايفنت للسيرفرات الخاصه (https://silkroad4arab.com/vb/forumdisplay.php?f=323)

- - Auto Event 'Ask And Questions' On Vsro Multi Tool (https://silkroad4arab.com/vb/showthread.php?t=603054)

Auto Event 'Ask And Questions' On Vsro Multi Tool

http://upload.wikimedia.org/wikipedi...9%8A%D9%85.png
أولاً ،، لازم تنزل البرنامج دا وتسطب الجداول بتاعته عندك بإسم أي داتا بيز تختارها ،،
Here
بعد كدا هضيف الجدول ده والبروسيدور برضه في الداتا اللي انتا عملها للبرنامج

كود PHP:


		
			
USE [DANGERSS]

GO



/****** Object:  Table [dbo].[_AutomaticTrivia_Questions]    Script Date: 7/4/2016 10:13:55 PM ******/

SET ANSI_NULLS ON

GO



SET QUOTED_IDENTIFIER ON

GO



SET ANSI_PADDING ON

GO



CREATE TABLE [dbo].[_AutomaticTrivia_Questions](

    [Service] [int] NULL,

    [Question] [varchar](max) NULL,

    [Answer] [varchar](300) NULL

) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]



GO



SET ANSI_PADDING OFF

GO

CREATE TRIGGER

كود PHP:


		
			
USE [DANGERSS]

GO



/****** Object:  Trigger [dbo].[Trivia]    Script Date: 7/4/2016 10:15:38 PM ******/

SET ANSI_NULLS ON

GO



SET QUOTED_IDENTIFIER ON

GO





CREATE TRIGGER [dbo].[Trivia]

ON  [dbo].[_IncomingPrivateChat]

after  insert   

as 

----------------------------------------------------------------------------------------------------- 

DECLARE @SenderName varchar(60) , @Message varchar(MAX)   

BEGIN 

Select @SenderName=CharName ,@Message =Chat From DANGERSS.._IncomingPrivateChat 

/***************************************** Start System ***************************************************************/ 

--===================================================================

--------------------------------------/CREATE By Danger/-------------

--===================================================================

    IF @Message like '%'

    Begin

    EXEC [DANGERSS].[dbo].[_AutomaticTriviaEvent_2] @SenderName,@Message

    end

    end



GO

Procedure

كود PHP:


		
			
USE [DANGERSS]

GO



/****** Object:  StoredProcedure [dbo].[_AutomaticTriviaEvent_1]    Script Date: 7/4/2016 10:20:24 PM ******/

SET ANSI_NULLS ON

GO



SET QUOTED_IDENTIFIER ON

GO

/***************************************** Start System ***************************************************************/ 

--===================================================================

--------------------------------------/CREATE By Danger/-------------

--===================================================================



CREATE Procedure [dbo].[_AutomaticTriviaEvent_1] 

as

BEGIN

DECLARE @Question Varchar (max)

select Top 1 @Question=[Question] from _AutomaticTrivia_Questions order by newid()

update _AutomaticTrivia_Questions set [service]=1 where Question=@Question

insert into  DANGERSS..iLegend_Tool (Service,Type,Message,Date) values ('1','Notice','Automatic trivia event has started.[To answer PM [BOT] with Trivia:Answer]',GETDATE())

insert into  DANGERSS..iLegend_Tool (Service,Type,Message,Date) values ('1','Notice',@Question,GETDATE())

IF (SELECT SERVICE FROM _AutomaticTrivia_Questions where question=@Question) = 1

BEGIN

insert into DANGERSS..iLegend_Tool (Service,Type,Message,Date) values ('1','Notice','Automatic trivia event has started without winners',GETDATE())

update _AutomaticTrivia_Questions set [Service]=0 where [Service]=1

END

END

GO

كود PHP:


		
			
USE [DANGERSS]

GO



/****** Object:  StoredProcedure [dbo].[_AutomaticTriviaEvent_2]    Script Date: 7/4/2016 10:21:08 PM ******/

SET ANSI_NULLS ON

GO



SET QUOTED_IDENTIFIER ON

GO



/***************************************** Start System ***************************************************************/ 

--===================================================================

--------------------------------------/CREATE By Danger/-------------

--===================================================================





CREATE Procedure [dbo].[_AutomaticTriviaEvent_2] 

@SenderName VARCHAR(255),

@Message VARCHAR(255)

as

BEGIN

DECLARE @Answer Varchar(max) = (Select Answer from DANGERSS.dbo._AutomaticTrivia_Questions where [Service]='1')

DECLARE @CharID INT,@WinnerJID INT,@WinnerID INT,@Silk_Own INT,@Reward INT ,@RewardType int,@RewardCodeName int,@CharName int,@RewardCount int,@Reward2 Varchar(Max) 

select @CharID=[CharID] from SRO_VT_SHARD.dbo._Char where CharName16 = @SenderNAme

select @WinnerJID=[UserJID] from SRO_VT_SHARD.dbo._User where CharID = @CharID

select @Silk_Own=[silk_own] from SRO_VT_ACCOUNT.dbo.SK_Silk where JID = @WinnerJID

 

   select @Reward2= 10

select @Reward= 10



If (@Message=@Answer)

BEGIN

insert into DANGERSS..iLegend_Tool (Service,Type,Message,Date) values ('1','Notice',''+@SenderName+' has written '+@Answer+' and won this round.',GETDATE())

Update SRO_VT_ACCOUNT.dbo.SK_Silk SET silk_own = @Silk_Own + @Reward where JID = @WinnerJID

insert into DANGERSS..iLegend_Tool (Service,Type,Message,Date) values ('1','Notice','Automatic Trivia Event has ended.',GETDATE())

insert into DANGERSS..iLegend_Tool (Service,Type,target,Message,Date) values ('1','Private',@SenderName,'Congratulations, you won in the event and received '+@Reward2+' silks as reward.',GETDATE())

    

    Exec [SRO_VT_SHARD].[dbo].[_ADD_ITEM_EXTERN] @CharName,'ITEM_ETC_ARENA_COIN',@RewardCount,'100'

   End



  

END



GO

انا عامل الافينت ال Reward بتاعو بيدي 10 Silk و 100 Arena Coin لو انتا عايز تغيرو حاجه ترجعلك
-----------
في الأخر ناقص انك تدخل اكونت معاه قنصول وتدخل في Execute Schedule Tab وتعلم على Active Service

واللي هتعملو هتعدل في الوقت وتشوف اللي يناسبك في جدول
[dbo].[ExecQuery]
واللي ميعرفش انتا هتعمل كده في الجدول

Execute NameYourDatabeas..nameevent
Vedio بتشغيل الافينت

[YOUTUBE]sz-05yglQ3A&feature[/YOUTUBE]

[/QUOTE]
تحياتي الحاره

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

ماشي يا عم متشكرين :kissing:

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

المشاركة الأصلية كتبت بواسطة Hamza FiGo (المشاركة 5271026)

ماشي يا عم متشكرين :kissing:

حبيبي يا حمزا تشكر واستنا بس في 4 او 5 تاني هينزلو شويه بشويه :)
:111 (15):

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

شكرا بس هتسيب المجال ليه ؟

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

جميل بس مش فاهم .. انا هجرب بس لو كان فيه فيديو كان يبقى عداك العيب وازح :jump::icon5:

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

على فكره البرنامج اتوقف مبقاش شغال

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

المشاركة الأصلية كتبت بواسطة Abdelazizomar (المشاركة 5271061)

شكرا بس هتسيب المجال ليه ؟

المجال بقي كلو زي ما بتقولو اطفال
طبعاً ده مش للكل بس الاكتريه اطفال

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

المشاركة الأصلية كتبت بواسطة Howdare (المشاركة 5271067)

جميل بس مش فاهم .. انا هجرب بس لو كان فيه فيديو كان يبقى عداك العيب وازح :jump::icon5:

الفيديو موجود بلفعل يا باشا وتقدر تجربو عادي
Good luck

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

المشاركة الأصلية كتبت بواسطة Last_Fiddler (المشاركة 5271068)

على فكره البرنامج اتوقف مبقاش شغال

انتا كل حاجه لازم تحط التاتش بتاعك فيها :yeahright:
بهظر طبعاً البرنامج شغال ولو مش شغال هنزل انا افين عليه ليه
ولو كمان مش شغال معاك يبقي ده عيب منك مش من البرنامج
:sad2:

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

تسلم ياقلبى
:pile:

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

عاااا عاش يامعلم ^_^
بس في كذا حاجه كدا
بص يامعلم كدا انا لازم ابعت الكلمه دي % علشان الايفينت يشتغل دي مشكله انت ممكن تعملو من تابل exce افضل و يكون بوقت علشان يشتغل اوتوماتك هيكون افضل
تاني حاجه زود في البروسيدور الا يجاوب مره و كانت غلط مايجوبش تاني
كدا هيكون السيستم شغال 100 %
و تسلم يامعلم علي مجهودك الجامد دا ^_^

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

المشاركة الأصلية كتبت بواسطة MrMisoBear (المشاركة 5271079)

تسلم ياقلبى
:pile:

حبيبي

اقتباس:

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

لا يا عبدو مش لازم تكتب الكلمه دي % علشان الافينت يشتغل
انا فعلاتن عملو execute في بوقت محدد وشغال تمام auto
ممكن فعلاً اللي يكون ناقص ان اللي يجاوب غلط البوت يرد عليه
هعملها واعدل في الموضوع :shifty:

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

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

حتيت جاوب مرع غلط و مبجوبش تاني دي وحشه تقبل مروري اديلو فرصه تانيه

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

المشاركة الأصلية كتبت بواسطة Abdelazizomar (المشاركة 5271292)

حتيت جاوب مرع غلط و مبجوبش تاني دي وحشه تقبل مروري اديلو فرصه تانيه

ممكن توضح شويه مش فاهم تقصد ايه

رد: Auto Event 'Ask And Questions' On Vsro Multi Tool

اقتباس:

المشاركة الأصلية كتبت بواسطة Dangers SrO (المشاركة 5271400)

ممكن توضح شويه مش فاهم تقصد ايه

محمد بيقول ان لو حد جاوب غلط مره ميجوبش تاني انا بقول هتبثا وحشه نديلو فرصه تانيه