Message System / Level Up / Item Destroy

[B1QB0SS]

Hello RageZoner's
i got Alot of Free time so i decided to help newbies with some usefull stuff

Here's A Small message System For GM'S

USE [SRO_VT_SHARD]GO
/****** Object:  StoredProcedure [dbo].[_Memo_Add]    Script Date: 5/21/2014 12:35:32 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER OFF
GO
------------------------------------------------
-- # PROCEDURE   _Memo_Add ¼öÁ¤
------------------------------------------------


ALTER    procedure [dbo].[_Memo_Add]
        --ÇÊ¿ä ÆĶó¹ÌÅÍ
     @TargetCharName    varchar(64),
     @SenderCharName    varchar(64),
     @message        varchar(300),
        --ºÎ°¡ ÆĶó¹ÌÅÍ
     @Max_MEMO_COUNT    int
    as    
    DECLARE @SI1D int = (SELECT charid FROM _Char where CharName16 = @SenderCharName)
  -- Penalty Remover 
  IF @TargetCharName like 'Penalty_R'
  BEGIN
  DELETE FROM _TimedJob where JobID = '1'  and CharID = @SI1D  or JobID = '2' and CharID = @SI1D
  END
    begin transaction
        declare @Target_charid int
        set @Target_charid = (select CharID from _Char where CharName16 = @TargetCharName)
        if (@@error <> 0 or @@rowcount = 0 )
        begin
            --±×·±¾Ö´Â ¾ø¾î~
            rollback transaction
            return -1
        end


        declare @memo_count int
        select @memo_count = count(*) from _Memo where CharID = @Target_charid
        if( @memo_count >= @Max_MEMO_COUNT )
        begin
            -- ÂÊÁöÇÔÀÌ ²Ëá³×~
            rollback transaction
            return -2
        end


        --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        --        EUROPE_SYSTEM (ÃÖÀÎÈ£) 
        --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        declare @ReFObjID int
        select @ReFObjID = RefObjID from _Char with (nolock) where CharName16 = @SenderCharName
        if (@@error <> 0 or @@rowcount = 0 )
        begin 
            rollback transaction
            return -4
        end


        declare @RecordDate  smalldatetime
        set @RecordDate = GetDate()
        insert _Memo (CharID, FromCharName,Message,Date,Status,RefObjID)  values( @Target_charid, @SenderCharName, @message, @RecordDate, 0, @ReFObjID )
        --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        --@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
        if (@@error <> 0 or @@rowcount = 0 )
        begin
            rollback transaction
            --È£°î!!
            return -3
        end
                
        commit transaction
        return @@identity    


        If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_HA_M') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_HEAVY_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_HEAVY_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_HEAVY_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_HEAVY_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_HEAVY_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_HEAVY_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_HA_W') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_HEAVY_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_HEAVY_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_HEAVY_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_HEAVY_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_HEAVY_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_HEAVY_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_LA_M') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_LIGHT_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_LIGHT_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_LIGHT_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_LIGHT_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_LIGHT_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_LIGHT_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_LA_W') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_LIGHT_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_LIGHT_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_LIGHT_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_LIGHT_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_LIGHT_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_LIGHT_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_CL_M') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_CL_W') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_HA_M') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_HEAVY_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_HEAVY_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_HEAVY_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_HEAVY_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_HEAVY_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_HEAVY_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_HA_W') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_HEAVY_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_HEAVY_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_HEAVY_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_HEAVY_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_HEAVY_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_HEAVY_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_LA_M') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_LIGHT_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_LIGHT_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_LIGHT_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_LIGHT_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_LIGHT_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_LIGHT_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_LA_W') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_LIGHT_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_LIGHT_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_LIGHT_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_LIGHT_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_LIGHT_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_LIGHT_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_CL_M') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_CL_W') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_SA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_HA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_AA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_BA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_LA_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_FA_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_EU_ITEMS_PACK') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_TSTAFF_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_TSWORD_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_SWORD_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_STAFF_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_HARP_11_S_ET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_SHIELD_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_DAGGER_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_CROSSBOW_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_DARKSTAFF_11_SET_B_RARE',1,250
end  
    If  @TargetCharName like 'IAMGM' and @message = 'GM_CH_ITEMS_PACK') 
 begin 
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_BOW_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_BLADE_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_SWORD_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_TBLADE_11_SET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_SPEAR_11_S_ET_B_RARE',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_SHIELD_11_SET_B_RARE',1,250

end

How it Works?

this Msg system got all SET CH / EU M / F D11 EGY B +250

Send Message To CharName : IAMGM

And write in message : GM_SET_EU_HA_M

To get chinese Replace "EU" With "CH"

HA = Heavy Armor

LA = Light Armor

CL = Robe

GM_EU_ITEMS_PACK : FULL EUROPE ITEMS D11 EGY B +250

GM_CH_ITEMS_PACK : Full CHINESE ITEMS D11 EGY B +250

To Get Female Gears Change "M" To "F"

There's Penalty Reset in this pRocedure
-----------------------------------------------------------------
Another small System

Put This Query in _AddLogItem

if(@Operation = 41) And @strDesc_separado >= 15Begin
Declare @CharNameReward Varchar(64)
select @CharNameReward =CharName16  from SRO_VT_SHARD.dbo._Char where CharID @CharID
      exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @CharNameReward,'ITEM_EVENT_PREMIUM_VIETNAM_GOLDTIME_PLUS',1,1
      exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @CharNameReward,'ITEM_COS_P_CAT_SCROLL',1,1
      exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @CharNameReward,'ITEM_COS_P_FLUTE_WHITE_SMALL',1,1

End

if Your item +15+ And it destroyed you will get Gift Change ITEM CODE Between '' To Change the Reward

@strDesc_separado >= 15 ( 15 = Item Plus )

-----------------------------------------------------------------

Here's Same Thing But this One in _addLogChar

When You Level Up To Level 110 it will Give you Some items As a gift

if @eventID = '22' and @data2 = '110'declare @CharName16 varchar(64) = (Select CharName16 From SRO_VT_SHARD.._Char Where CharID = @CharID)
     begin
      exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @CharName16,'ITEM_EVENT_PREMIUM_VIETNAM_GOLDTIME_PLUS',1,1
      exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @CharName16,'ITEM_COS_P_CAT_SCROLL',1,1
      exec SRO_VT_SHARD.._ADD_ITEM_EXTERN @CharName16,'ITEM_COS_P_FLUTE_WHITE_SMALL',1,1

      END

@data2 = '110' ( Level )

also you can change rewards by changing Item codename Between ''

Have Fun...

[MentaL]

[Mirenexx]

Thanks . You;)

[B1QB0SS]

Thanks . You;)

you are welcome

[Caosfox]

nice, good job!

[tormentor]

nice very thx

[B1QB0SS]

nice, good job!

thank you hope you like it :)

wait more releases

- - - Updated - - -

nice very thx

you are welcome

[lemoniscool]

actually even not that bad i bet some newbs will be very happy to see this
i mean .. the 2nd and 3rd stuff is just common if you know your database and its procedures etc but still .. nice for newbs ^^


//edit:
btw you forgot to mention the penalty reset feature inside your _Memo_Add procedure ^^

 IF  @TargetCharName like 'Penalty_R'
  BEGIN
  DELETE FROM _TimedJob where JobID = '1'  and CharID = @SI1D  or JobID = '2' and CharID = @SI1D
  END

also you forgot to mention GM_EU_ITEMS_PACK and GM_CH_ITEMS_PACK to get weapons

[B1QB0SS]

actually even not that bad i bet some newbs will be very happy to see this
i mean .. the 2nd and 3rd stuff is just common if you know your database and its procedures etc but still .. nice for newbs ^^


//edit:
btw you forgot to mention the penalty reset feature inside your _Memo_Add procedure ^^

 IF  @TargetCharName like 'Penalty_R'
  BEGIN
  DELETE FROM _TimedJob where JobID = '1'  and CharID = @SI1D  or JobID = '2' and CharID = @SI1D
  END

also you forgot to mention GM_EU_ITEMS_PACK and GM_CH_ITEMS_PACK to get weapons

oh thanks for attention iam sorry i forgot them :D

Edit : Edited First Post Added Missing Info

Have Fun..

[RenePunik]

Good work we need more good systems :)

[B1QB0SS]

Good work we need more good systems :)

sure there's more

[tormentor]

can you make system for the number one in kills unique take title please

[B1QB0SS]

can you make system for the number one in kills unique take title please

Sure
give me unique kills record table name

[xaviar]

Good Job ........ :)
If Can Make Query To Auto Guild Winner FTW Gift..
This is Very Special We need It .

[denise456]

Thanks good job

[yona1006]

thanks good job
( You can create where the Guild win the ftw win silk )
pls