Collection Event By Hitler Vsro Multi Tools

[H I T L E R]

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

السيستم ده عباره عن ايفينت عادي
بس لازم تكون شغال بي 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

[McDiesel]

تم تسلم ايدك

[H I T L E R]

المشاركة الأصلية كتبت بواسطة McDiesel عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

تم تسلم ايدك

العفو ي ديزيل قلبي

[محمد منتصر]

عاااش بس ياريت تبقي تنزل معاه فيرجن Vsro multi tools للناس عشان يبقي موضوع كامل

[H I T L E R]

مهو ها المنتدي يعني اي حد يكتب vsro multi tools هيظهرلو