[Aporte] Script AntiDUP para 97d y 99b

use MuOnline
if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[DupeCheck_CDC]') and OBJECTPROPERTY(id, N'IsTrigger') = 1)
drop trigger [dbo].[DupeCheck_CDC]
GO

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[DupeLog_CDC]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [dbo].[DupeLog_CDC]
GO

CREATE TABLE [dbo].[DupeLog_CDC] (
[ID] [int] IDENTITY (1, 1) NOT NULL ,
[Cuenta] [varchar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[Personaje] [varchar] (10) COLLATE Chinese_PRC_CI_AS NOT NULL ,
[ItemType] [binary] (1) ,
[ItemSerial] [binary] (4) ,
[Item] [binary] (10) ,
[FechaDelDUP] [smalldatetime] NOT NULL
) ON [PRIMARY]
GO
ALTER TABLE [dbo].[DupeLog_CDC] WITH NOCHECK ADD
CONSTRAINT [PK_DupeLog_CDC] PRIMARY KEY CLUSTERED
(
[ID]
) ON [PRIMARY]
GO
ALTER TABLE [dbo].[DupeLog_CDC] ADD
CONSTRAINT [DF_Table1_FechaDelDUP] DEFAULT (getdate()) FOR [FechaDelDUP]
GO


SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO

CREATE TRIGGER [dbo].[DupeCheck_CDC] ON [dbo].[character]
FOR UPDATE
AS
BEGIN
IF UPDATE(inventory)
BEGIN
SET NOCOUNT ON
DECLARE
@Cuenta varchar(10),
@Personaje varchar(10),
@Inventario binary(760),
@Baul binary(1200),
@BaulItem binary(10),
@BaulTipo binary(1),
@BaulSerial binary(4),
@InventarioItem binary(10),
@InventarioTipo binary(1),
@InventarioSerial binary(4),
@InventarioPJ int,
@BaulCuenta int,
@TamañoBaul int,
@Encontrar bit
--Seleccionamos la informacion del Personaje y el Baul.
SELECT @Cuenta=i.accountid,@Personaje=i.name,@Inventario=i.inventory FROM inserted i
SELECT @Baul=items FROM Warehouse WHERE AccountID=@Cuenta

--Tamaño del Baul
SET @TamañoBaul = 1200

SET @InventarioPJ=0
SET @Encontrar=0

WHILE @InventarioPJ<76 AND @Inventario IS NOT NULL
BEGIN
SET @InventarioTipo=SUBSTRING(@Inventario,@InventarioPJ*10+1,1)
SET @InventarioSerial=SUBSTRING(@Inventario,@InventarioPJ*10+4,4)
SET @InventarioItem=SUBSTRING(@Inventario,@InventarioPJ*10+1,10)
IF @InventarioTipo<>0xFF AND @InventarioSerial<>0x00000000
BEGIN
SET @BaulCuenta=0
WHILE @BaulCuenta<120 AND @Baul IS NOT NULL
BEGIN
SET @BaulTipo=SUBSTRING(@Baul,@BaulCuenta*10+1,1)
SET @BaulSerial=SUBSTRING(@Baul,@BaulCuenta*10+4,4)
SET @BaulItem=SUBSTRING(@Baul,@BaulCuenta*10+1,10)
IF @BaulTipo=@InventarioTipo AND @BaulSerial=@InventarioSerial
BEGIN
SET @Encontrar=1
INSERT INTO DupeLog_CDC (Cuenta,Personaje,Item,ItemType,ItemSerial) VALUES (@Cuenta,@Personaje,@InventarioItem,@InventarioTipo,@InventarioSerial)
SET @Baul=SUBSTRING(@Baul,1,@BaulCuenta*10)+0xFFFFFFFFFFFFFFFFFFFF+SUBSTRING(@Baul,((@BaulCuenta+1)*10+1),@TamañoBaul-(((@BaulCuenta+1)*10)))
END
SET @BaulCuenta=@BaulCuenta+1
END
END
SET @InventarioPJ=@InventarioPJ+1
END
IF @Encontrar=1
BEGIN
--A diferencia de todos los scripts, este solamente borra el item Dupeado.
UPDATE Warehouse SET Items=@Baul WHERE (AccountID=@Cuenta)
--En esta seccion si quieres puedes agregar algun castigo (como ban de todos los personajes)
--UPDATE [Character] SET CtlCode=1 WHERE AccountID=@Cuenta
END
SET NOCOUNT OFF
END
END
GO
SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
select * from DupeLog_CDC

¿Como se quién dupeo?

Use MuOnline

select * from DupeLog_CDC