[Service]Creere de Questuri # Gratis #

Închis
Avatar utilizator
DaRealPain
Fost Helper

Fost Helper
Mesaje: 1044
Membru din: 05 Oct 2014, 01:38
Server: Shiro2
Regat: Shinsoo
Aprecieri: 106  
Mulţumiri: 252  
Medalii

Csaba92 scrie:
DaRealPain scrie:
Csaba92 scrie:Salut , am nevoie de un quest care il poti lu-a de la grajdar la lvl 55 , In care sa omori 200 de Arcas Deamon [ e DT etaju 1 ] in timp de 30 minute ! Daca ai reusit sa iei cal MILITAR lvl 21 , daca nu reuseste sa se poate incearca din nou :) Sper ca ai inteles :)
Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest cal_militar begin
	state start begin
		when 20349.chat."Cal militar" with horse.get_grade()==1 and horse.get_level()==10 begin
			if horse.is_dead() then
				say("Calul tau e mort!")
				say("Readul la viata intai.")
				say("")
			elseif pc.level<=54 then
				say("Nivelul tau este prea mic.")
				say("")
			elseif horse.get_level()<=9 then
				say("Calul tau este prea mic!")
				say("Antreneaza-ti calul mai intai.")
				say("")
			elseif pc.countitem("50050")<1 then
				say("Nu ai nici o medalie!")
				say("Fa rost de una intai.")
				say("")
				setstate(need_item50050)
			elseif pc.countitem("50051")<1 then
				say("Nu ai niic o imagine de cal !")
				say("")
			elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=55 then
				say("Trebuie sa omori 200 de Arcas Demon")
				say("in 30 de Minute.")
				say("Doar asa pot fi sigur ca esti calificat")
				say("pentru a primi un cal militar!")
				say("")
				say("Vrei sa incepi testul?")
				say("")
				local b=select("Da", "Ehm, nu.")
				if 1==b then
					if pc.countitem("50050")>=1 then
						pc.removeitem("50050", 1)
						setstate(test)
					end
				elseif 2==b then
					say("Revino cand esti pregatit.")
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say("")
				say("Mult noroc.")
				say("")
			end
		end
	end
	state need_item50050 begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Medalie de Calarit")
			q.set_title("Medalie de Calarit")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
			say("Fa rost de o Medalie de Calarit!")
			setstate(start)
			q.done()
		end
		when info begin
			say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
			say("Fa rost de o Medalie de Calarit!")
			setstate(start)
			q.done()
		end
	end
	state test begin
		when letter begin
			q.set_counter("1002	", 200-pc.getqf("kill_count"))
		end
		when 2105.party_kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter("1002	", 200-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				setstate(failure)
			end
		end
		when 2107.party_kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter("1002	", 200-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				setstate(failure)
				q.done()
			end
		end
		when letter begin
			q.set_clock("Timp ramas:", pc.getqf("limit_time")-get_time())
		end
		when enter begin
			pc.setqf("limit_time", get_time()+30*60)
			pc.setqf("kill_count", 0)
		end
		when leave begin
			q.done()
		end
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Omoara Demoni Arcas")
			q.set_title("Omoara Demoni Arcas")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
			say("Trebuie sa omori 200 de Arcas Demon")
			say("in 30 de Minute.")
			say("Membrii grupei te pot ajuta.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
			say("Trebuie sa omori 200 de Arcas Demon")
			say("in 30 de Minute.")
			say("Membrii grupei te pot ajuta.")
		end
		when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
			setstate(report)
		end
		when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
			setstate(report)
		end
		when 20349.chat."Cal Militar" begin
			say("Trebuie sa omori 200 de Arcas Demon")
			say("in 30 de Minute.")
			say("Membrii grupei te pot ajuta.")
		end
	end
	state report begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Ai reusit")
			q.set_title("Ai reusit")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
			say("Intoarcete la grajdar.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
			say("Intoarcete la grajdar.")
		end
		when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."Am reusit!" with horse.get_grade()==1 begin
			say("Felicitari!")
			say("Acum am nevoie de timp pentru a face contractul!")
			say("Revino in 10 minute.")
			say("Si adu 500.000 Yang.")
			if is_test_server() then
				pc.setqf("make_time", get_time()+10)
			else
				pc.setqf("duration",get_time()+60*10*)
			end
			setstate(wait)
		end
	end

		when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."Contractul?" with horse.get_grade()==1 begin
			say("Inca nu am terminat contractul")
			say("Revino mai tarziu.")
		end
	end
	state buy begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Contractul este gata!")
			q.set_title("Contractul este gata!")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
			say("Dute la grajdar si ia-l!")
			say("Si nu uita cei 500.000 Yang.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
			say("Dute la grajdar si ia-l!")
			say("Si nu uita cei 500.000 Yang.")
		end
		when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."Contractul meu?" with horse.get_grade()==1 and horse.get_level()==10 begin
			say("COntractul tau este pregatit.")
			say("Te costa 500.000 Yang.")
			local b=select("Cumpara", "Mai tarziu", "Anuleaza")
			if 1==b then
				if pc.money>=500000 then
					if pc.countitem("50051")>=1 then
						char_log(0, "HORSE_UPGRADE", "BEGIN")
						pc.changemoney(-500000)
						char_log(0, "HORSE_UPGRADE", "DEC money 500000")
						pc.removeitem("50051", 1)
						char_log(0, "HORSE_UPGRADE", "DEC 50051 1")
						horse.unride()
						horse.advance()
						horse.ride()
						char_log(0, "HORSE_UPGRADE", "INC horse_advance 1")
						pc.give_item2("50052", 1)
						char_log(0, "HORSE_UPGRADE", "INC 50052 1")
						char_log(0, "HORSE_UPGRADE", "END")
						say("Felicitari!")
						say("Acum ai un cal militar.")
						say("Hranestel mereu.")
						say("")
						setstate(start)
						q.done()
					else
						say("")
					end
				else
					say("")
				end
			elseif 2==b then
				say("Ouk pe mai incolo.")
			elseif 3==b then
				say("Esti sigur ca vrei sa anulezi Questul?")
				local b=select("Da", "Nu")
				if 1==b then
					setstate(start)
					q.done()
				elseif 2==b then
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state failure begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Misiune esuata")
			q.set_title("Misiune esuata")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
			say("Nu ai reusit sa treci testul")
			say("")
			say("Dute la grajdar, pentru a repeta misiunea!")
			setstate(start)
			q.done()
		end
		when info begin
			say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
			say("Nu ai reusit sa treci testul")
			say("")
			say("Dute la grajdar, pentru a repeta misiunea!")
			setstate(start)
			q.done()
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end
_______________________________________________________________________________________________________________________________________

Cod: Selectaţi tot

If $post = "helpful" Then  
Mouseclick ("left","Buton Multumesc")  
EndIf

error :

Cod: Selectaţi tot

cal21.quest:7:when doesn't have begin-end clause. (militar)
Abort (core dumped)
Incearca acum

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest cal_militar begin
	state start begin
		when 20349.chat."Cal militar" with horse.get_grade()==1 and horse.get_level()==10 begin
			if horse.is_dead() then
				say("Calul tau e mort!")
				say("Readul la viata intai.")
				say("")
			elseif pc.level<=54 then
				say("Nivelul tau este prea mic.")
				say("")
			elseif horse.get_level()<=9 then
				say("Calul tau este prea mic!")
				say("Antreneaza-ti calul mai intai.")
				say("")
			elseif pc.countitem("50050")<1 then
				say("Nu ai nici o medalie!")
				say("Fa rost de una intai.")
				say("")
				setstate(need_item50050)
			elseif pc.countitem("50051")<1 then
				say("Nu ai niic o imagine de cal !")
				say("")
			elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=55 then
				say("Trebuie sa omori 200 de Arcas Demon")
				say("in 30 de Minute.")
				say("Doar asa pot fi sigur ca esti calificat")
				say("pentru a primi un cal militar!")
				say("")
				say("Vrei sa incepi testul?")
				say("")
				local b=select("Da", "Ehm, nu.")
				if 1==b then
					if pc.countitem("50050")>=1 then
						pc.removeitem("50050", 1)
						setstate(test)
					end
				elseif 2==b then
					say("Revino cand esti pregatit.")
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say("")
				say("Mult noroc.")
				say("")
				end
			end
		end
	end
	state need_item50050 begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Medalie de Calarit")
			q.set_title("Medalie de Calarit")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
			say("Fa rost de o Medalie de Calarit!")
			setstate(start)
			q.done()
		end
		when info begin
			say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
			say("Fa rost de o Medalie de Calarit!")
			setstate(start)
			q.done()
		end
	end
	state test begin
		when letter begin
			q.set_counter("1002	", 200-pc.getqf("kill_count"))
		end
		when 2105.party_kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter("1002	", 200-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				setstate(failure)
			end
		end
		when 2107.party_kill begin
			pc.setqf("kill_count", pc.getqf("kill_count")+1)
			q.set_counter("1002	", 200-pc.getqf("kill_count"))
			if get_time()>=pc.getqf("limit_time") then
				setstate(failure)
				q.done()
			end
		end
		when letter begin
			q.set_clock("Timp ramas:", pc.getqf("limit_time")-get_time())
		end
		when enter begin
			pc.setqf("limit_time", get_time()+30*60)
			pc.setqf("kill_count", 0)
		end
		when leave begin
			q.done()
		end
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Omoara Demoni Arcas")
			q.set_title("Omoara Demoni Arcas")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
			say("Trebuie sa omori 200 de Arcas Demon")
			say("in 30 de Minute.")
			say("Membrii grupei te pot ajuta.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
			say("Trebuie sa omori 200 de Arcas Demon")
			say("in 30 de Minute.")
			say("Membrii grupei te pot ajuta.")
		end
		when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
			setstate(report)
		end
		when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
			setstate(report)
		end
		when 20349.chat."Cal Militar" begin
			say("Trebuie sa omori 200 de Arcas Demon")
			say("in 30 de Minute.")
			say("Membrii grupei te pot ajuta.")
		end
	end
	state report begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Ai reusit")
			q.set_title("Ai reusit")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
			say("Intoarcete la grajdar.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
			say("Intoarcete la grajdar.")
		end
		when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."Am reusit!" with horse.get_grade()==1 begin
			say("Felicitari!")
			say("Acum am nevoie de timp pentru a face contractul!")
			say("Revino in 10 minute.")
			say("Si adu 500.000 Yang.")
			if is_test_server() then
				pc.setqf("make_time", get_time()+10)
			else
				pc.setqf("duration",get_time()+60*10*)
			end
			setstate(wait)
		end
	end

		when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."Contractul?" with horse.get_grade()==1 begin
			say("Inca nu am terminat contractul")
			say("Revino mai tarziu.")
		end
	end
	state buy begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Contractul este gata!")
			q.set_title("Contractul este gata!")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
			say("Dute la grajdar si ia-l!")
			say("Si nu uita cei 500.000 Yang.")
		end
		when info begin
			say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
			say("Dute la grajdar si ia-l!")
			say("Si nu uita cei 500.000 Yang.")
		end
		when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin
			setstate(start)
			q.done()
		end
		when 20349.chat."Contractul meu?" with horse.get_grade()==1 and horse.get_level()==10 begin
			say("COntractul tau este pregatit.")
			say("Te costa 500.000 Yang.")
			local b=select("Cumpara", "Mai tarziu", "Anuleaza")
			if 1==b then
				if pc.money>=500000 then
					if pc.countitem("50051")>=1 then
						char_log(0, "HORSE_UPGRADE", "BEGIN")
						pc.changemoney(-500000)
						char_log(0, "HORSE_UPGRADE", "DEC money 500000")
						pc.removeitem("50051", 1)
						char_log(0, "HORSE_UPGRADE", "DEC 50051 1")
						horse.unride()
						horse.advance()
						horse.ride()
						char_log(0, "HORSE_UPGRADE", "INC horse_advance 1")
						pc.give_item2("50052", 1)
						char_log(0, "HORSE_UPGRADE", "INC 50052 1")
						char_log(0, "HORSE_UPGRADE", "END")
						say("Felicitari!")
						say("Acum ai un cal militar.")
						say("Hranestel mereu.")
						say("")
						setstate(start)
						q.done()
					else
						say("")
					end
				else
					say("")
				end
			elseif 2==b then
				say("Ouk pe mai incolo.")
			elseif 3==b then
				say("Esti sigur ca vrei sa anulezi Questul?")
				local b=select("Da", "Nu")
				if 1==b then
					setstate(start)
					q.done()
				elseif 2==b then
				else
					say("UNKNOWN BUTTON ["..b.."]")
				end
			else
				say("UNKNOWN BUTTON ["..b.."]")
			end
		end
	end
	state failure begin
		when letter begin
			setskin(NOWINDOW)
			makequestbutton("Misiune esuata")
			q.set_title("Misiune esuata")
			q.start()
		end
		when button begin
			say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
			say("Nu ai reusit sa treci testul")
			say("")
			say("Dute la grajdar, pentru a repeta misiunea!")
			setstate(start)
			q.done()
		end
		when info begin
			say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
			say("Nu ai reusit sa treci testul")
			say("")
			say("Dute la grajdar, pentru a repeta misiunea!")
			setstate(start)
			q.done()
		end
	end
	state __COMPLETE__ begin
		when enter begin
			q.done()
		end
	end
end
Afișează semnătura
Sus
Avatar utilizator
[Chuli-Gaara]
Nivel 10

Nivel 10
Mesaje: 2285
Membru din: 27 Oct 2014, 22:34
Server: Al meu
Regat: Chunjo
Aprecieri: 0
Mulţumiri: 17  
 Contact:
Vezi detalii
Medalii

Boss vreau şi eu 1 quest de inel teleport cu :
Map1 şi map2 (roşu galben albastru) cu deşert..şi in v1 ... Să fie quest in locul la inelul teleport .. doar le copiezi că eu dacă şterg nu ştiu cum să şterg.. il facirpd :Ă
Sus
Avatar utilizator
Csaba92
Nivel 2

Nivel 2
Mesaje: 201
Membru din: 26 Noi 2014, 19:22
Regat: Jinno
Aprecieri: 0
Mulţumiri: 0
 Contact:
Vezi detalii
Medalii

error

Cod: Selectaţi tot

cal21.quest:50:must start with 'quest'
Abort (core dumped)
Un server FARA MODATI si fara ITEME PERFECTE !
Intra si TU !
http://www.metin2intel.ro
Afișează semnătura
Sus
Avatar utilizator
DaRealPain
Fost Helper

Fost Helper
Mesaje: 1044
Membru din: 05 Oct 2014, 01:38
Server: Shiro2
Regat: Shinsoo
Aprecieri: 106  
Mulţumiri: 252  
Medalii

Csaba92 scrie:error

Cod: Selectaţi tot

cal21.quest:50:must start with 'quest'
Abort (core dumped)

Cod: Selectaţi tot

--- ##############################
--- ### Quest facut de DaRealPain ###
--- ############################ 

 quest cal_militar begin 
   state start begin 
      when 20349.chat."Cal militar" with horse.get_grade()==1 and horse.get_level()==10 begin 
         if horse.is_dead() then 
            say("Calul tau e mort!") 
            say("Readul la viata intai.") 
            say("") 
         elseif pc.level<=54 then 
            say("Nivelul tau este prea mic.") 
            say("") 
         elseif horse.get_level()<=9 then 
            say("Calul tau este prea mic!") 
            say("Antreneaza-ti calul mai intai.") 
            say("") 
         elseif pc.countitem("50050")<1 then 
            say("Nu ai nici o medalie!") 
            say("Fa rost de una intai.") 
            say("") 
            setstate(need_item50050) 
         elseif pc.countitem("50051")<1 then 
            say("Nu ai niic o imagine de cal !") 
            say("") 
         elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=55 then 
            say("Trebuie sa omori 200 de Arcas Demon") 
            say("in 30 de Minute.") 
            say("Doar asa pot fi sigur ca esti calificat") 
            say("pentru a primi un cal militar!") 
            say("") 
            say("Vrei sa incepi testul?") 
            say("") 
            local b=select("Da", "Ehm, nu.") 
            if 1==b then 
               if pc.countitem("50050")>=1 then 
                  pc.removeitem("50050", 1) 
                  setstate(test) 
               end 
            elseif 2==b then 
               say("Revino cand esti pregatit.") 
            else 
               say("UNKNOWN BUTTON ["..b.."]") 
            end 
         else 
            say("") 
            say("Mult noroc.") 
            say("") 
         end 
      end 
   end 
   state need_item50050 begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Medalie de Calarit") 
         q.set_title("Medalie de Calarit") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR) 
         say("Fa rost de o Medalie de Calarit!") 
         setstate(start) 
         q.done() 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR) 
         say("Fa rost de o Medalie de Calarit!") 
         setstate(start) 
         q.done() 
      end 
   end 
   state test begin 
      when letter begin 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
      end 
      when 2105.party_kill begin 
         pc.setqf("kill_count", pc.getqf("kill_count")+1) 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
         if get_time()>=pc.getqf("limit_time") then 
            setstate(failure) 
         end 
      end 
      when 2107.party_kill begin 
         pc.setqf("kill_count", pc.getqf("kill_count")+1) 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
         if get_time()>=pc.getqf("limit_time") then 
            setstate(failure) 
            q.done() 
         end 
      end 
      when letter begin 
         q.set_clock("Timp ramas:", pc.getqf("limit_time")-get_time()) 
      end 
      when enter begin 
         pc.setqf("limit_time", get_time()+30*60) 
         pc.setqf("kill_count", 0) 
      end 
      when leave begin 
         q.done() 
      end 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Omoara Demoni Arcas") 
         q.set_title("Omoara Demoni Arcas") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR) 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR) 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
      when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin 
         setstate(report) 
      end 
      when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin 
         setstate(report) 
      end 
      when 20349.chat."Cal Militar" begin 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
   end 
   state report begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Ai reusit") 
         q.set_title("Ai reusit") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR) 
         say("Intoarcete la grajdar.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR) 
         say("Intoarcete la grajdar.") 
      end 
      when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Am reusit!" with horse.get_grade()==1 begin 
         say("Felicitari!") 
         say("Acum am nevoie de timp pentru a face contractul!") 
         say("Revino in 10 minute.") 
         say("Si adu 500.000 Yang.") 
         if is_test_server() then 
            pc.setqf("make_time", get_time()+10) 
         else 
            pc.setqf("duration",get_time()+60*10*) 
         end 
         setstate(wait) 
      end 
   end 

      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Contractul?" with horse.get_grade()==1 begin 
         say("Inca nu am terminat contractul") 
         say("Revino mai tarziu.") 
      end 
   end 
   state buy begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Contractul este gata!") 
         q.set_title("Contractul este gata!") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR) 
         say("Dute la grajdar si ia-l!") 
         say("Si nu uita cei 500.000 Yang.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR) 
         say("Dute la grajdar si ia-l!") 
         say("Si nu uita cei 500.000 Yang.") 
      end 
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Contractul meu?" with horse.get_grade()==1 and horse.get_level()==10 begin 
         say("COntractul tau este pregatit.") 
         say("Te costa 500.000 Yang.") 
         local b=select("Cumpara", "Mai tarziu", "Anuleaza") 
         if 1==b then 
            if pc.money>=500000 then 
               if pc.countitem("50051")>=1 then 
                  char_log(0, "HORSE_UPGRADE", "BEGIN") 
                  pc.changemoney(-500000) 
                  char_log(0, "HORSE_UPGRADE", "DEC money 500000") 
                  pc.removeitem("50051", 1) 
                  char_log(0, "HORSE_UPGRADE", "DEC 50051 1") 
                  horse.unride() 
                  horse.advance() 
                  horse.ride() 
                  char_log(0, "HORSE_UPGRADE", "INC horse_advance 1") 
                  pc.give_item2("50052", 1) 
                  char_log(0, "HORSE_UPGRADE", "INC 50052 1") 
                  char_log(0, "HORSE_UPGRADE", "END") 
                  say("Felicitari!") 
                  say("Acum ai un cal militar.") 
                  say("Hranestel mereu.") 
                  say("") 
                  setstate(start) 
                  q.done() 
               else 
                  say("") 
               end 
            else 
               say("") 
            end 
         elseif 2==b then 
            say("Ouk pe mai incolo.") 
         elseif 3==b then 
            say("Esti sigur ca vrei sa anulezi Questul?") 
            local b=select("Da", "Nu") 
            if 1==b then 
               setstate(start) 
               q.done() 
            elseif 2==b then 
            else 
               say("UNKNOWN BUTTON ["..b.."]") 
            end 
         else 
            say("UNKNOWN BUTTON ["..b.."]") 
         end 
      end 
   end 
   state failure begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Misiune esuata") 
         q.set_title("Misiune esuata") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR) 
         say("Nu ai reusit sa treci testul") 
         say("") 
         say("Dute la grajdar, pentru a repeta misiunea!") 
         setstate(start) 
         q.done() 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR) 
         say("Nu ai reusit sa treci testul") 
         say("") 
         say("Dute la grajdar, pentru a repeta misiunea!") 
         setstate(start) 
         q.done() 
      end 
   end 
   state __COMPLETE__ begin 
      when enter begin 
         q.done() 
      end 
   end 
end
[ Mesaj scris via Android ] Imagine
Afișează semnătura
Sus
Avatar utilizator
Warr007
Nivel 3

Nivel 3
Mesaje: 319
Membru din: 29 Iun 2014, 16:19
Server: World Of Metin2
Regat: Jinno
Aprecieri: 2  
Mulţumiri: 8  
 Contact:
Vezi detalii
Medalii

Vreau si eu un quest pentru valentine's day la care sa dropeze bomboana,ciocolata si trandafir galben/rosu si cand duci x50 bomboane sau x50 ciocolata sau x50 trandafir galben/rosu sa iti deie cutia cu ID 50033
♥Profesional Graphic Designer.♥
♥♥Site : www.witind.deviantart.com♥♥
♥♥Email : [email protected]♥♥
♥♥Skype : c.timeflies♥♥
Afișează semnătura
Sus
Avatar utilizator
Csaba92
Nivel 2

Nivel 2
Mesaje: 201
Membru din: 26 Noi 2014, 19:22
Regat: Jinno
Aprecieri: 0
Mulţumiri: 0
 Contact:
Vezi detalii
Medalii

DaRealPain scrie:
Csaba92 scrie:error

Cod: Selectaţi tot

cal21.quest:50:must start with 'quest'
Abort (core dumped)

Cod: Selectaţi tot

--- ##############################
--- ### Quest facut de DaRealPain ###
--- ############################ 

 quest cal_militar begin 
   state start begin 
      when 20349.chat."Cal militar" with horse.get_grade()==1 and horse.get_level()==10 begin 
         if horse.is_dead() then 
            say("Calul tau e mort!") 
            say("Readul la viata intai.") 
            say("") 
         elseif pc.level<=54 then 
            say("Nivelul tau este prea mic.") 
            say("") 
         elseif horse.get_level()<=9 then 
            say("Calul tau este prea mic!") 
            say("Antreneaza-ti calul mai intai.") 
            say("") 
         elseif pc.countitem("50050")<1 then 
            say("Nu ai nici o medalie!") 
            say("Fa rost de una intai.") 
            say("") 
            setstate(need_item50050) 
         elseif pc.countitem("50051")<1 then 
            say("Nu ai niic o imagine de cal !") 
            say("") 
         elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=55 then 
            say("Trebuie sa omori 200 de Arcas Demon") 
            say("in 30 de Minute.") 
            say("Doar asa pot fi sigur ca esti calificat") 
            say("pentru a primi un cal militar!") 
            say("") 
            say("Vrei sa incepi testul?") 
            say("") 
            local b=select("Da", "Ehm, nu.") 
            if 1==b then 
               if pc.countitem("50050")>=1 then 
                  pc.removeitem("50050", 1) 
                  setstate(test) 
               end 
            elseif 2==b then 
               say("Revino cand esti pregatit.") 
            else 
               say("UNKNOWN BUTTON ["..b.."]") 
            end 
         else 
            say("") 
            say("Mult noroc.") 
            say("") 
         end 
      end 
   end 
   state need_item50050 begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Medalie de Calarit") 
         q.set_title("Medalie de Calarit") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR) 
         say("Fa rost de o Medalie de Calarit!") 
         setstate(start) 
         q.done() 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR) 
         say("Fa rost de o Medalie de Calarit!") 
         setstate(start) 
         q.done() 
      end 
   end 
   state test begin 
      when letter begin 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
      end 
      when 2105.party_kill begin 
         pc.setqf("kill_count", pc.getqf("kill_count")+1) 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
         if get_time()>=pc.getqf("limit_time") then 
            setstate(failure) 
         end 
      end 
      when 2107.party_kill begin 
         pc.setqf("kill_count", pc.getqf("kill_count")+1) 
         q.set_counter("1002   ", 200-pc.getqf("kill_count")) 
         if get_time()>=pc.getqf("limit_time") then 
            setstate(failure) 
            q.done() 
         end 
      end 
      when letter begin 
         q.set_clock("Timp ramas:", pc.getqf("limit_time")-get_time()) 
      end 
      when enter begin 
         pc.setqf("limit_time", get_time()+30*60) 
         pc.setqf("kill_count", 0) 
      end 
      when leave begin 
         q.done() 
      end 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Omoara Demoni Arcas") 
         q.set_title("Omoara Demoni Arcas") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR) 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR) 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
      when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin 
         setstate(report) 
      end 
      when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin 
         setstate(report) 
      end 
      when 20349.chat."Cal Militar" begin 
         say("Trebuie sa omori 200 de Arcas Demon") 
         say("in 30 de Minute.") 
         say("Membrii grupei te pot ajuta.") 
      end 
   end 
   state report begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Ai reusit") 
         q.set_title("Ai reusit") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR) 
         say("Intoarcete la grajdar.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR) 
         say("Intoarcete la grajdar.") 
      end 
      when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Am reusit!" with horse.get_grade()==1 begin 
         say("Felicitari!") 
         say("Acum am nevoie de timp pentru a face contractul!") 
         say("Revino in 10 minute.") 
         say("Si adu 500.000 Yang.") 
         if is_test_server() then 
            pc.setqf("make_time", get_time()+10) 
         else 
            pc.setqf("duration",get_time()+60*10*) 
         end 
         setstate(wait) 
      end 
   end 

      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Contractul?" with horse.get_grade()==1 begin 
         say("Inca nu am terminat contractul") 
         say("Revino mai tarziu.") 
      end 
   end 
   state buy begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Contractul este gata!") 
         q.set_title("Contractul este gata!") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR) 
         say("Dute la grajdar si ia-l!") 
         say("Si nu uita cei 500.000 Yang.") 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR) 
         say("Dute la grajdar si ia-l!") 
         say("Si nu uita cei 500.000 Yang.") 
      end 
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin 
         setstate(start) 
         q.done() 
      end 
      when 20349.chat."Contractul meu?" with horse.get_grade()==1 and horse.get_level()==10 begin 
         say("COntractul tau este pregatit.") 
         say("Te costa 500.000 Yang.") 
         local b=select("Cumpara", "Mai tarziu", "Anuleaza") 
         if 1==b then 
            if pc.money>=500000 then 
               if pc.countitem("50051")>=1 then 
                  char_log(0, "HORSE_UPGRADE", "BEGIN") 
                  pc.changemoney(-500000) 
                  char_log(0, "HORSE_UPGRADE", "DEC money 500000") 
                  pc.removeitem("50051", 1) 
                  char_log(0, "HORSE_UPGRADE", "DEC 50051 1") 
                  horse.unride() 
                  horse.advance() 
                  horse.ride() 
                  char_log(0, "HORSE_UPGRADE", "INC horse_advance 1") 
                  pc.give_item2("50052", 1) 
                  char_log(0, "HORSE_UPGRADE", "INC 50052 1") 
                  char_log(0, "HORSE_UPGRADE", "END") 
                  say("Felicitari!") 
                  say("Acum ai un cal militar.") 
                  say("Hranestel mereu.") 
                  say("") 
                  setstate(start) 
                  q.done() 
               else 
                  say("") 
               end 
            else 
               say("") 
            end 
         elseif 2==b then 
            say("Ouk pe mai incolo.") 
         elseif 3==b then 
            say("Esti sigur ca vrei sa anulezi Questul?") 
            local b=select("Da", "Nu") 
            if 1==b then 
               setstate(start) 
               q.done() 
            elseif 2==b then 
            else 
               say("UNKNOWN BUTTON ["..b.."]") 
            end 
         else 
            say("UNKNOWN BUTTON ["..b.."]") 
         end 
      end 
   end 
   state failure begin 
      when letter begin 
         setskin(NOWINDOW) 
         makequestbutton("Misiune esuata") 
         q.set_title("Misiune esuata") 
         q.start() 
      end 
      when button begin 
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR) 
         say("Nu ai reusit sa treci testul") 
         say("") 
         say("Dute la grajdar, pentru a repeta misiunea!") 
         setstate(start) 
         q.done() 
      end 
      when info begin 
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR) 
         say("Nu ai reusit sa treci testul") 
         say("") 
         say("Dute la grajdar, pentru a repeta misiunea!") 
         setstate(start) 
         q.done() 
      end 
   end 
   state __COMPLETE__ begin 
      when enter begin 
         q.done() 
      end 
   end 
end
[ Mesaj scris via Android ] Imagine

ERROR
cal_militar.quest:162: syntax error : [string "reporthorse . get_grade ( ) == 1"]:8: unexpected symbol near `)'
Abort (core dumped)
Un server FARA MODATI si fara ITEME PERFECTE !
Intra si TU !
http://www.metin2intel.ro
Afișează semnătura
Sus
Avatar utilizator
BadBoyBy
Nivel 1

Nivel 1
Mesaje: 147
Membru din: 05 Dec 2014, 21:12
Aprecieri: 0
Mulţumiri: 0
Medalii

Vreau sa imi scoti din questul asta teleportu in v4

Cod: Selectaţi tot

   local x
    local y
    local t
    local e = pc . get_empire ( )
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local s = select ( "Map1" , "Map2" , "Valea Orcilor" , "Desert" , "Sohan" , "Tara de foc" , "Urmatoarele" )
    if s == 7 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local p = select ( "Turnul Demonilor" , "V2" , "Grota Exilului" , "Campul cu serpi" , "V4" , "Insula Haosului" ,"Lungsam" , "Padurea Rosie" , "Închide" )
    if p == 1 then
    x = "590400"
    y = "110500"
    elseif p == 2 then
    x = "704100"
    y = "464100"
    elseif p == 3 then
    x = "284200"
    y = "809600"
    elseif p == 4 then
    x = "1059200"
    y = "726900"
    elseif p == 5 then
    if pc.get_level() >= 90 then
    x = "241600"
    y = "1274600"
    elseif p == 6 then
    x="289000"
    y="5800"
    elseif p == 7 then
   say_title ( "Teleporter" )
   say ( "Încotro vrei sa mergi straine?" )
   t = select ( "Început", "Sfârsit", "Închide" )
   if t == 1 then
    x = "1119900"
    y = "70800"
    elseif t == 2 then
    x = "1119200"
    y = "7000"
   end
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    elseif p == 6 then
    if pc.get_level() >= 90 then
    x = "1277800"
    y = "1737100"
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    end
    elseif s == 1 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "473900"
    y = "954600"
    elseif t == 2 then
    x = "63200"
    y = "166700"
    elseif t == 3 then
    x = "959600"
    y = "269700"
    end
    elseif s == 2 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "352300"
    y = "882700"
    elseif t == 2 then
    x = "145700"
    y = "239800"
    elseif t == 3 then
    x = "863800"
    y = "246000"
    end
    elseif s == 3 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Centru" , "Arahani" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "402100"
    y = "673900"
    elseif e == 2 then
    x = "270400"
    y = "739900"
    elseif e == 3 then
    x = "321300"
    y = "808000"
    end
    elseif t == 2 then
    x = "332700"
    y = "745600"
    elseif t == 3 then
    x = "282800"
    y = "792800"
    end
    elseif s == 4 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Inceput" , "Sfârsit" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "217800"
    y = "627200"
    elseif e == 2 then
    x = "221900"
    y = "502700"
    elseif e == 3 then
    x = "344000"
    y = "502500"
    end
    elseif t == 2 then
    x = "296300"
    y = "547500"
    end
    elseif s == 5 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Mijloc" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "434200"
    y = "290600"
    elseif e == 2 then
    x = "375200"
    y = "174900"
    elseif e == 3 then
    x = "491800"
    y = "173600"
    end
    elseif t == 2 then
    x = "436200"
    y = "215300"
    end
    elseif s == 6 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "599400"
    y = "756300"
    elseif e == 2 then
    x = "597800"
    y = "622200"
    elseif e == 3 then
    x = "730700"
    y = "689800"
    end
    elseif t == 2 then
    return
    end
    end
    if s ~= 8 or p ~= 7 then
    pc . warp ( x , y )
    end
Multumesc :D
Sus
Avatar utilizator
DaRealPain
Fost Helper

Fost Helper
Mesaje: 1044
Membru din: 05 Oct 2014, 01:38
Server: Shiro2
Regat: Shinsoo
Aprecieri: 106  
Mulţumiri: 252  
Medalii

Warr007 scrie:Vreau si eu un quest pentru valentine's day la care sa dropeze bomboana,ciocolata si trandafir galben/rosu si cand duci x50 bomboane sau x50 ciocolata sau x50 trandafir galben/rosu sa iti deie cutia cu ID 50033


Am facut 3 Questuri pentru ca e usor pentru tine sa vezi cum functioneaza tot ^-^
Iti pun si Download

Questuri

valentines_manage

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest valentines_day begin
    state start begin
        when 11004.chat."Valentines Day Event GM" with pc.is_gm() begin
            if game.get_event_flag("valentines_drop") == 0 then
                say("Eventul pentru Ziua Indragostitilor este dezactivat!")
                say("Vrei sa il activezi?")
                local s = select("Da","Nu")
                if s == 1 then
                    say("Eventul de Ziua Indragostitilor a fost activat!")
                    game.set_event_flag("valentines_drop", 1)
                    notice_all("Eventul de Ziua Indragostitilor a inceput!")
					notice_all("Incepand de acum puteti dropa de la orice monstru,")
					notice_all("Ciocolate, Bomboane si Trandafiri rosii si galbeni!")
                else
                    return
                end
            else
                say("Eventul de Ziua Indragostitilor este activ!")
                say("Vrei sa il dezactivezi?")
                local s = select("Da","Nu")
                if s == 1 then
                    say("Eventul de Ziua Indragostitilor a fost dezactivat!")
                    game.set_event_flag("valentines_drop", 0)
                    notice_all("Eventul de Ziua Indragostitilor a luat sfarsit!")
					notice_all("Speram ca ati obtinut cat mai multe cadouri,")
					notice_all("pentru persoana iubita!")
                else
                    return
                end
            end
        end
    end
end
valentines_drop

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest valentines_drop begin
    state start begin
        when kill with game.get_event_flag("valentines_drop") == 1 and not npc.is_pc() begin
            local s=number(1, 250)
            if 5 == s then
            game.drop_item_with_ownership(50024,1) --- Rosu
            game.drop_item_with_ownership(50025,1) --- Ciocolata
            game.drop_item_with_ownership(50031,1) --- Galben
            game.drop_item_with_ownership(50032,1) --- Bomboana
            end
        end
    end
end
valentines_change

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest schimb begin
    state start begin
        when 11004.chat."Cutia Misterioasa contra Trandafiri rosii" begin
			say("Pentru a obtine o cutie misterioasa ai nevoie de")
			say("50 de Trandafiri rosii!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50024) > 49 then
                    pc.remove_item(50024, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destui Trandafiri rosii!")
                end
            else
                return
            end
        end
		
        when 11004.chat."Cutia Misterioasa contra Ciocolate" begin
			say("Pentru a obtine o cutie misterioasa ai nevoie de")
			say("50 de Ciocolate!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50025) > 49 then
                    pc.remove_item(50025, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destule Ciocolate!")
                end
            else
                return
            end
        end

        when 11004.chat."Cutia Misterioasa contra Trandafiri galbeni" begin
			say("Pentru a obtine o cutie misterioasa ai nevoie de")
			say("50 de Trandafiri galbeni!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50031) > 49 then
                    pc.remove_item(50031, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destui Trandafiri galbeni!")
                end
            else
                return
            end
        end
		
        when 11004.chat."Cutia Misterioasa contra Bomboane" begin
			say("Pentru a obtine o cutie misterioasa ai nevoie de")
			say("50 de Bomboane!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50032) > 49 then
                    pc.remove_item(50032, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destule Bomboane!")
                end
            else
                return
            end
        end
    end
end
Download


BadBoyBy scrie:Vreau sa imi scoti din questul asta teleportu in v4

Cod: Selectaţi tot

   local x
    local y
    local t
    local e = pc . get_empire ( )
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local s = select ( "Map1" , "Map2" , "Valea Orcilor" , "Desert" , "Sohan" , "Tara de foc" , "Urmatoarele" )
    if s == 7 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local p = select ( "Turnul Demonilor" , "V2" , "Grota Exilului" , "Campul cu serpi" , "V4" , "Insula Haosului" ,"Lungsam" , "Padurea Rosie" , "Închide" )
    if p == 1 then
    x = "590400"
    y = "110500"
    elseif p == 2 then
    x = "704100"
    y = "464100"
    elseif p == 3 then
    x = "284200"
    y = "809600"
    elseif p == 4 then
    x = "1059200"
    y = "726900"
    elseif p == 5 then
    if pc.get_level() >= 90 then
    x = "241600"
    y = "1274600"
    elseif p == 6 then
    x="289000"
    y="5800"
    elseif p == 7 then
   say_title ( "Teleporter" )
   say ( "Încotro vrei sa mergi straine?" )
   t = select ( "Început", "Sfârsit", "Închide" )
   if t == 1 then
    x = "1119900"
    y = "70800"
    elseif t == 2 then
    x = "1119200"
    y = "7000"
   end
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    elseif p == 6 then
    if pc.get_level() >= 90 then
    x = "1277800"
    y = "1737100"
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    end
    elseif s == 1 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "473900"
    y = "954600"
    elseif t == 2 then
    x = "63200"
    y = "166700"
    elseif t == 3 then
    x = "959600"
    y = "269700"
    end
    elseif s == 2 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "352300"
    y = "882700"
    elseif t == 2 then
    x = "145700"
    y = "239800"
    elseif t == 3 then
    x = "863800"
    y = "246000"
    end
    elseif s == 3 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Centru" , "Arahani" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "402100"
    y = "673900"
    elseif e == 2 then
    x = "270400"
    y = "739900"
    elseif e == 3 then
    x = "321300"
    y = "808000"
    end
    elseif t == 2 then
    x = "332700"
    y = "745600"
    elseif t == 3 then
    x = "282800"
    y = "792800"
    end
    elseif s == 4 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Inceput" , "Sfârsit" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "217800"
    y = "627200"
    elseif e == 2 then
    x = "221900"
    y = "502700"
    elseif e == 3 then
    x = "344000"
    y = "502500"
    end
    elseif t == 2 then
    x = "296300"
    y = "547500"
    end
    elseif s == 5 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Mijloc" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "434200"
    y = "290600"
    elseif e == 2 then
    x = "375200"
    y = "174900"
    elseif e == 3 then
    x = "491800"
    y = "173600"
    end
    elseif t == 2 then
    x = "436200"
    y = "215300"
    end
    elseif s == 6 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "599400"
    y = "756300"
    elseif e == 2 then
    x = "597800"
    y = "622200"
    elseif e == 3 then
    x = "730700"
    y = "689800"
    end
    elseif t == 2 then
    return
    end
    end
    if s ~= 8 or p ~= 7 then
    pc . warp ( x , y )
    end
Multumesc :D
Quest

Cod: Selectaţi tot

   local x
    local y
    local t
    local e = pc . get_empire ( )
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local s = select ( "Map1" , "Map2" , "Valea Orcilor" , "Desert" , "Sohan" , "Tara de foc" , "Urmatoarele" )
    if s == 7 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local p = select ( "Turnul Demonilor" , "V2" , "Grota Exilului" , "Campul cu serpi" , "Insula Haosului" ,"Lungsam" , "Padurea Rosie" , "Închide" )
    if p == 1 then
    x = "590400"
    y = "110500"
    elseif p == 2 then
    x = "704100"
    y = "464100"
    elseif p == 3 then
    x = "284200"
    y = "809600"
    elseif p == 4 then
    x = "1059200"
    y = "726900"
    elseif p == 5 then
    x="289000"
    y="5800"
    elseif p == 6 then
   say_title ( "Teleporter" )
   say ( "Încotro vrei sa mergi straine?" )
   t = select ( "Început", "Sfârsit", "Închide" )
   if t == 1 then
    x = "1119900"
    y = "70800"
    elseif t == 2 then
    x = "1119200"
    y = "7000"
   end
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    elseif p == 7 then
    if pc.get_level() >= 90 then
    x = "1277800"
    y = "1737100"
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    end
    elseif s == 1 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "473900"
    y = "954600"
    elseif t == 2 then
    x = "63200"
    y = "166700"
    elseif t == 3 then
    x = "959600"
    y = "269700"
    end
    elseif s == 2 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "352300"
    y = "882700"
    elseif t == 2 then
    x = "145700"
    y = "239800"
    elseif t == 3 then
    x = "863800"
    y = "246000"
    end
    elseif s == 3 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Centru" , "Arahani" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "402100"
    y = "673900"
    elseif e == 2 then
    x = "270400"
    y = "739900"
    elseif e == 3 then
    x = "321300"
    y = "808000"
    end
    elseif t == 2 then
    x = "332700"
    y = "745600"
    elseif t == 3 then
    x = "282800"
    y = "792800"
    end
    elseif s == 4 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Inceput" , "Sfârsit" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "217800"
    y = "627200"
    elseif e == 2 then
    x = "221900"
    y = "502700"
    elseif e == 3 then
    x = "344000"
    y = "502500"
    end
    elseif t == 2 then
    x = "296300"
    y = "547500"
    end
    elseif s == 5 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Mijloc" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "434200"
    y = "290600"
    elseif e == 2 then
    x = "375200"
    y = "174900"
    elseif e == 3 then
    x = "491800"
    y = "173600"
    end
    elseif t == 2 then
    x = "436200"
    y = "215300"
    end
    elseif s == 6 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "599400"
    y = "756300"
    elseif e == 2 then
    x = "597800"
    y = "622200"
    elseif e == 3 then
    x = "730700"
    y = "689800"
    end
    elseif t == 2 then
    return
    end
    end
    if s ~= 8 or p ~= 7 then
    pc . warp ( x , y )
    end
[/color]
Afișează semnătura
Sus
Avatar utilizator
[Chuli-Gaara]
Nivel 10

Nivel 10
Mesaje: 2285
Membru din: 27 Oct 2014, 22:34
Server: Al meu
Regat: Chunjo
Aprecieri: 0
Mulţumiri: 17  
 Contact:
Vezi detalii
Medalii

Uite quest-ul complet inel ...

Cod: Selectaţi tot

local x 
local y 
local t 
local e = pc . get_empire ( ) 
if pc . getqf ( "warp_ring" ) == 0 then 
say_title ( "Inel teleportare" ) 
say ( "" ) 
say ( "Acest inel te ajutã sã te teleportezi" ) 
say ( "în aproape orice loc dorit, gratis." ) 
say ( "Un inel poate fi folosit doar de 50 de ori" ) 
say ( "" ) 
pc . setqf ( "warp_ring" , 1 ) 
pc . setqf ( "warps" , 50 ) 
return 
end 
if pc . getqf ( "warps" ) <= 0 then 
say_title ( "Inel teleportare" ) 
say ( "" ) 
say ( "Nu mai poþi folosi acest inel." ) 
say ( "" ) 
pc . remove_item ( item . vnum ) 
pc . setqf ( "warp_ring" , 0 ) 
return 
end 
if pc . getqf ( "warp_ring" ) == 1 then 
say ( "Unde vrei sã te teleportezi?" ) 
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) ) 
say_size ( 350 , 350 ) 
local s = select ( "Satul 1" , "Satul 2" , "Valea Seungryong" , "Deºertul Yongbi" , "Muntele Sohan" , "Doyyumhwan" , "Urmãtoarele" , "Închide" ) 
if s == 7 then 
say ( "Unde vrei sã te teleportezi?" ) 
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) ) 
say_size ( 350 , 350 ) 
local p = select ( "Turnul Demonilor" , "Kuahlo Dong" , "Lungsam" , "Pãdurea Roºie" , "Þãrâmul Giganþilor" , "Grota Exilului" , "Temniþa Maimuþelor" , "Închide" ) 
if p == 1 then 
x = "590400" y = "110500" 
elseif p == 2 then 
x = "91900" y = "525400" 
elseif p == 3 then 
x = "289000" y = "5800" 
elseif p == 4 then 
say_size ( 350 , 180 ) 
t = select ( "Început" , "Sfârºit" , "Închide" ) 
if t == 1 then 
x = "1119900" y = "70800" 
elseif t == 2 then 
x = "1119200" y = "7000" 
elseif t == 3 then 
return 
end 
elseif p == 5 then 
x = "828100" y = "763400" 
elseif p == 6 then 
x = "284200" y = "809600" 
elseif p == 7 then 
say_size ( 350 , 200 ) 
t = select ( "Temniþa Maimuþelor Începãtor" , "Temniþa Maimuþelor Normal" , "Temniþa Maimuþelor Avansat" , "Închide" ) 
if t == 1 then 
local empire = pc . get_empire ( ) 
if empire == 1 then 
x = "768000" y = "435200" 
elseif empire == 2 then 
x = "844800" y = "435200" 
elseif empire == 3 then 
x = "921600" y = "435200" 
end 
elseif t == 2 then 
x = "128000" y = "640000" 
elseif t == 3 then 
x = "128000" y = "716800" 
elseif t == 4 then 
return 
end 
elseif p == 8 then 
return 
end 
elseif s == 1 then 
say_size ( 350 , 200 ) 
t = select ( "Þinutul Yongan" , "Þinutul Joan" , "Þinutul Pyungmoo" , "Închide" ) 
if t == 1 then 
x = "473900" y = "954600" 
elseif t == 2 then 
x = "63200" y = "166700" 
elseif t == 3 then 
x = "959600" y = "269700" 
elseif t == 4 then 
return 
end 
elseif s == 2 then 
say_size ( 350 , 200 ) 
t = select ( "Þinutul Yayang" , "Þinutul Bokjung" , "Þinutul Bakra" , "Închide" ) 
if t == 1 then 
x = "352300" y = "882700" 
elseif t == 2 then 
x = "145700" y = "239800" 
elseif t == 3 then 
x = "863800" y = "246000" 
elseif t == 4 then 
return 
end 
elseif s == 3 then 
say_size ( 350 , 200 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "402100" y = "673900" 
elseif e == 2 then 
x = "270400" y = "739900" 
elseif e == 3 then 
x = "321300" y = "808000" 
elseif e == 4 then 
return 
end 
elseif t == 2 then 
x = "332700" y = "745600" 
elseif t == 3 then 
return 
end 
elseif s == 4 then 
say_size ( 350 , 180 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "217800" y = "627200" 
elseif e == 2 then 
x = "221900" y = "502700" 
elseif e == 3 then 
x = "344000" y = "502500" 
end 
elseif t == 2 then 
x = "296300" y = "547500" 
elseif t == 3 then 
return 
end 
elseif s == 5 then 
say_size ( 350 , 180 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "434200" y = "290600" 
elseif e == 2 then 
x = "375200" y = "174900" 
elseif e == 3 then 
x = "491800" y = "173600" 
end 
elseif t == 2 then 
x = "436200" y = "215300" 
elseif t == 3 then 
return 
end 
elseif s == 6 then 
say_size ( 350 , 150 ) 
t = select ( "Început" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "599400" y = "756300" 
elseif e == 2 then 
x = "597800" y = "622200" 
elseif e == 3 then 
x = "730700" y = "689800" 
end 
elseif t == 2 then 
return 
end 
elseif s == 8 then 
return 
end 
end 
pc . warp ( x , y ) 
pc . setqf ( "warps" , pc . getqf ( "warps" ) - 1 )
Şi aş vreau şi eu să rămână următoarele mape pe inel .

Map1 toate
Map2 toate
Desert
Valea orcilor
Şi in V1
Sus
Avatar utilizator
DaRealPain
Fost Helper

Fost Helper
Mesaje: 1044
Membru din: 05 Oct 2014, 01:38
Server: Shiro2
Regat: Shinsoo
Aprecieri: 106  
Mulţumiri: 252  
Medalii

[Chuli-Gaara] scrie:Uite quest-ul complet inel ...

Cod: Selectaţi tot

local x 
local y 
local t 
local e = pc . get_empire ( ) 
if pc . getqf ( "warp_ring" ) == 0 then 
say_title ( "Inel teleportare" ) 
say ( "" ) 
say ( "Acest inel te ajutã sã te teleportezi" ) 
say ( "în aproape orice loc dorit, gratis." ) 
say ( "Un inel poate fi folosit doar de 50 de ori" ) 
say ( "" ) 
pc . setqf ( "warp_ring" , 1 ) 
pc . setqf ( "warps" , 50 ) 
return 
end 
if pc . getqf ( "warps" ) <= 0 then 
say_title ( "Inel teleportare" ) 
say ( "" ) 
say ( "Nu mai poþi folosi acest inel." ) 
say ( "" ) 
pc . remove_item ( item . vnum ) 
pc . setqf ( "warp_ring" , 0 ) 
return 
end 
if pc . getqf ( "warp_ring" ) == 1 then 
say ( "Unde vrei sã te teleportezi?" ) 
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) ) 
say_size ( 350 , 350 ) 
local s = select ( "Satul 1" , "Satul 2" , "Valea Seungryong" , "Deºertul Yongbi" , "Muntele Sohan" , "Doyyumhwan" , "Urmãtoarele" , "Închide" ) 
if s == 7 then 
say ( "Unde vrei sã te teleportezi?" ) 
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) ) 
say_size ( 350 , 350 ) 
local p = select ( "Turnul Demonilor" , "Kuahlo Dong" , "Lungsam" , "Pãdurea Roºie" , "Þãrâmul Giganþilor" , "Grota Exilului" , "Temniþa Maimuþelor" , "Închide" ) 
if p == 1 then 
x = "590400" y = "110500" 
elseif p == 2 then 
x = "91900" y = "525400" 
elseif p == 3 then 
x = "289000" y = "5800" 
elseif p == 4 then 
say_size ( 350 , 180 ) 
t = select ( "Început" , "Sfârºit" , "Închide" ) 
if t == 1 then 
x = "1119900" y = "70800" 
elseif t == 2 then 
x = "1119200" y = "7000" 
elseif t == 3 then 
return 
end 
elseif p == 5 then 
x = "828100" y = "763400" 
elseif p == 6 then 
x = "284200" y = "809600" 
elseif p == 7 then 
say_size ( 350 , 200 ) 
t = select ( "Temniþa Maimuþelor Începãtor" , "Temniþa Maimuþelor Normal" , "Temniþa Maimuþelor Avansat" , "Închide" ) 
if t == 1 then 
local empire = pc . get_empire ( ) 
if empire == 1 then 
x = "768000" y = "435200" 
elseif empire == 2 then 
x = "844800" y = "435200" 
elseif empire == 3 then 
x = "921600" y = "435200" 
end 
elseif t == 2 then 
x = "128000" y = "640000" 
elseif t == 3 then 
x = "128000" y = "716800" 
elseif t == 4 then 
return 
end 
elseif p == 8 then 
return 
end 
elseif s == 1 then 
say_size ( 350 , 200 ) 
t = select ( "Þinutul Yongan" , "Þinutul Joan" , "Þinutul Pyungmoo" , "Închide" ) 
if t == 1 then 
x = "473900" y = "954600" 
elseif t == 2 then 
x = "63200" y = "166700" 
elseif t == 3 then 
x = "959600" y = "269700" 
elseif t == 4 then 
return 
end 
elseif s == 2 then 
say_size ( 350 , 200 ) 
t = select ( "Þinutul Yayang" , "Þinutul Bokjung" , "Þinutul Bakra" , "Închide" ) 
if t == 1 then 
x = "352300" y = "882700" 
elseif t == 2 then 
x = "145700" y = "239800" 
elseif t == 3 then 
x = "863800" y = "246000" 
elseif t == 4 then 
return 
end 
elseif s == 3 then 
say_size ( 350 , 200 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "402100" y = "673900" 
elseif e == 2 then 
x = "270400" y = "739900" 
elseif e == 3 then 
x = "321300" y = "808000" 
elseif e == 4 then 
return 
end 
elseif t == 2 then 
x = "332700" y = "745600" 
elseif t == 3 then 
return 
end 
elseif s == 4 then 
say_size ( 350 , 180 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "217800" y = "627200" 
elseif e == 2 then 
x = "221900" y = "502700" 
elseif e == 3 then 
x = "344000" y = "502500" 
end 
elseif t == 2 then 
x = "296300" y = "547500" 
elseif t == 3 then 
return 
end 
elseif s == 5 then 
say_size ( 350 , 180 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "434200" y = "290600" 
elseif e == 2 then 
x = "375200" y = "174900" 
elseif e == 3 then 
x = "491800" y = "173600" 
end 
elseif t == 2 then 
x = "436200" y = "215300" 
elseif t == 3 then 
return 
end 
elseif s == 6 then 
say_size ( 350 , 150 ) 
t = select ( "Început" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "599400" y = "756300" 
elseif e == 2 then 
x = "597800" y = "622200" 
elseif e == 3 then 
x = "730700" y = "689800" 
end 
elseif t == 2 then 
return 
end 
elseif s == 8 then 
return 
end 
end 
pc . warp ( x , y ) 
pc . setqf ( "warps" , pc . getqf ( "warps" ) - 1 )
Şi aş vreau şi eu să rămână următoarele mape pe inel .

Map1 toate
Map2 toate
Desert
Valea orcilor
Şi in V1
Nustiu daca functioneaza pentru ca am editat repede ^-^
Vezi tu iubire ^-^

Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest editat de DaRealPain ##
--- ###################

local x 
local y 
local t 
local e = pc . get_empire ( ) 
if pc . getqf ( "warp_ring" ) == 0 then 
say_title ( "Inel teleportare" ) 
say ( "" ) 
say ( "Acest inel te ajutã sã te teleportezi" ) 
say ( "în aproape orice loc dorit, gratis." ) 
say ( "Un inel poate fi folosit doar de 50 de ori" ) 
say ( "" ) 
pc . setqf ( "warp_ring" , 1 ) 
pc . setqf ( "warps" , 50 ) 
return 
end 
if pc . getqf ( "warps" ) <= 0 then 
say_title ( "Inel teleportare" ) 
say ( "" ) 
say ( "Nu mai poþi folosi acest inel." ) 
say ( "" ) 
pc . remove_item ( item . vnum ) 
pc . setqf ( "warp_ring" , 0 ) 
return 
end 
if pc . getqf ( "warp_ring" ) == 1 then 
say ( "Unde vrei sã te teleportezi?" ) 
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) ) 
say_size ( 350 , 350 ) 
local s = select ( "Satul 1" , "Satul 2" , "Valea Seungryong" , "Deºertul Yongbi" , "Doyyumhwan" , "Închide" )
elseif s == 1 then 
say_size ( 350 , 200 ) 
t = select ( "Þinutul Yongan" , "Þinutul Joan" , "Þinutul Pyungmoo" , "Închide" ) 
if t == 1 then 
x = "473900" y = "954600" 
elseif t == 2 then 
x = "63200" y = "166700" 
elseif t == 3 then 
x = "959600" y = "269700" 
elseif t == 4 then 
return 
end 
elseif s == 2 then 
say_size ( 350 , 200 ) 
t = select ( "Þinutul Yayang" , "Þinutul Bokjung" , "Þinutul Bakra" , "Închide" ) 
if t == 1 then 
x = "352300" y = "882700" 
elseif t == 2 then 
x = "145700" y = "239800" 
elseif t == 3 then 
x = "863800" y = "246000" 
elseif t == 4 then 
return 
end 
elseif s == 3 then 
say_size ( 350 , 200 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "402100" y = "673900" 
elseif e == 2 then 
x = "270400" y = "739900" 
elseif e == 3 then 
x = "321300" y = "808000" 
elseif e == 4 then 
return 
end 
elseif t == 2 then 
x = "332700" y = "745600" 
elseif t == 3 then 
return 
end 
elseif s == 4 then 
say_size ( 350 , 180 ) 
t = select ( "Început" , "Mijloc" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "217800" y = "627200" 
elseif e == 2 then 
x = "221900" y = "502700" 
elseif e == 3 then 
x = "344000" y = "502500" 
end 
elseif t == 2 then 
x = "296300" y = "547500" 
elseif t == 3 then 
return 
end 
elseif s == 5 then 
say_size ( 350 , 150 ) 
t = select ( "Început" , "Închide" ) 
if t == 1 then 
if e == 1 then 
x = "599400" y = "756300" 
elseif e == 2 then 
x = "597800" y = "622200" 
elseif e == 3 then 
x = "730700" y = "689800" 
end 
elseif t == 2 then 
return 
end 
elseif s == 6 then 
return 
end 
end
pc . warp ( x , y ) 
pc . setqf ( "warps" , pc . getqf ( "warps" ) - 1 )
Afișează semnătura
Sus
Închis

Înapoi la “Arhivă”

  • Informaţie

  • Cine este conectat

    Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 35 vizitatori

+ Anunțul tău aici + Anunțul tău aici + Anunțul tău aici + Anunțul tău aici