Script Đổi Quà bằng Cá

[Sadlove123]

- Hàng lâu năm nhưng có lẽ vẫn còn hữu dụng #7

--NPC doi qua bang cá 
--Edit By Sadlove123 - 29/11/2019


--**********************************
--ʼ₫½»»¥Èë¿Ú
--**********************************
function x000159_OnDefaultEvent( sceneId, selfId,targetId )
	local temp = random(10)
	local msgStr = format( "  #GBƠn mu¯n thØ tài v§n may ? Hăy đem 15 con thäo ngß đ¬ có th¬ tham gia sñ ki®n này. Nhæng viên bäo thƠch c¤p 5 vô cùng giá tr¸ đang ch¶ các bƠn.")
	BeginEvent(sceneId)
		AddText(sceneId,msgStr)
		AddNumText( sceneId, x000160_g_ScriptId, "Có ! Tôi có mang theo 15 con Thäo Ngß", 10, 1 )
		AddNumText( sceneId, x000160_g_ScriptId, "Không ! Tôi chßa đü s¯ cá này", 10, 2 )
	EndEvent(sceneId)
	DispatchEventList(sceneId,selfId,targetId)
end
--**********************************
--ʼ₫ÁбíÑ¡ÖĐ̉»Ïî
--**********************************
function x000159_OnEventRequest( sceneId, selfId, targetId, eventId)
	if GetNumText() == 1 then
		if LuaFnGetPropertyBagSpace( sceneId, selfId ) < 1 then
			x000159_NotifyFailTips( sceneId, selfId, "Tay näy đă đ¥y" )
			x000159_NotifyFailBox( sceneId, selfId, targetId, "  Tay näi đă đ¥y" )
			return
		end
		local number = LuaFnGetAvailableItemCount(sceneId, selfId, 20102001)
		if number<1 then
			x000159_NotifyFailBox( sceneId, selfId, targetId, " BƠn không có Thäo Ngß hăy h÷c ngh« câu cá và t¾i Kiªm Các, Vô Lß₫ng S½n, Thái H°... thu th§p đü 15 con Thäo Ngß r°i hăy t́m ta." )
			return
		else
			local reply = LuaFnDelAvailableItem(sceneId,selfId,20102001,15)
			if reply > 0 then
				local temp = random(60)
			local equipID
			if temp==1 then
				equipID=50514001
			elseif temp==2 then
				equipID=50513006
			elseif temp==3 then
				equipID=20102001
			elseif temp==4 then
				equipID=50513005
			elseif temp==5 then
				equipID=50513005
			elseif temp==6 then
				equipID=50513004
			elseif temp==7 then
				equipID=50513004
			elseif temp==8 then
				equipID=50513003
			elseif temp==9 then
				equipID=50513003
			elseif temp==10 then
				equipID=50513003
			elseif temp==11 then
				equipID=50513002
			elseif temp==12 then
				equipID=50513002
			elseif temp==13 then
				equipID=50513001
			elseif temp==14 then
				equipID=50513001
			elseif temp==15 then
				equipID=50512008
			elseif temp==16 then
				equipID=50512008
			elseif temp==17 then
				equipID=50512007
			elseif temp==18 then
				equipID=50512007
			elseif temp==19 then
				equipID=50512006
			elseif temp==20 then
				equipID=50512006
			elseif temp==21 then
				equipID=50512005
			elseif temp==22 then
				equipID=50501001
			elseif temp==23 then
				equipID=50512004
			elseif temp==24 then
				equipID=50512004
			elseif temp==25 then
				equipID=50512003
			elseif temp==26 then
				equipID=50512003
			elseif temp==27 then
				equipID=50512002
			elseif temp==28 then
				equipID=50501001
			elseif temp==29 then
				equipID=50512002
			elseif temp==30 then
				equipID=50512001
			elseif temp==31 then
				equipID=50512001
			elseif temp==32 then
				equipID=50512001
			elseif temp==33 then
				equipID=50511002
			elseif temp==34 then
				equipID=50511001
			elseif temp==35 then
				equipID=50504002
			elseif temp==36 then
				equipID=50503001
			elseif temp==37 then
				equipID=50502008
			elseif temp==38 then
				equipID=50502007
			elseif temp==39 then
				equipID=50502006
			elseif temp==40 then
				equipID=50502005
			elseif temp==41 then
				equipID=50502004
			elseif temp==42 then
				equipID=50502003
			elseif temp==43 then
				equipID=50502002
			elseif temp==44 then
				equipID=50502001
			elseif temp==45 then
				equipID=50501002
			else
				equipID=0
			end
			local str = "  #YXin chúc m×ng bƠn đă đƠt 1 #W"..GetItemName( sceneId, equipID ).."£¡"
			if equipID~=0 then
				if TryRecieveItem( sceneId, selfId, equipID, 1 ) >= 0 then
					x000159_NotifyFailTips( sceneId, selfId, str )
					x000159_NotifyFailBox( sceneId, selfId, targetId, str )
				end
			else
				local str = "  Hôm nay bƠn không may m¡n."
				x000159_NotifyFailTips( sceneId, selfId, str )
				x000159_NotifyFailBox( sceneId, selfId, targetId, str )
			end
			else
				x000159_NotifyFailBox( sceneId, selfId, targetId, "Thao tác sai, không thñc hi®n trao đ±i." )
			end
		end
	elseif GetNumText() == 2 then
		BeginUICommand( sceneId )
			UICommand_AddInt( sceneId, targetId )
			EndUICommand( sceneId )
		DispatchUICommand( sceneId, selfId, 1000 )
		return		
	end
end
--**********************************
-- ¶Ô»°´°¿ÚĐÅÏ¢̀áʾ
--**********************************
function x000159_NotifyFailBox( sceneId, selfId, targetId, msg )
	BeginEvent( sceneId )
		AddText( sceneId, msg )
	EndEvent( sceneId )
	DispatchEventList( sceneId, selfId, targetId )
end

--**********************************
-- ÆÁÄ»ÖĐ¼äĐÅÏ¢̀áʾ
--**********************************
function x000159_NotifyFailTips( sceneId, selfId, Tip )
	BeginEvent( sceneId )
		AddText( sceneId, Tip )
	EndEvent( sceneId )
	DispatchMissionTips( sceneId, selfId )
end

[dvphong09]

Thanks chủ top, tlbb kỷ niệm khó phai