ÇÖZÜLDÜ master ve master kağıdı görevi

local NPC = 14201;

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

if (EVENT == 532) then
    Level = CheckLevel(UID)
    if (Level > 59) then
        Class = CheckClass (UID);
        if (Class == 5 or Class == 7 or Class == 9 or Class == 11) then
            SelectMsg(UID, 4, 273, 4084, NPC, 22, 533, 23, -1);
        else
            SaveEvent(UID, 4089);
            SelectMsg(UID, 2, 273, 4083, NPC, 10, -1);
        end
    else
        SelectMsg(UID, 2, 273, 4082, NPC, 10, -1);
    end
end

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

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

if (EVENT == 536) then
    ITEM_COUNTA = HowmuchItem(UID, 810095000);
    ITEM_COUNTB = HowmuchItem(UID, 810090000);
    ITEM_COUNTC = HowmuchItem(UID, 810094000);
    if (ITEM_COUNTA > 0 and ITEM_COUNTB > 0 and ITEM_COUNTC > 0) then
        SelectMsg(UID, 4, 273, 4091, NPC, 4062, 537, 4063, -1);
    else
        if (ITEM_COUNTA < 1) then
            SelectMsg(UID, 2, 273, 4085, NPC, 18, 538);
        if (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 273, 4085, NPC, 18, 539);
        if (ITEM_COUNTC < 1) then
            SelectMsg(UID, 2, 273, 4085, NPC, 18, 540);
        end
    end
end

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

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

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

if (EVENT == 537) then
    ITEM_COUNTA = HowmuchItem(UID, 810095000);
    ITEM_COUNTB = HowmuchItem(UID, 810090000);
    ITEM_COUNTC = HowmuchItem(UID, 810094000);
        if (ITEM_COUNTA < 1) then
            SelectMsg(UID, 2, 273, 4085, NPC, 18, 538);
        if (ITEM_COUNTB < 1) then
            SelectMsg(UID, 2, 273, 4085, NPC, 18, 539);
        if (ITEM_COUNTC < 1) then
            SelectMsg(UID, 2, 273, 4085, NPC, 18, 540);
        else
            RunQuestExchange(UID,461);
            SaveEvent(UID, 4089);
            PromoteUser(UID);
            SelectMsg(UID, 2, 273, 4093, NPC, 4064, -1);
    end
end