DECLARE @NameList varchar(10), @cnt int
declare @Inv binary(760), @Pendant binary(10), @Ring1 binary(10), @Ring2 binary(10)
set @cnt = 0
DECLARE STORAGE CURSOR LOCAL FOR
SELECT Name FROM Character
OPEN STORAGE
FETCH NEXT FROM STORAGE INTO @NameList
WHILE @@FETCH_STATUS = 0
begin
set @Inv = (select inventory from Character where name = @NameList and isnull(ctlcode,0)<>8)
set @Pendant = SUBSTRING(@inv,91,10)
set @Ring1 = SUBSTRING(@inv,101,10)
set @Ring2 = SUBSTRING(@inv,111,10)
if (SUBSTRING(@Pendant,2,1) > 0x08) and (SUBSTRING(@Pendant,2,1) <> 0xFF) and (SUBSTRING(@Pendant,8,1) > 0x80) and (SUBSTRING(@Pendant,8,1) <> 0x00) and (SUBSTRING(@Pendant,8,1) <> 0xC0)
begin
print @NameList+' have exc pendant above +0'
set @cnt = @cnt + 1
end
if (SUBSTRING(@Ring1,2,1) > 0x08) and (SUBSTRING(@Ring1,2,1) <> 0xFF) and (SUBSTRING(@Ring1,8,1) > 0x80) and (SUBSTRING(@Ring1,8,1) <> 0x00) and (SUBSTRING(@Ring1,8,1) <> 0xC0)
begin
print @NameList+' have exc ring above +0'
set @cnt = @cnt + 1
end
if (SUBSTRING(@Ring2,2,1) > 0x08) and (SUBSTRING(@Ring2,2,1) <> 0xFF) and (SUBSTRING(@Ring2,8,1) > 0x80) and (SUBSTRING(@Ring2,8,1) <> 0x00) and (SUBSTRING(@Ring2,8,1) <> 0xC0)
begin
print @NameList+' have exc ring above +0'
set @cnt = @cnt + 1
end
FETCH NEXT FROM STORAGE INTO @NameList
end
CLOSE STORAGE
DEALLOCATE STORAGE
print convert(varchar,@cnt) + ' Illegal item(s) found'
