Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest cal_lv_11.quest begin
	state start begin
		when login with pc.level >= 45 begin
			set_state(information)
		end
	end

	state information begin
		when letter begin
			send_letter("Lectia de Echitatie(Cal lv 11)")
		end

		when info or button begin
			say("Lectia de Echitatie(Cal lv 11) - Incepe")
			say("Acest quest iti ofera sansa unica de")
			say("a primi un cal de nivelul 11, tot")
			say("ce trebuie sa faci este sa te duci")
			say("in Turnul Demonilor si sa omori")
			say("100x Demon Arcas.")
			say_reward("Sarcina:")
			say_reward("Vaneaza monstrul numit Demon Arcas!")
			say("")
	        pc.setqf("state", 100)
	        q.set_counter("Ramas:", 100)
		end

		when 1002.kill begin
			local count = pc.getqf("state") - 1
			if count <= 100 then
				pc.setqf("state", count)
	            q.set_counter("Ramas:", count)
			end
			if count == 0 then
			    say_title("Lectia de Echitatie(Cal lv 11) - Complet!")
			    say("Quest incheiat cu succes, pentru efortul")
				say("depus te voi rasplati cu o mica recompensa!")
				say_reward("Recompensa:")
				say_reward("Ai primit Cal lv 11!")
				pc.change_money(2)
				horse.set_level("11")
				clear_letter()
				set_state(__COMPLETE__)

			end
		end
	end

	state __COMPLETE__ begin
	end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest cal_lv_21.quest begin
	state start begin
		when login with pc.level >= 80 begin
			set_state(information)
		end
	end

	state information begin
		when letter begin
			send_letter("Lectia de Echitatie(Cal lv 21)")
		end

		when info or button begin
			say("Lectia de Echitatie(Cal lv 21) - Incepe")
			say("Acest quest iti ofera sansa unica de")
			say("a mari nivelul calului la nivelul 21.")
			say("Pentru a face acest lucru trebuie")
			say("sa mergi in Grota Exilului si sa omori")
			say("100x Soldati Sentou.")
			say_reward("Sarcina:")
			say_reward("Vaneaza monstrul numit Soldat Sentou!")
			say("")
	        pc.setqf("state", 100)
	        q.set_counter("Ramas:", 100)
		end

		when 2431.kill begin
			local count = pc.getqf("state") - 1
			if count <= 100 then
				pc.setqf("state", count)
	            q.set_counter("Ramas:", count)
			end
			if count == 0 then
			    say_title("Lectia de Echitatie(Cal lv 21) - Complet!")
			    say("Quest incheiat cu succes, pentru efortul")
				say("depus te voi rasplati cu o mica recompensa!")
				say_reward("Recompensa:")
				say_reward("Ai primit Cal lv 21!")
				pc.change_money(2)
				horse.set_level("21")
				clear_letter()
				set_state(__COMPLETE__)

			end
		end
	end

	state __COMPLETE__ begin
	end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest game_option begin
	state start begin
		when login begin
			local val=0
			local msg = "Ai blocat optiunea: "

			if pc.getqf("block_exchange") == 1 then
				msg = msg.."Negociaza, "
				val = val + 1
			end

			if pc.getqf("block_guild_invite") == 1 then
				val = val + 4
				msg = msg.."Invitatii in breasla, "
			end

			if pc.getqf("block_messenger_invite") == 1 then
				msg = msg.."Adaugare prieteni, "
				val = val + 16
			end

			if pc.getqf("block_party_invite") == 1 then
				msg = msg.."Ofera invitatii grup, "
				val = val + 2
			end

			if pc.getqf("block_party_request") == 1 then
				msg = msg.."Grup, "
				val = val + 32
			end

			if pc.getqf("block_whisper") == 1 then
				msg = msg.."Soapta(PM), "
				val = val + 8
			end

			if val != 0 then
				syschat(msg)
			end

			pc.send_block_mode(val)
		end
	end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest golem_atac begin
	state start begin
		when login with pc.level >= 63 begin
			set_state(information)
		end
	end

	state information begin
		when letter begin
			send_letter("Planul marsav al Golemului de Gheata")
		end

		when info or button begin
			say_title("Planul marsav al Golemului de Gheata")
			say("OH!")
			say("Sunt sigur ca ai auzit de monstrul numit Golem de Gheata, ei bine")
			say("decurand am aflat ca acestia planuiest sa atace satul in zori")
			say("misiunea ta este aceea de ai elimina cat mai repede posibil si")
			say("de a proteja satul chiar cu pretul vietii!")
			say_reward("Ucide 15 Golemi pentru a primi recompensa.")
			say("")
	        pc.setqf("state", 15)
	        q.set_counter("Golem de Gheata", 15)
		end

		when 1107.kill begin
			local count = pc.getqf("state") - 1
			if count <= 15 then
				pc.setqf("state", count)
	            q.set_counter("Golem de Gheata", count)
			end
			if count == 0 then
			    say_title("Golem de Gheata - Complet")
			    say("Ai completat cu succes misiunea !")
				say("Oh, esti incredibil!")
				say("Eram sigur ca vei reusi sa omori aceei golemi, ")
				say("drept rasplata pentru ajutorul acordat te voi rasplati!")
				say_reward("Recompensa:")
			    say_reward("Ai primit: Inel de experienta")
			    say_reward("Armura zueul Zeilor(DGA) +7")
			    say_reward("Ai primit 1.000.000 Yang")
			    say_reward("Ai primit 9.000.000 Experienta")
				say_reward("17 Nivel Cal")
				pc.change_money(1000000)
				pc.give_exp2(9000000)
				pc.give_item2(70005, 3)
				pc.give_item2(11287, 1)
				horse.set_level("17")
				clear_letter()
				set_state(__COMPLETE__)

			end
		end
	end

	state __COMPLETE__ begin
	end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest item_change_sex begin
	state start begin
		when 71048.use begin 
			if pc.get_level() < 50 then 
				say_title( "Schimbarea sexului a esuat!") 
				say_reward("Pentru ati schimba sex-ul ai nevoie de nivelul 50!")
				say("")
				say("Imi pare rau dar nu ai nivelul necesar pentru a face acest lucru.")
				say("Revino mai tarziu!")
				say("")
				return;
			end
			
			if pc.is_engaged() then
				say_title("Schimbarea sexului a esuat!")
				say_reward("Numai persoanele necasatorite isi pot schimba sex-ul!")
				say("")

				----"12345678901234567890123456789012345678901234567890"|
				say("Daca divortezi iti poti schimba sexul!")
				say("")
				return;
			end

			if pc.is_married() then
				say_title("Schimbarea sexului a esuat!")
				say_reward("Numai persoanele necasatorite isi pot schimba sex-ul!")
				say("")

				----"12345678901234567890123456789012345678901234567890"|
				say("Daca divortezi iti poti schimba sexul!")
				say("")
				return;
			end

			if pc.is_polymorphed() then
				say_title("Schimbarea sexului a esuat!")
				say_reward("Daca esti transformat nu iti poti schimab sexul!")
				say("")

				say("Incearca mai tarziu.")
				say("")
				return
			end

			if get_time() < pc.getqf("next_time") then
				say_title("Schimbarea sexului a esuat!")
				say_reward("Inca nu a venit timpul pentru a-ti schimba sexul.")
				say("")	
				----"12345678901234567890123456789012345678901234567890"|
				say("Iti poti schimba sex-ul odata la 3 zile!")
				say("")

				if pc.is_gm() then
					say(string.format("    %s", time_to_str(pc.getqf("next_time"))))
					say("")
					say("Un GM poate sa opreasca timpul de asteptare!")
					local s = select("Opreste timpul de asteptare" , "Asteapta  3zile..")
					if s == 1 then
						say("Timpul de asteptare, oprit!")
						pc.setqf("next_time", 0)
					end
				end
				return;

			end

			say_title("Schimbati sexul")
			say("Sexul tau va fi schimbat, apoi timp de 3zile nu")
			say("iti poti schimba sexul.")
			say("")
			wait()

			say_title("Schimbati sexul")
			say("Trebuie sa astepti 3 zile pentru a schimba sexul din nou.")
			say("Persoanele casatorite nu isi pot schimba sexul.")
			say("Persoanele transformate trebuie sa astapte pana dispare efectul transformarii.")
			say("Esti sigur ca vrei sa iti schimbi sexul?")
			say("")
			local s=select(
				"Sunt sigur(a)",
				"Inca nu m-am hotarat!")
			if 1==s then
				say_title("Schimbati sexul")
				say("Pentru ca schimbarile sa isi faca efectul trebuie sa dai logout")
				say("")

				pc.remove_item("71048",1)
				pc.setqf("next_time", get_time() + 86400 * 3)

				pc.change_sex()

				local m_sex = pc.get_sex()

				if m_sex == 0 then
				    char_log(0, "CHANGE_SEX", "F -> M")
				else
				    char_log(0, "CHANGE_SEX", "M -> F")
				end

			elseif 2==s then
				say("Ok. Incearca din nou mai tarziu!")
			end
		end
	end
end		

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest lv_99 begin
	state start begin
		when login with pc.level >= 99 begin
			set_state(information)
		end
	end

	state information begin
		when letter begin
			send_letter("Felicitari!")
		end

		when info or button begin
			say_title("(Nume Server) - Nivelul 99 atins!")
			say("Felicitari, dupa multa munca si efort ai")
			say("reusi sa atingi nivelul 99, pentru aceasta")
			say("realizare te vom rasplati cum se cuvine.")
			say_reward("Recompensa:")
			say("")
	        say_reward("Ai primit 150.000.000 Yang")
			pc.change_money(150000000)
			clear_letter()
			set_state(__COMPLETE__)
		end
	end

	state __COMPLETE__ begin
	end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest prima_misiune begin
	state start begin
		when login with pc.level >= 1 begin
			set_state(information)
		end
	end

	state information begin
		when letter begin
			send_letter("Prima misiune.")
		end

		when info or button begin
			say_title("Prima misiune.")
			say("")
			say("Pentru inceput trebuie sa omori 15x Caine Salbatic")
			say("pentru a primi recompensa.")
			say("")
			say_reward("Omoara 15 Caini Salbatici!")
			say("")
	        pc.setqf("state", 15)
	        q.set_counter("Mai ai de omorat:", 15)
		end

		when 101.kill begin
			local count = pc.getqf("state") - 1
			if count <= 15 then
				pc.setqf("state", count)
	            q.set_counter("Mai ai de omorat:", count)
			end
			if count == 0 then
			    say_title("Prima misiune.")
			    say("Ai completat cu succes misiunea !")
				say("Drept rasplata ai primit:")
				say("")
				say_reward("Recompensa:")
			    say_reward("Ai primit 20x Mantia Curajului")
			    say_reward("Ai primit 3.000 Experienta")
				pc.give_exp2(3000)
				pc.give_item2(70038, 20)
				clear_letter()
				set_state(__COMPLETE__)

			end
		end
	end

	state __COMPLETE__ begin
	end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest remove_polymorph begin
    state start begin
	when old_woman.chat."Anuleaza Transformarea" with pc.is_polymorphed() begin
		say_title("Femeie Batrana:")
	    say("")
		say("Ok, in cateva secunde vei reveni la normal!")
		say("")
	    pc.remove_polymorph()
	end
    end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest reset_scroll begin
state start begin
when 71002.use begin
--- l
say_title("Rearanjare Status")
say("Doresti sa resetezi") 
say("punctele tale actuale de status") 
say("si de abilitate?") 
say("") 

local s = select("Da", "Nu")
if 2 == s then
return
end

say_title("Rearanjare Status: Da!")
say("Gandeste-te din nou la decizia,") 
say("ta, status-ul si abilitatile iti vor") 
say("fi resetare!") 
say("Doresti sa continuam?") 
say("") 

local c = select("Da!", "Nu, mersi!")
if 2 == c then
return
end

char_log(0, "RESET_ALL", "USE_ITEM(71002)")
pc.remove_item(71002)

char_log(0, "RESET_ALL", "RESET_STAT_POINTS")
pc.reset_point()

char_log(0, "RESET_ALL", "RESET_SKILL_POINTS")
pc.clear_skill()
pc.set_skill_group(0)
char_log(0, "RESET_ALL", "RESET_END")
end

when 71003.use begin

--- l
say_title("Redistribuirea Skilurilor")
say("Poti reseta maxim 17 puncte.") 
say("Chiar daca ati utilizat mai multe") 
say("puncte pe abilitatea respectiva")
say("ele vor fi pierdute.")
say_reward("Doresti sa continuam?")

local result = BuildSkillList(pc.get_job(), pc.get_skill_group())

local vnum_list = result[1]
local name_list = result[2]

if table.getn(vnum_list) < 2 then
say("Nu sunt skiluri de resetat!")
say("")
return
end

say("Ce abilitate doresti sa o resetezi?")
say("")

local i = select_table(name_list)

if table.getn(name_list) == i then
return
end

local name = name_list[i]
local vnum = vnum_list[i]

say_title("Redistribuirea Skilurilor") 
say_reward("Poti reseta maxim 17 puncte.") 
say_reward("Chiar daca ati utilizat mai multe") 
say_reward("puncte pe abilitatea respectiva")
say_reward("ele vor fi pierdute.")
say(string.format("%s resetezi?", name))
say("")

local s = select("Da", "Nu")
if 2 == s then
return
end

say_title("Redistribuirea Skilurilor")
say("Odata ce ai acceptat resetarea nu mai puteti da inapoi.") 
say("Resetezi skilul? ") 
say("")

local c = select("Da", "Nu")

if 2 == c then
return
end

--
--local val = pc.getqf("force_to_master_skill")
--if val > 0 then
--- l
-- say_title("Redistribuirea Skilurilor: Succes!!")
-- say("Abilitatea a fost resetata,")
-- say("ai primit 17 puncte de abilitate.")
-- say("")
-- say_reward("Abilitatea respectiva va deveni Mare")
-- say_reward("Maestru la 17 puncte.")
-- say("")
-- return
--end

char_log(0, "RESET_ONE_SKILL", "USE_ITEM(71003)")
pc.remove_item(71003)

char_log(0, "RESET_ONE_SKILL", string.format("RESET_SKILL[%s]", name))
pc.clear_one_skill(vnum)

char_log(0, "RESET_ONE_SKILL", "APPLY_17MASTER_BONUS")
pc.setqf("force_to_master_skill", 1)

say_title("Redistribuirea Skilurilor: Terminata!")
say(string.format("%s a devenit normal.", name))
say("")

--- l
say_reward("Redistribuirea Skilurilor a avut succes.")
say("")
end
end
end

Cod: Selectaţi tot

----------------------------------------------
--             Quest by Atashi              --
----------------------------------------------
quest shutdown begin
	state start begin
		when letter with pc.is_gm and pc.get_name() == "[GA]Atashi" begin
			send_letter("Shutdown")
		end
		when info or button with pc.is_gm and pc.get_name() == "[GA]Atashi"  begin
			command("n In 15 minute server-ul va fi oprit!")
			timer("shutdown1", 900)
		end
		when shutdown1.timer with pc.is_gm and pc.get_name() == "[GA]Atashi"  begin
			command("n In 10 minute server-ul va fi oprit!")
			timer("shutdown2", 600)
		end
		when shutdown2.timer with pc.is_gm and pc.get_name() == "[GA]Atashi  begin
			command("n In 5 minute server-ul va fi oprit!")
			timer("shutdown3", 300)
		end
		when shutdown3.timer with pc.is_gm and pc.get_name() == "[GA]Atashi"  begin
			command("n In 2 minute server-ul va fi oprit!")
			timer("shutdown4", 120)
		end
		when shutdown4.timer with pc.is_gm and pc.get_name() == "[GA]Atashi"  begin
			command("n Intr-un minut server-ul va fi oprit!")
			timer("shutdown5", 60)
		end
		when shutdown5.timer with pc.is_gm and pc.get_name() == "[GA]Atashi"  begin
			command("shutdown")
		end
	end
end