Am incercat sa instalez un quest complex si imi da o eroare.
Va rog sa imi spuneti ce am gresit in quest caci nu inteleg, sau sa modificati questul rezolvand eroarea.
Quest:
Cod: Selectaţi tot
quest metin2freakznpc begin
state start begin
when 20092.chat."Metin2Freakz " begin
local s = select("Skills", "Banca", "Loto", "Schimba rasa", "Schimba sexul", "Resetare Skill", "Pagina 2", "Anuleaza")
if s == 1 then
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Te rog sa alegi ce abilitati doresti....[ENTER][ENTER][ENTER][ENTER]")
local s = select ("M","G","P","Secundare","Iesire")
if s==1 then
sk=20
skill = "M"
limita=20
bani=1000000
elseif s==2 then
sk=30
skill = "G"
limita=40
bani=10000000
elseif s==3 then
sk=59
skill = "P"
limita=60
bani=50000000
elseif s==4 then
sk=59
skill = "Secundare"
limita=85
bani=50000000
end
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Tiai ales skilluri "..skill.."")
say("Pentru a continua ai nevoie de ")
say("Nivelul: "..limita.."[ENTER]Yang:"..bani.."")
say("Doresti sa continui?[ENTER](c) Cruel")
if select("Da","Nu")==1 then
if pc.get_level() >=limita and pc.get_gold() >= bani then
pc.changegold ( -bani )
if skill=="Secundare" then
pc.set_skill_level(121 ,59)
pc.set_skill_level(122 ,2)
pc.set_skill_level(123 ,59)
pc.set_skill_level(124 ,59)
pc.set_skill_level(125 ,59)
pc.set_skill_level(126 ,59)
pc.set_skill_level(127 ,59)
pc.set_skill_level(128 ,59)
pc.set_skill_level(129 ,59)
pc.set_skill_level(130 ,30)
pc.set_skill_level(131 ,59)
pc.set_skill_level(132 ,59)
pc.set_skill_level(133 ,59)
pc.set_skill_level(134 ,59)
pc.set_skill_level(135 ,59)
pc.set_skill_level(136 ,59)
pc.set_skill_level(137 ,59)
elseif skill=="G" or skill=="M" or skill=="P" then
table.foreachi(special.active_skill_list[pc.get_job()+1][pc.get_skill_group()],function(r,skill) pc.set_skill_level(skill,sk) end)
end
end
elseif pc.get_level() < limita then
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Tiai ales skilluri "..skill.."")
say("Insa nu ai atins nivelul necesar ("..limita..")")
say("Te rog sa te intorci cand atingi nivelul necesar.")
elseif pc.get_gold() < bani then
say_title(mob_name(npc.get_race())..":")
say("Buna "..pc.name)
say("Tiai ales skilluri "..skill.."")
say("Insa nu ai suma necesara ("..bani..")")
say("Te rog sa te intorci cand o sa ai suma necesara.")
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 Pana de scris!" )
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 ( "Pana de scris" , 70029 , "" )
pc . changegold ( - 500000000 )
pc . give_item2 ( 70029 )
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 Monoclu rosu!" )
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 ( "Monoclu rosu!" , 70030 , "" )
pc . changegold ( - 1000000000 )
pc . give_item2 ( 70030 )
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 Nota a Studentului!. Cu ajutorul ei poti retrage suma dorita." )
say_item ( "Nota Studentului" , 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 Nota studenta 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 Nota studentului." )
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 de scris. Cu ajutorul ei poti retrage suma dorita." )
say_item ( "Pana de scris" , 70029 , "" )
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 ( 70029 ) == 0 then
say_title ( "Depozit de Yang" )
say ( "Nu detii Pana de scris 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 ( 70029 ) == 0 then
return
end
say ( "Ai retras banii cu succes!" )
pc . remove_item ( 70029 )
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 un monoclu rosu. Cu ajutorul ei poti retrage suma dorita." )
say_item ( "Monoclu rosu" , 70030 , "" )
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 ( 70030 ) == 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 ( 70030 ) == 0 then
return
end
say ( "Ai retras banii cu succes!" )
pc . remove_item ( 70030 )
pc . changegold ( 1000000000 )
end
elseif s == 3 then
local loto = select("Loteria mica", "Loteria mijlocie", "Loteria mare", "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 Mijlocie:")
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 Mare!:")
say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
say("Poti sa participi la loto la un pret de:")
say_reward("5.000.000 Yang (4kk)")
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 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 ( "Pentru a-ti elimina frizura ai nevoie de 5kk.Continui?" )
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()<5000000 then
say("Nu ai 5.000.000 Yang (5kk)")
else
say ( "Esti sigur ca vrei sa iti maresc viteza" )
say ( "de miscare si de atac cu 150 puncte?" )
say ( "Aceasta costa 20.000.000 Yang (20kk)" )
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 ( -20000000 )
say ( "Ai primit viteza maxima cu succes" )
say ( "Ti s-au retras din Yang 20.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_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 == 5 then
say ( "Salut! Iti pot oferi cal lvl 21 in schimbul a 30kk" )
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()<30000000 then
say("Nu ai 30.000.000 Yang (30kk)")
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 == 6 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
end
end
end
de 
de