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 MultiOptions begin 
    state start begin 
        when IDITEM.use with pc.is_gm() begin 
            say("Alege optiunea") 
            local y = select("Ban", "UnBan", "Mute", "UnMute", "Inchide") 
            if y == 5 then 
			end
			if y == 1 then
            say("Scrie numele jucatorul pe care vrei sa-l Banezi.")
            local name = input()
            if name == "" then
            say_reward("Acest Jucator nu exista.")
            else
            mysql_query("UPDATE account.account set status='BLOCK' where account.id=(select player.account_id where player.name='"..name.."')")
            command("dc "..name)
            notice("Jucatorul cu numele: "..name.." a fost banat!")
			end 
			end
            if y == 2 then 
            say("Scrie numele jucatorul pe care vrei sa ii scoti Banul")
            local name = input()
            if name == "" then
            say_reward("Acest Jucator nu exista.")
            else
            mysql_query("UPDATE account.account set status='OK' where account.id=(select player.account_id where player.name='"..name.."')")
            end 
			end
			if y == 3 then
			say("Scrie numele celui caruia vrei sa ii dai mute.")
			local JucatorBlocat = input()
			if JucatorBlocat == "" then
			say("Acest Jucator nu exista")
			else
			say_title(" Name : ".. JucatorBlocat .." Este jucatorul caruia vrei sa ii dai Mute? ")
			local e = select ("Da", "Nu")
			if e == 1 then
			say("10 Min. = 600s")
			say("1 Ora = 3600s")
			say("Scrie numarul de secunde dorite!")
			local timp = input()
			command("block_chat ".. JucatorBlocat .." ".. timp .."")
			say("Motivul: ")
			local motiv = input()
			notice_all("Jucatorul cu numele: ".. JucatorBlocat .." i s-a dat mute pentru ".. timp .." secunde!")
			notice_all("Motiv: ".. motiv .." ")
			end
			if e == 2 then
			return
			end
			end							   
			if y == 4 then
			say("Tasteaza 'block_chat_list' pentru a vedea.")
			say("Jucatori care au primit Mute ")
			say("Scrie numele Jucatorului caruia doresti sa ii scoti mute-ul.")
			local JucatorDeBlocat = input()
			if JucatorDeBlocat == "" then
			say ("Acest Jucator nu exista.")
			else
			command("block_chat ".. JucatorDeBlocat .." 0")
			notice_all("Jucatorul ".. JucatorDeBlocat .." a primit UnMute")
			notice_all("Sa nu se mai repete greseala facuta!")
			end
        end 
    end 
end 

Cod: Selectaţi tot

quest DesertTalhari begin
	state start begin
		when login or levelup with pc.level >= 95 and pc.level <= 105 begin
			set_state(information)
		end
	end

	state information begin
		when letter begin
			send_letter("Talharii Desertului Yongbi")
		end

		when info or button begin
			say_title("Talharii Desertului Yongbi")
			say("Talharii de desert au fost mereu o amenintare pentru")
			say("oamenii care incearca sa mearga in oaza desertului")
			say("pentru a lua putina apa. ")
			say("Sper ca-i poti ajuta pe sateni sa scape de cativa.")
			say("Satenii ti-au pregatit un omagiu special")
			say("daca vei indeplinii sarcina.")
			say_reward("Omoara 500 de Talhari de desert")
			say("")
	        pc.setqf("state", 500)
	        q.set_counter("Beduin", 500)
		end

		when 2108.kill begin
			local count = pc.getqf("state") - 1
			if count <= 500 then
				pc.setqf("state", count)
	            q.set_counter("Beduin", count)
			end
			if count == 0 then
			    say_title("Talharii Desertului Yongbi - Succes!")
			    say("")
			    say("Ai terminat misiunea cu succes!")
			    say("Satenii iti multumesc !")
			    say("Ai depus o munca uluitoare.")
			    say("Imi pare rau ca au fost atat de multi dar...")
				say("Doar asa v-om scapa de acesti talhari.")
				say("Felicitari inca odata.")
				say("")
				say_reward("Recompensa:")
			    say_reward("Ai primit Costum Inghetat")
			    say_reward("Ai primit 2000000 Yang")
			    say_reward("Ai primit 3000000 Experienta")
				pc.change_money(2000000)
				pc.give_exp2(3000000)
				pc.give_item2(18186, 1)
				clear_letter()
				set_quest_state("DesertTalhari2", "run")
				set_state(__COMPLETE__)

			end
		end
	end

	state __COMPLETE__ begin
	end
end 

Cod: Selectaţi tot

quest wskaznikHpWroga begin
	state start begin
		when login begin
			cmdchat("super_quest "..q.getcurrentquestindex())
		end

		when info or button begin
			cmdchat("get_input_start")
			local vid = input(cmdchat("get_input_value"))
			cmdchat("get_input_end")
			local old_pc = pc.select(vid)
			local name = pc.get_name()
			local hp = pc.get_hp()
			local max_hp = pc.get_max_hp()
			local mp = pc.get_sp()
			local max_mp = pc.get_max_sp()
			pc.select(old_pc)
			cmdchat("pvp_zdruwko "..name.."|"..hp.."|"..max_hp.."|"..mp.."|"..max_mp)
		end
	end
end
end
end