--Created by Melanor-- %100 Usko Style local Ret = 0; local NPC = 18004; if (EVENT == 100) then QuestStatus = GetQuestStatus(UID, 71) if(QuestStatus == 1) then EVENT = 403 else QuestNum = SearchQuest(UID, NPC); if (QuestNum == 0) then SelectMsg(UID, 2, -1, 147, NPC, 10, -1); elseif (QuestNum > 1 and QuestNum NpcMsg(UID, 147, NPC) else EVENT = QuestNum end end end if (EVENT == 403) then ITEM_COUNT = HowmuchItem(UID, 900000000); if (ITEM_COUNT SelectMsg(UID, 2, 71, 4065, NPC, 10, -1); else SelectMsg(UID, 2, 71, 4064, NPC, 4062, 404,4063,-1); SaveEvent(UID, 4062); end end if (EVENT == 0) then SaveEvent(UID, 4064); end if (EVENT == 404) then PromoteUserNovice(UID) GoldLose(UID, 3000) SaveEvent(UID, 4063); end if (EVENT == 1000) then ShowMap(UID, 450); SelectMsg(UID, 8, -1, -1, NPC); end if (EVENT == 105) then QuestNum = SearchQuest(UID, NPC); if (QuestNum == 0) then SelectMsg(UID, 2, -1, 8256, NPC, 10, 158); elseif (QuestNum > 1 and QuestNum NpcMsg(UID, 147, NPC) else EVENT = QuestNum end end if (EVENT == 407) then SelectMsg(UID, 2, -1, 4070, NPC, 4070, 408,10,-1); end if (EVENT == 408) then SendStatSkillDistribute(UID) end if (EVENT == 10000) then SelectMsg(UID, 2, 73, 1549, NPC, 10); end if (EVENT == 410) then SelectMsg(UID, 2, -1, 1522, NPC, 7014, 411,73,-1); end if (EVENT == 411) then SelectMsg(UID, 2, -1, 1533, NPC, 10, 412); end if (EVENT == 412) then SelectMsg(UID, 2, -1, 1534, NPC, 3000, 413,3005,-1); end if (EVENT == 413) then NTS = HowmuchItem(UID, 800360000); if NTS >= 1 then RobItem(UID, 800360000, 1) GiveItem(UID, 810096000, 1,1) else SelectMsg(UID, 2, -1, 1532, NPC,18,5000); end end if (EVENT == 699) then NTS2 = HowmuchItem(UID, 810096000); if NTS2 > 0 then SelectMsg(UID, 2, -1, 1524, NPC, 72, 700,73,-1); else SelectMsg(UID, 2, -1, 1523, NPC,18,5000); end end if (EVENT == 5000) then ShowMap(UID, 450); end if (EVENT == 700) then Check = isClanLeader(UID) CLANA = isInClan(UID); if (Check) then SelectMsg(UID, 2, -1, 1546, NPC,4080,-1); else if (CLANA) then SelectMsg(UID, 2, -1, 10953, NPC,4080,-1); else NationChange(UID) end end end if (EVENT == 302) then SelectMsg(UID, 2, 1208, 43642, NPC, 40148, 303); end if (EVENT == 303) then MonsterSub = ExistMonsterQuestSub(UID); if (MonsterSub == 0) then SelectMsg(UID, 4, 1208, 43643, NPC, 22, 304, 23, -1); else SelectMsg(UID, 2, 1208, 43643, NPC, 10, 168); end end if (EVENT == 304) then SaveEvent(UID, 7357) end if(EVENT == 305) then CountA = HowmuchItem(UID, 810418000) if( CountA SelectMsg(UID, 2, 1208, 43643, NPC, 18, 306); else SelectMsg(UID, 4, 1208, 43643, NPC, 41, 308, 27, -1); end end if (EVENT == 306 ) then ShowMap(UID, 2) end if (EVENT == 307) then SaveEvent(UID, 7359) end if(EVENT == 308) then SLOTKONTROL = CheckGiveSlot(UID, 3) if SLOTKONTROL == false then SelectMsg(UID,2,-1,8898,NPC,10) else RunExchange(UID, 6005); SaveEvent(UID, 7358) end end if (EVENT == 1201) then SelectMsg(UID, 4, 661, 21302, NPC, 22, 1202, 23, -1); end if (EVENT == 1202) then SaveEvent(UID, 12733); end if (EVENT == 1206) then SaveEvent(UID, 12735); end if (EVENT == 1205) then ITEM1_COUNT = HowmuchItem(UID, 900194000); if (ITEM1_COUNT SelectMsg(UID, 2, 661, 21302, NPC, 18,-1); else SelectMsg(UID, 4, 661, 21302, NPC, 22, 1207, 27, -1); end end if (EVENT == 1207) then SLOTKONTROL = CheckGiveSlot(UID, 3) if SLOTKONTROL == false then SelectMsg(UID,2,-1,8898,NPC,10) else SelectMsg(UID, 2, 661, 21851, NPC, 10,-1); SaveEvent(UID,12734) SaveEvent(UID,12745) RunExchange(UID,3146) end end if (EVENT == 200) then CLANCONT = HowmuchItem(UID, 810323000); if (CLANCONT SelectMsg(UID, 2, -1, 11644, NPC, 18,5000); else SelectMsg(UID, 2, -1, 11644, NPC, 7014, 201, 73, -1); end end if (EVENT == 201) then SelectMsg(UID, 2, -1, 11644, NPC, 3000, 202, 73, -1); end if (EVENT == 202) then SLOTKONTROL = CheckGiveSlot(UID, 1) if SLOTKONTROL == false then SelectMsg(UID,2,-1,8898,NPC,10) else RobItem(UID, 810323000, 1) GiveItem(UID, 810324000, 1,1) end end
