Cod: Selectaţi tot

---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###

quest pvp_90 begin	
	state start begin	
		when login or levelup with pc.get_level() >= 90 and pc.getqf("level") == 0 begin
			say("Felicitari!!")
			say("Ai atins in sfarsit nivelul 90.")
			say("Incepand de acum, parte PvP devine")
			say("mai interesanta..")
			say("Incepand de acum vei fi recompensat")
			say("pentru uciderea unui alt jucator:")
			say_reward("5% impotriva tuturor raselor")
			pc.setqf("level", 1)
		end
		when kill with npc.is_pc() begin
			if get_time() < pc.getqf("kill_time") then 
				chat("Inca nu a trecut un minut.")
				chat("Uciderea este invalida.")
				return
			end	
			chat("Ai primit un punct. Felicitari! ")
			chat("Un alt punct ptimesti intr-un minut.")
			chat("Momentan ai "..pc.getqf("kill_punkte").." puncte.")
			pc.setqf("kill_punkte", pc.getqf("kill_punkte")+1)
			pc.setqf("kill_time", get_time() + 60*1) 
			if pc.getqf("kill_punkte") == 500 then
				affect.add_collect(apply.ATT_BONUS_TO_WARRIOR ,5,60*60*24*365*60)
				affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN ,5,60*60*24*365*60)
				affect.add_collect(apply.ATT_BONUS_TO_SURA ,5,60*60*24*365*60)
				affect.add_collect(apply.ATT_BONUS_TO_SHAMAN ,5,60*60*24*365*60)
				say("Uimitor! Ai reusit sa ucizi 500 de jucatori!")
				say("Ca bonus primesti 5% impotriva tuturor raselor.")
			end
		end
	end
end  

Cod: Selectaţi tot

---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###

quest securitate_inv begin
   state start begin
      function GetPassword()
         cmdchat("getinputbegin")
         password = input(cmdchat("sistem_negot_verificare_nume"))
         cmdchat("getinputend")
         --chat("-cenzurat- mea "..password)
         return password
      end
      when login begin
            cmdchat("securitate_index "..q.getcurrentquestindex()) -- -cenzurat- Poate Merge
         --chat("Ai afisat Sistemul de Putere "..q.getcurrentquestindex())
         if file_exists() != true then
            cmdchat("securiate_cont")
         else
            cmdchat("activareinv")
         end
      end
      
      when button or info begin
         --chat("Ai afis123123")
         local password = securitate_inv.GetPassword()
         --chat("-cenzurat- mea "..password)
         --chat("-cenzurat- mea2 "..citire_parola())
         if tonumber(password) == tonumber(citire_parola()) then
            cmdchat("securiate_cont")
            --chat("Ai afis123123")
         end
        end
	end
end

Cod: Selectaţi tot

---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###
quest securitate_opt begin
	state start begin
		when login begin
			cmdchat("parola2_xxxxx " .. q . getcurrentquestindex ())
		end
		when button or info begin
            say_title("Securitate Inventar.") 
            say("Acesta este un sistem foarte bun") 
            say("care va protejaza de persoanele") 
            say("care intr-un fel sau altul va intra") 
            say("pe cont.Puteti sa setati parola la inventar") 
            say("pe care sa o cunoasteti decat Dumneavoastra.") 
			local s = select("Seteaza/Anuleaza parola.","Reseteaza parola.")
				if s == 1 then
					local p = select("Seteaza parola.","Anuleaza parola.")
						if p == 1 then
							if file_exists() != true then
								say("Setati parola.")
								local item_vnum = input()
								setare_parola(item_vnum)
								cmdchat("activareinv")
							else
								say("In cazul in care va uitati parola de la inventar")
								say("luati legatura cu un Administrator !")   
								end
						elseif p == 2 then
							if file_exists() != true then
								say("Nu puteti dezactiva parola")
							else
								say("Introduceti parola")
								local item_vnum = input()
								if tonumber(item_vnum) == tonumber(citire_parola()) then
									resetare_parola()
								else
									say("Parola este gresita!!")
								end
								end
								end
				elseif s == 2 then
					if file_exists() != true then
						say("Nu puteti reseta parola")
					else
						say("Introduceti parola veche")
						local item_vnum = input()
						if tonumber(item_vnum) == tonumber(citire_parola()) then
							say("introduceti parola noua")
							local item_vnum1 = input()
							resetare_parola()
							setare_parola(item_vnum1)
						else
							say("Parola este gresita!!") 
					end
				end
			end
		end
	end
end

Cod: Selectaţi tot

 ---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###

quest Cufar begin
   state start begin
        when ID CUFAR.use begin
		local s = select ("Recompensa I")
		local random_number = tostring(number(1,3))
		if random_number == tostring(1) then
			pc.give_item2 (ITEM ID)
		end
		if random_number == tostring(2) then
			pc.give_item2 (ITEM ID)	
		end
		if random_number == tostring(3) then
			pc.give_item2 (ITEM ID)	
		end
		end
        when ID CUFAR.use begin
		local s = select ("Recompensa II")
		local random_number = tostring(number(1,3))
		if random_number == tostring(1) then
			pc.give_item2 (ITEM ID)	
		end
		if random_number == tostring(2) then
			pc.give_item2 (ITEM ID)	
		end
		if random_number == tostring(3) then
			pc.give_item2 (ITEM ID)	
		end
		end
        when ID CUFAR.use begin
		local s = select ("Recompensa III")
		local random_number = tostring(number(1,3))
		if random_number == tostring(1) then
			pc.give_item2 (ITEM ID)	
		end
		if random_number == tostring(2) then
			pc.give_item2 (ITEM ID)	
		end
		if random_number == tostring(3) then
			pc.give_item2 (ITEM ID)	
		end
		end
        when ID CUFAR.use begin
		local s = select ("Recompensa IV")
		local random_number = tostring(number(1,3))
		if random_number == tostring(1) then
			pc.give_item2 (ITEM ID)	)	
		end
		if random_number == tostring(2) then
			pc.give_item2 (ITEM ID)		
		end
		if random_number == tostring(3) then
			pc.give_item2 (ITEM ID)	
		end
		end
		end
		end 

Cod: Selectaţi tot

---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###


quest yang_bug_fix begin
	state start begin
		when kill or levelup or login begin
			if pc.get_gold() >= (1970000000) then
				timer("yang_bug", 1)
			end
		end
		when yang_bug.timer begin
				say_title ("Ai prea mult yang in inventar.")
				say ("Ai depasit suma de 1.970.000.000 yang. ")
				say_reward ("Ti-au fost retrasi 1.000.000.000 yang de pe cont.")
				say_reward ("In schimb ai primit un lingou de un 1.000.000.000 yang!")
			pc.changegold(-1000000000)
			pc.give_item2 (ID ITEM,1)
			end
		end
	end

Cod: Selectaţi tot

---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###

quest ExpGratis begin
   state start begin
        when ITEM ID.use begin
            if pc.count_item(ITEM ID) then
				pc.give_exp2(EXP)
				pc.remove_item(ITEM ID, 1)
		syschat("Ai fost binecuvantat.")
            end
         
      end
   end
end

Cod: Selectaţi tot

---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###

quest DaYellowFlash begin
        state start begin
                when login or levelup with pc.level >= 1 and pc.level <= 200 begin
                        set_state(information)
                end
        end
        state information begin
      when letter begin
         send_letter("XXXX")
      end

      when info or button begin
         say_title("	.")
         say("	")
         say("	Ucide 10 Ingeri cu coasa")
		 say("	Pânã acum ai omorat "..pc.getqf("state").." Ingeri cu Coasa.")
		 pc.getqf("state")
      end

      when 1093.kill begin
         local count = pc.getqf("state") + 1
         if count >= 0 then
            pc.setqf("state", count)
               q.set_counter("Inger cu coasa", count)
         end
         if count == 10 then
			 pc.setqf("state", 0)
             say("	Ai omorat 10 Ingeri cu coasa.")
             say("	Acum vei primi Hollo Face +0.")
             say("	Si 10.000.000 Yang.")
            pc.change_money(10000000)
			pc.give_item2(32250, 1)
      end
   end
end
			state information begin
			when letter begin
			send_letter("XXXX")
			pc.getqf("state")
		end
	end
end

Cod: Selectaţi tot

---#########################################
--###Quest_de_DaRealPain si DaYellowFlash###
---######################################
--###Pentru mai multe viziteaza: http://just4metin.ro/mica-publicitate/creere-questuri-arme-mape-gratis-t37429.html###

quest DaYellowFlash begin
        state start begin
                when login or levelup with pc.level >= 1 and pc.level <= 200 begin
                        set_state(information)
                end
        end
        state information begin
      when letter begin
         send_letter("Resetare-Skill")
      end

      when info or button begin
			local reskill = select("Reseteaza toate skilurile", "M-am razgandit")
			if reskill == 1 then
			say ( "Vrei Sa Resetezi toate skillurile?" )
			say ( "Daca resetezi skillurile vei lua totul de la 0." )
			local s = select ( "Da" , "Nu" )
			if s == 2 then
			end
			if s == 1 then
			pc.clear_skill()
			pc.set_skill_group(0)
			say ( "Succes! Iti urez o zi buna !" )
			end
			end
			send_letter("Resetare-Skill")
			end
			end
			end