[Service]Creere de Questuri # Gratis #

Deconectat
Avatar utilizator
DaRealPain
Fost Helper
Fost Helper
Mesaje: 1015
Membru din: 05 Oct 2014
Status: I'm happy (:
Server Metin2: Loading ...
Mulțumiri acordate: 58
Mulțumiri primite: 21
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde DaRealPain » 21 Ian 2015, 21:24

Ma scuzati ca revin asa de greu dar am avut ceva probleme si Questul lui Iulimaniu a durat ceva :s

iulimaniu007 scrie:Salut.
Mai am nevoie de un quest si poate ma poti ajuta tu. Stiu ca e cam complicat de facut dar cred ca te vei descurca.
Deci, uite in ce consta acest quest:
1. NPC-ul sa verifice rasa. ( nu conteaza codul la NPC )
2. Sa duci 55 carti ( cartea competentei secundara ) "x" si sa primesti skill-ul "x" sau sa duci 55 carti "y" si sa primesti skill-ul "y"
3. Cand duci cele 55 de carti sa primesti direct skill G.
4. Sa fie cate o optiune pt. fiecare skill: Vartejul Sabiei, Aura Sabiei.
Daca mai ai nevoie de ceva lamuriri, te rog lasa-mi un PM. Multumesc.


Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest carti begin
   state start begin
      when NPC_VNUM.chat."Schimbul de carti" begin
         say_title("Schimbul de carti")
         if pc.get_skill_group() == 0 then
            say("Nu ai ales nici o invatatura.")
            say("Revoni mai tarziu.")
            return
         end
         local result = buecher_npc.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group())
         local vnum_list = result[1]
         local name_list = result[2]
         if table.getn(vnum_list) == 0 then
            say("Nu ai nici un Skill M.")
            return
         end
         local menu_list = {}
         table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
         table.insert(menu_list, "Inapoi")
         say("Wähle deinen Skill.")
         local s=select_table(menu_list)
         if table.getn(menu_list) == s then
            return
         end
         local skill_name=name_list[s]
         local skill_vnum=vnum_list[s]
         if pc.getqf("Skill_"..skill_vnum)>=55 then pc.setqf("Skill_"..skill_vnum, 0) end
         say_title(skill_name)
         say("Deci doresti sa dai carti pentru skillul "..skill_name)
         say("")
         say("Carti ramase: "..(55-pc.getqf("Skill_"..skill_vnum)).." ")
         if select("Da","Nu")==2 then return end
         local item_count = pc.count_item((50400+skill_vnum))
         local item_rest = 55-pc.getqf("Skill_"..skill_vnum)
         if item_rest<item_count then item_count = item_rest end
         pc.setqf("Skill_"..skill_vnum, pc.getqf("Skill_"..skill_vnum) + item_count)
         syschat(item_count.." Cartile au fost predate.")
         pc.remove_item((50400+skill_vnum), item_count)
         if pc.getqf("Skill_"..skill_vnum)>=55 then
            pc.set_skill_level(skill_vnum, 30)
            syschat(skill_name.." G")
         end
      end
      function BuildPerfectMasterSkillList(job, group)
         GRAND_MASTER_SKILL_LEVEL =20
         PERFECT_MASTER_SKILL_LEVEL = 30
         local skill_list = special.active_skill_list[job+1][group]
         local ret_vnum_list = {}
         local ret_name_list = {}
         table.foreach(skill_list,
            function(i, skill_vnum)
            local skill_level = pc.get_skill_level(skill_vnum)
            if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
               table.insert(ret_vnum_list, skill_vnum)
               local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
               if name == nil then name=skill_vnum end
               table.insert(ret_name_list, name)
            end
         end)
         return {ret_vnum_list, ret_name_list}
      end
   end
end


Metin2Mirage scrie:Imi poti face un quest in cu care la lv 75 playerii sa trebuiasca sa omoare ingerul cu coasa si sa primeasca cal militar te rog?


Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest Ingerul Negru begin
   state start begin
      when login or levelup or letter with pc.level >= 75 begin
         set_state(information)
      end
   end
   state information begin
      when letter begin
         send_letter("Ingerul Negru")
      end

      when info or button begin
         say_title("Ingerul Negru")
         say("Salutare.")
         say("Ai auzit noile vesti aduse de mesager?")
         say("O noua creatura s-a aratat in Turnul Demonilor in ultimul timp.")
         say("Mesagerul a spus ca monstrul arata infricosator.")
         say("E mare negru si tine o coasa uriasa in mana.")
         say("De aceea i s-a dat numele Ingerul Negru, sau Ingerul cu Coasa.")
         say("Dar decand a aparut nimeni nu mai este in siguranta.Bestia a ucis")
         say("numerosi eroi. Si deoarece te vad puternic, asi vrea sa te rog sa ucizi")
         say("bestia cat mai rapid posibil. Si daca vei reusi iti voi da o rasplata pe masura!")
         say_reward("Omoara Ingerul cu Coasa")
         say("")

      end

      when 1093.kill begin
             say_title("Ingerul Negru")
             say("Iti multumesc ca ai omorat Ingerul cu Coasa.")
            say("Ca rasplata primesti Calul Militar!")
               horse.set_level(11)
               horse.summon()
               horse.ride()
               pc.give_item2(50052, 1)
            clear_letter()
            set_state(__COMPLETE__)
      end
   end

   state __COMPLETE__ begin
   end
end
Imagine

Imagine

Deconectat
Avatar utilizator
iulimaniu007
Nivel 1
Nivel 1
Mesaje: 58
Membru din: 24 Feb 2014
Status: Sunt bine mersi ^.^
Server Metin2: da
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: [Service]Creere de Questuri # Gratis #

Mesajde iulimaniu007 » 21 Ian 2015, 22:36

DaRealPain scrie:Ma scuzati ca revin asa de greu dar am avut ceva probleme si Questul lui Iulimaniu a durat ceva :s


Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest carti begin
   state start begin
      when NPC_VNUM.chat."Schimbul de carti" begin
         say_title("Schimbul de carti")
         if pc.get_skill_group() == 0 then
            say("Nu ai ales nici o invatatura.")
            say("Revoni mai tarziu.")
            return
         end
         local result = buecher_npc.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group())
         local vnum_list = result[1]
         local name_list = result[2]
         if table.getn(vnum_list) == 0 then
            say("Nu ai nici un Skill M.")
            return
         end
         local menu_list = {}
         table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
         table.insert(menu_list, "Inapoi")
         say("Wähle deinen Skill.")
         local s=select_table(menu_list)
         if table.getn(menu_list) == s then
            return
         end
         local skill_name=name_list[s]
         local skill_vnum=vnum_list[s]
         if pc.getqf("Skill_"..skill_vnum)>=55 then pc.setqf("Skill_"..skill_vnum, 0) end
         say_title(skill_name)
         say("Deci doresti sa dai carti pentru skillul "..skill_name)
         say("")
         say("Carti ramase: "..(55-pc.getqf("Skill_"..skill_vnum)).." ")
         if select("Da","Nu")==2 then return end
         local item_count = pc.count_item((50400+skill_vnum))
         local item_rest = 55-pc.getqf("Skill_"..skill_vnum)
         if item_rest<item_count then item_count = item_rest end
         pc.setqf("Skill_"..skill_vnum, pc.getqf("Skill_"..skill_vnum) + item_count)
         syschat(item_count.." Cartile au fost predate.")
         pc.remove_item((50400+skill_vnum), item_count)
         if pc.getqf("Skill_"..skill_vnum)>=55 then
            pc.set_skill_level(skill_vnum, 30)
            syschat(skill_name.." G")
         end
      end
      function BuildPerfectMasterSkillList(job, group)
         GRAND_MASTER_SKILL_LEVEL =20
         PERFECT_MASTER_SKILL_LEVEL = 30
         local skill_list = special.active_skill_list[job+1][group]
         local ret_vnum_list = {}
         local ret_name_list = {}
         table.foreach(skill_list,
            function(i, skill_vnum)
            local skill_level = pc.get_skill_level(skill_vnum)
            if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
               table.insert(ret_vnum_list, skill_vnum)
               local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
               if name == nil then name=skill_vnum end
               table.insert(ret_name_list, name)
            end
         end)
         return {ret_vnum_list, ret_name_list}
      end
   end
end



Scuze ca revin dar primesc core dumped:
Imagine

Deconectat
Avatar utilizator
DaRealPain
Fost Helper
Fost Helper
Mesaje: 1015
Membru din: 05 Oct 2014
Status: I'm happy (:
Server Metin2: Loading ...
Mulțumiri acordate: 58
Mulțumiri primite: 21
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde DaRealPain » 21 Ian 2015, 22:50

iulimaniu007 scrie:
DaRealPain scrie:Ma scuzati ca revin asa de greu dar am avut ceva probleme si Questul lui Iulimaniu a durat ceva :s


Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest carti begin
   state start begin
      when NPC_VNUM.chat."Schimbul de carti" begin
         say_title("Schimbul de carti")
         if pc.get_skill_group() == 0 then
            say("Nu ai ales nici o invatatura.")
            say("Revoni mai tarziu.")
            return
         end
         local result = buecher_npc.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group())
         local vnum_list = result[1]
         local name_list = result[2]
         if table.getn(vnum_list) == 0 then
            say("Nu ai nici un Skill M.")
            return
         end
         local menu_list = {}
         table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
         table.insert(menu_list, "Inapoi")
         say("Wähle deinen Skill.")
         local s=select_table(menu_list)
         if table.getn(menu_list) == s then
            return
         end
         local skill_name=name_list[s]
         local skill_vnum=vnum_list[s]
         if pc.getqf("Skill_"..skill_vnum)>=55 then pc.setqf("Skill_"..skill_vnum, 0) end
         say_title(skill_name)
         say("Deci doresti sa dai carti pentru skillul "..skill_name)
         say("")
         say("Carti ramase: "..(55-pc.getqf("Skill_"..skill_vnum)).." ")
         if select("Da","Nu")==2 then return end
         local item_count = pc.count_item((50400+skill_vnum))
         local item_rest = 55-pc.getqf("Skill_"..skill_vnum)
         if item_rest<item_count then item_count = item_rest end
         pc.setqf("Skill_"..skill_vnum, pc.getqf("Skill_"..skill_vnum) + item_count)
         syschat(item_count.." Cartile au fost predate.")
         pc.remove_item((50400+skill_vnum), item_count)
         if pc.getqf("Skill_"..skill_vnum)>=55 then
            pc.set_skill_level(skill_vnum, 30)
            syschat(skill_name.." G")
         end
      end
      function BuildPerfectMasterSkillList(job, group)
         GRAND_MASTER_SKILL_LEVEL =20
         PERFECT_MASTER_SKILL_LEVEL = 30
         local skill_list = special.active_skill_list[job+1][group]
         local ret_vnum_list = {}
         local ret_name_list = {}
         table.foreach(skill_list,
            function(i, skill_vnum)
            local skill_level = pc.get_skill_level(skill_vnum)
            if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
               table.insert(ret_vnum_list, skill_vnum)
               local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
               if name == nil then name=skill_vnum end
               table.insert(ret_name_list, name)
            end
         end)
         return {ret_vnum_list, ret_name_list}
      end
   end
end



Scuze ca revin dar primesc core dumped:
Imagine


Deschide quest_functions si scrie jos de tot

Cod: Selectaţi tot

buecher_npc.BuildPerfectMasterSkillList
Imagine

Imagine

Deconectat
Avatar utilizator
Csaba92
Nivel 2
Nivel 2
Mesaje: 202
Membru din: 26 Noi 2014
Status: Sunt bine mersi ^.^
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde Csaba92 » 22 Ian 2015, 20:04

As vrea un quest care imi da iteme de inceput pe joc fara buguri ?? itemele le setez eu si cal lvl 11


PS: E in regula mersi !
Ultima oară modificat 23 Ian 2015, 19:16 de către Csaba92, modificat 1 dată în total.
Un server FARA MODATI si fara ITEME PERFECTE !
Intra si TU !

Trebuie să fii logat sau înregistrat pentru a vedea acest link.

Deconectat
Avatar utilizator
DaRealPain
Fost Helper
Fost Helper
Mesaje: 1015
Membru din: 05 Oct 2014
Status: I'm happy (:
Server Metin2: Loading ...
Mulțumiri acordate: 58
Mulțumiri primite: 21
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde DaRealPain » 22 Ian 2015, 22:15

Csaba92 scrie:As vrea un quest care imi da iteme de inceput pe joc fara buguri ?? itemele le setez eu si cal lvl 11


Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest give_basic_weapon begin
    state start begin
        when login begin
            if pc.getqf("basic_weapon") == 0 then
                pc.setqf("basic_weapon", 1)
         say_title ( "Salutare jucatorule!" )
         say ( "Bine te-am gasit pe Penis 2!" )
         say ( "Administratorul serverului, (A)Penis )
         say ( "iti ureaza mult succes!" )
         say ( "" )
            if pc . job == 0 then                           --- Iteme Razboinic
                pc . give_item2 ( "ITEM_VNUM" , CANTITATEA )
            elseif pc . job == 1 then                     --- Iteme Ninja
                pc . give_item2 ( "ITEM_VNUM" , CANTITATEA )
            elseif pc . job == 2 then                     --- Iteme Sura
                pc . give_item2 ( "ITEM_VNUM" , CANTITATEA )
            elseif pc . job == 3 then                     --- Iteme Saman
                pc . give_item2 ( "ITEM_VNUM" , CANTITATEA )
            end
            if pc.countitem(item) == 0 and pc.weapon != item then   --- Iteme primite de toate clasele
                pc . give_item2 ( "ITEM_VNUM" , CANTITATEA )
            affect.add_collect(apply.MOVE_SPEED, 150, 60*60*24*365*80)   --- Un bonus sau mai multe oferite la inceput
            horse.set_level(11)
            horse.summon()
            end
        end
    end
end
end 
Imagine

Imagine

Deconectat
Avatar utilizator
[Chuli-Gaara]
Utilizator interzis !
Utilizator interzis !
Mesaje: 2354
Membru din: 27 Oct 2014
Localitate: Bucureşti
Status: Haide
Server Metin2: Al meu
Regat: Chunjo
Mulțumiri acordate: 0
Mulțumiri primite: 24
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde [Chuli-Gaara] » 22 Ian 2015, 23:40

Vţm .. ţi-am cerut acum o mapă şi in mapa respectivă aş vrea să fie aşa dacă se poate şi dacă merge..

Când intri in mapa respectivă să nu te poţi da pe liber .. in mapa respectivă după ce eşti omorât să fi teleportat in map1... şi dacă se poate şi tot in acelaşi quest sau altu .. când 1 jucător omoară altul să apară jos la el .. ai omorât 5 playeri in acest event .... dacă nu inţelegi lasă reply.

Deconectat
Avatar utilizator
iulimaniu007
Nivel 1
Nivel 1
Mesaje: 58
Membru din: 24 Feb 2014
Status: Sunt bine mersi ^.^
Server Metin2: da
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: [Service]Creere de Questuri # Gratis #

Mesajde iulimaniu007 » 24 Ian 2015, 16:39

Revin cu o noua problema la quest-ul:
--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest carti begin
state start begin
when npc_TradeVendor.chat."Schimbul de carti" begin
say_title("Schimbul de carti")
if pc.get_skill_group() == 0 then
say("Nu ai ales nicio invatatura.")
say("Revino mai tarziu.")
return
end
local result = TradeVendor_npc.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group())
local vnum_list = result[1]
local name_list = result[2]
if table.getn(vnum_list) == 0 then
say("Nu ai niciun Skill M.")
return
end
local menu_list = {}
table.foreach(name_list, function(i, name) table.insert(menu_list, name) end)
table.insert(menu_list, "Inapoi")
say("Wähle deinen Skill.")
local s=select_table(menu_list)
if table.getn(menu_list) == s then
return
end
local skill_name=name_list[s]
local skill_vnum=vnum_list[s]
if pc.getqf("Skill_"..skill_vnum)>=55 then pc.setqf("Skill_"..skill_vnum, 0) end
say_title(skill_name)
say("Deci doresti sa dai carti pentru skillul "..skill_name)
say("")
say("Carti ramase: "..(55-pc.getqf("Skill_"..skill_vnum)).." ")
if select("Da","Nu")==2 then return end
local item_count = pc.count_item((50400+skill_vnum))
local item_rest = 55-pc.getqf("Skill_"..skill_vnum)
if item_rest<item_count then item_count = item_rest end
pc.setqf("Skill_"..skill_vnum, pc.getqf("Skill_"..skill_vnum) + item_count)
syschat(item_count.." Cartile au fost predate.")
pc.remove_item((50400+skill_vnum), item_count)
if pc.getqf("Skill_"..skill_vnum)>=55 then
pc.set_skill_level(skill_vnum, 30)
syschat(skill_name.." G")
end
end
function BuildPerfectMasterSkillList(job, group)
GRAND_MASTER_SKILL_LEVEL =20
PERFECT_MASTER_SKILL_LEVEL = 30
local skill_list = special.active_skill_list[job+1][group]
local ret_vnum_list = {}
local ret_name_list = {}
table.foreach(skill_list,
function(i, skill_vnum)
local skill_level = pc.get_skill_level(skill_vnum)
if skill_level >= GRAND_MASTER_SKILL_LEVEL and skill_level < PERFECT_MASTER_SKILL_LEVEL then
table.insert(ret_vnum_list, skill_vnum)
local name=locale.GM_SKILL_NAME_DICT[skill_vnum]
if name == nil then name=skill_vnum end
table.insert(ret_name_list, name)
end
end)
return {ret_vnum_list, ret_name_list}
end
end
end


Am adaugat in quest_functions
buecher_npc.BuildPerfectMasterSkillList
TradeVendor_npc.BuildPerfectMasterSkillList
si am reusit sa instalez questul doar ca acum cand apasa pe NPC, apoi pe "Schimbul de carti" nu-mi arata nimic. Pur si simplu apas, scrie sus "Schimbul de carti" si in continuare nu mai apare nimic. Ti-as fi trimis o poza dar imi merge PC-ul in poze si n-am mai reusit. Sper sa ma poti ajuta. Multumesc.

PS: Asta e ceea ce-mi apare in sysser:
SYSERR: Jan 24 09:02:35 :: RunState: LUA_ERROR: [string "carti"]:3: bad argument #1 to `foreach' (table expected, got nil)
SYSERR: Jan 24 09:02:35 :: WriteRunningStateToSyserr: LUA_ERROR: quest carti.start leave


Edit: Am reusit.
Ultima oară modificat 26 Ian 2015, 21:32 de către iulimaniu007, modificat 1 dată în total.

Deconectat
Avatar utilizator
Csaba92
Nivel 2
Nivel 2
Mesaje: 202
Membru din: 26 Noi 2014
Status: Sunt bine mersi ^.^
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde Csaba92 » 26 Ian 2015, 13:55

Salut , am nevoie de un quest care il poti lu-a de la grajdar la lvl 55 , In care sa omori 200 de Arcas Deamon [ e DT etaju 1 ] in timp de 30 minute ! Daca ai reusit sa iei cal MILITAR lvl 21 , daca nu reuseste sa se poate incearca din nou :) Sper ca ai inteles :)
Un server FARA MODATI si fara ITEME PERFECTE !
Intra si TU !

Trebuie să fii logat sau înregistrat pentru a vedea acest link.

Deconectat
Avatar utilizator
DaRealPain
Fost Helper
Fost Helper
Mesaje: 1015
Membru din: 05 Oct 2014
Status: I'm happy (:
Server Metin2: Loading ...
Mulțumiri acordate: 58
Mulțumiri primite: 21
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde DaRealPain » 28 Ian 2015, 20:39

Csaba92 scrie:Salut , am nevoie de un quest care il poti lu-a de la grajdar la lvl 55 , In care sa omori 200 de Arcas Deamon [ e DT etaju 1 ] in timp de 30 minute ! Daca ai reusit sa iei cal MILITAR lvl 21 , daca nu reuseste sa se poate incearca din nou :) Sper ca ai inteles :)


Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest cal_militar begin
   state start begin
      when 20349.chat."Cal militar" with horse.get_grade()==1 and horse.get_level()==10 begin
         if horse.is_dead() then
            say("Calul tau e mort!")
            say("Readul la viata intai.")
            say("")
         elseif pc.level<=54 then
            say("Nivelul tau este prea mic.")
            say("")
         elseif horse.get_level()<=9 then
            say("Calul tau este prea mic!")
            say("Antreneaza-ti calul mai intai.")
            say("")
         elseif pc.countitem("50050")<1 then
            say("Nu ai nici o medalie!")
            say("Fa rost de una intai.")
            say("")
            setstate(need_item50050)
         elseif pc.countitem("50051")<1 then
            say("Nu ai niic o imagine de cal !")
            say("")
         elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=55 then
            say("Trebuie sa omori 200 de Arcas Demon")
            say("in 30 de Minute.")
            say("Doar asa pot fi sigur ca esti calificat")
            say("pentru a primi un cal militar!")
            say("")
            say("Vrei sa incepi testul?")
            say("")
            local b=select("Da", "Ehm, nu.")
            if 1==b then
               if pc.countitem("50050")>=1 then
                  pc.removeitem("50050", 1)
                  setstate(test)
               end
            elseif 2==b then
               say("Revino cand esti pregatit.")
            else
               say("UNKNOWN BUTTON ["..b.."]")
            end
         else
            say("")
            say("Mult noroc.")
            say("")
         end
      end
   end
   state need_item50050 begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Medalie de Calarit")
         q.set_title("Medalie de Calarit")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
         say("Fa rost de o Medalie de Calarit!")
         setstate(start)
         q.done()
      end
      when info begin
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
         say("Fa rost de o Medalie de Calarit!")
         setstate(start)
         q.done()
      end
   end
   state test begin
      when letter begin
         q.set_counter("1002   ", 200-pc.getqf("kill_count"))
      end
      when 2105.party_kill begin
         pc.setqf("kill_count", pc.getqf("kill_count")+1)
         q.set_counter("1002   ", 200-pc.getqf("kill_count"))
         if get_time()>=pc.getqf("limit_time") then
            setstate(failure)
         end
      end
      when 2107.party_kill begin
         pc.setqf("kill_count", pc.getqf("kill_count")+1)
         q.set_counter("1002   ", 200-pc.getqf("kill_count"))
         if get_time()>=pc.getqf("limit_time") then
            setstate(failure)
            q.done()
         end
      end
      when letter begin
         q.set_clock("Timp ramas:", pc.getqf("limit_time")-get_time())
      end
      when enter begin
         pc.setqf("limit_time", get_time()+30*60)
         pc.setqf("kill_count", 0)
      end
      when leave begin
         q.done()
      end
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Omoara Demoni Arcas")
         q.set_title("Omoara Demoni Arcas")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
         say("Trebuie sa omori 200 de Arcas Demon")
         say("in 30 de Minute.")
         say("Membrii grupei te pot ajuta.")
      end
      when info begin
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
         say("Trebuie sa omori 200 de Arcas Demon")
         say("in 30 de Minute.")
         say("Membrii grupei te pot ajuta.")
      end
      when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
         setstate(report)
      end
      when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
         setstate(report)
      end
      when 20349.chat."Cal Militar" begin
         say("Trebuie sa omori 200 de Arcas Demon")
         say("in 30 de Minute.")
         say("Membrii grupei te pot ajuta.")
      end
   end
   state report begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Ai reusit")
         q.set_title("Ai reusit")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
         say("Intoarcete la grajdar.")
      end
      when info begin
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
         say("Intoarcete la grajdar.")
      end
      when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."Am reusit!" with horse.get_grade()==1 begin
         say("Felicitari!")
         say("Acum am nevoie de timp pentru a face contractul!")
         say("Revino in 10 minute.")
         say("Si adu 500.000 Yang.")
         if is_test_server() then
            pc.setqf("make_time", get_time()+10)
         else
            pc.setqf("duration",get_time()+60*10*)
         end
         setstate(wait)
      end
   end

      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."Contractul?" with horse.get_grade()==1 begin
         say("Inca nu am terminat contractul")
         say("Revino mai tarziu.")
      end
   end
   state buy begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Contractul este gata!")
         q.set_title("Contractul este gata!")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
         say("Dute la grajdar si ia-l!")
         say("Si nu uita cei 500.000 Yang.")
      end
      when info begin
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
         say("Dute la grajdar si ia-l!")
         say("Si nu uita cei 500.000 Yang.")
      end
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."Contractul meu?" with horse.get_grade()==1 and horse.get_level()==10 begin
         say("COntractul tau este pregatit.")
         say("Te costa 500.000 Yang.")
         local b=select("Cumpara", "Mai tarziu", "Anuleaza")
         if 1==b then
            if pc.money>=500000 then
               if pc.countitem("50051")>=1 then
                  char_log(0, "HORSE_UPGRADE", "BEGIN")
                  pc.changemoney(-500000)
                  char_log(0, "HORSE_UPGRADE", "DEC money 500000")
                  pc.removeitem("50051", 1)
                  char_log(0, "HORSE_UPGRADE", "DEC 50051 1")
                  horse.unride()
                  horse.advance()
                  horse.ride()
                  char_log(0, "HORSE_UPGRADE", "INC horse_advance 1")
                  pc.give_item2("50052", 1)
                  char_log(0, "HORSE_UPGRADE", "INC 50052 1")
                  char_log(0, "HORSE_UPGRADE", "END")
                  say("Felicitari!")
                  say("Acum ai un cal militar.")
                  say("Hranestel mereu.")
                  say("")
                  setstate(start)
                  q.done()
               else
                  say("")
               end
            else
               say("")
            end
         elseif 2==b then
            say("Ouk pe mai incolo.")
         elseif 3==b then
            say("Esti sigur ca vrei sa anulezi Questul?")
            local b=select("Da", "Nu")
            if 1==b then
               setstate(start)
               q.done()
            elseif 2==b then
            else
               say("UNKNOWN BUTTON ["..b.."]")
            end
         else
            say("UNKNOWN BUTTON ["..b.."]")
         end
      end
   end
   state failure begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Misiune esuata")
         q.set_title("Misiune esuata")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
         say("Nu ai reusit sa treci testul")
         say("")
         say("Dute la grajdar, pentru a repeta misiunea!")
         setstate(start)
         q.done()
      end
      when info begin
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
         say("Nu ai reusit sa treci testul")
         say("")
         say("Dute la grajdar, pentru a repeta misiunea!")
         setstate(start)
         q.done()
      end
   end
   state __COMPLETE__ begin
      when enter begin
         q.done()
      end
   end
end


_______________________________________________________________________________________________________________________________________

Cod: Selectaţi tot

If $post = "helpful" Then 
Mouseclick ("left","Buton Multumesc") 
EndIf 
Imagine

Imagine

Deconectat
Avatar utilizator
Csaba92
Nivel 2
Nivel 2
Mesaje: 202
Membru din: 26 Noi 2014
Status: Sunt bine mersi ^.^
Regat: Jinno
Mulțumiri acordate: 0
Mulțumiri primite: 0
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde Csaba92 » 28 Ian 2015, 21:57

DaRealPain scrie:
Csaba92 scrie:Salut , am nevoie de un quest care il poti lu-a de la grajdar la lvl 55 , In care sa omori 200 de Arcas Deamon [ e DT etaju 1 ] in timp de 30 minute ! Daca ai reusit sa iei cal MILITAR lvl 21 , daca nu reuseste sa se poate incearca din nou :) Sper ca ai inteles :)


Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest facut de DaRealPain ##
--- ###################

quest cal_militar begin
   state start begin
      when 20349.chat."Cal militar" with horse.get_grade()==1 and horse.get_level()==10 begin
         if horse.is_dead() then
            say("Calul tau e mort!")
            say("Readul la viata intai.")
            say("")
         elseif pc.level<=54 then
            say("Nivelul tau este prea mic.")
            say("")
         elseif horse.get_level()<=9 then
            say("Calul tau este prea mic!")
            say("Antreneaza-ti calul mai intai.")
            say("")
         elseif pc.countitem("50050")<1 then
            say("Nu ai nici o medalie!")
            say("Fa rost de una intai.")
            say("")
            setstate(need_item50050)
         elseif pc.countitem("50051")<1 then
            say("Nu ai niic o imagine de cal !")
            say("")
         elseif horse.get_level()==10 and not horse.is_dead() and pc.countitem("50050")>=1 and pc.level>=55 then
            say("Trebuie sa omori 200 de Arcas Demon")
            say("in 30 de Minute.")
            say("Doar asa pot fi sigur ca esti calificat")
            say("pentru a primi un cal militar!")
            say("")
            say("Vrei sa incepi testul?")
            say("")
            local b=select("Da", "Ehm, nu.")
            if 1==b then
               if pc.countitem("50050")>=1 then
                  pc.removeitem("50050", 1)
                  setstate(test)
               end
            elseif 2==b then
               say("Revino cand esti pregatit.")
            else
               say("UNKNOWN BUTTON ["..b.."]")
            end
         else
            say("")
            say("Mult noroc.")
            say("")
         end
      end
   end
   state need_item50050 begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Medalie de Calarit")
         q.set_title("Medalie de Calarit")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
         say("Fa rost de o Medalie de Calarit!")
         setstate(start)
         q.done()
      end
      when info begin
         say(locale.NOTICE_COLOR.."Medalie de Calarit"..locale.NORMAL_COLOR)
         say("Fa rost de o Medalie de Calarit!")
         setstate(start)
         q.done()
      end
   end
   state test begin
      when letter begin
         q.set_counter("1002   ", 200-pc.getqf("kill_count"))
      end
      when 2105.party_kill begin
         pc.setqf("kill_count", pc.getqf("kill_count")+1)
         q.set_counter("1002   ", 200-pc.getqf("kill_count"))
         if get_time()>=pc.getqf("limit_time") then
            setstate(failure)
         end
      end
      when 2107.party_kill begin
         pc.setqf("kill_count", pc.getqf("kill_count")+1)
         q.set_counter("1002   ", 200-pc.getqf("kill_count"))
         if get_time()>=pc.getqf("limit_time") then
            setstate(failure)
            q.done()
         end
      end
      when letter begin
         q.set_clock("Timp ramas:", pc.getqf("limit_time")-get_time())
      end
      when enter begin
         pc.setqf("limit_time", get_time()+30*60)
         pc.setqf("kill_count", 0)
      end
      when leave begin
         q.done()
      end
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Omoara Demoni Arcas")
         q.set_title("Omoara Demoni Arcas")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
         say("Trebuie sa omori 200 de Arcas Demon")
         say("in 30 de Minute.")
         say("Membrii grupei te pot ajuta.")
      end
      when info begin
         say(locale.NOTICE_COLOR.."Omoara Demoni Arcas"..locale.NORMAL_COLOR)
         say("Trebuie sa omori 200 de Arcas Demon")
         say("in 30 de Minute.")
         say("Membrii grupei te pot ajuta.")
      end
      when 2105.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
         setstate(report)
      end
      when 2107.party_kill with pc.getqf("kill_count") >= 100 and pc.getqf("kill_count") >= 100 and pc.getqf("limit_time")>=get_time() begin
         setstate(report)
      end
      when 20349.chat."Cal Militar" begin
         say("Trebuie sa omori 200 de Arcas Demon")
         say("in 30 de Minute.")
         say("Membrii grupei te pot ajuta.")
      end
   end
   state report begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Ai reusit")
         q.set_title("Ai reusit")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
         say("Intoarcete la grajdar.")
      end
      when info begin
         say(locale.NOTICE_COLOR.."Ai reusit"..locale.NORMAL_COLOR)
         say("Intoarcete la grajdar.")
      end
      when 20349.chat."HORSE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."Am reusit!" with horse.get_grade()==1 begin
         say("Felicitari!")
         say("Acum am nevoie de timp pentru a face contractul!")
         say("Revino in 10 minute.")
         say("Si adu 500.000 Yang.")
         if is_test_server() then
            pc.setqf("make_time", get_time()+10)
         else
            pc.setqf("duration",get_time()+60*10*)
         end
         setstate(wait)
      end
   end

      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."Contractul?" with horse.get_grade()==1 begin
         say("Inca nu am terminat contractul")
         say("Revino mai tarziu.")
      end
   end
   state buy begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Contractul este gata!")
         q.set_title("Contractul este gata!")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
         say("Dute la grajdar si ia-l!")
         say("Si nu uita cei 500.000 Yang.")
      end
      when info begin
         say(locale.NOTICE_COLOR.."Contractul este gata!"..locale.NORMAL_COLOR)
         say("Dute la grajdar si ia-l!")
         say("Si nu uita cei 500.000 Yang.")
      end
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()!=1 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."HORSE UPGRADE QUEST STATE REPAIR" with horse.get_grade()==1 and horse.get_level()!=10 begin
         setstate(start)
         q.done()
      end
      when 20349.chat."Contractul meu?" with horse.get_grade()==1 and horse.get_level()==10 begin
         say("COntractul tau este pregatit.")
         say("Te costa 500.000 Yang.")
         local b=select("Cumpara", "Mai tarziu", "Anuleaza")
         if 1==b then
            if pc.money>=500000 then
               if pc.countitem("50051")>=1 then
                  char_log(0, "HORSE_UPGRADE", "BEGIN")
                  pc.changemoney(-500000)
                  char_log(0, "HORSE_UPGRADE", "DEC money 500000")
                  pc.removeitem("50051", 1)
                  char_log(0, "HORSE_UPGRADE", "DEC 50051 1")
                  horse.unride()
                  horse.advance()
                  horse.ride()
                  char_log(0, "HORSE_UPGRADE", "INC horse_advance 1")
                  pc.give_item2("50052", 1)
                  char_log(0, "HORSE_UPGRADE", "INC 50052 1")
                  char_log(0, "HORSE_UPGRADE", "END")
                  say("Felicitari!")
                  say("Acum ai un cal militar.")
                  say("Hranestel mereu.")
                  say("")
                  setstate(start)
                  q.done()
               else
                  say("")
               end
            else
               say("")
            end
         elseif 2==b then
            say("Ouk pe mai incolo.")
         elseif 3==b then
            say("Esti sigur ca vrei sa anulezi Questul?")
            local b=select("Da", "Nu")
            if 1==b then
               setstate(start)
               q.done()
            elseif 2==b then
            else
               say("UNKNOWN BUTTON ["..b.."]")
            end
         else
            say("UNKNOWN BUTTON ["..b.."]")
         end
      end
   end
   state failure begin
      when letter begin
         setskin(NOWINDOW)
         makequestbutton("Misiune esuata")
         q.set_title("Misiune esuata")
         q.start()
      end
      when button begin
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
         say("Nu ai reusit sa treci testul")
         say("")
         say("Dute la grajdar, pentru a repeta misiunea!")
         setstate(start)
         q.done()
      end
      when info begin
         say(locale.NOTICE_COLOR.."Misiune esuata"..locale.NORMAL_COLOR)
         say("Nu ai reusit sa treci testul")
         say("")
         say("Dute la grajdar, pentru a repeta misiunea!")
         setstate(start)
         q.done()
      end
   end
   state __COMPLETE__ begin
      when enter begin
         q.done()
      end
   end
end


_______________________________________________________________________________________________________________________________________

Cod: Selectaţi tot

If $post = "helpful" Then 
Mouseclick ("left","Buton Multumesc") 
EndIf 



error :

Cod: Selectaţi tot

cal21.quest:7:when doesn't have begin-end clause. (militar)
Abort (core dumped)
Un server FARA MODATI si fara ITEME PERFECTE !
Intra si TU !

Trebuie să fii logat sau înregistrat pentru a vedea acest link.


Înapoi la “Arhivă”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: gubigubi și 3 vizitatori