Tinctura regatelor !

eusunt121 · 04 Iul 2017, 23:09

Salut doresc si eu un quest pentru tinctura regatelor doar pentru regatu albastru si rosu (am incercat sa fac si eu un quest dar cand voiam sa ma schimb pe regatu blue ma dadea pe galben)

04 Iul 2017, 23:12

Te rog postează quest-ul aici ca să te putem ajuta.
De preferat este să îl pui sub forma

Cod: Selectaţi tot

Test de teste.

ca să aibă tab-uri corecte.

eusunt121 · 04 Iul 2017, 23:18

OkamiTV scrie:Te rog postează quest-ul aici ca să te putem ajuta.
De preferat este să îl pui sub forma
Cod: Selectaţi tot
Test de teste.
ca să aibă tab-uri corecte.

quest change_empire_item begin
state start begin
when login with pc.getqf("special_func") == 0 begin
if pc.get_empire() == 1 then
affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
affect.add_collect(apply.ITEM_DROP_BONUS,10,60*60*24*365*4)
affect.add_collect(apply.ATT_BONUS_TO_MONSTER,10,60*60*24*365*4)
pc.setqf("special_func", 1)
elseif pc.get_empire() == 2 then
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*4)
affect.add_collect(apply.MAX_HP,1000,60*60*24*365*4)
affect.add_collect(apply.EXP_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 2)
elseif pc.get_empire() == 3 then
affect.add_collect(apply.STR,10,60*60*24*365*4)
affect.add_collect(apply.CON,10,60*60*24*365*4)
affect.add_collect(apply.INT,10,60*60*24*365*4)
affect.add_collect(apply.DEX,10,60*60*24*365*4)
affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 3)
end
end
when 71054.use begin
say_title("Tinctura Regatului")
say("Cu aceasta tinctura poti sa")
say("Iti schimbi regatul cu unul nou")
say("Pe care tu il doresti.")
say("")
if get_time() < pc.getqf("next_use_time") then
say_reward("Nu aveti posibilitatea de a va schimbati regatul.")
if pc.is_gm() then
pc.setqf("next_use_time", 0)
end
return
end
if change_empire_item.move_pc() == true then
if pc.getqf("special_func")==1 then
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
affect.remove_collect(apply.ITEM_DROP_BONUS,10)
affect.remove_collect(apply.ATT_BONUS_TO_MONSTER,10)
elseif pc.getqf("special_func")==2 then
affect.remove_collect(apply.ATT_GRADE_BONUS)
affect.remove_collect(apply.MAX_HP,1000)
affect.remove_collect(apply.EXP_DOUBLE_BONUS,10)
elseif pc.getqf("special_func")==3 then
affect.remove_collect(apply.STR,10)
affect.remove_collect(apply.CON,10)
affect.remove_collect(apply.INT,10)
affect.remove_collect(apply.DEX,10)
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
end
pc.setqf("special_func", 0)
pc.setqf("next_use_time", get_time() + time_hour_to_sec(24*7))
end
end
function move_pc()
if pc.is_engaged() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_married() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_polymorphed() then
say_reward("Suneti transformat.")
say_reward("Nu poti schimba regatul.")
return false
end
if pc.has_guild() then
say_reward("Aparineti unei bresla.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.money < 500000 then
say_reward("Nu aveti suficienti Yang.")
say_reward("Pentru a schimba regatul ai nevoie de 500 000 Yang.")
return false
end
say_reward("In ce regat vrei sa te muti?")
local s = select("Rosu", "Galben", "Albastru", "Nu mai vreau")
if 4==s then
return false
end
say_title("Tinctura Regatelor")
say("Vrei sa parasesti acest regat?")
say("Sa stii ca pentru tradare nu exista scuze!")
local a = select("Schimb Regatul", "Nu mai vreau")
if 2== a then
return false
end
local ret = pc.change_empire(s)
local oldempire = pc.get_empire()
if ret == 999 then
say_title("Tinctura Regatelor")
say("Ai schimbat regatul cu succes.")
say("Daca vei dori sa schimbi din nou regatul")
say("va trebui sa astepti o saptamana.")
say("Va rugam sa dati va reconectati.")
pc.change_gold(-500000)
pc.remove_item(71054)
return true
elseif ret == 1 then
say("Apartineti deja in acest regat.")
say("Te rog sa selectez alt regat.")
elseif ret == 2 then
say("Inca nu puteti sa schimbi regatul.")
say("Nu se poate schimba regatul,")
say("deoarece ati fost intr-o bresla recent.")
elseif ret == 3 then
say("Nu poti schimba regatul.")
say("Nu poti schimba regatul,")
say("deoarece ati fost casatorit recent.")
end
return false
end
end
end

04 Iul 2017, 23:19

Care regat trebuie eliminat?

eusunt121 · 04 Iul 2017, 23:22

OkamiTV scrie:Care regat trebuie eliminat?

Galben trebuie eliminat sa fie red si blue doar.

04 Iul 2017, 23:25

Înceracă așa, dacă nu merge revii cu reply, fă backup la quest-ul original prima dată în caz că nu merge ăsta:

Cod: Selectaţi tot

quest change_empire_item begin
state start begin
when login with pc.getqf("special_func") == 0 begin
elseif pc.get_empire() == 2 then
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*4)
affect.add_collect(apply.MAX_HP,1000,60*60*24*365*4)
affect.add_collect(apply.EXP_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 2)
elseif pc.get_empire() == 3 then
affect.add_collect(apply.STR,10,60*60*24*365*4)
affect.add_collect(apply.CON,10,60*60*24*365*4)
affect.add_collect(apply.INT,10,60*60*24*365*4)
affect.add_collect(apply.DEX,10,60*60*24*365*4)
affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 3)
end 
end 
when 71054.use begin
say_title("Tinctura Regatului")
say("Cu aceasta tinctura poti sa")
say("Iti schimbi regatul cu unul nou")
say("Pe care tu il doresti.")
say("")
if get_time() < pc.getqf("next_use_time") then
say_reward("Nu aveti posibilitatea de a va schimbati regatul.")
if pc.is_gm() then
pc.setqf("next_use_time", 0)
end
return
end
if change_empire_item.move_pc() == true then
elseif pc.getqf("special_func")==2 then
affect.remove_collect(apply.ATT_GRADE_BONUS)
affect.remove_collect(apply.MAX_HP,1000)
affect.remove_collect(apply.EXP_DOUBLE_BONUS,10)
elseif pc.getqf("special_func")==3 then 
affect.remove_collect(apply.STR,10)
affect.remove_collect(apply.CON,10)
affect.remove_collect(apply.INT,10)
affect.remove_collect(apply.DEX,10)
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
end
pc.setqf("special_func", 0)
pc.setqf("next_use_time", get_time() + time_hour_to_sec(24*7))
end
end
function move_pc()
if pc.is_engaged() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_married() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_polymorphed() then
say_reward("Suneti transformat.")
say_reward("Nu poti schimba regatul.")
return false
end
if pc.has_guild() then
say_reward("Aparineti unei bresla.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.money < 500000 then
say_reward("Nu aveti suficienti Yang.")
say_reward("Pentru a schimba regatul ai nevoie de 500 000 Yang.")
return false
end
say_reward("In ce regat vrei sa te muti?")
local s = select("Rosu", "Albastru", "Nu mai vreau")
if 3==s then
return false 
end
say_title("Tinctura Regatelor")
say("Vrei sa parasesti acest regat?")
say("Sa stii ca pentru tradare nu exista scuze!")
local a = select("Schimb Regatul", "Nu mai vreau")
if 2== a then
return false
end
local ret = pc.change_empire(s)
local oldempire = pc.get_empire()
if ret == 999 then
say_title("Tinctura Regatelor")
say("Ai schimbat regatul cu succes.")
say("Daca vei dori sa schimbi din nou regatul")
say("va trebui sa astepti o saptamana.")
say("Va rugam sa dati va reconectati.")
pc.change_gold(-500000) 
pc.remove_item(71054) 
return true
elseif ret == 2 then
say("Inca nu puteti sa schimbi regatul.")
say("Nu se poate schimba regatul,")
say("deoarece ati fost intr-o bresla recent.")
elseif ret == 3 then
say("Nu poti schimba regatul.")
say("Nu poti schimba regatul,")
say("deoarece ati fost casatorit recent.")
end
return false
end
end
end

eusunt121 · 04 Iul 2017, 23:28

OkamiTV scrie:Înceracă așa, dacă nu merge revii cu reply, fă backup la quest-ul original prima dată în caz că nu merge ăsta:

Cod: Selectaţi tot

quest change_empire_item begin
state start begin
when login with pc.getqf("special_func") == 0 begin
elseif pc.get_empire() == 2 then
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*4)
affect.add_collect(apply.MAX_HP,1000,60*60*24*365*4)
affect.add_collect(apply.EXP_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 2)
elseif pc.get_empire() == 3 then
affect.add_collect(apply.STR,10,60*60*24*365*4)
affect.add_collect(apply.CON,10,60*60*24*365*4)
affect.add_collect(apply.INT,10,60*60*24*365*4)
affect.add_collect(apply.DEX,10,60*60*24*365*4)
affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 3)
end 
end 
when 71054.use begin
say_title("Tinctura Regatului")
say("Cu aceasta tinctura poti sa")
say("Iti schimbi regatul cu unul nou")
say("Pe care tu il doresti.")
say("")
if get_time() < pc.getqf("next_use_time") then
say_reward("Nu aveti posibilitatea de a va schimbati regatul.")
if pc.is_gm() then
pc.setqf("next_use_time", 0)
end
return
end
if change_empire_item.move_pc() == true then
elseif pc.getqf("special_func")==2 then
affect.remove_collect(apply.ATT_GRADE_BONUS)
affect.remove_collect(apply.MAX_HP,1000)
affect.remove_collect(apply.EXP_DOUBLE_BONUS,10)
elseif pc.getqf("special_func")==3 then 
affect.remove_collect(apply.STR,10)
affect.remove_collect(apply.CON,10)
affect.remove_collect(apply.INT,10)
affect.remove_collect(apply.DEX,10)
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
end
pc.setqf("special_func", 0)
pc.setqf("next_use_time", get_time() + time_hour_to_sec(24*7))
end
end
function move_pc()
if pc.is_engaged() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_married() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_polymorphed() then
say_reward("Suneti transformat.")
say_reward("Nu poti schimba regatul.")
return false
end
if pc.has_guild() then
say_reward("Aparineti unei bresla.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.money < 500000 then
say_reward("Nu aveti suficienti Yang.")
say_reward("Pentru a schimba regatul ai nevoie de 500 000 Yang.")
return false
end
say_reward("In ce regat vrei sa te muti?")
local s = select("Rosu", "Albastru", "Nu mai vreau")
if 3==s then
return false 
end
say_title("Tinctura Regatelor")
say("Vrei sa parasesti acest regat?")
say("Sa stii ca pentru tradare nu exista scuze!")
local a = select("Schimb Regatul", "Nu mai vreau")
if 2== a then
return false
end
local ret = pc.change_empire(s)
local oldempire = pc.get_empire()
if ret == 999 then
say_title("Tinctura Regatelor")
say("Ai schimbat regatul cu succes.")
say("Daca vei dori sa schimbi din nou regatul")
say("va trebui sa astepti o saptamana.")
say("Va rugam sa dati va reconectati.")
pc.change_gold(-500000) 
pc.remove_item(71054) 
return true
elseif ret == 2 then
say("Inca nu puteti sa schimbi regatul.")
say("Nu se poate schimba regatul,")
say("deoarece ati fost intr-o bresla recent.")
elseif ret == 3 then
say("Nu poti schimba regatul.")
say("Nu poti schimba regatul,")
say("deoarece ati fost casatorit recent.")
end
return false
end
end
end

imi da asa
root@Clever-Host:/usr/game/share/locale/turkey/quest # ./qc tinctur.quest
QUEST : change_empire_item
STATE : start
WHEN : login
with pc . getqf ( "special_func" ) == 0
elseif pc . get_empire ( ) == 2 then
affect . add_collect ( apply . ATT_GRADE_BONUS , 50 , 60 * 60 * 24 * 365 * 4 )
affect . add_collect ( apply . MAX_HP , 1000 , 60 * 60 * 24 * 365 * 4 )
affect . add_collect ( apply . EXP_DOUBLE_BONUS , 10 , 60 * 60 * 24 * 365 * 4 )
pc . setqf ( "special_func" , 2 )
elseif pc . get_empire ( ) == 3 then
affect . add_collect ( apply . STR , 10 , 60 * 60 * 24 * 365 * 4 )
affect . add_collect ( apply . CON , 10 , 60 * 60 * 24 * 365 * 4 )
affect . add_collect ( apply . INT , 10 , 60 * 60 * 24 * 365 * 4 )
affect . add_collect ( apply . DEX , 10 , 60 * 60 * 24 * 365 * 4 )
affect . add_collect ( apply . GOLD_DOUBLE_BONUS , 10 , 60 * 60 * 24 * 365 * 4 )
pc . setqf ( "special_func" , 3 )

tinctur.quest:16:syntax error : [string "startpc . getqf ( "special_func" ) == 0"]:1: <eof> expected near `elseif'
Abort (core dumped)

04 Iul 2017, 23:31

eusunt121 scrie:
OkamiTV scrie:quest change_empire_item begin
state start begin
when login with pc.getqf("special_func") == 1 begin
elseif pc.get_empire() == 2 then
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*4)
affect.add_collect(apply.MAX_HP,1000,60*60*24*365*4)
affect.add_collect(apply.EXP_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 2)
elseif pc.get_empire() == 3 then
affect.add_collect(apply.STR,10,60*60*24*365*4)
affect.add_collect(apply.CON,10,60*60*24*365*4)
affect.add_collect(apply.INT,10,60*60*24*365*4)
affect.add_collect(apply.DEX,10,60*60*24*365*4)
affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 3)
end
end
when 71054.use begin
say_title("Tinctura Regatului")
say("Cu aceasta tinctura poti sa")
say("Iti schimbi regatul cu unul nou")
say("Pe care tu il doresti.")
say("")
if get_time() < pc.getqf("next_use_time") then
say_reward("Nu aveti posibilitatea de a va schimbati regatul.")
if pc.is_gm() then
pc.setqf("next_use_time", 0)
end
return
end
if change_empire_item.move_pc() == true then
elseif pc.getqf("special_func")==2 then
affect.remove_collect(apply.ATT_GRADE_BONUS)
affect.remove_collect(apply.MAX_HP,1000)
affect.remove_collect(apply.EXP_DOUBLE_BONUS,10)
elseif pc.getqf("special_func")==3 then
affect.remove_collect(apply.STR,10)
affect.remove_collect(apply.CON,10)
affect.remove_collect(apply.INT,10)
affect.remove_collect(apply.DEX,10)
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
end
pc.setqf("special_func", 0)
pc.setqf("next_use_time", get_time() + time_hour_to_sec(24*7))
end
end
function move_pc()
if pc.is_engaged() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_married() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_polymorphed() then
say_reward("Suneti transformat.")
say_reward("Nu poti schimba regatul.")
return false
end
if pc.has_guild() then
say_reward("Aparineti unei bresla.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.money < 500000 then
say_reward("Nu aveti suficienti Yang.")
say_reward("Pentru a schimba regatul ai nevoie de 500 000 Yang.")
return false
end
say_reward("In ce regat vrei sa te muti?")
local s = select("Rosu", "Albastru", "Nu mai vreau")
if 3==s then
return false
end
say_title("Tinctura Regatelor")
say("Vrei sa parasesti acest regat?")
say("Sa stii ca pentru tradare nu exista scuze!")
local a = select("Schimb Regatul", "Nu mai vreau")
if 2== a then
return false
end
local ret = pc.change_empire(s)
local oldempire = pc.get_empire()
if ret == 999 then
say_title("Tinctura Regatelor")
say("Ai schimbat regatul cu succes.")
say("Daca vei dori sa schimbi din nou regatul")
say("va trebui sa astepti o saptamana.")
say("Va rugam sa dati va reconectati.")
pc.change_gold(-500000)
pc.remove_item(71054)
return true
elseif ret == 2 then
say("Inca nu puteti sa schimbi regatul.")
say("Nu se poate schimba regatul,")
say("deoarece ati fost intr-o bresla recent.")
elseif ret == 3 then
say("Nu poti schimba regatul.")
say("Nu poti schimba regatul,")
say("deoarece ati fost casatorit recent.")
end
return false
end
end
end[/code]
Încearcă ca mai sus, e modificat din nou.

eusunt121 · 04 Iul 2017, 23:35

OkamiTV scrie:
eusunt121 scrie:
OkamiTV scrie:quest change_empire_item begin
state start begin
when login with pc.getqf("special_func") == 1 begin
elseif pc.get_empire() == 2 then
affect.add_collect(apply.ATT_GRADE_BONUS,50,60*60*24*365*4)
affect.add_collect(apply.MAX_HP,1000,60*60*24*365*4)
affect.add_collect(apply.EXP_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 2)
elseif pc.get_empire() == 3 then
affect.add_collect(apply.STR,10,60*60*24*365*4)
affect.add_collect(apply.CON,10,60*60*24*365*4)
affect.add_collect(apply.INT,10,60*60*24*365*4)
affect.add_collect(apply.DEX,10,60*60*24*365*4)
affect.add_collect(apply.GOLD_DOUBLE_BONUS,10,60*60*24*365*4)
pc.setqf("special_func", 3)
end
end
when 71054.use begin
say_title("Tinctura Regatului")
say("Cu aceasta tinctura poti sa")
say("Iti schimbi regatul cu unul nou")
say("Pe care tu il doresti.")
say("")
if get_time() < pc.getqf("next_use_time") then
say_reward("Nu aveti posibilitatea de a va schimbati regatul.")
if pc.is_gm() then
pc.setqf("next_use_time", 0)
end
return
end
if change_empire_item.move_pc() == true then
elseif pc.getqf("special_func")==2 then
affect.remove_collect(apply.ATT_GRADE_BONUS)
affect.remove_collect(apply.MAX_HP,1000)
affect.remove_collect(apply.EXP_DOUBLE_BONUS,10)
elseif pc.getqf("special_func")==3 then
affect.remove_collect(apply.STR,10)
affect.remove_collect(apply.CON,10)
affect.remove_collect(apply.INT,10)
affect.remove_collect(apply.DEX,10)
affect.remove_collect(apply.GOLD_DOUBLE_BONUS,10)
end
pc.setqf("special_func", 0)
pc.setqf("next_use_time", get_time() + time_hour_to_sec(24*7))
end
end
function move_pc()
if pc.is_engaged() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_married() then
say_reward("Suneti casatorit/casatorita.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.is_polymorphed() then
say_reward("Suneti transformat.")
say_reward("Nu poti schimba regatul.")
return false
end
if pc.has_guild() then
say_reward("Aparineti unei bresla.")
say_reward("Nu puteti schimba regatul.")
return false
end
if pc.money < 500000 then
say_reward("Nu aveti suficienti Yang.")
say_reward("Pentru a schimba regatul ai nevoie de 500 000 Yang.")
return false
end
say_reward("In ce regat vrei sa te muti?")
local s = select("Rosu", "Albastru", "Nu mai vreau")
if 3==s then
return false
end
say_title("Tinctura Regatelor")
say("Vrei sa parasesti acest regat?")
say("Sa stii ca pentru tradare nu exista scuze!")
local a = select("Schimb Regatul", "Nu mai vreau")
if 2== a then
return false
end
local ret = pc.change_empire(s)
local oldempire = pc.get_empire()
if ret == 999 then
say_title("Tinctura Regatelor")
say("Ai schimbat regatul cu succes.")
say("Daca vei dori sa schimbi din nou regatul")
say("va trebui sa astepti o saptamana.")
say("Va rugam sa dati va reconectati.")
pc.change_gold(-500000)
pc.remove_item(71054)
return true
elseif ret == 2 then
say("Inca nu puteti sa schimbi regatul.")
say("Nu se poate schimba regatul,")
say("deoarece ati fost intr-o bresla recent.")
elseif ret == 3 then
say("Nu poti schimba regatul.")
say("Nu poti schimba regatul,")
say("deoarece ati fost casatorit recent.")
end
return false
end
end
end[/code]
Încearcă ca mai sus, e modificat din nou.

la fel da

eusunt121 · 05 Iul 2017, 00:04

Tinctura regatelor !

tinctura regatelor

Quest tinctura regatelor

[Quest] Tinctura regatelor

[2 Regate] [Functional] Tinctura Regatelor

Cine este conectat