|
• الانـتـسـاب » Jan 2014
|
• رقـم العـضـويـة » 116041
|
• المشـــاركـات » 2,589
|
• الـدولـة » Gizaaa
|
• الـهـوايـة » SilkRoad4Arab Only One <3
|
• اسـم الـسـيـرفـر » Private Server
|
• الـجـنـس » Male
|
• نقـاط التقييم » 63
|
|
|
Auto Event 'Ask And Questions' On Vsro Multi Tool
![](https://upload.wikimedia.org/wikipedia/ar/c/c6/%D8%A8%D8%B3%D9%85_%D8%A7%D9%84%D9%84%D9%87_%D8%A7%D9%84%D8%B1%D8%AD%D9%85%D9%86_%D8%A7%D9%84%D8%B1%D8%AD%D9%8A%D9%85.png)
أولاً ،، لازم تنزل البرنامج دا وتسطب الجداول بتاعته عندك بإسم أي داتا بيز تختارها ،،
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]
بعد كدا هضيف الجدول ده والبروسيدور برضه في الداتا اللي انتا عملها للبرنامج
كود 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]
تحياتي الحاره
|