✨ Sosyal açıldı! Bir göz at → Hemen gir →

ÇÖZÜLDÜ 70, 72, 75 Skill Görev Sorunu -14202_Clarence.lua

Reklam
ALee

ALee

KY Saygın Üye
Coder
Yardımsever
KAYIT
9 Eyl 2022
Mesajlar
222
Çözümler
4
Tepki puanı
2,491
reklam alani
Merhaba arkadaşlar

Görevi alıyor sorunsuz itemide görüyor fakat Görev itemini teslim etmiyor. teslim et dediğimde ise

Where can ı Find it? diyor konum gösteriyor görselleride ekledim. lua yolunuda ekledim.

Kullandığım 14202_Clarence.lua ekliyorum bir çok farklı 14202_Clarence.lua denedim sorun hep aynı. tahmimin db den ama nereden uzun süredir bu tarz işlemler yapmıyorum çok paslandım yardımlarınızı bekliyorum birini çözersek diğerleride aynı mantık olunca onları daha kolay yapabilirim.

PC Başındayım anydesk de verebilirim.


PHP: 
local NPC = 14202;

if (EVENT == 190) then
    QuestNum = SearchQuest(UID, NPC);
    if (QuestNum == 0) then
        SelectMsg(UID, 2, -1, 3825, NPC, 10, -1);
    elseif (QuestNum > 1 and QuestNum < 100) then
        NpcMsg(UID, 3825, NPC)
    else
        EVENT = QuestNum
    end
end

if (EVENT == 603) then
    SelectMsg(UID, 2, 244, 3131, NPC, 10, 604);
end

if (EVENT == 604) then
    SelectMsg(UID, 4, 244, 3132, NPC, 22, 605, 23, -1);
end

if (EVENT == 605) then
    SaveEvent(UID, 3283);
end

if (EVENT == 606) then
    SaveEvent(UID, 3285);
    NATION = CheckNation(UID);
        if (NATION == 1) then
            SelectMsg(UID, 2, 244, 3136, NPC, 3015, -1);
        else
            SelectMsg(UID, 2, 244, 3006, NPC, 3015, -1);
    end
end

if (EVENT == 608) then
    ITEM_COUNT = HowmuchItem(UID, 910082000);
        if (ITEM_COUNT == 0) then
            SelectMsg(UID, 2, 244, 3135, NPC, 18, 609);
        else
            SelectMsg(UID, 4, 244, 3137, NPC, 41, 610, 27, -1);
        end
    end

if (EVENT == 609) then
    ShowMap(UID, 314);
end

if (EVENT == 610) then
    ITEM_COUNT = HowmuchItem(UID, 910082000);
        if(ITEM_COUNT == 0) then
            SelectMsg(UID, 2, 244, 3135, NPC, 18, 609);
        else
            RunCountExchange(UID,317);
            SaveEvent(UID, 3286);
        end
    end

if (EVENT == 532) then
    Level = CheckLevel(UID)
    if (Level > 59) then
        Class = CheckClass (UID);
        if (Class == 7) then
            SelectMsg(UID, 4, 273, 4098, NPC, 22, 533, 23, -1);
        else
            SelectMsg(UID, 2, 273, 4097, NPC, 10, -1);
        end
        else
            SelectMsg(UID, 2, 273, 4096, NPC, 10, -1);
    end
end

if (EVENT == 533) then
    SaveEvent(UID, 4100);
end

if (EVENT == 535) then
    SaveEvent(UID, 4102);
    SelectMsg(UID, 2, 273, 4102, NPC, 4080, -1);
end

if (EVENT == 536) then
    ITEM_COUNTA = HowmuchItem(UID, 810095000);
    ITEM_COUNTB = HowmuchItem(UID, 810092000);
    ITEM_COUNTC = HowmuchItem(UID, 810093000);
    if (ITEM_COUNTA > 0 and ITEM_COUNTB > 0 and ITEM_COUNTC > 0) then
        SelectMsg(UID, 4, 273, 4103, NPC, 4062, 537, 4063, -1);
    else
        if (ITEM_COUNTA < 1) then
            SelectMsg(UID, 2, 273, 4099, NPC, 18, 538);
        elseif (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 273, 4099, NPC, 18, 539);
        elseif (ITEM_COUNTC < 1) then
            SelectMsg(UID, 2, 273, 4099, NPC, 18, 540);
        end
    end
end

if (EVENT == 538) then
    ShowMap(UID, 189);
end

if (EVENT == 539) then
    ShowMap(UID, 713);
end

if (EVENT == 540) then
    ShowMap(UID, 711);
end

if (EVENT == 537) then
    ITEM_COUNTA = HowmuchItem(UID, 810095000);
    ITEM_COUNTB = HowmuchItem(UID, 810092000);
    ITEM_COUNTC = HowmuchItem(UID, 810093000);
        if (ITEM_COUNTA < 1) then
            SelectMsg(UID, 2, 273, 4099, NPC, 18, 538);
        elseif (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 273, 4099, NPC, 18, 539);
        elseif (ITEM_COUNTC < 1) then
            SelectMsg(UID, 2, 273, 4099, NPC, 18, 540);
        else
            --RunQuestExchange(UID,462);
            PromoteUser(UID);
            SaveEvent(UID, 4101);
            SelectMsg(UID, 2, savenum, 4093, NPC, 4064, -1);
    end
end

if (EVENT == 222) then
    SelectMsg(UID, 2, 305, 3112, NPC, 3013, 232);
end

if (EVENT == 232) then
    SelectMsg(UID, 2, 305, 3113, NPC, 3003, 233);
end

if (EVENT == 233) then
    SelectMsg(UID, 4, 305, 3089, NPC, 22, 224, 23, -1);
end

if (EVENT == 224) then
    SaveEvent(UID, 3203);
    --GiveItem(UID,900017000,7);
end

if (EVENT == 226) then
    SaveEvent(UID, 3205);
end

if (EVENT == 228) then
    MAGICSCROLL = HowmuchItem(UID, 900017000);
    if (MAGICSCROLL > 6) then
        SelectMsg(UID, 4, 305, 3095, NPC, 41, 230, 27, -1);
    else
        SelectMsg(UID, 2, 305, 3098, NPC, 18, 229);
    end
end

if (EVENT == 229) then
    ShowMap(UID, 726);
end

if (EVENT == 230) then
    MAGICSCROLL = HowmuchItem(UID, 900017000);
        if (MAGICSCROLL < 7) then
            SelectMsg(UID, 2, 305, 3098, NPC, 18, 229);
        else
            --RunQuestExchange(UID,313);
            SaveEvent(UID, 3206);
    end
end

if (EVENT == 303) then
    SelectMsg(UID, 2, 331, 3096, NPC, 3011, 304);
end

if (EVENT == 304) then
    SelectMsg(UID, 4, 331, 3097, NPC, 22, 305, 23, -1);
end

if (EVENT == 305) then
    SaveEvent(UID, 3223);
end

if (EVENT == 306) then
    SaveEvent(UID, 3225);
    SelectMsg(UID, 2, 331, 3102, NPC, 21, -1);
end

if (EVENT == 308) then
    ITEM_COUNTA = HowmuchItem(UID, 910042000);
    ITEM_COUNTB = HowmuchItem(UID, 379040000);
    ITEM_COUNTC = HowmuchItem(UID, 379236000);
        if (ITEM_COUNTA < 5) then
            SelectMsg(UID, 2, 331, 3100, NPC, 18, 309);
        elseif (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 331, 3100, NPC, 18, 311);
        elseif (ITEM_COUNTC < 2) then
            SelectMsg(UID, 2, 331, 3100, NPC, 18, 312);
        else
            SelectMsg(UID, 4, 331, 3103, NPC, 41, 310, 27, -1);
    end
end

if (EVENT == 309) then
    ShowMap(UID, 324);
end

if (EVENT == 311) then
    ShowMap(UID, 28);
end

if (EVENT == 312) then
    ShowMap(UID, 18);
end

if (EVENT == 310) then
    ITEM_COUNTA = HowmuchItem(UID, 910042000);
    ITEM_COUNTB = HowmuchItem(UID, 379040000);
    ITEM_COUNTC = HowmuchItem(UID, 379236000);
        if (ITEM_COUNTA < 5) then
            SelectMsg(UID, 2, 331, 3100, NPC, 18, 309);
        elseif (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 331, 3100, NPC, 18, 311);
        elseif (ITEM_COUNTC < 2) then
            SelectMsg(UID, 2, 331, 3100, NPC, 18, 312);
        else
            --RunQuestExchange(UID,314);
            SaveEvent(UID, 3226);
    end
end

if (EVENT == 403) then
    SelectMsg(UID, 2, 332, 3104, NPC, 10, 404);
end

if (EVENT == 404) then
    SelectMsg(UID, 4, 332, 3105, NPC, 22, 405, 23, -1);
end

if (EVENT == 405) then
    SaveEvent(UID, 3243);
end

if (EVENT == 406) then
    SaveEvent(UID, 3245);
    SelectMsg(UID, 2, 332, 3110, NPC, 21, -1);
end

if (EVENT == 408) then
    ITEM_COUNTA = HowmuchItem(UID, 320410011);
    ITEM_COUNTB = HowmuchItem(UID, 320410012);
    ITEM_COUNTC = HowmuchItem(UID, 379067000);
    if (ITEM_COUNTA > 0 and ITEM_COUNTB > 0 and ITEM_COUNTC > 0) then
        SelectMsg(UID, 4, 332, 3111, NPC, 41, 410, 27, -1);
    else
        if (ITEM_COUNTA < 1) then
            SelectMsg(UID, 2, 332, 3108, NPC, 18, 409);
        elseif (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 332, 3108, NPC, 18, 411);
        elseif (ITEM_COUNTC < 1) then
            SelectMsg(UID, 2, 332, 3108, NPC, 18, 412);
        end
    end
end

if (EVENT == 409) then
    ShowMap(UID, 309);
end

if (EVENT == 411) then
    ShowMap(UID, 310);
end

if (EVENT == 412) then
    ShowMap(UID, 30);
end

if (EVENT == 410) then
    ITEM_COUNTA = HowmuchItem(UID, 320410011);
    ITEM_COUNTB = HowmuchItem(UID, 320410012);
    ITEM_COUNTC = HowmuchItem(UID, 379067000);
        if (ITEM_COUNTA < 1) then
            SelectMsg(UID, 2, 332, 3108, NPC, 18, 409);
        elseif (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 332, 3108, NPC, 18, 411);
        elseif (ITEM_COUNTC < 1) then
            SelectMsg(UID, 2, 332, 3108, NPC, 18, 412);
        else
            --RunQuestExchange(UID,315);
            SaveEvent(UID, 3246);
    end
end

if (EVENT == 823) then
    SelectMsg(UID, 2, 335, 3226, NPC, 10, 824);
end

if (EVENT == 824) then
    SelectMsg(UID, 4, 335, 3227, NPC, 22, 825, 23, -1);
end

if (EVENT == 825) then
    SaveEvent(UID, 3423);
    SelectMsg(UID, 2, 335, 3228, NPC, 10, -1);
end

if (EVENT == 826) then
    SaveEvent(UID, 3425);
    SelectMsg(UID, 2, 335, 3232, NPC, 32, -1);
end

if (EVENT == 828) then
    ITEM_COUNT1 = HowmuchItem(UID, 379245000);
    ITEM_COUNT2 = HowmuchItem(UID, 379246000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 > 0 and ITEM_COUNT2 > 0 and ITEM_COUNT3 > 6999999) then
            SelectMsg(UID, 4, 335, 3233, NPC, 41, 830, 27, -1);
        else
        if (ITEM_COUNT1 < 1 or ITEM_COUNT2 < 1) then
                SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
        elseif (ITEM_COUNT3 < 7000000) then
                SelectMsg(UID, 2, 335, 3230, NPC, 18, 831);
        end
    end
end

if (EVENT == 829) then
    ShowMap(UID, 306);
end

if (EVENT == 831) then
    ShowMap(UID, 336);
end

if (EVENT == 830) then
    ITEM_COUNT1 = HowmuchItem(UID, 379245000);
    ITEM_COUNT2 = HowmuchItem(UID, 379246000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 < 1 or ITEM_COUNT2 < 1) then
            SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
        elseif (ITEM_COUNT3 < 7000000) then
            SelectMsg(UID, 2, 335, 3230, NPC, 18, 831);
        else
            --RunQuestExchange(UID, 330);
            SaveEvent(UID, 3424);
            --Skill Açma Komutu--
    end
end

if (EVENT == 923) then
    Class = CheckClass (UID);
    if (Class == 6 or Class == 8 or Class == 10 or Class == 12) then
        SelectMsg(UID, 2, 347, 5125, NPC, 10, 924);
    else
        SelectMsg(UID, 2, 347, 5124, NPC, 10, -1);
    end
end

if (EVENT == 924) then
    SelectMsg(UID, 4, 347, 5126, NPC, 22, 925, 23, -1);
end

if (EVENT == 925) then
    SaveEvent(UID, 5126);
    SelectMsg(UID, 2, 347, 5127, NPC, 10, -1);
end

if (EVENT == 926) then
    SaveEvent(UID, 5128);
    SelectMsg(UID, 2, 347, 5131, NPC, 32, -1);
end

if (EVENT == 928) then
    ITEM_COUNT1 = HowmuchItem(UID, 379246000);
    ITEM_COUNT2 = HowmuchItem(UID, 379236000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
    if (ITEM_COUNT1 > 0 and ITEM_COUNT2 > 2 and ITEM_COUNT3 > 9999999) then
        SelectMsg(UID, 4, 347, 5132, NPC, 41, 930, 27, -1);
    else
        if (ITEM_COUNT1 < 1) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 929);
        elseif (ITEM_COUNT2 < 3) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 932);
        elseif (ITEM_COUNT3 < 10000000) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 933);
        end
    end
end

if (EVENT == 929) then
    ShowMap(UID, 306);
end

if (EVENT == 932) then
    ShowMap(UID, 18);
end

if (EVENT == 933) then
    ShowMap(UID, 336);
end

if (EVENT == 930) then
    ITEM_COUNT1 = HowmuchItem(UID, 379246000);
    ITEM_COUNT2 = HowmuchItem(UID, 379236000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 < 1) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 929);
        elseif (ITEM_COUNT2 < 3) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 932);
        elseif (ITEM_COUNT3 < 10000000) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 933);
        else
            --RunQuestExchange(UID, 522);
            SaveEvent(UID, 5127);
            --Skill Açma Komutu--
    end
end

if (EVENT == 1023) then
    Class = CheckClass (UID);
    if (Class == 6 or Class == 8 or Class == 10 or Class == 12) then
        SelectMsg(UID, 2, 360, 5136, NPC, 10, 1024);
    else
        SelectMsg(UID, 2, 360, 5135, NPC, 10, -1);
    end
end

if (EVENT == 1024) then
    SelectMsg(UID, 4, 360, 5137, NPC, 22, 1025, 23, -1);
end

if (EVENT == 1025) then
    SaveEvent(UID, 5138);
    SelectMsg(UID, 2, 360, 5138, NPC, 10, -1);
end

if (EVENT == 1026) then
    SaveEvent(UID, 5140);
    SelectMsg(UID, 2, 360, 5142, NPC, 32, -1);
end

if (EVENT == 1028) then
    ITEM_COUNT1 = HowmuchItem(UID, 379246000);
    ITEM_COUNT2 = HowmuchItem(UID, 379236000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
    if (ITEM_COUNT1 > 0 and ITEM_COUNT2 > 2 and ITEM_COUNT3 > 9999999) then
        SelectMsg(UID, 4, 360, 5143, NPC, 41, 1030, 27, -1);
    else
        if (ITEM_COUNT1 < 1) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1029);
        elseif (ITEM_COUNT2 < 3) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1032);
        elseif (ITEM_COUNT3 < 10000000) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1033);
        end
    end
end

if (EVENT == 1029) then
    ShowMap(UID, 306);
end

if (EVENT == 1032) then
    ShowMap(UID, 18);
end

if (EVENT == 1033) then
    ShowMap(UID, 336);
end

if (EVENT == 1030) then
    ITEM_COUNT1 = HowmuchItem(UID, 379246000);
    ITEM_COUNT2 = HowmuchItem(UID, 379236000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 < 1) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1029);
        elseif (ITEM_COUNT2 < 3) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1032);
        elseif (ITEM_COUNT3 < 10000000) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1033);
        else
            --RunQuestExchange(UID, 523);
            SaveEvent(UID, 5139);
            --Skill Açma Komutu--
    end
end

if (EVENT == 1123) then
    Class = CheckClass (UID);
    if (Class == 6 or Class == 8 or Class == 10 or Class == 12) then
        SelectMsg(UID, 2, 366, 5147, NPC, 10, 1124);
    else
        SelectMsg(UID, 2, 366, 5146, NPC, 10, -1);
    end
end

if (EVENT == 1124) then
    SelectMsg(UID, 4, 366, 5148, NPC, 22, 1125, 23, -1);
end

if (EVENT == 1125) then
    SaveEvent(UID, 5150);
    SelectMsg(UID, 2, 366, 5149, NPC, 10, -1);
end

if (EVENT == 1126) then
    SaveEvent(UID, 5152);
    SelectMsg(UID, 2, 366, 5153, NPC, 32, -1);
end

if (EVENT == 1128) then
    ITEM_COUNT1 = HowmuchItem(UID, 379245000);
    ITEM_COUNT2 = HowmuchItem(UID, 379236000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 > 0 and ITEM_COUNT2 > 2 and ITEM_COUNT3 > 9999999) then
            SelectMsg(UID, 4, 366, 5154, NPC, 41, 1130, 27, -1);
        else
        if (ITEM_COUNT1 < 1) then
            SelectMsg(UID, 2, 366, 5151, NPC, 18, 1129);
        elseif (ITEM_COUNT2 < 3) then
            SelectMsg(UID, 2, 366, 5151, NPC, 18, 1132);
        elseif (ITEM_COUNT3 < 10000000) then
            SelectMsg(UID, 2, 366, 5151, NPC, 18, 1133);
        end
    end
end

if (EVENT == 1129) then
    ShowMap(UID, 306);
end

if (EVENT == 1132) then
    ShowMap(UID, 18);
end

if (EVENT == 1133) then
    ShowMap(UID, 336);
end

if (EVENT == 1130) then
    ITEM_COUNT1 = HowmuchItem(UID, 379245000);
    ITEM_COUNT2 = HowmuchItem(UID, 379236000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 < 1) then
            SelectMsg(UID, 2, 366, 5151, NPC, 18, 1129);
        elseif (ITEM_COUNT2 < 3) then
            SelectMsg(UID, 2, 366, 5151, NPC, 18, 1132);
        elseif (ITEM_COUNT3 < 10000000) then
            SelectMsg(UID, 2, 366, 5151, NPC, 18, 1133);
        else
            --RunQuestExchange(UID, 524);
            SaveEvent(UID, 5151);
            --Skill Açma Komutu--
    end
end

if (EVENT == 2002) then
    SelectMsg(UID, 4, 493, 9223, NPC, 22, 2003,23,1);
end

if (EVENT == 2003) then
    QuestStatusCheck = GetQuestStatus(UID, 493)
        if(QuestStatusCheck == 2) then
            SelectMsg(UID, 2, -1, 187, NPC, 10, -1);
        else
    Class = CheckClass(UID);
        if (Class == 1 or Class == 5 or Class == 6 or Class == 13 or Class == 14 or Class == 15) then
            SaveEvent(UID, 2432);
        elseif (Class == 2 or Class == 7 or Class == 8) then
            SaveEvent(UID, 2437);
        elseif (Class == 3 or Class == 9 or Class == 10) then
            SaveEvent(UID, 2442);
        elseif (Class == 4 or Class == 11 or Class == 12) then
            SaveEvent(UID, 2447);
        end
    end
end

if (EVENT == 2005) then
    QuestStatusCheck = GetQuestStatus(UID, 493)
        if(QuestStatusCheck == 2) then
            SelectMsg(UID, 2, -1, 187, NPC, 10, -1);
        else
    Class = CheckClass(UID);
        if (Class == 1 or Class == 5 or Class == 6 or Class == 13 or Class == 14 or Class == 15) then
            SaveEvent(UID, 2434);
        elseif (Class == 2 or Class == 7 or Class == 8) then
            SaveEvent(UID, 2439);
        elseif (Class == 3 or Class == 9 or Class == 10) then
            SaveEvent(UID, 2444);
        elseif (Class == 4 or Class == 11 or Class == 12) then
            SaveEvent(UID, 2449);
        end
    end
end

if (EVENT == 2007) then
    QuestStatusCheck = GetQuestStatus(UID, 493)
        if(QuestStatusCheck == 2) then
            SelectMsg(UID, 2, -1, 187, NPC, 10, -1);
        else
    MonsterCount = CountMonsterQuestSub(UID, 493, 1);
        if (MonsterCount < 40) then
            SelectMsg(UID, 2, 493, 9223, NPC, 18, 2006);
        else
            SelectMsg(UID, 5, 493, 9223, NPC, 41, 2008,23, -1);
        end
    end
end

if (EVENT == 2008) then
    QuestStatusCheck = GetQuestStatus(UID, 493)
        if(QuestStatusCheck == 2) then
            SelectMsg(UID, 2, -1, 187, NPC, 10, -1);
        else
    MonsterCount = CountMonsterQuestSub(UID, 493, 1);
        if (MonsterCount < 40) then
            SelectMsg(UID, 2, 493, 9223, NPC, 18, 2006);
        else
    Class = CheckClass(UID);
        if (Class == 1 or Class == 5 or Class == 6 or Class == 13 or Class == 14 or Class == 15) then
            --RunQuestExchange(UID,218,STEP,1);
            SaveEvent(UID, 2433);
        elseif (Class == 2 or Class == 7 or Class == 8) then
            --RunQuestExchange(UID,219,STEP,1);
            SaveEvent(UID, 2438);
        elseif (Class == 3 or Class == 9 or Class == 10) then
            --RunQuestExchange(UID,220,STEP,1);
            SaveEvent(UID, 2443);
        elseif (Class == 4 or Class == 11 or Class == 12) then
            --RunQuestExchange(UID,221,STEP,1);
            SaveEvent(UID, 2448);
            end
        end
    end
end

if (EVENT == 3001) then
    SelectMsg(UID, 4, 517, 20002, NPC, 3018, 3002, 3019, -1);
end

if (EVENT == 3002) then
    Class = CheckClass(UID);
    if (Class == 1 or Class == 5 or Class == 6 or Class == 13 or Class == 14 or Class == 15) then
        SaveEvent(UID, 11014);
    elseif (Class == 2 or Class == 7 or Class == 8) then
        SaveEvent(UID, 11019);
    elseif (Class == 3 or Class == 9 or Class == 10) then
        SaveEvent(UID, 11024);
    elseif (Class == 4 or Class == 11 or Class == 12) then
        SaveEvent(UID, 11029);
    end
end

if (EVENT == 3004) then
    Class = CheckClass(UID);
    if (Class == 1 or Class == 5 or Class == 6 or Class == 13 or Class == 14 or Class == 15) then
        SaveEvent(UID, 11016);
    elseif (Class == 2 or Class == 7 or Class == 8) then
        SaveEvent(UID, 11021);
    elseif (Class == 3 or Class == 9 or Class == 10) then
        SaveEvent(UID, 11026);
    elseif (Class == 4 or Class == 11 or Class == 12) then
        SaveEvent(UID, 11031);
    end
end

if(EVENT == 3005) then
    AGED = HowmuchItem(UID, 508102000) 
    if( AGED < 5) then
        SelectMsg(UID, 2, 517, 20002, NPC, 18, 3006);
    else
        SelectMsg(UID, 5, 517, 20002, NPC, 20, 3008,25,-1);
    end
end

if (EVENT == 3006 ) then
    ShowMap(UID, 546)
end

if (EVENT == 3008) then
    QuestStatusCheck = GetQuestStatus(UID, 517)
        if(QuestStatusCheck == 2) then
            SelectMsg(UID, 2, -1, 187, NPC, 10, -1);
        else
    AGED = HowmuchItem(UID, 508102000) 
        if( AGED < 5) then
            SelectMsg(UID, 2, 517, 20002, NPC, 18, 3006);
        else
    Class = CheckClass(UID);
        if (Class == 1 or Class == 5 or Class == 6 or Class == 13 or Class == 14 or Class == 15) then
            --RunQuestExchange(UID, 3001,STEP,1);
            SaveEvent(UID, 11015);
            SaveEvent(UID, 11056);
        elseif (Class == 2 or Class == 7 or Class == 8) then
            --RunQuestExchange(UID, 3002,STEP,1);
            SaveEvent(UID, 11020);
            SaveEvent(UID, 11056);
        elseif (Class == 3 or Class == 9 or Class == 10) then
            --RunQuestExchange(UID, 3003,STEP,1);
            SaveEvent(UID, 11025);
            SaveEvent(UID, 11056);
        elseif (Class == 4 or Class == 11 or Class == 12) then
            --RunQuestExchange(UID, 3004,STEP,1);
            SaveEvent(UID, 11030);
            SaveEvent(UID, 11056);
            end
        end
    end
end

if (EVENT == 3101) then
    SelectMsg(UID, 4, 518, 20004, NPC,3018, 3102, 3019, -1);
end

if (EVENT == 3102) then
    SaveEvent(UID, 11056);
end

if (EVENT == 3104) then
    SaveEvent(UID, 11058);
end

if(EVENT == 3105) then
    ITEMA = HowmuchItem(UID, 508103000) 
    if(ITEMA < 5) then
        SelectMsg(UID, 2, 518, 20004, NPC, 18, 3106);
    else
        SelectMsg(UID, 5, 518, 20004, NPC, 22, 3108,23,-1);
    end
end

if (EVENT == 3106 ) then
    ShowMap(UID, 624)
end

if (EVENT == 3108 ) then
    QuestStatusCheck = GetQuestStatus(UID, 518)
        if(QuestStatusCheck == 2) then
            SelectMsg(UID, 2, -1, 187, NPC, 10, -1);
        else
    ITEMA = HowmuchItem(UID, 508103000) 
        if(ITEMA < 5) then
            SelectMsg(UID, 2, 518, 20004, NPC, 18, 3106);
        else
            --RunQuestExchange(UID,3005,STEP,1);
            SaveEvent(UID, 11057);
            SaveEvent(UID, 11068);
        end
    end
end

if (EVENT == 3201) then
    SelectMsg(UID, 4, 786, 22998, NPC, 22, 3202, 27, -1);
end

if (EVENT == 3202) then
    SaveEvent(UID, 13789);
end

if (EVENT == 3206) then
    SaveEvent(UID, 13791);
end

if(EVENT == 3205) then
    ITEMA = HowmuchItem(UID, 900323000) 
    if(ITEMA < 1) then
        SelectMsg(UID, 2, 786, 22998, NPC, 18,-1);
    else
        SelectMsg(UID, 4, 786, 22998, NPC, 22, 3207,23,-1);
    end
end

if (EVENT == 3207 ) then
    QuestStatusCheck = GetQuestStatus(UID, 786)
        if(QuestStatusCheck == 2) then
            SelectMsg(UID, 2, -1, 187, NPC, 10, -1);
        else
    ITEMA = HowmuchItem(UID, 900323000) 
        if(ITEMA < 1) then
            SelectMsg(UID, 2, 786, 22998, NPC, 18,-1);
        else
            SelectMsg(UID, 2, 786, 23149, NPC, 10,3208,4005,-1);
            --RunQuestExchange(UID,3234);
            SaveEvent(UID, 13790);
            SaveEvent(UID, 13801);
        end
    end
end

if (EVENT == 3208 ) then
    MonsterStoneQuestJoin(UID,787);
end

if (EVENT == 3301) then
    SelectMsg(UID, 4, 787, 23000, NPC, 22, 3302, 27, -1);
end

if (EVENT == 3302) then
    SaveEvent(UID, 13801);
end

if (EVENT == 3306) then
    SaveEvent(UID, 13803);
end

if (EVENT == 3305)then
    ITEM1_COUNT = HowmuchItem(UID, 900326000);
    ITEM2_COUNT = HowmuchItem(UID, 900325000);   
        if (ITEM1_COUNT < 4 and ITEM2_COUNT < 1) then
            SelectMsg(UID, 2, 787, 23149, NPC, 10,3208,4005,-1);
        else
            SelectMsg(UID, 4, 787, 23000, NPC, 22, 3308, 27, -1);
    end
end

if (EVENT == 3308)then
    ITEM1_COUNT = HowmuchItem(UID, 900326000);
    ITEM2_COUNT = HowmuchItem(UID, 900325000);   
        if (ITEM1_COUNT < 4 and ITEM2_COUNT < 1) then
            SelectMsg(UID, 2, 787, 23149, NPC, 10,3208,4005,-1);
        else
            SelectMsg(UID, 2, -1, 23146, NPC, 10,-1);
            --RunQuestExchange(UID,3235);
            SaveEvent(UID,13802);
            SaveEvent(UID,13813);
    end
end

Örnek 70 için görsel ekledim seçme ekranını TEST yazısı altındaki

2.jpg
 

Ekli dosyalar

  • 1.jpg
    1.jpg
    295.1 KB · Görüntüleme: 55
  • 3.jpg
    3.jpg
    295.2 KB · Görüntüleme: 54
  • 4.jpg
    4.jpg
    310.9 KB · Görüntüleme: 79
  • 5.jpg
    5.jpg
    282.1 KB · Görüntüleme: 52
Çözüm
ALee
Sorunu çözdüm kod bu altdaki kullanmak isteyenlerin işine yarayabilir.


PHP: 
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
if (EVENT == 828) then   -- ROGUE 70 SKILL AÇMA - 5 SPELL İSTİYOR
    ITEM_COUNT1 = HowmuchItem(UID, 810369000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 > 0 and ITEM_COUNT3 > 0) then
            SelectMsg(UID, 4, 335, 3233, NPC, 41, 830, 27, -1);
        else
        if (ITEM_COUNT1 < 5) then
                SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
        elseif (ITEM_COUNT3 < 0) then
                SelectMsg(UID, 2, 335, 3230, NPC, 18, 831);
        end
    end...
Tarihe göre sırala Oylara göre sırala
V

Valendros

KY Kıdemli Üye
KAYIT
23 Kas 2021
Mesajlar
194
Tepki puanı
9
Event 828 Özelinde anlatıyorum gerisini kendin yapabilirsin .
1- Hata nerede başlıyor .
Hata şurada başlıyor. HowMuchItem sorgusunda istediği itemler Spell değil . Nostrum Of Speed , Stamp of Dexterity ve 900000000 kodu da Oyundaki Coin Kodu:
2- Hatanın Devami . Npc UI'nda yani Görevi görüntülerken sana gösterilen itemleri de değiştirmen gerekecek
3- Kodunda Bozukluk Mevcut . Sen bu söylediğim itemleri ve coin miktarını üzerine alıp görevi teslim ettiğinde. Skilleri açacak ama üzerindeki görev itemlerini çekmeyecek . Kodun devamına üzerinden itemleri çekmesi için RobItem komudunu da eklemen lazım .

Dediklerimi yaparsan sorunsuz hale gelecektir.
 
Oyla 0 Downvote
ALee

ALee

KY Saygın Üye
Coder
Yardımsever
KAYIT
9 Eyl 2022
Mesajlar
222
Çözümler
4
Tepki puanı
2,491
Valendros' Alıntı:
Event 828 Özelinde anlatıyorum gerisini kendin yapabilirsin .
1- Hata nerede başlıyor .
Hata şurada başlıyor. HowMuchItem sorgusunda istediği itemler Spell değil . Nostrum Of Speed , Stamp of Dexterity ve 900000000 kodu da Oyundaki Coin Kodu:
2- Hatanın Devami . Npc UI'nda yani Görevi görüntülerken sana gösterilen itemleri de değiştirmen gerekecek
3- Kodunda Bozukluk Mevcut . Sen bu söylediğim itemleri ve coin miktarını üzerine alıp görevi teslim ettiğinde. Skilleri açacak ama üzerindeki görev itemlerini çekmeyecek . Kodun devamına üzerinden itemleri çekmesi için RobItem komudunu da eklemen lazım .

Dediklerimi yaparsan sorunsuz hale gelecektir.
Genişletmek için tıkla ...
teşekkürler hocam cevap için Buraya eklediğim 14202_Clarence.lua sağdan soldan bulup ekledim düzgün bir 14202_Clarence.lua dosya değil

spell stone ekli bir Clarence.lua bu işi çözer anladığım kadar. spell koduda : 810369000 bu dosya içeriğinde mevcut değil mantığı anladım altaki kod yapıyla bizim teslim ettiğimiz item farklı. ozman önce ben daha düzgün bir Clarence.lua dosyası bulayım onun üzerinden yola çıkayım.

orjin Uskoda bu görevler spell stone olarak diye hatırlıyorum.



if (EVENT == 828) then
ITEM_COUNT1 = HowmuchItem(UID, 379245000);
ITEM_COUNT2 = HowmuchItem(UID, 379246000);
ITEM_COUNT3 = HowmuchItem(UID, 900000000);
if (ITEM_COUNT1 > 0 and ITEM_COUNT2 > 0 and ITEM_COUNT3 > 6999999) then
SelectMsg(UID, 4, 335, 3233, NPC, 41, 830, 27, -1);
else
if (ITEM_COUNT1 < 1 or ITEM_COUNT2 < 1) then
SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
elseif (ITEM_COUNT3 < 7000000) then
SelectMsg(UID, 2, 335, 3230, NPC, 18, 831);
end
end
end
 
Oyla 0 Downvote
V

Valendros

KY Kıdemli Üye
KAYIT
23 Kas 2021
Mesajlar
194
Tepki puanı
9
Bak şimdi ben sana örnek bi kod hazırladım
Senin HowMuchItem isterine 7 adet spell stone ve Silver Bar ekledim .
Kodda diyor ki item1 ve item 2 yi kontrol et . Eğer item1 ve item2 istenilen kadar üzerinde yoksa hata ver diyor .
devamında eğer item isterleri gerekliliği karşılıyorsa itemleri üzerinden al 70 skilini teslim et diyorç

if (EVENT == 828) then
ITEM_COUNT1 = HowmuchItem(UID, 810369000);
ITEM_COUNT2 = HowmuchItem(UID, 379067000);

if (ITEM_COUNT1 > 7 and ITEM_COUNT2 > 1 ) then
SelectMsg(UID, 4, 335, 3233, NPC, 41, 830, 27, -1);
else
SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
end
end

if (EVENT == 829) then
ShowMap(UID, 307);
end

if (EVENT == 831) then
ShowMap(UID, 336);
end


if (EVENT == 830) then
ITEM_COUNT1 = HowmuchItem(UID, 810369000);
ITEM_COUNT2 = HowmuchItem(UID, 379067000);
if (ITEM_COUNT1 < 7 and ITEMCOUNT2 < 1 ) then
SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
else
RobItem(UID, 810369000, 7);
RobItem(UID, 379067000, 1);

RunQuestExchange(UID, 330);
SaveEvent(UID, 3424);
--Skill Açma Komutu--
end
end
 
Oyla 0 Downvote
ALee

ALee

KY Saygın Üye
Coder
Yardımsever
KAYIT
9 Eyl 2022
Mesajlar
222
Çözümler
4
Tepki puanı
2,491
Sorunu çözdüm kod bu altdaki kullanmak isteyenlerin işine yarayabilir.


PHP: 
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
if (EVENT == 828) then   -- ROGUE 70 SKILL AÇMA - 5 SPELL İSTİYOR
    ITEM_COUNT1 = HowmuchItem(UID, 810369000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
        if (ITEM_COUNT1 > 0 and ITEM_COUNT3 > 0) then
            SelectMsg(UID, 4, 335, 3233, NPC, 41, 830, 27, -1);
        else
        if (ITEM_COUNT1 < 5) then
                SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
        elseif (ITEM_COUNT3 < 0) then
                SelectMsg(UID, 2, 335, 3230, NPC, 18, 831);
        end
    end
end

if (EVENT == 829) then
    ShowMap(UID, 306);
end

if (EVENT == 831) then
    ShowMap(UID, 336);
end

if (EVENT == 830) then
            RunQuestExchange(UID, 330);
            SaveEvent(UID, 3424);
            --Skill Açma Komutu--
    end
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------

if (EVENT == 923) then
    Class = CheckClass (UID);
    if (Class == 6 or Class == 8 or Class == 10 or Class == 12) then
        SelectMsg(UID, 2, 347, 5125, NPC, 10, 924);
    else
        SelectMsg(UID, 2, 347, 5124, NPC, 10, -1);
    end
end

if (EVENT == 924) then
    SelectMsg(UID, 4, 347, 5126, NPC, 22, 925, 23, -1);
end

if (EVENT == 925) then
    SaveEvent(UID, 5126);
    SelectMsg(UID, 2, 347, 5127, NPC, 10, -1);
end

if (EVENT == 926) then
    SaveEvent(UID, 5128);
    SelectMsg(UID, 2, 347, 5131, NPC, 32, -1);
end
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
if (EVENT == 928) then     -- ROGUE 72 SKILL AÇMA - 7 SPELL İSTİYOR
    ITEM_COUNT1 = HowmuchItem(UID, 810369000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
    if (ITEM_COUNT1 > 0 and ITEM_COUNT3 > 0) then
        SelectMsg(UID, 4, 347, 5132, NPC, 41, 930, 27, -1);
    else
        if (ITEM_COUNT1 < 7) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 929);
        elseif (ITEM_COUNT3 < 0) then
            SelectMsg(UID, 2, 347, 5129, NPC, 18, 933);
        end
    end
end

if (EVENT == 929) then
    ShowMap(UID, 306);
end

if (EVENT == 932) then
    ShowMap(UID, 18);
end

if (EVENT == 933) then
    ShowMap(UID, 336);
end

if (EVENT == 930) then

            RunQuestExchange(UID, 522);
            SaveEvent(UID, 5127);
            --Skill Açma Komutu--
    end
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------

if (EVENT == 1023) then
    Class = CheckClass (UID);
    if (Class == 6 or Class == 8 or Class == 10 or Class == 12) then
        SelectMsg(UID, 2, 360, 5136, NPC, 10, 1024);
    else
        SelectMsg(UID, 2, 360, 5135, NPC, 10, -1);
    end
end

if (EVENT == 1024) then
    SelectMsg(UID, 4, 360, 5137, NPC, 22, 1025, 23, -1);
end

if (EVENT == 1025) then
    SaveEvent(UID, 5138);
    SelectMsg(UID, 2, 360, 5138, NPC, 10, -1);
end

if (EVENT == 1026) then
    SaveEvent(UID, 5140);
    SelectMsg(UID, 2, 360, 5142, NPC, 32, -1);
end
-------------------------------------------------------------------------------
-------------------------------------------------------------------------------
if (EVENT == 1028) then     -- ROGUE 75 SKILL AÇMA - 10 SPELL İSTİYOR
    ITEM_COUNT1 = HowmuchItem(UID, 810369000);
    ITEM_COUNT3 = HowmuchItem(UID, 900000000);
    if (ITEM_COUNT1 > 0 and ITEM_COUNT3 > 0) then
        SelectMsg(UID, 4, 360, 5143, NPC, 41, 1030, 27, -1);
    else
        if (ITEM_COUNT1 < 10) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1029);
        elseif (ITEM_COUNT3 < 0) then
            SelectMsg(UID, 2, 360, 5140, NPC, 18, 1033);
        end
    end
end

if (EVENT == 1029) then
    ShowMap(UID, 306);
end

if (EVENT == 1032) then
    ShowMap(UID, 18);
end

if (EVENT == 1033) then
    ShowMap(UID, 336);
end

if (EVENT == 1030) then
            RunQuestExchange(UID, 523);
            SaveEvent(UID, 5139);
            --Skill Açma Komutu--
    end
------------------------------------------------------------
 
Oyla 0 Downvote
Çözüm
ALee

ALee

KY Saygın Üye
Coder
Yardımsever
KAYIT
9 Eyl 2022
Mesajlar
222
Çözümler
4
Tepki puanı
2,491
Valendros' Alıntı:
Bak şimdi ben sana örnek bi kod hazırladım
Senin HowMuchItem isterine 7 adet spell stone ve Silver Bar ekledim .
Kodda diyor ki item1 ve item 2 yi kontrol et . Eğer item1 ve item2 istenilen kadar üzerinde yoksa hata ver diyor .
devamında eğer item isterleri gerekliliği karşılıyorsa itemleri üzerinden al 70 skilini teslim et diyorç

if (EVENT == 828) then
ITEM_COUNT1 = HowmuchItem(UID, 810369000);
ITEM_COUNT2 = HowmuchItem(UID, 379067000);

if (ITEM_COUNT1 > 7 and ITEM_COUNT2 > 1 ) then
SelectMsg(UID, 4, 335, 3233, NPC, 41, 830, 27, -1);
else
SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
end
end

if (EVENT == 829) then
ShowMap(UID, 307);
end

if (EVENT == 831) then
ShowMap(UID, 336);
end


if (EVENT == 830) then
ITEM_COUNT1 = HowmuchItem(UID, 810369000);
ITEM_COUNT2 = HowmuchItem(UID, 379067000);
if (ITEM_COUNT1 < 7 and ITEMCOUNT2 < 1 ) then
SelectMsg(UID, 2, 335, 3230, NPC, 18, 829);
else
RobItem(UID, 810369000, 7);
RobItem(UID, 379067000, 1);

RunQuestExchange(UID, 330);
SaveEvent(UID, 3424);
--Skill Açma Komutu--
end
end
Genişletmek için tıkla ...
teşekkürler hocam cevaplar için doğru Clarence.lua kullandım sorun giderildi ilgine de teşekkürler.
 
Oyla 0 Downvote
Cevap yazmak için giriş yap yada kayıt ol.
Anasayfa Kayıt ol Giriş yap
Üst Alt