[Release] System For GM

[ellemby20102010]

بسم اللة الرحمن الرحيم
اليوم اضافة System For GM
بصراحة الموضوع منقول من الاول كدة

نبدا بسم اللة

إضافة الكود دة إلى _Memo_Add في SRO_VT_SHARD

[QUOTE]بسم اللة الرحمن الرحيم
اليوم اضافة System For GM
بصراحة الموضوع منقول من الاول كدة

نبدا بسم اللة

إضافة الكود دة إلى _Memo_Add in SRO_VT_SHARD

IF @TargetCharName = 'IAMGM') BEGIN
DECLARE @CharID INT = (SELECT CharID FROM SRO_VT_SHARD.._Char WHERE CharName16 @SenderCharName)
DECLARE @JiD INT = (SELECT UserJID FROM SRO_VT_SHARD.._User WHERE CharID @CharID)
DECLARE @GM INT = (SELECT sec_primary from SRO_VT_ACCOUNT..TB_User WHERE JID @JiD)
IF (@GM = 3)
BEGIN
EXEC _Memo_Add @SenderCharName , '[ADMIN]' , 'You are not allowed to use this service!' , 999
END
END
else If (@GM = 1 And @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 (@GM = 1 And @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 (@GM = 1 And @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 (@GM = 1 And @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 (@GM = 1 And @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_CL_M')
begin
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_SA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_HA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_AA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_BA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_LA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_M_CLOTHES_11_FA_SET_B_RAR E',1,250
end
If (@GM = 1 And @TargetCharName like 'IAMGM' and @message = 'GM_SET_EU_CL_W')
begin
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_SA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_HA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_AA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_BA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_LA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_W_CLOTHES_11_FA_SET_B_RAR E',1,250
end
If (@GM = 1 And @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 (@GM = 1 And @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 (@GM = 1 And @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 (@GM = 1 And @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 (@GM = 1 And @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_CL_M')
begin
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_SA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_HA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_AA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_BA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_LA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_M_CLOTHES_11_FA_SET_B_RAR E',1,250
end
If (@GM = 1 And @TargetCharName like 'IAMGM' and @message = 'GM_SET_CH_CL_W')
begin
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_SA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_HA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_AA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_BA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_LA_SET_B_RAR E',1,250
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_W_CLOTHES_11_FA_SET_B_RAR E',1,250
end
If (@GM = 1 And @TargetCharName like 'IAMGM' and @message = 'GM_EU_ITEMS_PACK')
begin
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_TSTAFF_11_SET_B_RARE',1,2 50
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_TSWORD_11_SET_B_RARE',1,2 50
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_SWORD_11_SET_B_RARE',1,25 0
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_STAFF_11_SET_B_RARE',1,25 0
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_HARP_11_S_ET_B_RARE',1,25 0
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_SHIELD_11_SET_B_RARE',1,2 50
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_EU_DAGGER_11_SET_B_RARE',1,2 50
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 (@GM = 1 And @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,25 0
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_SWORD_11_SET_B_RARE',1,25 0
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_TBLADE_11_SET_B_RARE',1,2 50
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_SPEAR_11_S_ET_B_RARE',1,2 50
exec _ADD_ITEM_EXTERN @SenderCharName,'ITEM_CH_SHIELD_11_SET_B_RARE',1,2 50
end

Ex :

when you send Message To CharName "IAMGM" First thing it will check if you are GameMaster (GM)

how ?

it will select CharID Then JID then Sec_Primary From TB_USER

if Sec_Primary is 1 it will continue

else it will send message to the same char contain

You are not allowed to use this service!

you can edit ITEMS CODES and ADD MORE it's so much easy todo

now Message Body Should be

For Europe Heavy Armor Set D11 EGY B Male +250 Write 'GM_SET_EU_HA_M'

Change "HA" TO "LA" For Light Armor Or "CL" For Clothes

Change "M" TO "W" For Female

Change "EU" TO "CH" For CHinese

Full Europe "Weapons" +250 EGY B

GM_EU_ITEMS_PACK

Also Change "EU" TO "CH" For Chinese

Press Thanks If you Like This One

الموضوع منقول تاني اهو علشان محدش يتكلم

و شكرا