modificare quest
Cod: Selectaţi tot
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
local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am noroc...")
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-
Shizuke
-
- Mesaje: 23
- Membru din: 04 Mai 2022, 20:45
- Server: -
- Regat: Chunjo
- Aprecieri: 1
- Mulţumiri: 0
- Discord: Copiază ID
Medalii
mane singurul functional este schimbare sex si loteria ....Hunger scrie: ↑21 Mai 2022, 18:53
Cod: Selectaţi tot
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 local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am noroc...") 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
Cod: Selectaţi tot
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
local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am noroc...")
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("50.000.000 Yang (50kk)")
say("Continui?")
local scelta = select("Da","Nu")
if scelta == 1 then
if pc . gold >= 50000000 then
pc . changegold(-50000000)
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 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 > 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) 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")
if 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()
pc.give_item2("50053", 1)
end
end
end
end
end
end
end-
Shizuke
-
- Mesaje: 23
- Membru din: 04 Mai 2022, 20:45
- Server: -
- Regat: Chunjo
- Aprecieri: 1
- Mulţumiri: 0
- Discord: Copiază ID
Medalii
Hunger scrie: ↑27 Mai 2022, 22:00
Cod: Selectaţi tot
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 local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am noroc...") 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("50.000.000 Yang (50kk)") say("Continui?") local scelta = select("Da","Nu") if scelta == 1 then if pc . gold >= 50000000 then pc . changegold(-50000000) 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 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 > 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) 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") if 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() pc.give_item2("50053", 1) end end end end end end end
nu functioneaza comenzile la cal
si nu merge transformarea la rase
de
Răspunsuri
2 Vizualizări
463
2 Vizualizări
463
de 
de -
- Informaţie
-
Cine este conectat
Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 30 vizitatori