الموقع العربي الاول للعبة Silkroad Online - Collection Event By Hitler Vsro Multi Tools

نبدء الموضوع علطول لأن في ايدي شغل اصراحه بس قولت امسي عليكو

السيستم ده عباره عن ايفينت عادي
بس لازم تكون شغال بي Vsro multi tools
الأفينت ده بقا هو انك بتضيف coin في وحش معين و كل ما بلاير يموت الوحش ده و يقع منو ال coin دي و يلمها
تتعسبلو 1 point
لو جاب 30 point يكسب
و السيستم فيه Anticheat
ال هو ازاي هقولك يعني لو بلاير فكر يشغل دماغو و يرمي الكوين و يلمها تاني البوت هرجعو التاون و هيمسح كل الpoints الجمعها
عندك بقا @Region دي تحدد بيها ال مكان ال عايز الEvent يشتغل مع البلاير اما يكون في مكان انت محدد الregion بتاعو في البروسيدر

عشان يشتغل بقا ابعت msg لل بوت " collect:on / collect:off

بالتوفيق و يارب يكون مفيد و ال مش فاهم حاجه انا متواجد علطول يعني مستعد ل اي سؤال

Trigger

اقتباس:

USE [SRO_VT_SHARDLOG]
GO

/****** Object: Trigger [dbo].[COLLECT_SYSTEM] Script Date: 28/02/2020 01:22:47 ص ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

-- =============================================
-- Author: Dev.HiTLER
-- =============================================

CREATE TRIGGER [dbo].[COLLECT_SYSTEM]
ON [dbo].[_IncomingPrivateChat]
after insert
as
---------------------------- Q1 -----------------------------------------------------------------
DECLARE @CharName varchar(60) , @Chat varchar(MAX) ,@Question nvarchar(MAX)
Declare @Message nvarchar(max)
Select @CharName=CharName ,@Message=Chat From _IncomingPrivateChat

declare @service int = (select service from Collect_Service)

If (@CharName = 'Hitler' and @Message = 'Collect:ON' and @service = 0)
begin
Declare @CollectON varchar(512)
Set @CollectON = '[Collection Event] Started go Collection Event room and collect 30x Historian Event Coin'
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) Values (1,'Notice','[Collection Event] Started go Collection Event room and collect 30x Historian Event Coin',Getdate())
update SRO_VT_SHARDLOG.dbo.Collect_Service
set Service = '1'
End

If (@CharName = 'Hitler' and @Message = 'Collect:Off' and @service = 1)
begin
update SRO_VT_SHARDLOG.dbo.Collect_Service set Service = '0'
update SRO_VT_SHARDLOG.dbo._Historian_System set [Arena Collect] = '0'
Declare @CollectOFF varchar(512)
Set @CollectOFF = '[Collection Event] Ended By '+@CharName+' in Donwhang south good luck next time'
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) Values (1,'Notice',@CollectOFF,Getdate())
End

If (@CharName = 'Hitler' and @Message = 'Collect:ON' and @service = 1)
begin
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Target,Message,Date) values (1,'Private',@CharName,'Event already on!',GETDATE())
end
If (@CharName = 'Hitler' and @Message = 'Collect:Off' and @service = 0)
begin
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Target,Message,Date) values (1,'Private',@CharName,'Event already off!',GETDATE())
end

GO

Addlogchar

اقتباس:

Declare @Region int
SET @Region = (Select LatestRegion From SRO_VT_SHARD.._Char Where CharID = @CharID)
declare @CharName varchar(64)
Set @CharName = (Select CharName16 from [SRO_VT_SHARD].[dbo].[_Char] where CharID = @CharID);
declare @collect_service int = (select Service from Collect_Service)
declare @collected_coins int = (select [Arena Collect] from _Historian_System where Charname = @charname)

if (@EventID = '9' and @Region = -32744 and @collect_service = 1)
begin
if not exists (select * from _Historian_System where Charname = @charname)
begin
insert into _Historian_System
(Charname,[Arena Collect]) values (@charname, 0)
end
end

Addlogitem

اقتباس:

Declare @Region int
SET @Region = (Select LatestRegion From SRO_VT_SHARD.._Char Where CharID = @CharID)

declare @collect_service int = (select Service from Collect_Service)
declare @collected_coins int = (select [Arena Collect] from _Historian_System where Charname = @charname)
if (@Operation = 30 and @Region = -32744 and @collect_service = 1 and @ItemRefID = '421610098')
begin
update _Historian_System
set [Arena Collect] += 1
where Charname = @charname
end
---anti cheat
if (@Operation = 31 and @Region = -32744 and @collect_service = 1 and @ItemRefID = '421610098')
begin
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Target,Message,Date) values (1,'Private',@CharName,'Listen to me! dont try this cheat in next time dude :)',GETDATE())
update _Historian_System set [Arena Collect] = 0 where Charname = @charname
insert into SRO_VT_SHARDLOG..iLegend_Tool
(Service,Type,Target,Date) values (1,'Totown',@charname,GETDATE())
end
-------

if (@Operation = 30 and @Region = -32744 and @collect_service = 1 and @ItemRefID = '421610098' and @collected_coins = 9)
begin
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) values (1,'Notice',''+@CharName+' Has Collected 10 Coins!',GETDATE())
end

if (@Operation = 30 and @Region = -32744 and @collect_service = 1 and @ItemRefID = '421610098' and @collected_coins = 19)
begin
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) values (1,'Notice',''+@CharName+' On Fireeee!!!!! Has Collected 20 Coins!',GETDATE())
end
declare @CharNametest varchar(64)
Set @CharNametest = (Select CharName16 from [SRO_VT_SHARD].[dbo].[_Char] where LatestRegion = -32744)
Declare @ItemCodeNameEvent varchar(129)
Set @ItemCodeNameEvent = 'ITEM_HISTORIAN_EVENT_COIN'

if (@Operation = 30 and @Region = -32744 and @collect_service = 1 and @ItemRefID = '421610098' and @collected_coins = 29)
begin
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) values (1,'Notice','Woww!! Congrats '+@CharName+' Has Collected 30 Coins !',GETDATE())
update Collect_Service
set Service = 0
update _Historian_System
set [Arena Collect] = 0
Update SRO_VT_SHARD.._Inventory Set ItemID = 0
where ItemID in ( Select ID64 From SRO_VT_SHARD.._Items where RefItemID = (Select ID From SRO_VT_SHARD.._RefObjCommon where CodeName128 = @ItemCodeNameEvent ))
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Message,Date) Values (1,'Notice','[Collection Event] Ended Good Luck Next Time',Getdate())
insert into SRO_VT_SHARDLOG..iLegend_Tool (Service,Type,Target,Date) values (1,'Totown',@CharName,GETDATE())
exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @Charname,ITEM_ETC_ARENA_COIN,30,0
exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @Charname,ITEM_ETC_SD_TOKEN_03,30,0
exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @Charname,ITEM_MALL_GLOBAL_CHATTING,5,0
exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @Charname,ITEM_MALL_FB,1,0
end

Create Table

اقتباس:

USE [SRO_VT_SHARDLOG]
GO

/****** Object: Table [dbo].[_Historian_System] Script Date: 27/02/2020 01:16:05 ص ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

SET ANSI_PADDING ON
GO

CREATE TABLE [dbo].[_Historian_System](
[ID] [int] IDENTITY(1,1) NOT NULL,
[Charname] [varchar](16) NOT NULL CONSTRAINT [DF_Historian_System_CharID] DEFAULT ((0)),
[Arena Collect] [int] NOT NULL CONSTRAINT [DF_Historian_System_OldHwan] DEFAULT ((0)),
CONSTRAINT [PK_Historian_System] PRIMARY KEY CLUSTERED
(
[ID] ASC
)WITH (PAD_INDEX = OFF, STATISTICS_NORECOMPUTE = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS = ON, ALLOW_PAGE_LOCKS = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

SET ANSI_PADDING OFF
GO

اقتباس:

USE [SRO_VT_SHARDLOG]
GO

/****** Object: Table [dbo].[Collect_Service] Script Date: 27/02/2020 01:16:44 ص ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[Collect_Service](
[Service] [int] NULL
) ON [PRIMARY]

GO