Shizuke scrie: ↑06 Mai 2022, 17:37 un raspuns de la cineva?

sanducatalin1 scrie: ↑06 Mai 2022, 22:53

Shizuke scrie: ↑06 Mai 2022, 17:37 un raspuns de la cineva?

quest npc4metin begin
state start begin
when 9004.chat."NPC " begin
local s = select("Loterie", "Schimba rasa", "Schimba sexul", "Pagina 2", "Anuleaza")
if s == 1 then
if s == 1 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("615.000.000 Yang (6kk)")
say("Continui?")
local scelta = select("Da","Nu")
if scelta == 1 then
if pc . gold >= 615000000 then
pc . changegold ( - 615000000 )
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("50.000.000 Yang (50kk)")
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 150.000.000 Yang (150kk)!!")
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 150.000.000 Yang(150kk)")
pc.changegold ( 150000000 )
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("100.000.000 Yang (100kk)")
say("Continui?")
local scelta = select("Da","Nu")
if scelta == 1 then
if pc . gold >= 100000000 then
pc . changegold ( - 100000000 )
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 1.000.000.000 Yang (1kkk)!!")
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 1.000.000.000 Yang(1kkk)")
pc.changegold ( 1000000000 )
else
say ("Din pacate nu ai avut noroc. Reincearca!")
end
end
end
end
elseif s == 2 then
say ( "" )
say ( "Vrei sa schimbi Rasa?" )
say ( "Din ori ce rasa esti poti deveni alta" )
say ( "In schimbul unei sume de bani ")
say ( "Acest Fenomen este foarte complext")
say ( "Din acest motiv te va costa 1kkk")
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 pc . gold >= 100000000 then
pc . changegold ( - 100000000 )
elseif 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 pc . gold >= 100000000 then
pc . changegold ( - 100000000 )
elseif 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 pc . gold >= 100000000 then
pc . changegold ( - 100000000 )
elseif 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 == 3 then
local sexshamy = select ("Baiat","Fata")
if pc . gold >= 100000000 then
pc . changegold ( - 100000000 )
elseif 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 == 3 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 == 4 then
local pagina2 = select("Mareste viteza", "Teleportarea jucatorului", "Cal lvl 21", "Anuleaza")
elseif pagina2 == 1 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 miscarecu 25 si viteza de atac cu 100 de 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 , 100 , 60 * 60 * 24 * 365 * 60 )
affect . add_collect ( apply . MOV_SPEED , 25 , 60 * 60 * 24 * 365 * 60 )
pc . changegold ( -1000000000 )
say ( "Ai primit Bonusurile cu succes")
say ( "Ti s-au retras din Yang 1.000.000.000 Yang (1kkk)" )
end
end

elseif pagina2 == 2 then
say_title("Teleportarea jucatorului:")
say("Daca ai 15kk 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()<15000000 then
say("Nu ai 15.000.000 Yang (15kk)")
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(-15000000)
end
end
elseif pagina2 == 3 then
say ( "Salut! Iti pot oferi cal lvl 21 in schimbul a 50kk" )
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()<50000000 then
say("Nu ai 50.000.000 Yang (50kk)")
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(-50000000)
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
end
end
end
end
end
end