1. Reklam


    1. joysro
      ledas
      jungler
      keasro
      zeus
      karantina

Vsro G Otomatik Event Bot [Etkinlik Botu] 2.1A

Vsro GM'leri için hazırlanmış otomatik etkinlik düzenleyen botu.

  1. Chorus
    Galullians Otomatik event programı bir GM etrafında çalışıyor , ayarladığınız .cfg özelliklerine , database bağlantılarına , logların kayıtlarına dayanarak.
    Kısaca açıklamak gerekirse konu adında da yazdığı gibi program otomatik event yapmaya yarıyor , özelliklerini aşağıda da görebilirsiniz.

    6FK5h.png
    1-) Soru cevap etkinliği
    2-) Top 3 altın toplayan karakter (Her ay güncellenir.)
    3-) Top 3 job master rütbesi ( Her ay güncellenir.)
    4-) GM öldürme etkinliği
    5-) En çok + basma etkinliği
    6-) Saklan ve bul etkinliği
    7-) Unique bul ve ödüllendir etkinliği

    8-) Job kıyafetleriyle Unique savaşı etkinliği
    9-) Şanslı Parti numarası etkinliği
    10-) En ölümcül oyuncu etkinliği (PVP)
    11-) En çok aranan oyuncu (1 e karşı herkes) - Teker teker gelin olum!-
    12-) Unique spawn etkinliği
    13-) Şanslı Global Etkinliği (Tombala Mod)
    14-) Otomatik Duyuru Özelliği
    15-) Otomatik özel mesaj etkinliği

    Yt10b.png
    Öncelikle herhangi bir firewall programı kullanıyorsanız (Superman , K-guard vs) bu botu proxy'nin arkasına yani direk olarak gerçek Gateway portunuza bağlamanız gerekiyor. Örnek olarak fake gateway 15779 ise ve gerçek Gateway portunuz 50020 ise direk olarak 50020'ye bağlamanız gerekiyor.


    Nasıl kurulur ?
    1-)
    G_Event's tablosunu database'e yükleyin.

    DB tablolarını açın ve orjinal tablolara çevirin.(!!)
    Örnek olarak : Shard DB'nizin adı SRO_SHARD_INIT ise SRO_VT_SHARD yapın.


    2-) Database özelliklerinizi yazın ;
    Tablo : _AlchemyEvent = Hedef "+"'yı ve ödülü girin.
    Tablo: _AlcemyItems = Hedef ITEM ID'yi ve miktarını girin
    Tablo : _EventTime = Etkinlik zamanını girin 6:30 PM gibi.
    (GM KILLER) tablosu GM öldürme etkinliği için
    (ALCHEMY) "+"basma etkinliği için
    (Job Uniques) Job Unique & Savaşı için
    (HidenDSick) Saklambaç etkinliği için
    (SnD) Bul ve Yok Et etkinliği için

    (LPN) Şanslı Parti Numarası
    (MD) En ölümcü oyuncu
    (MW) En çok aranan oyuncu
    (US) Unique Spawn Etkinliği
    (LG) Şanslı Global - Tombala Etkinliği


    Örnek olarak : GM Öldürme etkinliğini açmak istiyorsan , 9:00 PM GM Killer yazmanız gerekiyor.

    Tablo : _Hide ANDSeek_Map = Saklambaç yerlerini girin.
    Tablo : _Job_UNIQUE_EVENT = Job Unique yerlerini girin.
    Tablo : _MW_Map = Nerede başlamasını istiyorsanız orayı girin.
    Tablo : _rQuestions = Sorularınızı ve cevaplarını girin.
    Tablo : _SnD_Map = Bul ve Yok Et noktalarını girin.
    Tablo : _Spawn_Uniques = UNIQUE ID'lerini ve Etkinlik noktalarını girin. ( Bir noktadan daha fazla ekleyebilirsiniz.)
    Tablo : _Unique_Kills_Rewards : Normal unique öldürmeleri için ödüller girin.


    3-) Config.cfg dosyanızı açın ve ayarlarınızı içine yazın.
    4-)
    User.txt sizin bot account ve pw'nizi içerir. Şu an ki ID : test , Pw : test (beta testi için)
    5-) Bunu _AddLogChar içine ekleyin ;
    F (@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- Itemlogları aktif edin ;
    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

    Daha önce bu botun eski sürümlerini kullandıysanız güncellemek için ;

    Son sürüme güncellendi. Hali hazırda bu botu kullanıyorsunuz bu sorguları çalıştırmanız gerekmekte , update için.

    - _EventTime tablosuna bunları koyun :
    7:49 AM LuckyStaller
    8:46 AM ChooseTheAnswer

    - Database'inizde bunları çalıştırın.
    Kod:
    USE [G_Events]
    GO
    
    /****** Object: Table [dbo].[_ChooseTheAnswer] Script Date: 5/1/2016 10:06:53 AM ******/
    SET ANSI_NULLS ON
    GO
    
    SET QUOTED_IDENTIFIER ON
    GO
    
    CREATE TABLE [dbo].[_ChooseTheAnswer](
    [ID] [tinyint] IDENTITY(1,1) NOT NULL,
    [Question] [nvarchar](max) NOT NULL,
    [Right_Answer] [nvarchar](max) NOT NULL,
    [Answer1] [nvarchar](max) NOT NULL,
    [Answer2] [nvarchar](max) NOT NULL,
    [Answer3] [nvarchar](max) NOT NULL,
    [Answer4] [nvarchar](max) NOT NULL
    ) ON [PRIMARY] TEXTIMAGE_ON [PRIMARY]
    
    GO 
    Ve db'ye kayıtları yükleyin.
    Örnek olarak ;
    Kod:
    1    Where was WorldCup hosted at 2014?    Brazil    Spain    Egypt    Brazil    America
    2    Who won the EuropeCup2012    Spain    Brazil    Spain    America    HongKong
    3    In which sport do teams compete for the SolheimCup?    Golf    Football    Rogby    Golf    Tennis
    4    Which rapper starred in the 2005 film GetRichorDieTryin’?    50Cent    Enemiem    RapSchool    50Cent    Metallica
    5    Which country isBeijingin?    China    Russia    China    US    UK
    6    Who won the ChampionsLeague2014?    RealMadrid    RealMadrid    Barcha    Arsinal    Chiventos
    7    Whatis the capital city of Somalia?    Mogadishu    KulaLambour    Mogadishu    Cairo    Aswan
    _GiveSilk 'i aşağıda ki kod ile update edin ;

    Kod:
    IF @Status = 'Lucky Staller'
    exec SRO_VT_SHARD.dbo._ADD_ITEM_EXTERN_CHEST @AccountID2,'ITEM_ETC_SD_TOKEN_01',5,0
    IF @Status = 'Choose The Right Answer'
    exec SRO_VT_SHARD.dbo._ADD_ITEM_EXTERN_CHEST @AccountID2,'ITEM_ETC_SD_TOKEN_01',5,0 
    Config.cfg'nize aşağıda ki satırları ekleyin ;
    PHP Code:
    [Client2]
    Username=gm4
    Password=123456
    CharName=Eslam
    Captcha=0


    [Lucky Staller Event]
    Enable=1
    Silkreward=10
    RegionID=24744
    PosX=988
    PosY=-6.789643
    PosZ=1414
    StartNotice=[Lucky Staller Event] Event Will Start After 1 Moment At Jangan South Be Ready, Wear off cap suits.
    SecNotice=[Lucky Staller Event] Starts Now At Jangan South Open A Stall without job Suite To Join the Event.
    EventMatchTime=60000
    WaitGlobal=[Lucky Staller Event] Event Will Finish After 1 Moment , Then bot Choose a Random Winner.
    TimeupGlobal=[Lucky Staller Event] Event Finished Thanks.
    NoticeWinner=[Lucky Staller Event] %playername% has Won The Event , Congrats.
    NoRegisterNotice=[Lucky Staller Event] Event has been canceld No one Join.

    [Choose The Right Answer Event]
    Enable=1
    Silkreward=10
    MatchTime=60000
    StartGlobal=[Choose The Right Answer Event] Will Start After 1 Moment
    StartsNowGlobal=[Choose The Right Answer Event] Starts Now.
    QuestionGLobal= The Question : %question%
    AnswerGlobal= Choose The Answer [%answer1%,%answer2%,%answer3%,%answer4%]
    NoRightAnswerGlobal=[Choose The Right Answer Event] Finished No One Answerd with the Right Answer.
    WinnerGlobal=[Choose The Right Answer Event] %playername% has won the event , Congrats.


    Dosya Rar Şifresi :
    Kod:
    www.extraloob.com

Son Güncellemeler

  1. Son sürüme güncellendi.