v1975 Kaisan.lua Error

~~xreal12x~~ · Şubat 25, 2018

-- mesaja ek olarak --
https://prnt.sc/ijdutk

~~DaTaTrx~~ · Şubat 25, 2018

kaisan.lua table copy please

~~xreal12x~~ · Şubat 25, 2018

--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

OzkanOzdemir · Şubat 25, 2018

Check your source in GetQuestStatus lua function.

KODevelopers · Şubat 26, 2018

@ xreal12x hello Skype add [email protected]
-- mesaja ek olarak --
@ xreal12x Hi.
kaisan.lua


local Ret = 0;

local NPC = 18004;

local savenum = -1;


if (EVENT == 101) then

	Ret = 1;

end


if (EVENT == 100) then   

	Level = CheckLevel(UID)

	if (Level > 9) then 

		Class = CheckClass(UID);

		if (Class == 1 or Class == 2 or Class == 3 or Class == 4) then

			ITEM_COUNT = HowmuchItem(UID, 900000000);

			if (ITEM_COUNT 				SelectMsg(UID, 2, savenum, 4065, NPC, 10, 101);

			else

				SelectMsg(UID, 2, savenum, 4064, NPC, 4062, 404, 4063, 101);

			end

		else

			EVENT = 105

		end

	else

		SelectMsg(UID, 2, savenum, 4069, NPC, 10, 101);

	end

end


if (EVENT == 404) then

	SaveEvent(UID, 4063);

	PromoteUserNovice(UID)

	GoldLose(UID, 3000)

	NATION = CheckNation(UID);

	if (NATION == 1) then

		SelectMsg(UID, 2, savenum, 4066, NPC, 4064, 101);

	else

		SelectMsg(UID, 2, savenum, 4067, NPC, 4064, 101);

	end

end


if (EVENT == 105) then

	SelectMsg(UID, 3, savenum, 147, NPC, 4070, 106, 7772, 107, 8639, 108, 8649, 300, 50130, 600);

end


if (EVENT == 600) then

	SendRepurchase(UID)

end


if (EVENT == 300) then

	JOBCHANGEITEM = HowmuchItem(UID, 900006000);

	if (JOBCHANGEITEM > 0) then

		Class = CheckClass(UID);

		if (Class == 1 or Class == 5 or Class == 6) then

			SelectMsg(UID, 3, -1, 44203, NPC, 8651, 302, 8652, 303, 8653, 304, 50129, 305);

		elseif (Class == 2 or Class == 7 or Class == 8) then

			SelectMsg(UID, 3, -1, 44203, NPC, 8650, 301, 8652, 303, 8653, 304, 50129, 305);

		elseif (Class == 3 or Class == 9 or Class == 10) then

			SelectMsg(UID, 3, -1, 44203, NPC, 8650, 301, 8651, 302, 8653, 304, 50129, 305);

		elseif (Class == 4 or Class == 11 or Class == 12) then

			SelectMsg(UID, 3, -1, 44203, NPC, 8650, 301, 8651, 302, 8652, 303, 50129, 305);

		elseif (Class == 13 or Class == 14 or Class == 15) then

			SelectMsg(UID, 3, -1, 44203, NPC, 8650, 301, 8651, 302, 8652, 303, 8653, 304);

		end

	else

		SelectMsg(UID, 2, -1, 44217, NPC, 18, 1000);

	end

end


if (EVENT == 301) then

	JobChange(UID,1);

end


if (EVENT == 302) then

	JobChange(UID,2);

end


if (EVENT == 303) then

	JobChange(UID,3);

end


if (EVENT == 304) then

	JobChange(UID,4);

end


if (EVENT == 305) then

	JobChange(UID,5);

end


if (EVENT == 107) then

	SendNationChange(UID)

end


if (EVENT == 1000) then

	ShowMap(UID, 450);

end


if (EVENT == 106) then

	SelectMsg(UID, 2, savenum, 4070, NPC, 4070, 408, 10, 101);

end


if (EVENT == 408) then

	SendStatSkillDistribute(UID)

end


if (EVENT == 108) then

	GENDERITEM = HowmuchItem(UID, 810594000);

	if (GENDERITEM > 0) then

		SelectMsg(UID, 53, -1, NPC);

	else

		SelectMsg(UID, 2, -1, 44217, NPC, 18, 1000);

	end

end

TheChucky · Şubat 28, 2018

I assume you got your problem sorted.

Giriş Yap

v1975 Kaisan.lua Error

Önerilen Mesajlar

xreal12x 5

İletiyi paylaş

Link to post

Sitelerde Paylaş

DaTaTrx 47

İletiyi paylaş

Link to post

Sitelerde Paylaş

xreal12x 5

İletiyi paylaş

Link to post

Sitelerde Paylaş

OzkanOzdemir 1.560

İletiyi paylaş

Link to post

Sitelerde Paylaş

KODevelopers 442

İletiyi paylaş

Link to post

Sitelerde Paylaş

TheChucky 22

İletiyi paylaş

Link to post

Sitelerde Paylaş

Ana Sayfa

Aktivite

Üye Mağazası