if EVENT == 2500 then
DRAKI = HowmuchItem(UID, 810596000);
OLDDRAKI = HowmuchItem(UID, 810678000);
if(DRAKI > 0 and OLDDRAKI > 0) then
SelectMsg(UID, 3, -1, 4035, NPC, 40501, 2501, 40502, 2503);
elseif(DRAKI > 0) then
EVENT = 2501
elseif(OLDDRAKI > 0) then
EVENT = 2503
else
SelectMsg(UID, 2, -1, 44410, NPC, 10, -1);
end
end
if EVENT == 2501 then
DRAKI = HowmuchItem(UID, 810596000);
if(DRAKI > 0) then
SelectMsg(UID, 4, 1553, 44412, NPC, 4006, 2502, 27, -1);
else
SelectMsg(UID, 2, -1, 44410, NPC, 10, -1);
end
end
if EVENT == 2502 then
DRAKI = HowmuchItem(UID, 810596000);
SlotCheck = CheckGiveSlot(UID, 1)
if SlotCheck == false then
elseif (DRAKI < 1) then
SelectMsg(UID, 2, -1, 44412, NPC, 10, -1);
else
Roll = RollDice(UID, 25)
found = Roll + 6501
RunQuestExchange(UID, found);
end
end
if EVENT == 2503 then
OLDDRAKI = HowmuchItem(UID, 810678000);
if(OLDDRAKI > 0) then
SelectMsg(UID, 4, 6531, 44412, NPC, 4006, 2504, 27, -1);
else
SelectMsg(UID, 2, -1, 44410, NPC, 10, -1);
end
end
if EVENT == 2504 then
OLDDRAKI = HowmuchItem(UID, 810678000);
SlotCheck = CheckGiveSlot(UID, 1)
if SlotCheck == false then
elseif (OLDDRAKI < 1) then
SelectMsg(UID, 2, -1, 44410, NPC, 10, -1);
else
Roll = RollDice(UID, 37)
found = Roll + 6531
RunQuestExchange(UID, found);
end
end