[Release] Anti shadow bug

ludaka

New Member
Joined
Dec 10, 2008
Messages
387
Reaction score
112
Добър ден! Рових се из компа и намерих някой стари неща. Като ето този скрипт, който е против шадъл бъг
PHP:
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'

Колкото и странно да звучи незнам къде се слага(мисля че е дбто MuOnline), дано някой който разбира повече да разбере и да сподели на мен и на всички потребители във форума! С уважение: ludaka
 
Last edited:
  • Like
Reactions: Wikko0 and Van_Bom
thank you....and I have some Question...

this is for version ?
how to use this ?