Auto Event 'Ask And Questions' On Vsro Multi Tool

[Dangers SrO]

أولاً ،، لازم تنزل البرنامج دا وتسطب الجداول بتاعته عندك بإسم أي داتا بيز تختارها ،،
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 بتشغيل الافينت

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

[Hamza FiGo]

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

[Dangers SrO]

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

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

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

[Dev.LumiusCux]

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

[Howdare]

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

[Last_Fiddler]

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

[Dangers SrO]

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

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

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

[Dangers SrO]

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

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

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

[Dangers SrO]

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

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

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

[Dev.BigBear]

تسلم ياقلبى

[elbattawy1st]

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

[Dangers SrO]

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

تسلم ياقلبى

حبيبي

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

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

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

[Dev.LumiusCux]

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

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

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

[Dangers SrO]

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

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

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

[Dev.LumiusCux]

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

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

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