Gelişmiş Işınlanma Sistemi[C++&PYTHON]

[AsiiCan]

ROHAN2 WORLD 1-120 TR TİPİ OFFICIAL YOHARA, BALATHOR VE AMON! 80. GÜNÜNDE! +10.000 ONLİNE! HİLE VE BOT %100 ENGELLİ HEMEN TIKLA!

Allah yardımcın olsun hocam , gayet başarılı bir sistem tebrikler konu içinde teşekkürler.

 

[ulubey4242]

Teşşekürler Allah yardımcın olsun.

 

[HainKurt]

------------------------------------------------------------------
​

Cmd.cpp açılır-aratılır:

ACMD(do_pcbang_check);

Altına eklenir;

ACMD(do_isinla_beni_beybi);
ACMD(do_isinla_sure);
ACMD(do_black_kalan);

Tekrar aratılır:

{ "slow",        do_slow,        0,            POS_DEAD,    GM_LOW_WIZARD    },

Altına eklenir;

{ "isinla_beni_beybi",            do_isinla_beni_beybi,            0,            POS_DEAD,    GM_PLAYER    },
    { "isinla_sure",            do_isinla_sure,            0,            POS_DEAD,    GM_PLAYER    },
    { "black_kalan",            do_black_kalan,            0,            POS_DEAD,    GM_PLAYER    },
         { "hak_ver",            do_hak_ver,             0,             POS_DEAD,     GM_LOW_WIZARD },
    ///new system by Blackdragonx61

cmd_general.cpp açılır-aratılır:

ACMD(do_view_equip)

Altına Eklenir;

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

ACMD(do_black_kalan)
{
    int kalan = ch->GetQuestFlag("isinlama.black");
    ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("%d hakkiniz kaldi"), kalan);
}


ACMD(do_isinla_sure)
{
    char arg1[256];
    one_argument(argument, arg1, sizeof(arg1));
    if (*arg1)
    {
        switch (LOWER(*arg1))
        {
            case '1':    // 5 tane    5m
            if (ch->GetGold() < 5000000)
            {
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("paprarar yohh"));
                return;
            }
            else
            {
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("?slem tamamlandi"));
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("?sinlanma limiti 5 yapildi"));
                ch->PointChange(POINT_GOLD, -5000000, true);
                ch->SetQuestFlag("isinlama.black", 5);
            }
            break;
           
            case '2':       
            if (ch->GetGold() < 10000000)
            {
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("paprarar yohh"));
                return;
            }
            else
            {
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("?slem tamamlandi"));
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("?sinlanma limiti 10 yapildi"));
                ch->PointChange(POINT_GOLD, -10000000, true);//10M
                ch->SetQuestFlag("isinlama.black", 10);
            }
            //ch->SetQuestFlag("isinlayamam.sure", 0);
            break;
           
            case '3':       
            if (ch->GetGold() < 30000000)
            {
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("paprarar yohh"));
                return;
            }
            else
            {
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("?slem tamamlandi"));
                ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("?sinlanma limiti 50 yapildi"));
                ch->PointChange(POINT_GOLD, -30000000, true);//30M
                ch->SetQuestFlag("isinlama.black", 50);
            }
            //ch->SetQuestFlag("isinlayamam.sure", 0);
            break;
        }
    }
}


ACMD(do_isinla_beni_beybi)
{
    char arg1[256];
    one_argument(argument, arg1, sizeof(arg1));
    //int son_sure = ch->GetQuestFlag("isinlayamam.sure");
    int kalan = ch->GetQuestFlag("isinlama.black");
   
    if (ch->IsDead() || ch->GetHP() <= 0 || !ch->IsPC())
    {
        ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("Oluyken bu islem gerceklestirilemez!"));
        return;
    }
   
    if (ch->GetQuestFlag("isinlama.black") == 0)
    {
        //ch->SetQuestFlag("isinlayamam.sure", get_global_time());
        ch->ChatPacket(CHAT_TYPE_COMMAND, "isinlayamam");
        //ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("1 saat beklemelisin"));
        return;
    }
   
    if (*arg1)
    {
        switch (LOWER(*arg1))
        {
            case 'a'://Orumcek Zindanı 1.kat basi
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(59800, 497300);
                ch->Stop();
            break;
       
            case 'b'://Mavi 1.
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(959800,268400);
                ch->Stop();
                break;
           
            case 'c'://Kırmızı 1.
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(474300,954800);
                ch->Stop();
                break;
               
            case 'd'://Sari 1.
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(63800,166400);
                ch->Stop();
                break;
            case 'e'://Devler Diyarı
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(829900,763300);
                ch->Stop();
                break;
            case 'f':// MAVi 2.
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(873100,242600);
                ch->Stop();
                break;
            case 'g'://Kırmızı 2.
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(360800,877600);
                ch->Stop();
                break;
            case 'h'://Sari 2.
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(138500,234900);
                ch->Stop();
                break;
            case 'i'://Hayalet ormani
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(288700,5700);
                ch->Stop();
                break;
            case 'j':// Orumcek zindanı 2.Kat Basi
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                //ch->WarpSet(x, y);
                ch->Stop();
                break;
            case 'k'://Seytan kulesi Black ya I love you askimmm
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(590500,110500);
                ch->Stop();
                break;
            case 'l'://Yongbi colu
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(296800,547400);
                ch->Stop();
                break;
            case 'm'://Surgun girisi
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(284400,810700);
                ch->Stop();
                break;
            case 'n'://Kizil Orman
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(1119900,70800);
                ch->Stop();
                break;
            case 'o'://Sohan dagi
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(436400,215600);
                ch->Stop();
                break;
            case 'p'://Ox haritasi
                if (!ch->IsGM())
                {
                    ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("yalnizca gmler kullanir"));
                }
                else
                {
                    ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                    //ch->WarpSet(x, y);
                    ch->Stop();
                }
                break;
            case 'r'://Nemere'nin gozetleme kulesi 90 sinir
                if (ch->GetLevel() < 90)
                {
                    ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("level yeterli degil"));
                }
                else
                {
                    ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                    ch->WarpSet(432792,165998);
                    ch->Stop();
                }
                break;
            case 's'://Kırmızı Ejdeha Kalesi sinir 90
                if (ch->GetLevel() < 90)
                {
                    ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("level yeterli degil"));
                }
                else
                {
                    ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                    ch->WarpSet(613800,707000);
                    ch->Stop();
                }
                break;
            case 't'://Vadi
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                ch->WarpSet(336000,755600);
                ch->Stop();
                break;
            case 'u'://CapeDragon
                if (ch->GetLevel() < 90)
                {
                    ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("level yeterli degil"));
                }
                else
                {
                    ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                    //ch->WarpSet(x, y);
                    ch->Stop();
                }
                break;
            case 'v'://Maymunlar Zindani
                ch->SetQuestFlag("isinlama.black", ch->GetQuestFlag("isinlama.black")-1);
                //ch->WarpSet(x, y);
                ch->Stop();
                break;
        }
    }
}

---------------------------
cmd_gm.cpp açılır-aratılır:

ACMD(do_group_random)

Altına Eklenir;

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

ACMD (do_hak_ver)
{
    char arg1[256], arg2[256];
    long hak;
    const char*  Name;
    two_arguments(argument, arg1, sizeof(arg1), arg2, sizeof(arg2));
    if (!*arg1 || !*arg2)
    {
        ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("/hak_ver oyuncu hak miktari"));
        return;
    }
    Name = arg1;
    hak = atoi(arg2);
    LPCHARACTER tch = CHARACTER_MANAGER::instance().FindPC(Name);
    if(!tch)
    {
        ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("Oyuncu %s bulunamadi."), Name);
        return;
    }
    tch->SetQuestFlag("isinlama.black", tch->GetQuestFlag("isinlama.black") + hak);
    tch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("Administrator %s hesabiniza %ld hak verdi."), ch->GetName(), hak);
    ch->ChatPacket(CHAT_TYPE_INFO, LC_TEXT("%ld hak verdin, bu hesaba; %s."),hak,tch->GetName());
}

-------------------
PYTHON
root.py açılır
İmport'lara eklenir;

import isinlama

Sona eklenir:

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Tekrar aratılır:

onPressKeyDict[app.DIK_F4]    = lambda : self.__PressQuickSlot(7)

Altına Eklenir;

onPressKeyDict[app.DIK_F5]  = lambda : self.Black_ac()

Tekrar aratılır:

"PlayMusic"                : self.__PlayMusic,

Altına eklenir;

"isinlayamam"            : self.Blackcim,

root'a atılır:

Linkleri görebilmek için Turkmmo Forumuna ÜYE olmanız gerekmektedir.

Hata alırsanız mutlaka sorun benim py çok karışıktı karışıklık olabilir kodlarda ayrıca beimki başka butondaydı f5'e ekledim sıkıntı çıkmaz inşallah.
KANIT:
​

Madem bu kadar mutlu gunun biz alt yapi icin hangi filesi kullanalim (herkez maxmi olmaz diyiyor yabanci turk fln bi sey oner)
Bizde dua edelim...
Allah yar ve yardimciniz olsun...

 

[blackdragonx61]

Madem bu kadar mutlu gunun biz alt yapi icin hangi filesi kullanalim (herkez maxmi olmaz diyiyor yabanci turk fln bi sey oner)
Bizde dua edelim...
Allah yar ve yardimciniz olsun...

mamxi kullanıyorum wolf'dan bir önceki versiyon herkes demiş ch düşme problemleri var ama ona geçtikten sonra bir kere düşmedi önemli olan src kardeşim yorumun için de teşekkürler.

 

[HainKurt]

mamxi kullanıyorum wolf'dan bir önceki versiyon herkes demiş ch düşme problemleri var ama ona geçtikten sonra bir kere düşmedi önemli olan src kardeşim yorumun için de teşekkürler.

Yabanci src kullanip maxmi 3.6 mi kullanalim bi yardimci olirsan mutlu oluruz