/****** 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]
واللي ميعرفش انتا هتعمل كده في الجدول
رد: Auto Event 'Ask And Questions' On Vsro Multi Tool
اقتباس:
المشاركة الأصلية كتبت بواسطة Last_Fiddler
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
على فكره البرنامج اتوقف مبقاش شغال
انتا كل حاجه لازم تحط التاتش بتاعك فيها
بهظر طبعاً البرنامج شغال ولو مش شغال هنزل انا افين عليه ليه
ولو كمان مش شغال معاك يبقي ده عيب منك مش من البرنامج
رد: Auto Event 'Ask And Questions' On Vsro Multi Tool
عاااا عاش يامعلم ^_^
بس في كذا حاجه كدا
بص يامعلم كدا انا لازم ابعت الكلمه دي % علشان الايفينت يشتغل دي مشكله انت ممكن تعملو من تابل exce افضل و يكون بوقت علشان يشتغل اوتوماتك هيكون افضل
تاني حاجه زود في البروسيدور الا يجاوب مره و كانت غلط مايجوبش تاني
كدا هيكون السيستم شغال 100 %
و تسلم يامعلم علي مجهودك الجامد دا ^_^
رد: Auto Event 'Ask And Questions' On Vsro Multi Tool
اقتباس:
المشاركة الأصلية كتبت بواسطة MrMisoBear
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
تسلم ياقلبى
حبيبي
اقتباس:
المشاركة الأصلية كتبت بواسطة elbattawy1st
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
عاااا عاش يامعلم ^_^
بس في كذا حاجه كدا
بص يامعلم كدا انا لازم ابعت الكلمه دي % علشان الايفينت يشتغل دي مشكله انت ممكن تعملو من تابل exce افضل و يكون بوقت علشان يشتغل اوتوماتك هيكون افضل
تاني حاجه زود في البروسيدور الا يجاوب مره و كانت غلط مايجوبش تاني
كدا هيكون السيستم شغال 100 %
و تسلم يامعلم علي مجهودك الجامد دا ^_^
لا يا عبدو مش لازم تكتب الكلمه دي % علشان الافينت يشتغل
انا فعلاتن عملو execute في بوقت محدد وشغال تمام auto
ممكن فعلاً اللي يكون ناقص ان اللي يجاوب غلط البوت يرد عليه
هعملها واعدل في الموضوع
رد: Auto Event 'Ask And Questions' On Vsro Multi Tool
اقتباس:
المشاركة الأصلية كتبت بواسطة elbattawy1st
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
عاااا عاش يامعلم ^_^
بس في كذا حاجه كدا
بص يامعلم كدا انا لازم ابعت الكلمه دي % علشان الايفينت يشتغل دي مشكله انت ممكن تعملو من تابل exce افضل و يكون بوقت علشان يشتغل اوتوماتك هيكون افضل
تاني حاجه زود في البروسيدور الا يجاوب مره و كانت غلط مايجوبش تاني
كدا هيكون السيستم شغال 100 %
و تسلم يامعلم علي مجهودك الجامد دا ^_^
حتيت جاوب مرع غلط و مبجوبش تاني دي وحشه تقبل مروري اديلو فرصه تانيه