الـجـروب الـخـاص بـالـمـنـتـدي Silkroad4arab Facebook | Official Group

**firytail** · 09-08-2016, 11:18 PM

على فكره انا حولت اشغله اكثر من مره على الفرجين الجديد بس مش شغال بيجبلى ايرورر فى البرنامج

**Dev.BigBear** · 10-08-2016, 10:09 PM

انا جربتو على فكرة و بيظهر كل الكلام ورا بعض و مش بيستنى لغيت ما حد يرد

**omar hapshy** · 13-08-2016, 03:49 PM

ارجو مراجعه الموضوع ب اكملو لانه لا يعمل كاملا .

**Mostafa Mosaad** · 18-08-2016, 03:58 AM

برنس

**elbattawy1st** · 11-09-2016, 04:30 AM

الناس الا عندها مشاكل و الايفنت مش شغال عندهم اعمل البروسيدور الاتنين دول و هيشتغل معاكم من غير مشاكل

كود 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()) 

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()) 

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

     

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

   End 



   

END 



GO

**keshk2007** · 20-12-2016, 09:46 PM

عندى مشكلة

السيستم شغال زى الفل

بس لما برد على الاكونت بالاجابة مش بيحصل اى حاجة خالص
و بيظهر فى البرنامج

Error 03 please report it to the developer

اقتباس:

USE [SRO_VT_SHARDLOG]
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 SRO_VT_SHARDLOG.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 SRO_VT_SHARDLOG..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 SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) values ('1','Notice','Automatic Trivia Event has ended.',GETDATE())
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,target,Message,Date) values ('1','Private',@SenderName,'Congratulations, you won in the event and received '+@Reward2+' silks as reward.',GETDATE())
update _AutomaticTrivia_Questions set [Service]=0 where [Service]=1

Exec [SRO_VT_SHARD].[dbo].[_ADD_ITEM_EXTERN] @SenderName,'ITEM_ETC_ARENA_COIN','10',0
End

END

GO

اقتباس:

USE [SRO_VT_SHARDLOG]
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 SRO_VT_SHARDLOG.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 SRO_VT_SHARDLOG..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 SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) values ('1','Notice','Automatic Trivia Event has ended.',GETDATE())
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,target,Message,Date) values ('1','Private',@SenderName,'Congratulations, you won in the event and received '+@Reward2+' silks as reward.',GETDATE())
update _AutomaticTrivia_Questions set [Service]=0 where [Service]=1

Exec [SRO_VT_SHARD].[dbo].[_ADD_ITEM_EXTERN] @SenderName,'ITEM_ETC_ARENA_COIN','10',0
End

END

GO

**افندينا ™Hamboka™** · 21-12-2016, 02:08 PM

تسلم

**eslamsaied** · 04-01-2018, 11:27 PM

طيب انا ضيفت كل حاجه وعدلت علي اسم الداتا بيز في البروسيدجر وكل حاجه
وظبط اليعاد بتاع السيستم وظهر في VsroMultiTool

وصورة اهي من البرنامج

**axel007** · 15-10-2024, 09:55 AM

محتاج لينك البرنامج لو شغال لسه ممكن

المواضيع المتشابهه
الموضوع	كاتب الموضوع	المنتدى	الردود	آخر مشاركة
Program : Vsro Multi Tool	Dev. iLegend	قسم الشروحات و البرامج المستخدمة في عمل السيرفرات الخاصة	45	24-10-2024 02:57 PM
Automatic Unique event by vSro Multi Tool v1.4	Dev. iLegend	قسم الحماية والاوتوايفنت للسيرفرات الخاصه	56	26-03-2023 08:45 PM
Vsro multi tool	BeboSilkroad	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	2	26-07-2017 01:34 PM
vsro multi tool	loaymoataz123	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	5	14-04-2017 09:22 PM
طلب في vsro multi tool	Mohamed ElKersh	قسم الاسئلة و الاستفسارات لعمل السيرفرات الخاصة	11	15-03-2016 09:50 AM

يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر)

	تسجيل الدخول دائمآ