Maden Mysterious Ore ve Mysterious Gold Ore kırdırınca çıkan itemleri ayarlama YARDIM!!

Kayıtlı Üye
Katılım
14 Nisan 2012
Mesajlar
785
Arkadaşlar merhaba bi sorunum daha var yardımcı olursanız sevinirim.



Şimdi madende drop olarak mysterious ore alıyorum bunu [pitman] kurushack de kırdırdığım zaman bana gold coin , fragment of gluttuny , fragment of rage bu 3 itemi atıyor ben bunları değiştirmek istiyorum.



Bu Mysterious exchangesini database üzerinden mi ayarlıyoruz yoksa Lua danmı ayarlıyoruz alta lua kodlarımı da yazıyorum.Bu luayı da daha yeni kullanmaya başladım kullanmadan önce eski luada mysterious ore kırdırdığım zaman sadece talia armor atıyordu .






31511_Pitman.Lua



Kod:
local UserClass;

local Ret = 0;

local NPC = 31511;

local RUN_EXCHANGE;



if (EVENT == 100) then

	SelectMsg(UID, 3, -1, 9170, NPC, 2017, 400, 7345, 160, 2020, 201);

end



if (EVENT == 400) then

Mattock = HowmuchItem(UID, 389132000);

Check = isRoomForItem(UID, 389132000);

if (Mattock == 0) then

	if (Check == -1) then

		SelectMsg(UID, 2, -1, 832, NPC, 27, 241);

	else

		GiveItem(UID, 389132000, 1)

	end

else	

	SelectMsg(UID, 2, -1, 9172, NPC, 22, 150, 23, 241);

end

end



if (EVENT == 150) then

	ITEMA = HowmuchItem(UID, 900000000);

	Check = isRoomForItem(UID, 389132000);

	if (ITEMA < 1000000) then

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

	else

		if (Check == -1) then

			SelectMsg(UID, 2, -1, 832, NPC, 27, 241);

		else

			GoldLose(UID, 1000000)

			GiveItem(UID, 389132000, 1)

		end

	end

end



if (EVENT == 1000) then

	ShowMap(UID, 336);

end



if (EVENT == 160) then

	SelectMsg(UID, 2, -1, 9169, NPC, 10, 241);

end



if (EVENT == 201) then

	ORE = HowmuchItem(UID, 399210000);

	GOLDORE = HowmuchItem(UID, 399210000);

	if (ORE < 1 and GOLDORE < 1) then

		SelectMsg(UID, 2, -1, 9179, NPC, 10, 241);

	elseif (ORE > 1) then

		SelectMsg(UID, 2, -1, 9171, NPC, 7253, 202);

	elseif (GOLDORE > 1) then

		SelectMsg(UID, 2, -1, 9171, NPC, 7254, 203);

	elseif (ORE > 0 and GOLDORE > 0) then

		SelectMsg(UID, 2, -1, 9171, NPC, 7253, 202, 7254, 203);

	end

end



local Roll = 0;

local found;



if (EVENT == 202) then

	RunExchange(UID, 31511104) -- Mysterious Ore Item Exchange

	Check = CheckExchange(UID, 31511108)

   if  Check == true then   

   Roll = RollDice(UID, 31511105) 

   found = Roll + 45

   RunExchange(UID, found);		 

   else

   Ret = 1; 

   end  

end

if (EVENT == 203) then

	RunExchange(UID, 31511109) -- Mysterious Gold Ore Item Exchange

		Check = CheckExchange(UID, 31511109)

   if  Check == true then   

   Roll = RollDice(UID, 31511109) 

   found = Roll + 45

   RunExchange(UID, found);		 

   else

   Ret = 1; 

   end  

end



if (EVENT == 241) then

	Ret = 1;

end
 
Kayıtlı Üye
Katılım
14 Nisan 2012
Mesajlar
785
Cevap: Maden Mysterious Ore ve Mysterious Gold Ore kırdırınca çıkan itemleri ayarlama YARDIM!!



Güncel Sorun Devam Ediyor arkadaşlar.
 
Üst Alt
Reklam
Reklam