[QUEST] npc skilluri, loterie, schimba sex, resetare skill etc..

PoKe
Site Admin
Mesaje: 29
Membru din: Sâm Mai 30, 2020 6:33 pm

Dum Iun 21, 2020 4:09 pm

Cod: Selectaţi tot

quest npc_multifunctinal begin
	state start begin
		when 20094.chat."Panou multifunctional" begin
			local s = select("Skiluri G/P", "Banca", "Loto(Loterie)", "Schimba rasa", "Schimba sexul", "Resetare Skill", "Pagina 2", "Anuleaza")
				if s == 1 then	
					say_title ( "Skilluri G/P:" )
					say ( "Bun venit pe Nume server" )
					say ( "Nume server va ofera posibilitatea de a lua skillurile P sau G fara a mai apela la GM!" )
					say ( "Pentru a lua skillurile trebuie sa platesti o suma de bani" )
					say ( "" )
					say ( "" )
					say_reward ( "Skillurile G costa 15kk, necesita nivel 40" )
					say_reward ( "Skillurile P costa 30kk, necesita nivel 60")
					local opzioni = select ( "Skiluri G" , "Skiluri P", "Anuleaza" )
						if opzioni == 1 then
							if pc.get_gold()<15000000 then
								say("Nu ai 15 kk")
							elseif pc.get_level()<40 then
								say("Nu ai nivel 40")
							else
								local skillg = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
									if skillg == 1 then
										pc.set_skill_level (1,30)
										pc.set_skill_level (2,30)
										pc.set_skill_level (3,30)
										pc.set_skill_level (4,30)
										pc.set_skill_level (5,30)
										pc.set_skill_level (16,30)
										pc.set_skill_level (17,30)
										pc.set_skill_level (18,30)
										pc.set_skill_level (19,30)
										pc.set_skill_level (20,30)
										pc . changegold ( - 15000000 ) 
									elseif skillg == 2 then
										pc.set_skill_level (31,30)
										pc.set_skill_level (32,30)
										pc.set_skill_level (33,30)
										pc.set_skill_level (34,30)
										pc.set_skill_level (35,30)
										pc.set_skill_level (46,30)
										pc.set_skill_level (47,30)
										pc.set_skill_level (48,30)
										pc.set_skill_level (49,30)
										pc.set_skill_level (50,30)
										pc . changegold ( - 15000000 )
									elseif skillg == 3 then
										pc.set_skill_level (61,30)
										pc.set_skill_level (62,30)
										pc.set_skill_level (63,30)
										pc.set_skill_level (64,30)
										pc.set_skill_level (65,30)
										pc.set_skill_level (66,30)
										pc.set_skill_level (76,30)
										pc.set_skill_level (77,30)
										pc.set_skill_level (78,30)
										pc.set_skill_level (79,30)
										pc.set_skill_level (80,30)
										pc.set_skill_level (81,30)
										pc . changegold ( - 15000000 )
									elseif skillg == 4 then
										pc.set_skill_level (91,30)
										pc.set_skill_level (92,30)
										pc.set_skill_level (93,30)
										pc.set_skill_level (94,30)
										pc.set_skill_level (95,30)
										pc.set_skill_level (96,30)
										pc.set_skill_level (106,30)
										pc.set_skill_level (107,30)
										pc.set_skill_level (108,30)
										pc.set_skill_level (109,30)
										pc.set_skill_level (110,30)
										pc.set_skill_level (111,30)
										pc . changegold ( - 15000000 )
									end
								end
						elseif opzioni == 2 then
							if pc.get_gold()<30000000 then
								say("Nu ai 30kk")
							elseif pc.get_level()<60 then
								say("Nu ai nivelul 60")
							else
								local skillp = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
									if skillp == 1 then
										pc.set_skill_level(1 ,59)
										pc.set_skill_level(2 ,59)
										pc.set_skill_level(3 ,59)
										pc.set_skill_level(4 ,59)
										pc.set_skill_level(5 ,59)
										pc.set_skill_level(16 ,59)
										pc.set_skill_level(17 ,59)
										pc.set_skill_level(18 ,59)
										pc.set_skill_level(19 ,59)
										pc.set_skill_level(20 ,59)
										pc . changegold ( - 30000000 )
									elseif skillp == 2 then
										pc.set_skill_level(31 ,59)
										pc.set_skill_level(32 ,59)
										pc.set_skill_level(33 ,59)
										pc.set_skill_level(34 ,59)
										pc.set_skill_level(35 ,59)
										pc.set_skill_level(46 ,59)
										pc.set_skill_level(47 ,59)
										pc.set_skill_level(48 ,59)
										pc.set_skill_level(49 ,59)
										pc.set_skill_level(50 ,59)
										pc . changegold ( - 30000000 )
									elseif skillp == 3 then
										pc.set_skill_level(76 ,59)
										pc.set_skill_level(77 ,59)
										pc.set_skill_level(78 ,59)
										pc.set_skill_level(79 ,59)
										pc.set_skill_level(80 ,59)
										pc.set_skill_level(81, 59)
										pc.set_skill_level(61 ,59)
										pc.set_skill_level(62 ,59)
										pc.set_skill_level(63 ,59)
										pc.set_skill_level(64 ,59)
										pc.set_skill_level(65 ,59)
										pc.set_skill_level(66 ,59)
										pc . changegold ( - 30000000 )
									elseif skillp == 4 then
										pc.set_skill_level(106 ,59)
										pc.set_skill_level(107 ,59)
										pc.set_skill_level(108 ,59)
										pc.set_skill_level(109 ,59)
										pc.set_skill_level(110 ,59)
										pc.set_skill_level(111 ,59)
										pc.set_skill_level(91 ,59)
										pc.set_skill_level(92 ,59)
										pc.set_skill_level(93 ,59)
										pc.set_skill_level(94 ,59)
										pc.set_skill_level(95 ,59)
										pc.set_skill_level(96 ,59)
										pc . changegold ( - 30000000 )
									end
								end
							end
				elseif s == 2 then
					say_title("Depozit de Yang")
					say("Ce pot face pentru tine?")
					local f = select("Depune Yang(100kk)", "Depune Yang(500kk)", "Depune Yang(1kkk)", "Retrage Yang(100kk)" , "Retrage Yang(500kk)" , "Retrage Yang(1kkk)" , "Inchide")
					if f == 1 then
					   say_title("Depozit de Yang")
					say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
					say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Pana Razboinicului!" )
									say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
									say ( "" ) 
									say ( "Doresti sa depui 100kk?" )
									local s = select ( "Da" , "Nu" )
									if s == 2 then 
									return 
									end  
									if pc.get_gold()<100000000 then
									say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 100kk" )  
									say ( "Te astept cand ai acesti bani :)" ) 
									return 
									end
									say ( "Ai depozitat banii cu succes!" ) 
									say_item ( "Pana Razboinicului" , 70036 , "" ) 
									pc . changegold ( - 100000000 ) 
									pc . give_item2 ( 70036 )
					elseif f == 2 then            
					   say_title("Depozit de Yang")
					say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
					say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Medalia Razboinicului!" )
									say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
									say ( "" ) 
									say ( "Doresti sa depui 500kk?" )
									local s = select ( "Da" , "Nu" )
									if s == 2 then 
									return 
									end  
									if pc.get_gold()<500000000 then
									say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 500kk" )  
									say ( "Te astept cand ai acesti bani :)" ) 
									return 
									end
									say ( "Ai depozitat banii cu succes!" ) 
									say_item ( "Medalia Razboinicului" , 70004 , "" ) 
									pc . changegold ( - 500000000 ) 
									pc . give_item2 ( 70004 )            
					elseif f == 3 then
					   say_title("Depozit de Yang")
					say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
					say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Cupa Razboinicului!" )
									say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
									say ( "" ) 
									say ( "Doresti sa depui 1kkk?" )
									local s = select ( "Da" , "Nu" )
									if s == 2 then 
									return 
									end  
									if pc.get_gold()<1000000000 then
									say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 1kkk" )  
									say ( "Te astept cand ai acesti bani :)" ) 
									return 
									end
									say ( "Ai depozitat banii cu succes!" ) 
									say_item ( "Cupa Razboinicului" , 50042 , "" ) 
									pc . changegold ( - 1000000000 ) 
									pc . give_item2 ( 50042 )
									elseif f == 4 then
										say_title ( "Depozit de Yang" ) 
										say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
										say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
										say_item ( "Pana Razboinicului" , 70036 , "" )
										  say_title ( "Depozit de Yang" ) 
										say ( "Esti sigur ca doresti sa retragi banii?" )
										local s = select ( "Da" , "Nu" ) 
										if s == 2 then 
										return 
										end 
										if pc . count_item ( 70036 ) == 0 then 
										say_title ( "Depozit de Yang" )
										say ( "Nu detii Pana Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 100kk!." ) 
										say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Pana Razboinicului." ) 
										return 
										end 
										say_title ( "Depozit de Yang" ) 
										if pc . count_item ( 70036 ) == 0 then 
										return 
										end 
										say ( "Ai retras banii cu succes!" ) 
										pc . remove_item ( 70036 ) 
										pc . changegold ( 100000000 )
																   elseif f == 5 then
																	   say_title ( "Depozit de Yang" ) 
										say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
										say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
										say_item ( "Medalia Razboinicului" , 70004 , "" )
										  say_title ( "Depozit de Yang" ) 
										say ( "Esti sigur ca doresti sa retragi banii?" )
										local s = select ( "Da" , "Nu" ) 
										if s == 2 then 
										return 
										end 
										if pc . count_item ( 70004 ) == 0 then 
										say_title ( "Depozit de Yang" )
										say ( "Nu detii Medalia Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 500kk!." ) 
										say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Medalia Razboinicului." ) 
										return 
										end 
										say_title ( "Depozit de Yang" ) 
										if pc . count_item ( 70004 ) == 0 then 
										return 
										end 
										say ( "Ai retras banii cu succes!" ) 
										pc . remove_item ( 70004 ) 
										pc . changegold ( 500000000 )
																	 elseif f == 6 then
																	   say_title ( "Depozit de Yang" ) 
										say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
										say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
										say_item ( "Cupa Razboinicului" , 50042 , "" )
										  say_title ( "Depozit de Yang" ) 
										say ( "Esti sigur ca doresti sa retragi banii?" )
										local s = select ( "Da" , "Nu" ) 
										if s == 2 then 
										return 
										end 
										if pc . count_item ( 50042 ) == 0 then 
										say_title ( "Depozit de Yang" )
										say ( "Nu detii Cupa Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 1kkk!." ) 
										say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Cupa Razboinicului." ) 
										return 
										end 
										say_title ( "Depozit de Yang" ) 
										if pc . count_item ( 50042 ) == 0 then 
										return 
										end 
										say ( "Ai retras banii cu succes!" ) 
										pc . remove_item ( 50042 ) 
										pc . changegold ( 1000000000 )
									end
				elseif s == 3 then
					local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am nrorc...")
						if loto == 1 then
							say_title("Loteria:")
							say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
							say("Poti sa participi la loto la un pret de:")
							say_reward("6.000.000 Yang (6kk)")
							say("Continui?")
							local scelta = select("Da","Nu")
							if scelta == 1 then
								if pc . gold >= 6000000 then
									pc . changegold ( - 6000000 )
									local k
									repeat
										say_title( "Loteria:" )
										say( "Introdu un numar de la 1 la 5" )
										say("Daca acest numar corespunde cu rezultatul")
										say("poti castiga un")
										say("jackpot de 50.000.000 Yang (50kk)!!")
										k = tonumber(input())
										if k == nil then
											say_title("Loteria:")
											say("Scrie un numar!")
											local s = select("Continua", "Anuleaza")
											if s == 2 then
												return
											end
										else
											if k <= 0 then
												say_title("Loteria:")
												say("Scrie un numar pozitiv!")
												local s = select("Continua", "Anuleaza")
												if s == 2 then
													return
												end
											else
												if k > 5 then
													say_title("Loteria:")
													say("Scrie un numar intre 1 si 5")
													local s = select("Continua", "Anuleaza")
													if s == 2 then
														return
													end
												else
													break
												end
											end
										end
									until false
									say("Numarul ales de tine: " .. k )
									wait ()
									say ("Este timpul extrageri numarului!")
									local random_number = tostring(number(1,5))
									say("Numarul extras: " .. random_number)
									if random_number == tostring(k) then
										say ("Se pare ca norocul te-a lovit din plin")
										say_reward ("Ai castigat 50.000.000 Yang(50kk)")
										pc.changegold ( 50000000 )
									else 
										say ("Din pacate nu ai avut noroc. Reincearca!")
									end
								end
							end
						elseif loto == 2 then
							say_title("Loteria:")
							say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
							say("Poti sa participi la loto la un pret de:")
							say_reward("5.000.000 Yang (5kk)")
							say("Continui?")
							local scelta = select("Da","Nu")
							if scelta == 1 then
								if pc . gold >= 5000000 then
									pc . changegold ( - 5000000 )
									local k
									repeat
										say_title( "Loteria:" )
										say( "Introdu un numar de la 1 la 10" )
										say("Daca acest numar corespunde cu rezultatul")
										say("poti castiga un")
										say("jackpot de 75.000.000 Yang (75kk)!!")
										k = tonumber(input())
										if k == nil then
											say_title("Loteria:")
											say("Scrie un numar!")
											local s = select("Continua", "Anuleaza")
											if s == 2 then
												return
											end
										else
											if k <= 0 then
												say_title("Loteria:")
												say("Scrie un numar pozitiv!")
												local s = select("Continua", "Anuleaza")
												if s == 2 then
													return
												end
											else
												if k > 10 then
													say_title("Loteria:")
													say("Scrie un numar intre 1 si 10")
													local s = select("Continua", "Anuleaza")
													if s == 2 then
														return
													end
												else
													break
												end
											end
										end
									until false
									say("Numarul ales de tine: " .. k )
									wait ()
									say ("Este timpul extrageri numarului!")
									local random_number = tostring(number(1,10))
									say("Numarul extras: " .. random_number)
									if random_number == tostring(k) then
										say ("Se pare ca norocul te-a lovit din plin")
										say_reward ("Ai castigat 75.000.000 Yang(75kk)")
										pc.changegold ( 75000000 )
									else 
										say ("Din pacate nu ai avut noroc. Reincearca!")
									end
								end
							end
						elseif loto == 3 then
							say_title("Loteria:")
							say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
							say("Poti sa participi la loto la un pret de:")
							say_reward("4.000.000 Yang (4kk)")
							say("Continui?")
							local scelta = select("Da","Nu")
							if scelta == 1 then
								if pc . gold >= 4000000 then
									pc . changegold ( - 4000000 )
									local k
									repeat
										say_title( "Loteria:" )
										say( "Introdu un numar de la 1 la 20" )
										say("Daca acest numar corespunde cu rezultatul")
										say("poti castiga un")
										say("jackpot de 100.000.000 Yang (100kk)!!")
										k = tonumber(input())
										if k == nil then
											say_title("Loteria:")
											say("Scrie un numar!")
											local s = select("Continua", "Anuleaza")
											if s == 2 then
												return
											end
										else
											if k <= 0 then
												say_title("Loteria:")
												say("Scrie un numar pozitiv!")
												local s = select("Continua", "Anuleaza")
												if s == 2 then
													return
												end
											else
												if k > 20 then
													say_title("Loteria:")
													say("Scrie un numar intre 1 si 20")
													local s = select("Continua", "Anuleaza")
													if s == 2 then
														return
													end
												else
													break
												end
											end
										end
									until false
									say("Numarul ales de tine: " .. k )
									wait ()
									say ("Este timpul extrageri numarului!")
									local random_number = tostring(number(1,20))
									say("Numarul extras: " .. random_number)
									if random_number == tostring(k) then
										say ("Se pare ca norocul te-a lovit din plin")
										say_reward ("Ai castigat 100.000.000 Yang(100kk)")
										pc.changegold ( 100000000 )
									else 
										say ("Din pacate nu ai avut noroc. Reincearca!")
									end
								end
							end
						end
				elseif s == 4 then
					say ( "" ) 
					say ( "Vrei sa schimbi Rasa??" ) 
					say ( "Din ori ce rasa esti poti deveni alta" )
					say ( "" )
					say ( "" )
					say ( "" )
					local main_set = select ( "Da" , "Nu" )
					if main_set == 1 then
						say ( "Ce Rasa Vrei?" )
						local razzacambiasex = select ("Warrior","Ninja","Sura","Shaman","Nu Stiu..")
							if razzacambiasex == 1 then		
								local sexwar = select ("Baiat","Fata")
									if sexwar == 1 then				
										pc.polymorph("4")
										pc.change_sex()
									elseif sexwar == 2 then
										pc.polymorph("4")
										pc.change_sex()
										pc.polymorph("20032")
										pc.polymorph("1")
										pc.change_sex()
										pc.polymorph("20032")
									end
							elseif razzacambiasex == 2 then
								local sexninja = select ("Baiat","Fata")
									if sexninja == 2 then				
										pc.polymorph("5")
										pc.change_sex()
									elseif sexninja == 1 then
										pc.polymorph("5")
										pc.change_sex()
										pc.polymorph("20032")
										pc.polymorph("1")
										pc.change_sex()
										pc.polymorph("20032")
									end
							elseif razzacambiasex == 3 then
								local sexsura = select ("Baiat","Fata")
									if sexsura == 1 then				
										pc.polymorph("6")
										pc.change_sex()
									elseif sexsura == 2 then
										pc.polymorph("6")
										pc.change_sex()
										pc.polymorph("20032")
										pc.polymorph("1")
										pc.change_sex()
										pc.polymorph("20032")
									end
							elseif razzacambiasex == 4 then
								local sexshamy = select ("Baiat","Fata")
									if sexshamy == 2 then				
										pc.polymorph("7")
										pc.change_sex()
									elseif sexshamy == 1 then
										pc.polymorph("7")
										pc.change_sex()
										pc.polymorph("20032")
										pc.polymorph("1")
										pc.change_sex()
										pc.polymorph("20032")
									end
								end
							end
				elseif s == 5 then
					say ( "" ) 
					say ( "Sigur vrei sa schimbi sexul?" ) 
					say ( "" )
					local main_set = select ( "Da" , "Nu" ) 
						if main_set == 1 then
							pc.change_sex()
							pc.polymorph("20032")
							say ( "Ai schimbat sexul cu succes" ) 
						end
				elseif s == 6 then
					local reskill = select("Reseteaza toate skilurile", "M-am razgandit")
						if reskill == 1 then
							say ( "Vrei Sa Resetezi toate skillurile?" )
							say ( "Daca resetezi skillurile vei loa totul de la M1." )
							local main_set = select ( "Da" , "Nu" ) 
								if main_set == 1 then
									pc.setqf("clear", 1)
									pc.clear_skill()
									pc.set_skill_group(0)
									say ( "Succes! Iti urez o zi buna !" ) 
								end
							end
				elseif s == 7 then
					local pagina2 = select("Elimina frizura", "Mareste viteza", "Mesaj global", "Modificare grad", "Teleportarea jucatorului", "Cal lvl 21", "Marmura Binecuvantare", "Anuleaza")
						if pagina2 == 1 then
							say ( "" ) 
							say ( "Esti sigur ca vrei sa elimini frizura?" ) 
							say ( "" )
							local main_set = select ( "Da" , "Nu" ) 
								if main_set == 1 then
								pc.set_part(PART_HAIR, 0)
								say ( "Ai Eliminat Cu Succes Frizura" ) 
								say ( "" ) 
							end
						elseif pagina2 == 2 then
							if pc.get_gold()<1000000000 then
							say("Nu ai 1.000.000.000 Yang (1kkk)")
						else
							say ( "Esti sigur ca vrei sa iti maresc viteza" ) 
							say ( "de miscare si de atac cu 150 puncte?" )
							say ( "Aceasta costa 1.000.000.000 Yang (1kkk)" )
							local vel =select ("Da","Nu")
								if vel == 1 then
									affect . add_collect ( apply . ATT_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
									affect . add_collect ( apply . MOV_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
									pc . changegold ( -1000000000 )
									say ( "Ai primit viteza maxima cu succes" ) 
									say ( "Ti s-au retras din Yang 1.000.000.000 Yang (1kkk)" )
								end
							end
						elseif pagina2 == 3 then
							say("Cu doar 5kk poti sa postezi")
							say("un mesaj global")
							say("Daca adresezi jigniri staffului")
							say("sau unor playeri , se ajunge la sanctiuni")
							say("Esti sigur ca vrei sa postezi un mesaj?")
							local mes = select("Da", "Nu")
								if mes == 1 then
									if pc.get_gold()<5000000 then
									say("Nu ai 5.000.000 Yang (5kk)")
								else
									say("Scrie Mesajul :")
									local notice_text = input()
									notice_all("Lv. "..pc.get_level().."  "..pc.get_name().." spune : "..notice_text)
									pc.changegold(-5000000)
								end
							end
						elseif pagina2 == 4 then
							say("Cu doar 3kk poti sa iti")
							say("modifici gradul din fata numelui")
							say("Esti sigur ca vrei sa iti modifici")
							say("gradul?")
							local grad = select("Da", "Nu")
								if grad == 1 then
									local grad1 = select("Transforma-ti gradul(Pozitiv)", "Transforma-ti gradul(Nagativ)", "Anuleaza")
										if grad1 == 1 then
											if pc.get_gold()<3000000 then
											say("Nu ai 3.000.000 Yang (3kk)")
										else
											say("Alege ce grad sa-ti dau")
											local a = select ( "Prietenos" , "Bun" , "Nobil" , "Cavaleresc" , "Anuleaza" )
												if a == 1 then
												pc . change_alignment ( 1000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Prietenos")
												elseif a == 2 then
												pc . change_alignment ( 4000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Bun")
												elseif a == 3 then
												pc . change_alignment ( 8000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Nobil")
												elseif a == 4 then
												pc . change_alignment ( 20000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Cavaleresc")
												end
											end
										elseif grad1 == 2 then
											if pc.get_gold()<3000000 then
											say("Nu ai 3.000.000 Yang (3kk)")
										else
											local b = select ( "Agresiv" , "Fatarnic" , "Rautacios" , "Crud" , "Anuleaza" )
												if b == 1 then
												pc . change_alignment ( -1000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Agresiv")
												elseif b == 2 then
												pc . change_alignment ( -4000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Fatarnic")
												elseif b == 3 then
												pc . change_alignment ( -8000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Rautacios")
												elseif b == 4 then
												pc . change_alignment ( -20000 )
												pc.changegold(-3000000)
													say("Acum ai primit gradul Crud")
												end
											end
										end
									end
						elseif pagina2 == 5 then
							say_title("Teleportarea jucatorului:")
							say("Daca ai 35kk poti sa te teleportezi la un alt jucator.")
							say_reward("Vrei sa te teleportezi?")
							local a = select("Da","Nu!")
								if a == 1 then
									if pc.get_gold()<35000000 then
									say("Nu ai 35.000.000 Yang (35kk)")
								else
									say_title("Teleportarea jucatorului:")
									say_reward("Scrie numele jucatorului la care vrei sa te[ENTER]teleportezi:")
									local name = input()
										pc.teleport(name)
										pc.changegold(-35000000)
									end
								end
						elseif pagina2 == 6 then
							say ( "Salut! Iti pot oferi cal lvl 21 in schimbul a 5kk" ) 
							say ( "Vrei sa iti dau calul?" ) 
							say ( "" ) 
							say ( "Sigur vrei?" )
							local main_set = select("Da", "Nu") 
								if main_set == 1 then
									if pc.get_gold()<5000000 then
									say("Nu ai 5.000.000 Yang (5kk)")
								else
									horse . unride ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									horse . advance ( ) 
									pc.changegold(-5000000)
									command("setsk 131 10")
									command("setsk 137 20")
									command("setsk 138 20")
									command("setsk 139 20")
									command("setsk 140 20")
									horse . ride ( ) 
									setskin ( NOWINDOW ) 
									pc . give_item2 ( "50053" , 1 )
								end
							end
						elseif pagina2 == 7 then
							say("Eu iti pot oferi 2 stocuri de marmuri")
							say("Unul de o marmura; Unul de 5 marmuri")
							local marmuri = select("Stoc de o Marmura", "Stoc de 5 Marmuri", "Anuleaza")
								if marmuri == 1 then
									pc . give_item2 ( "70024" , 1 )
									say("Ai primit o Marmura")
								elseif marmuri == 2 then
									pc . give_item2 ( "70024" , 1 )
									pc . give_item2 ( "70024" , 1 )
									pc . give_item2 ( "70024" , 1 )
									pc . give_item2 ( "70024" , 1 )
									pc . give_item2 ( "70024" , 1 )
									say("Ai primit 5 Marmuri")
								end
							end
						end
					end
				end
			end

Tutorial instalare quest:
1. Salvati continutul quest-ului intr-un fisier text cu extensia .quest (exp: nume.quest)
2. Va conectati la filezilla / winscp si intrati in /usr/game/share/locale/romania/quest (depinde ce tip de server aveti, poate fi diferita calea).
3. Il urcati acolo (atentie sa fie .quest) si da-ti permisiuni 777.
4. Apoi te loghezi in FreeBSD / putty si scrii in felul următor: cd /usr/game/share/locale/romania/quest apoi ./qc nume.quest
5. Intrati pe server si scrieti /reload q .
6. Acum intrati pe server si testati questul.
Scrie răspuns