MaviAyGames | Para Kutusu Sistemi [C++, Pyhton, Lua]

[MaviAy44]

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!

Merhaba arkadaşlar, bugün sizlerle yeni bir sistem paylaşacağım.

Sistem Mantığı: 80010 numaralı bar kutusu içerisine üzerinizde mevcut olan parayı koyabilir ve tekrar geri alabilirsiniz. Ticareti yapılabilir, pazarda satılabilir, depolanabilir ve bunlar yapıldıktan sonra hiçbir şekilde değerini kaybetmez. Hoşunuza giderse eğer para kutusuna şifre seçeneğide ekleyebilirim. Şifre ticaret ve pazar ile farklı hesaplara aktarıldığında bile aktif olacaktır.

Source taraflı işlevlerde oluşabilecek hertürlü hatalar "syserr" dosyasına yazılacak şekilde ayarlandı.

questlua_item.cpp açılır
ve aratılır ;

int item_get_cell(lua_State* L)

kod bloğu bitişine eklenir ;

int pc_para_degeri(lua_State* L)
{
        LPCHARACTER ch = CQuestManager::instance().GetCurrentCharacterPtr() ;

        if(ch->GetExchange() || ch->GetMyShop() || ch->GetShopOwner() || ch->IsOpenSafebox() || ch->IsCubeOpen())
        {
               ch->ChatPacket(CHAT_TYPE_INFO, "Depo / Market / Pazar Pencerelerini kapat.");
               lua_pushnumber(L, false);
               return 1;
        }

        CQuestManager& q = CQuestManager::instance();
    if (q.GetCurrentItem() && lua_isnumber(L,1))
    {
    int turkmmo = 1;
    long bardegeri = (long) lua_tonumber(L, 1);
        if (bardegeri >=1 && bardegeri < 2000000000 && ch->GetGold() >= bardegeri)
        {
            q.GetCurrentItem()->SetSocket(turkmmo, bardegeri);
            ch->PointChange(POINT_GOLD, -bardegeri, true);
        }
        else
        {
            sys_err("Bar sistemi: Para miktari hatali girildi!");
            lua_pushnumber(L, false);
            return 1;
        }
    }
    else
    {
        sys_err("Bar sistemi: Item yok veya para degeri girilmedi!");
        lua_pushnumber(L, false);
        return 1;
    }
    return 0;
}

tekrar aratılır ;

{ "get_cell", item_get_cell },

ve altına eklenir ;

{ "para_degeri", pc_para_degeri },

root > uitooltip.py açılır

importlara en başa eklenir ;

import translate

aratılır ;

def __SetItemTitle(self, itemVnum, metinSlot, attrSlot):

ve içerisine eklenir ;

    if 80010 == itemVnum:
        if metinSlot[1] == 0:
    self.AppendTextLine(translate.bar_bos, self.NEGATIVE_COLOR)
else:
    self.AppendTextLine(translate.bar_dolu % localeInfo.NumberToMoneyString(metinSlot[1]), self.SPECIAL_TITLE_COLOR)

translate.py
ekleyin:

bar_bos="Mevcut Para : Henüz Girilmedi."
bar_dolu="Mevcut Para : %s"

filezilla quest_functions dosyası içerisine eklenecek ;

item.para_degeri

quest bar_sistemi begin
    state start begin
        when 80010.use begin
        local gold = pc.get_gold()
        if item.get_socket(1) < 1 then
            say_title("Merhaba "..pc.get_name().."")
            say("") -- bosluk
            say(""..gold.." paranız bulunmakta.")
            say_reward("Bu kutu içerisine para koymak istiyor musun?")
            local seciyoruz = select("Evet","Hayır")
            if seciyoruz == 2 then return
        elseif seciyoruz == 1 then
            say_title("Merhaba "..pc.get_name().."")
            say("")
            say_reward("Lütfen paketlemek istediğiniz para")
            say_reward("miktarını giriniz.")
            local para = tonumber (input())

            if para == "" or para == nil or para > 2000000000 or para < 1 then
                say_title("Merhaba "..pc.get_name().."")
                say("")
                say_reward("Geçersiz bir değer girdiniz !")
                    return
        elseif para > gold then
            say_title("Merhaba "..pc.get_name().."")
            say("")
            say_reward("Malesef, üzerinizde bu kadar para yok!")
                return
            else
                chat("İşlem tamamlandı.")
                item.para_degeri(para)
                    return
                end
            end
    else
            say_title("Merhaba "..pc.get_name().."")
            say("") -- bosluk
            say_reward(""..item.get_socket(1).." yang parayı çıkarmak istiyor musun ?")
            local cikariyoruz = select("Evet","Hayır")
        if cikariyoruz == 2 then return
            elseif cikariyoruz == 1 then
        if gold+item.get_socket(1) > 2000000000 then
            say_title("Merhaba "..pc.get_name().."")
            say("") -- bosluk
            say_reward("Envanterine 2 milyar para alamazsın !")
                return
        else
        pc.give_gold(item.get_socket(1))
                chat(""..item.get_socket(1).." yang envanterinize çıkartıldı.")
                pc.remove_item(item.get_vnum(),pc.count_item(item. get_vnum()))
            return
            end
        end
    end
end
end
end

80010 kodlu bir item ekleyin tamamdır.

 

[dogusarikaya]

Paylaşım İçin Teşekkürler!

 

[Reached]

Merhaba arkadaşlar, bugün sizlerle yeni bir sistem paylaşacağım.

Sistem Mantığı: 80010 numaralı bar kutusu içerisine üzerinizde mevcut olan parayı koyabilir ve tekrar geri alabilirsiniz. Ticareti yapılabilir, pazarda satılabilir, depolanabilir ve bunlar yapıldıktan sonra hiçbir şekilde değerini kaybetmez. Hoşunuza giderse eğer para kutusuna şifre seçeneğide ekleyebilirim. Şifre ticaret ve pazar ile farklı hesaplara aktarıldığında bile aktif olacaktır.

Source taraflı işlevlerde oluşabilecek hertürlü hatalar "syserr" dosyasına yazılacak şekilde ayarlandı.

questlua_item.cpp açılır
ve aratılır ;

int item_get_cell(lua_State* L)

kod bloğu bitişine eklenir ;

int pc_para_degeri(lua_State* L)
{
        LPCHARACTER ch = CQuestManager::instance().GetCurrentCharacterPtr() ;

        if(ch->GetExchange() || ch->GetMyShop() || ch->GetShopOwner() || ch->IsOpenSafebox() || ch->IsCubeOpen())
        {
               ch->ChatPacket(CHAT_TYPE_INFO, "Depo / Market / Pazar Pencerelerini kapat.");
               lua_pushnumber(L, false);
               return 1;
        }

        CQuestManager& q = CQuestManager::instance();
    if (q.GetCurrentItem() && lua_isnumber(L,1))
    {
    int turkmmo = 1;
    long bardegeri = (long) lua_tonumber(L, 1);
        if (bardegeri >=1 && bardegeri < 2000000000 && ch->GetGold() >= bardegeri)
        {
            q.GetCurrentItem()->SetSocket(turkmmo, bardegeri);
            ch->PointChange(POINT_GOLD, -bardegeri, true);
        }
        else
        {
            sys_err("Bar sistemi: Para miktari hatali girildi!");
            lua_pushnumber(L, false);
            return 1;
        }
    }
    else
    {
        sys_err("Bar sistemi: Item yok veya para degeri girilmedi!");
        lua_pushnumber(L, false);
        return 1;
    }
    return 0;
}

tekrar aratılır ;

{ "get_cell", item_get_cell },

ve altına eklenir ;

{ "para_degeri", pc_para_degeri },

root > uitooltip.py açılır

importlara en başa eklenir ;

import translate

aratılır ;

def __SetItemTitle(self, itemVnum, metinSlot, attrSlot):

ve içerisine eklenir ;

    if 80010 == itemVnum:
        if metinSlot[1] == 0:
    self.AppendTextLine(translate.bar_bos, self.NEGATIVE_COLOR)
else:
    self.AppendTextLine(translate.bar_dolu % localeInfo.NumberToMoneyString(metinSlot[1]), self.SPECIAL_TITLE_COLOR)

translate.py
ekleyin:

bar_bos="Mevcut Para : Henüz Girilmedi."
bar_dolu="Mevcut Para : %s"

filezilla quest_functions dosyası içerisine eklenecek ;

item.para_degeri

quest bar_sistemi begin
    state start begin
        when 80010.use begin
        local gold = pc.get_gold()
        if item.get_socket(1) < 1 then
            say_title("Merhaba "..pc.get_name().."")
            say("") -- bosluk
            say(""..gold.." paranız bulunmakta.")
            say_reward("Bu kutu içerisine para koymak istiyor musun?")
            local seciyoruz = select("Evet","Hayır")
            if seciyoruz == 2 then return
        elseif seciyoruz == 1 then
            say_title("Merhaba "..pc.get_name().."")
            say("")
            say_reward("Lütfen paketlemek istediğiniz para")
            say_reward("miktarını giriniz.")
            local para = tonumber (input())

            if para == "" or para == nil or para > 2000000000 or para < 1 then
                say_title("Merhaba "..pc.get_name().."")
                say("")
                say_reward("Geçersiz bir değer girdiniz !")
                    return
        elseif para > gold then
            say_title("Merhaba "..pc.get_name().."")
            say("")
            say_reward("Malesef, üzerinizde bu kadar para yok!")
                return
            else
                chat("İşlem tamamlandı.")
                item.para_degeri(para)
                    return
                end
            end
    else
            say_title("Merhaba "..pc.get_name().."")
            say("") -- bosluk
            say_reward(""..item.get_socket(1).." yang parayı çıkarmak istiyor musun ?")
            local cikariyoruz = select("Evet","Hayır")
        if cikariyoruz == 2 then return
            elseif cikariyoruz == 1 then
        if gold+item.get_socket(1) > 2000000000 then
            say_title("Merhaba "..pc.get_name().."")
            say("") -- bosluk
            say_reward("Envanterine 2 milyar para alamazsın !")
                return
        else
        pc.give_gold(item.get_socket(1))
                chat(""..item.get_socket(1).." yang envanterinize çıkartıldı.")
                pc.remove_item(item.get_vnum(),pc.count_item(item. get_vnum()))
            return
            end
        end
    end
end
end
end

80010 kodlu bir item ekleyin tamamdır.

Tenk yu

 

[MaviAy44]

Tenk yu

Rica ederim iyi kullanımlar.

 

[ayzer2541]

2 seçenek olması güzel olur şifreli şifresiz