Release UniqueMatching with Vsroplus!

[Xero1993]

_RefGame_World

113 UniqueMatching 0 1 0 0 0 0 0 0 xxx

_RefInstance_World_Region

113 22454

vPLUS._Logger_UniqueDeath

DECLARE @RefUniqueCodeName128 varchar(128) = (select CodeName128 from SRO_VT_SHARD.._RefObjCommon WHERE ID = @RefUniqueID)

IF @RefUniqueID = 14983
BEGIN
IF EXISTS (SELECT WorldID FROM SRO_VT_SYSTEM.._UniqueMatchingAreas WHERE isFree = 0 AND UniqueCodeName = @RefUniqueCodeName128 AND WorldID = 113)
BEGIN

DECLARE @OpponentName VARCHAR(24), @OpponentID INT
SELECT TOP 1 @OpponentName = CASE WHEN Player1 = @CharName16 THEN Player2 ELSE Player1 END FROM SRO_VT_SYSTEM.._UniqueMatches WHERE Player1 = @CharName16 OR Player2 = @CharName16
SELECT TOP 1 @OpponentID = CharID FROM SRO_VT_SHARD.._Char WHERE CharName16 = @OpponentName


IF @OpponentID IS NOT NULL AND @OpponentName IS NOT NULL
BEGIN
DECLARE @MatchID1 INT
SELECT TOP 1 @MatchID1 = ID FROM SRO_VT_SYSTEM.._UniqueMatches WHERE Player1 IN (@CharName16,@OpponentName) AND Player2 IN (@CharName16,@OpponentName) AND Status = 1
EXEC SRO_VT_SYSTEM.._UniqueMatching_OnKill @CharName16, @OpponentName, @CharID, @OpponentID, 0, @MatchID1, 0, 0
END

_RefEventRegister

33 2 Unique Matching Show off you true strength! Puts all of your skills to the best.
Unique 1 vs 1

Rewards:
Victory: 2 Honor point + 2 Arena coin
100 1 0 2 True True

USE [SRO_VT_SYSTEMS]
GO

/****** Object: Table [dbo].[_EventParticipants] Script Date: 8/2/2024 5:07:19 AM ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[_EventParticipants](
[EventName] [varchar](24) NOT NULL,
[CharName] [varchar](24) NOT NULL,
[CharID] [int] NOT NULL,
[HWID] [varchar](max) NOT NULL,
[isMatched] [tinyint] NOT NULL,
[GuildID] [int] NOT NULL
) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
GO

_UniqueMatchingAreas

USE [sro_vt_systems]
GO

/****** Object: Table [dbo].[_UniqueMatchingAreas] Script Date: 8/2/2024 5:05:13 AM ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[_UniqueMatchingAreas](
[WorldID] [int] NOT NULL,
[isFree] [tinyint] NOT NULL,
[MatchID] [int] NOT NULL,
[UniqueCodeName] [varchar](128) NULL
) ON [PRIMARY]
GO

113 1 0 MOB_TQ_TOMBGENERAL

_UniqueMatches

USE SRO_VT_SYSTEMS
GO

/****** Object: Table [dbo].[_UniqueMatches] Script Date: 8/2/2024 5:04:36 AM ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[_UniqueMatches](
[ID] [int] IDENTITY(1,1) NOT NULL,
[Player1] [varchar](24) NOT NULL,
[Player2] [varchar](24) NOT NULL,
[Player1Score] [tinyint] NOT NULL,
[Player2Score] [tinyint] NOT NULL,
[Status] [tinyint] NOT NULL
) ON [PRIMARY]
GO

_LogUniqueMatching

USE [SRO_VT_SYSTEMS]
GO

/****** Object: Table [dbo].[_LogUniqueMatching] Script Date: 8/2/2024 5:04:09 AM ******/
SET ANSI_NULLS ON
GO

SET QUOTED_IDENTIFIER ON
GO

CREATE TABLE [dbo].[_LogUniqueMatching](
[WinnerName] [varchar](24) NOT NULL,
[LoserName] [varchar](24) NOT NULL,
[MatchDate] [datetime] NOT NULL,
[Kills] [smallint] NULL,
[CharID] [int] NULL
) ON [PRIMARY]
GO

_UniqueMatching

USE [event]
GO
/****** Object: StoredProcedure [dbo].[_UniqueMatching] Script Date: 8/2/2024 5:02:17 AM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO



ALTER PROCEDURE [dbo].[_UniqueMatching]
@CharID INT,
@CharName VARCHAR(24)
AS
BEGIN

IF NOT EXISTS (SELECT * FROM _UniqueMatchingAreas WHERE isFree = 1)
BEGIN
IF NOT EXISTS (SELECT * FROM _EventParticipants WHERE EventName = 'Unique' AND CharID = @CharID)
BEGIN
EXEC vPlus.._Char_SendTextNotification @CharID, 'You have successfully joined the queue. Please wait until an opponent is found.', 2, 0, 1;
EXEC vPlus.._Char_SendTextNotification @CharID, 'All Unique Matching arenas are currently busy. Please wait until an arena is free.', 1, 0, 1;
RETURN
END
END

ELSE IF NOT EXISTS (SELECT * FROM _EventParticipants WHERE EventName = 'Unique' AND CharID != @CharID AND isMatched = 0 AND GuildID = (SELECT TOP 1 GuildID FROM _EventParticipants WHERE CharID = @CharID))
BEGIN
EXEC vPlus.._Char_SendTextNotification @CharID, 'You have successfully joined the queue. Please wait until an opponent is found.', 2, 0, 1;
RETURN;
END

DECLARE @OpponentID INT,@OpponentName VARCHAR(24)

IF (SELECT TOP 1 ActiveJobType FROM vPlus.._OnlinePlayers WHERE CharID = @CharID) != 0
BEGIN
DELETE _EventParticipants WHERE CharID = @CharID
EXEC vPlus.._Char_SendTextNotification @CharID, 'Your registration has been cancelled as you have equipped a job suit.', 1, 0, 1;
RETURN
END


ELSE IF (SELECT TOP 1 LatestRegion FROM SRO_VT_SHARD.._Char WITH (NOLOCK) WHERE CharID = @CharID) NOT IN (SELECT wRegionID FROM SRO_VT_SHARD.._RefRegion WHERE IsBattleField = 0)
BEGIN
DELETE _EventParticipants WHERE CharID = @CharID
EXEC vPlus.._Char_SendTextNotification @CharID, 'Your registration has been cancelled as you are outside safezones.', 1, 0, 1;
RETURN
END

SELECT TOP 1 @OpponentID = CharID, @OpponentName = CharName FROM _EventParticipants WHERE EventName = 'Unique' AND CharID != @CharID AND isMatched = 0 AND GuildID = (SELECT TOP 1 GuildID FROM _EventParticipants WHERE CharID = @CharID)

IF(SELECT TOP 1 ActiveJobType FROM vPlus.._OnlinePlayers WHERE CharID = @OpponentID) != 0
BEGIN
DELETE _EventParticipants WHERE CharID = @OpponentID
EXEC vPlus.._Char_SendTextNotification @OpponentID, 'Your registration has been cancelled as you have equipped a job suit.', 1, 0, 1;
RETURN
END

ELSE IF (SELECT TOP 1 LatestRegion FROM SRO_VT_SHARD.._Char WITH(NOLOCK) WHERE CharID=@OpponentID) NOT IN (SELECT wRegionID FROM SRO_VT_SHARD.._RefRegion WITH (NOLOCK) WHERE IsBattleField = 0)
BEGIN
DELETE _EventParticipants WHERE CharID = @OpponentID
EXEC vPlus.._Char_SendTextNotification @OpponentID, 'Your registration has been cancelled as you are outside safezones.', 1, 0, 1;
RETURN
END

DECLARE @HWID1 varchar(64), @HWID2 varchar(64)
SELECT TOP 1 @HWID1 = HWID FROM vPlus.._OnlinePlayers WHERE CharID = @CharID
SELECT TOP 1 @HWID2 = HWID FROM vPlus.._OnlinePlayers WHERE CharID = @OpponentID


IF (SELECT MatchCount FROM _MatchingLogs WHERE (HWID1 IN (@HWID1,@HWID2) AND HWID2 IN (@HWID1,@HWID2)) AND Type = 1 AND DATEDIFF(DAY,GETDATE(),PlayDate) = 0) > 3
BEGIN
RETURN
END

IF NOT EXISTS (SELECT * FROM _MatchingLimits WHERE (HWID = @HWID1 OR CharID = @CharID) AND [Type] = 1 AND DATEDIFF(DAY,GETDATE(),[Date]) = 0)
INSERT _MatchingLimits SELECT @HWID1,@CharID,0,1,GETDATE(),0
IF NOT EXISTS (SELECT * FROM _MatchingLimits WHERE (HWID = @HWID2 OR CharID = @OpponentID) AND [Type] = 1 AND DATEDIFF(DAY,GETDATE(),[Date]) = 0)
INSERT _MatchingLimits SELECT @HWID2,@OpponentID,0,1,GETDATE(),0

UPDATE _MatchingLimits SET RegisterCount+= 1 WHERE (CharID IN (@CharID,@OpponentID) OR HWID IN (@HWID1,@HWID2)) AND [Type] = 1 AND DATEDIFF(DAY,GETDATE(),[Date]) = 0

IF NOT EXISTS (SELECT MatchCount FROM _MatchingLogs WHERE (HWID1 IN (@HWID1,@HWID2) AND HWID2 IN (@HWID1,@HWID2)) AND [Type] = 1 AND DATEDIFF(DAY,GETDATE(),PlayDate) = 0)
INSERT _MatchingLogs SELECT @HWID1,@HWID2,1,0,GETDATE()

UPDATE _MatchingLogs SET MatchCount += 1 WHERE (HWID1 IN (@HWID1,@HWID2) AND HWID2 IN (@HWID1,@HWID2)) AND [Type] = 1 AND DATEDIFF(DAY,GETDATE(),PlayDate) = 0

EXEC vPlus.._Char_SendTextNotification @CharID, 'An opponent has been found! You will get ported to the Unique Matching arena shortly.', 2, 0, 1;
EXEC vPlus.._Char_SendTextNotification @OpponentID, 'An opponent has been found! You will get ported to the Unique Matching arena shortly.', 2, 0, 1;


DECLARE @WorldID INT, @MatchID INT, @UniqueCodeName VARCHAR(128)

SELECT TOP 1 @WorldID = WorldID, @UniqueCodeName = UniqueCodeName FROM _UniqueMatchingAreas WHERE isFree = 1

IF @WorldID=0 OR @WorldID IS NULL
BEGIN
EXEC vPlus.._Char_SendTextNotification @CharID, 'Something has gone wrong. Your registration has been cancelled.', 1, 0, 1;
EXEC vPlus.._Char_SendTextNotification @OpponentID, 'Something has gone wrong. Your registration has been cancelled.', 1, 0, 1;
DELETE _EventParticipants WHERE CharID IN (@CharID,@OpponentID) AND EventName = 'Unique' AND isMatched = 0
RETURN
END

DECLARE @MessageAll VARCHAR(129) ='[Unique Matching] has matched ('+@CharName+') versus ('+@OpponentName+')'
EXEC vPlus.._Command_Global_SendTextNotification @MessageAll, 3, 0, 1, -2373221;
INSERT _UniqueMatches SELECT @CharName, @OpponentName, 0, 0, 1
SELECT @MatchID = SCOPE_IDENTITY()
UPDATE _UniqueMatchingAreas SET isFree = 0, MatchID = @MatchID WHERE WorldID = @WorldID
UPDATE _EventParticipants SET isMatched = 1 WHERE CharID IN (@OpponentID,@CharID) AND EventName = 'Unique'

WAITFOR DELAY '00:00:01';

DECLARE @CommandToExecute NVARCHAR(MAX);
--EXEC vPlus.._Command_AttackRestriction @WorldID, 22454, 0, 30
EXEC vPlus.._Char_WarpToPosition @CharID, @WorldID, 22454, 1006, 90, 672
EXEC vPlus.._Char_WarpToPosition @OpponentID, @WorldID, 22454, 1293, 90, 640
EXEC vPlus.._Command_EventTimer @WorldID, -1, 30

SET @CommandToExecute = 'EXEC vPlus.._Command_SpawnMonster 14983, ' + CAST(@WorldID AS VARCHAR(10)) +', 22454, 1148, 90, 653, 1';
EXEC vPlus.._Command_ExecuteQueryAfter @CommandToExecute, 29
SET @CommandToExecute = 'EXEC vPlus.._Command_EventTimer ' + CAST(@WorldID AS VARCHAR(10)) +', -1, 300';
EXEC vPlus.._Command_ExecuteQueryAfter @CommandToExecute, 30
SET @CommandToExecute = 'EXEC SRO_VT_SYSTEM.._UniqueMatching_OnKill '''+@CharName+''','''+@OpponentName+''','+CAST(@Ch arID AS VARCHAR(10))+','+CAST(@OpponentID AS VARCHAR(10))+',1,'+CAST(@MatchID AS VARCHAR(10))+',0,0';
EXEC vPlus.._Command_ExecuteQueryAfter @CommandToExecute, 330
SET @CommandToExecute = 'EXEC vPlus.._Command_Area_SendTextNotification ' + CAST(@WorldID AS VARCHAR(10)) +', -1, ''The battle will begin in 10 seconds.'', 2, 0, 1';
EXEC vPlus.._Command_ExecuteQueryAfter @CommandToExecute, 19
SET @CommandToExecute = 'EXEC vPlus.._Command_Area_SendTextNotification ' + CAST(@WorldID AS VARCHAR(10)) +', -1, ''The battle has begun.'', 2, 0, 1';
EXEC vPlus.._Command_ExecuteQueryAfter @CommandToExecute, 30
SET @CommandToExecute = 'IF EXISTS (SELECT 1 FROM SRO_VT_SYSTEM.._UniqueMatches WHERE ID = '''+CAST(@MatchID AS VARCHAR(20))+''')
BEGIN EXEC vPlus.._Command_Area_SendTextNotification ' + CAST(@WorldID AS VARCHAR(10)) +', -1, ''There are 30 seconds remaining in this match.'', 2, 0, 1 END';
EXEC vPlus.._Command_ExecuteQueryAfter @CommandToExecute, 300

END

_UniqueMatching_OnKill

USE [event]
GO
/****** Object: StoredProcedure [dbo].[_UniqueMatching_OnKill] Script Date: 8/2/2024 5:03:21 AM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

ALTER PROCEDURE [dbo].[_UniqueMatching_OnKill]
@KillerName VARCHAR(24),
@KilledName VARCHAR(24),
@KillerID INT,
@KilledID INT,
@Type INT,--0 = disqualify, 1 = time out, 2= disqualify cuz opponent dc/left
@MatchID INT,
@KillerDMG INT ,
@KilledDMG INT
AS
BEGIN


IF NOT EXISTS (SELECT * FROM _UniqueMatches WHERE ID = @MatchID)
RETURN
DECLARE @WorldID INT, @Message VARCHAR(120)

DECLARE @UniqueCodeName VARCHAR(128), @KillerJID INT, @KilledJID INT
SELECT TOP 1 @UniqueCodeName = UniqueCodeName, @WorldID = WorldID FROM _UniqueMatchingAreas WHERE MatchID = @MatchID

IF @Type = 0
BEGIN
SELECT @Message='Congratulations! You have won your Unique Matching battle. You will be teleported back to town in 5 seconds.'
EXEC vPlus.._Char_SendTextNotification @KillerID, @Message, 3, 0, 1;
SELECT @Message='You have lost your Unique Matching battle. Better luck next time! You will be teleported back to town in 5 seconds.'
EXEC vPlus.._Char_SendTextNotification @KilledID, @Message, 3, 0, 1;
SELECT @Message='[Unique Matching] ('+@KillerName+') has won versus ('+@KilledName+')!'
EXEC vPlus.._Command_Global_SendTextNotification @Message, 2, 0, 1, -2373221;
WAITFOR DELAY '00:00:03'
EXEC vPlus.._Command_RegionCharactersToTown @WorldID, -1

SET @KillerJID = (SELECT UserJID from SRO_VT_SHARD.._User where CharID = @KillerID)
SET @KilledJID = (SELECT UserJID from SRO_VT_SHARD.._User where CharID = @KilledID)
EXEC vplus.dbo._Account_AddItemToChest @KillerJID, 25834, 2, 0, 'Unique Matching Reward Kill'
EXEC SRO_VT_SYSTEMS.dbo._Action_AddActivity @KillerID,2
--EXEC vPlus.dbo._Account_AddSilkLive @KillerJID, 2, 100, 1
--EXEC vPlus.dbo._Account_AddSilkLive @KilledJID, 2, 0, 1
--UPDATE SRO_VT_SYSTEM.dbo._LogUniqueMatching Set Kills += 1 SELECT UserJID from SRO_VT_SHARD.._User where CharID = @KillerID
INSERT _LogUniqueMatching SELECT @KillerName, @KilledName, GETDATE(),1,@KillerID
END
ELSE IF @Type IN (2,3)
BEGIN

IF @Type=2 -- TP out
SELECT @Message='Opponent has disconnected/left the region, granting you a default win. You will be teleported back to town in 5 seconds.'
ELSE IF @Type=3 -- DC
SELECT @Message='Opponent has disconnected, granting you a default win. You will be teleported back to town in 5 seconds.'
EXEC vPlus.._Char_SendTextNotification @KillerID, @Message, 1, 0, 1;

IF @Type=3
SELECT @Message='[Unique Matching] ('+@KilledName+') has disconnected from the match, therefore granting ('+@KillerName+') the win!'

ELSE IF @Type=2
SELECT @Message='[Unique Matching] ('+@KilledName+') has teleported out of the match, therefore granting ('+@KillerName+') the win!'
EXEC vPlus.._Command_Global_SendTextNotification @Message, 2, 0, 1, -2373221;
WAITFOR DELAY '00:00:03'
EXEC vPlus.._Command_RegionCharactersToTown @WorldID, -1

SET @KillerJID = (SELECT UserJID from SRO_VT_SHARD.._User where CharID = @KillerID)
SET @KilledJID = (SELECT UserJID from SRO_VT_SHARD.._User where CharID = @KilledID)
--EXEC vPlus.dbo._Account_AddSilkLive @KillerJID, 2, 100, 1
--EXEC vPlus.dbo._Account_AddSilkLive @KilledJID, 2, 0, 1
EXEC vplus.dbo._Account_AddItemToChest @KillerJID, 25834, 2, 0, 'Unique Matching Reward disconnected'
EXEC SRO_VT_SYSTEMS.dbo._Action_AddActivity @KillerID,2
INSERT _LogUniqueMatching SELECT @KillerName, @KilledName, GETDATE(),0,@KillerID
END
ELSE IF @Type=1 --Time out
BEGIN
EXEC vPlus.._Command_Area_SendTextNotification @WorldID, 22454, 'The match has ended in a draw as both participants have failed to kill the unique in under 5 minutes.', 3, 0, 1;
EXEC vPlus.._Command_Area_SendTextNotification @WorldID, 22454, 'You will be teleported back to town in 5 seconds.', 1, 0, 1;
WAITFOR DELAY '00:00:03'
EXEC vPlus.._Command_RegionCharactersToTown @WorldID, -1

SET @KillerJID = (SELECT UserJID from SRO_VT_SHARD.._User where CharID = @KillerID)
SET @KilledJID = (SELECT UserJID from SRO_VT_SHARD.._User where CharID = @KilledID)
--EXEC vPlus.dbo._Account_AddSilkLive @KillerJID, 2, 100, 1
--EXEC vPlus.dbo._Account_AddSilkLive @KilledJID, 2, 0, 1
EXEC vplus.dbo._Account_AddItemToChest @KillerJID, 25834, 2, 0, 'Unique Matching Reward Town'
EXEC SRO_VT_SYSTEMS.dbo._Action_AddActivity @KillerID,2
INSERT _LogUniqueMatching SELECT @KillerName, @KilledName, GETDATE(),0,@KillerID
END
EXEC vPlus.._Command_EliminateMonster @UniqueCodeName
UPDATE _UniqueMatches SET Status = 0 WHERE ID = @MatchID
WAITFOR DELAY '00:00:05';

UPDATE _UniqueMatchingAreas SET isFree = 1, MatchID = 0 WHERE MatchID = @MatchID
DELETE _UniqueMatches WHERE ID = @MatchID
DELETE _EventParticipants WHERE CharName IN (@KillerName,@KilledName) AND EventName='Unique'
EXEC vPlus.._Char_RemoveEventRegister @KillerID, 33
EXEC vPlus.._Char_RemoveEventRegister @KilledID, 33

END

vplus.refmonster

14983 0 0 0 0 False False False False False

refregion

113 22454 2 False False False False False 0 False True False True True False False False False False 0 False 0 0 False 0 0 False False False False False False False False False False False 3 False False False 0 False False False False

any problem contact with me discord


soon release Styria Clash free with vsropus

[Worshiper]

Nice thanks for release

[komikman]

bazı tablolar eksik :S

[Aaron*]

Why do people keep copying my work, change a very few stuff and maybe adjust them to work on another filter then release them as their events?

You need to give credits.

[Xero1993]

Originally Posted by Aaron*

Why do people keep copying my work, change a very few stuff and maybe adjust them to work on another filter then release them as their events?

You need to give credits.

Joe, I originally bought it from one person

[TYKE_]

Originally Posted by Aaron*

Why do people keep copying my work, change a very few stuff and maybe adjust them to work on another filter then release them as their events?

You need to give credits.

After you uploaded your database with all the events, a group of people calling themselves developers appeared. They are selling your events to inexperienced newcomers and have transferred them to a filter. vplus And they sell it at prices higher than yours, claiming it's from their own code, and there's no need to mention names because you definitely know them xD

[Worshiper]

Originally Posted by TYKE_

After you uploaded your database with all the events, a group of people calling themselves developers appeared. They are selling your events to inexperienced newcomers and have transferred them to a filter. vplus And they sell it at prices higher than yours, claiming it's from their own code, and there's no need to mention names because you definitely know them xD

You are right