G Auto Events For Vsro Servers

[G Events]

- جى اوتو ايفنت بوت هوا برنامج مجمع لعده ايفنتات لسيرفرات فيسرو ! بها العديد من الخصائص الجديده

الايفنتات الموجوده به :
- سوال و جواب
- اعلى 3 لاعبين معاهم جولد
- اعلى 3 لاعبين فى الجوب
- قاتل الجى ام
- اكبر بلس
- الاختباء و البحث
- جائزه لكل لاعب يقتل يونيك
- حرب الجوب
- رقم البارتى المحظوظ
- البحث و التدمير
- ماتش اكبر قاتل فى البى فى بى
- ماتش اللاعب الاكثر خطوره
- اظهار اليونيكات فى مواعيد و اماكن محدده حسب اختيارك
- الجلوبال شات المحظوظ
- رسائل الجيم
- رسائل اللاعبين

- How To Setup :
1-. Restore G_Events DB
Open The DB Procedures Change the Orginial DB Names into users For Ex. If You Shard DB Name SRO_SHARD_INIT .. Change SRO_VT_SHARD To your DB Name
2-. Insert Your Settings into DB Like :
Table : _AlchemyEvent Insert your Target Plus & Rewards
Table : _AlchemyItems insert your Target Item ID & Amount
Table : _EventTime insert Your Event Time Like 6:30 PM
Use (GM KILLER) For Gm Killer Event
Use (Alchemy) For Alchemy Plus Event
Use (Job Uniques) For Job Uniques & Battle Match
Use (HidenDSick) For Hide And Seek Event
Use (SnD) For Search And Destroy Event
Use (LPN) For Lucky party Number
Use (MD) For Most Deadly Match
Use (MW) For Most Wanted Player Event
Use (US) For Unique Spawn Event
Use (LG) For Lucky Global Event

So For Ex. if i need to launcher Gm Killer at 9 PM i should write 9:00 PM GM Killer
Table : _HideANDSeek_Map Insert Your Hide And Seek Places
Table : _JOB_UNIQUE_EVENT Insert your Job Uniques battle Uniques ID And Remmber to Always put Service to 0
Table : _MW_Map Put your Most Wanted Start Place Informations
Table : _rQuestions Mange & Add Your Own Questions and answer .. Remmber to put service to 0
Table : _SnD_Map Add your own Search And Destroy places
Table : _Spawn_Uniques Add Your own Uniques ID & Event Place ( You Can add More than 1 Place )
Table : _Unique_Kills_Rewards Add Normal Uniques Kills Rewards

3- Open config.cfg And Put Your Settings inside it . its pretty simple
4- User.txt its contains Your Bot Account & Pw .. Current Id : test , Pw : test For Beta testing

5- Add This To your _AddLogChar Procedure

كود PHP:

IF (@EventID = '20') -- Record GM Death
BEGIN 
            
    IF (@Desc LIKE '%My: no job, Neutral%') 
    BEGIN
        Declare @Killer1 Varchar(64),
                @Killer2 Varchar(64),
                @UserID int
        Set @Killer1 =  SUBSTRING(@Desc, CHARINDEX('His(', @Desc), 
                        CHARINDEX('): no job,', @Desc) - CHARINDEX('His(', @Desc) + LEN('): no job,'))

        Set @killer2 = REPLACE(@Killer1,'His(','');
        Set @killer2 = REPLACE(@Killer2,'): no job,','');
        
        SET @UserID = (select UserJID from SRO_VT_SHARD.dbo._User where CharID = (SELECT CharID FROM SRO_VT_SHARD.dbo._Char where CharID = @CharID))
        Declare @CharNa Varchar(64) = ( Select CharName16 From SRO_VT_SHARD.dbo._Char Where CharID = @CharID )
        Declare @ifGMDie int = ( Select sec_content From SRO_VT_ACCOUNT.dbo.TB_User where JID = @UserID )
        if (@ifGMDie = 1 AND @CharNa ='QE')
        BEGIN

            INSERT into [G_Events].[dbo].[_NoticeQueue] (Service,Message,Date)
            Values (0,@killer2 + ' Win The Gm Killer Event',GETDATE())
            exec G_Events.dbo._GiveSilk @killer2,10,'GMKiller'
        END
        ELSE
        BEGIN
        EXEC [G_Events].[dbo].[KillFetch] @CharID,@Desc,@strPos
        END
   END
       IF (@Desc LIKE '%My: no job, Murderer%') 
    BEGIN
            Declare @Killer1Q Varchar(64),
                    @Killer2Q Varchar(64),
                    @UserIDQ int,
                    @MurName Varchar(64)
        Set @MurName = (Select CharName16 From SRO_VT_SHARD.._Char Where CharID = @CharID )
        Set @Killer1Q =  SUBSTRING(@Desc, CHARINDEX('His(', @Desc), 
                        CHARINDEX('): no job,', @Desc) - CHARINDEX('His(', @Desc) + LEN('): no job,'))

        Set @killer2Q = REPLACE(@Killer1Q,'His(','');
        Set @killer2Q = REPLACE(@Killer2Q,'): no job,','');

        if (@Killer2Q = '[My: no j' AND @MurName IN ( Select PlayerName From G_Events.._MW_PlayerName ))
        BEGIN
            INSERT into [G_Events].[dbo].[_NoticeQueue] (Service,Message,Date)
            Values (0,'[Most Wanted Event] ' + @MurName + ' Dead From Murder Status Lol, Event Finished',GETDATE())
        END
        ELSE if( @Killer2Q != '[My: no j' AND @MurName IN ( Select PlayerName From G_Events.._MW_PlayerName ))
        BEGIN
            INSERT into [G_Events].[dbo].[_NoticeQueue] (Service,Message,Date)
            Values (0,'[Most Wanted Event] ' + @killer2Q + ' Kill The Most Wanted Player, Congrats',GETDATE())
            exec G_Events.._GiveSilk @Killer2Q,10,'MostWanted'
        END
        
    END
END 


6- Enable your ItemLogs :

كود PHP:

USE [SRO_VT_SHARDLOG]
GO
/****** Object:  StoredProcedure [dbo].[_AddLogItem]    Script Date: 22/10/2015 10:53:43 PM ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO


-------------------------------------------------------------------------------------------------------------------
-- Step 2
-- ±âÁ¸ ¾ÆÀÌÅÛ ·Î±× ÀԷ Stored procedure ¼öÁ¤
-- DataBase            : Shard Log  
ALTER  procedure [dbo].[_AddLogItem]    @CharID  int,   
  @ItemRefID int,   
  @ItemSerial bigint,   
  @dwData int,   
  @TargetStorage tinyint,   
  @Operation tinyint,   
  @Slot_From tinyint,   
  @Slot_To tinyint,   
  @EventPos varchar(64),   
  @strDesc varchar(128), 
  @Gold        bigint        -- #ifdef EXTEND_GOLD_TYPE »ðÀÔ    
  as   
   declare @len_pos int   
   declare @len_desc int  
   declare @strDesc_separado varchar(128)  
   declare  @len_desc1 int 
   set @len_pos = len(@EventPos)   
   set @len_desc = len(@strDesc)   
   if (@len_pos > 0 and @len_desc > 0)   
   begin   
            insert _LogEventItem (EventTime, CharID, ItemRefID, dwData, TargetStorage, Operation, Slot_From, Slot_To, EventPos, strDesc, Serial64, Gold)    -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼ 
            values(GetDate(), @CharID, @ItemRefID, @dwData, @TargetStorage, @Operation, @Slot_From, @Slot_To, @EventPos, @strDesc, @ItemSerial, @Gold)        -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼ 
   end   
   else if (@len_pos > 0 and @len_desc = 0)   
   begin   
            insert _LogEventItem (EventTime, CharID, ItemRefID, dwData, TargetStorage, Operation, Slot_From, Slot_To, EventPos, Serial64, Gold)            -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼ 
            values(GetDate(), @CharID, @ItemRefID, @dwData, @TargetStorage, @Operation, @Slot_From, @Slot_To, @EventPos, @ItemSerial, @Gold)                -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼  
   end   
   else if (@len_pos = 0 and @len_desc > 0)   
   begin   
            insert _LogEventItem (EventTime, CharID, ItemRefID, dwData, TargetStorage, Operation, Slot_From, Slot_To, strDesc, Serial64, Gold)            -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼ 
            values(GetDate(), @CharID, @ItemRefID, @dwData, @TargetStorage, @Operation, @Slot_From, @Slot_To, @strDesc, @ItemSerial, @Gold)                    -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼  
   end   
   else if (@len_pos = 0 and @len_desc = 0)   
   begin   
            insert _LogEventItem (EventTime, CharID, ItemRefID, dwData, TargetStorage, Operation, Slot_From, Slot_To, Serial64, Gold)                        -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼ 
            values(GetDate(), @CharID, @ItemRefID, @dwData, @TargetStorage, @Operation, @Slot_From, @Slot_To, @ItemSerial, @Gold)                            -- #ifdef EXTEND_GOLD_TYPE ±³Ã¼ 
   end    
   -- À¯·á ¾ÆÀÌÅÛ ±¸ÀÔÀ̸é!  
   -- #define LOG_ITEMEVENT_BUY_CASHITEM  (BYTE)35  
   if (@Operation = 35)  
   begin  
    insert _LogCashItem (RefItemID, CharID, Cnt, EventTime, Serial64)  
    values(@ItemRefID, @CharID, @dwData, GetDate(), @ItemSerial)  
   end

      if (@Operation = 90 OR @Operation = 160)   
   begin   
   set @len_desc1 = CHARINDEX (']',@strDesc)  
  if(@len_desc1 = 9)   
     begin 
     set @strDesc = SUBSTRING(@strDesc,0,9) 
     set @strDesc_separado = SUBSTRING(@strDesc, 8, 1) 
    end 
   else if(@len_desc1 = 10) 
        begin 
        set @strDesc = SUBSTRING(@strDesc,0,10) 
        set @strDesc_separado = SUBSTRING(@strDesc, 8, 2) 
        end 
        if(@strDesc_separado >= 1) 
        begin 
        --set @strDesc_separado = @len_desc1 
      insert G_Events.dbo._LogItemPlus(CharID, Serial64, Plus, Data, Lido) values(@CharID, @ItemSerial, @strDesc_separado, GetDate(), '0')   
    end  
   end 


- Some Useful things :
- Pm Query ,You Can Call it anywhere in your DB :

INSERT INTO [G_Events].[dbo].[_AutoPm] (Service,PlayerName,Message,Date) VALUES (0,'PlayerName','Hello',GETDATE())

- INSERT New Hide And Seek Place :

كود PHP:

/* Query To Insert A New H&S Place 

By Eslam Galal 
*/

    
    Declare @CharName VarChar(64)
    Declare @SRegion int 
    Declare @sX int 
    Declare @sY int 
    Declare @sZ int
    Declare @PlaceName VarChar(300) 

Set @CharName = 'AXA'  -- Character Name Which you wanna record it place
set @PlaceName = 'Jangan - Grassland'  -- New Place Name



Set @SRegion = (Select LatestRegion From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)
Set @sX = (Select PosX From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)
Set @sY = (Select PosY From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)
Set @sZ = (Select PosZ From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)

 insert _HideANDSeek_Map(RegionID, x, Y ,Z , Place_Name) 
 values(@SRegion,@sX, @sY,@sZ,@PlaceName) 


- insert New Search And Destroy Place & MoB :

كود PHP:

/* Query To Insert A New Search And Destroy Place 

By Eslam Galal 
*/

    
    Declare @CharName VarChar(64)
    Declare @SRegion int 
    Declare @sX int 
    Declare @sY int 
    Declare @sZ int
    Declare @PlaceName VarChar(300) 
    Declare @MobID int
Set @CharName = 'AXA'  -- Character Name Which you wanna record it place
set @PlaceName = 'Jangan - Grassland'  -- New Place Name
Set @MobID = ( Select ID From SRO_VT_SHARD.dbo._RefobjCommon Where Codename128 like 'MOB_CH_TIGERWOMAN_L3')


Set @SRegion = (Select LatestRegion From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)
Set @sX = (Select PosX From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)
Set @sY = (Select PosY From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)
Set @sZ = (Select PosZ From SRO_VT_SHARD.dbo._Char Where CharName16 like @CharName)

 insert _SnD_Map(RegionID, x, Y ,Z , Place_Name,UNIQUE_ID) 
 values(@SRegion,@sX, @sY,@sZ,@PlaceName,@MobID) 


الاسكان : عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

التحميل : عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]


محلوظه الفيرس اللى ظهر دى قيم وهميه .. و فى انتظار مشرف الفحص

شكرا

[Hamza FiGo]

ينقل لقسم الفحص اولا

[G Events]

شكرا ليك
و اى استفسار انا موجود

[G Events]

قسم الفحص نسى البرنامج اكتر من اسبوع و نص