[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 » 28 Ian 2015, 22:23

Csaba92 scrie:
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)


Incearca acum

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
   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
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] » 28 Ian 2015, 23:54

Boss vreau şi eu 1 quest de inel teleport cu :
Map1 şi map2 (roşu galben albastru) cu deşert..şi in v1 ... Să fie quest in locul la inelul teleport .. doar le copiezi că eu dacă şterg nu ştiu cum să şterg.. il facirpd :Ă

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 » 29 Ian 2015, 00:08

error

Cod: Selectaţi tot

cal21.quest:50:must start with 'quest'
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.

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 » 30 Ian 2015, 13:18

Csaba92 scrie:error

Cod: Selectaţi tot

cal21.quest:50:must start with 'quest'
Abort (core dumped)


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


[ Mesaj scris via Android ] Imagine
Imagine

Imagine

Deconectat
Avatar utilizator
Warr007
Nivel 3
Nivel 3
Mesaje: 319
Membru din: 29 Iun 2014
Localitate: Undeva pe pamant.
Status: Sunt Okappa.
Server Metin2: World Of Metin2
Regat: Jinno
Mulțumiri acordate: 2
Mulțumiri primite: 2
Contact:

Re: [Service]Creere de Questuri # Gratis #

Mesajde Warr007 » 31 Ian 2015, 15:01

Vreau si eu un quest pentru valentine's day la care sa dropeze bomboana,ciocolata si trandafir galben/rosu si cand duci x50 bomboane sau x50 ciocolata sau x50 trandafir galben/rosu sa iti deie cutia cu ID 50033
Profesional Graphic Designer.
♥♥Site : www.witind.deviantart.com♥♥
♥♥Email : c.timeflies@gmail.com♥♥
♥♥Skype : c.timeflies♥♥

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 » 02 Feb 2015, 19:05

DaRealPain scrie:
Csaba92 scrie:error

Cod: Selectaţi tot

cal21.quest:50:must start with 'quest'
Abort (core dumped)


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


[ Mesaj scris via Android ] Imagine



ERROR
cal_militar.quest:162: syntax error : [string "reporthorse . get_grade ( ) == 1"]:8: unexpected symbol near `)'
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.

Deconectat
Avatar utilizator
BadBoyBy
Nivel 1
Nivel 1
Mesaje: 147
Membru din: 05 Dec 2014
Status: Sunt bine mersi ^.^
Mulțumiri acordate: 0
Mulțumiri primite: 0

Re: [Service]Creere de Questuri # Gratis #

Mesajde BadBoyBy » 02 Feb 2015, 19:32

Vreau sa imi scoti din questul asta teleportu in v4

Cod: Selectaţi tot

   local x
    local y
    local t
    local e = pc . get_empire ( )
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local s = select ( "Map1" , "Map2" , "Valea Orcilor" , "Desert" , "Sohan" , "Tara de foc" , "Urmatoarele" )
    if s == 7 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local p = select ( "Turnul Demonilor" , "V2" , "Grota Exilului" , "Campul cu serpi" , "V4" , "Insula Haosului" ,"Lungsam" , "Padurea Rosie" , "Închide" )
    if p == 1 then
    x = "590400"
    y = "110500"
    elseif p == 2 then
    x = "704100"
    y = "464100"
    elseif p == 3 then
    x = "284200"
    y = "809600"
    elseif p == 4 then
    x = "1059200"
    y = "726900"
    elseif p == 5 then
    if pc.get_level() >= 90 then
    x = "241600"
    y = "1274600"
    elseif p == 6 then
    x="289000"
    y="5800"
    elseif p == 7 then
   say_title ( "Teleporter" )
   say ( "Încotro vrei sa mergi straine?" )
   t = select ( "Început", "Sfârsit", "Închide" )
   if t == 1 then
    x = "1119900"
    y = "70800"
    elseif t == 2 then
    x = "1119200"
    y = "7000"
   end
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    elseif p == 6 then
    if pc.get_level() >= 90 then
    x = "1277800"
    y = "1737100"
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    end
    elseif s == 1 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "473900"
    y = "954600"
    elseif t == 2 then
    x = "63200"
    y = "166700"
    elseif t == 3 then
    x = "959600"
    y = "269700"
    end
    elseif s == 2 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "352300"
    y = "882700"
    elseif t == 2 then
    x = "145700"
    y = "239800"
    elseif t == 3 then
    x = "863800"
    y = "246000"
    end
    elseif s == 3 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Centru" , "Arahani" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "402100"
    y = "673900"
    elseif e == 2 then
    x = "270400"
    y = "739900"
    elseif e == 3 then
    x = "321300"
    y = "808000"
    end
    elseif t == 2 then
    x = "332700"
    y = "745600"
    elseif t == 3 then
    x = "282800"
    y = "792800"
    end
    elseif s == 4 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Inceput" , "Sfârsit" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "217800"
    y = "627200"
    elseif e == 2 then
    x = "221900"
    y = "502700"
    elseif e == 3 then
    x = "344000"
    y = "502500"
    end
    elseif t == 2 then
    x = "296300"
    y = "547500"
    end
    elseif s == 5 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Mijloc" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "434200"
    y = "290600"
    elseif e == 2 then
    x = "375200"
    y = "174900"
    elseif e == 3 then
    x = "491800"
    y = "173600"
    end
    elseif t == 2 then
    x = "436200"
    y = "215300"
    end
    elseif s == 6 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "599400"
    y = "756300"
    elseif e == 2 then
    x = "597800"
    y = "622200"
    elseif e == 3 then
    x = "730700"
    y = "689800"
    end
    elseif t == 2 then
    return
    end
    end
    if s ~= 8 or p ~= 7 then
    pc . warp ( x , y )
    end

Multumesc :D

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 » 04 Feb 2015, 22:20

Warr007 scrie:Vreau si eu un quest pentru valentine's day la care sa dropeze bomboana,ciocolata si trandafir galben/rosu si cand duci x50 bomboane sau x50 ciocolata sau x50 trandafir galben/rosu sa iti deie cutia cu ID 50033


Am facut 3 Questuri pentru ca e usor pentru tine sa vezi cum functioneaza tot ^-^
Iti pun si Download

Questuri

valentines_manage

Cod: Selectaţi tot

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

quest valentines_day begin
    state start begin
        when 11004.chat."Valentines Day Event GM" with pc.is_gm() begin
            if game.get_event_flag("valentines_drop") == 0 then
                say("Eventul pentru Ziua Indragostitilor este dezactivat!")
                say("Vrei sa il activezi?")
                local s = select("Da","Nu")
                if s == 1 then
                    say("Eventul de Ziua Indragostitilor a fost activat!")
                    game.set_event_flag("valentines_drop", 1)
                    notice_all("Eventul de Ziua Indragostitilor a inceput!")
               notice_all("Incepand de acum puteti dropa de la orice monstru,")
               notice_all("Ciocolate, Bomboane si Trandafiri rosii si galbeni!")
                else
                    return
                end
            else
                say("Eventul de Ziua Indragostitilor este activ!")
                say("Vrei sa il dezactivezi?")
                local s = select("Da","Nu")
                if s == 1 then
                    say("Eventul de Ziua Indragostitilor a fost dezactivat!")
                    game.set_event_flag("valentines_drop", 0)
                    notice_all("Eventul de Ziua Indragostitilor a luat sfarsit!")
               notice_all("Speram ca ati obtinut cat mai multe cadouri,")
               notice_all("pentru persoana iubita!")
                else
                    return
                end
            end
        end
    end
end 


valentines_drop

Cod: Selectaţi tot

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

quest valentines_drop begin
    state start begin
        when kill with game.get_event_flag("valentines_drop") == 1 and not npc.is_pc() begin
            local s=number(1, 250)
            if 5 == s then
            game.drop_item_with_ownership(50024,1) --- Rosu
            game.drop_item_with_ownership(50025,1) --- Ciocolata
            game.drop_item_with_ownership(50031,1) --- Galben
            game.drop_item_with_ownership(50032,1) --- Bomboana
            end
        end
    end
end


valentines_change

Cod: Selectaţi tot

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

quest schimb begin
    state start begin
        when 11004.chat."Cutia Misterioasa contra Trandafiri rosii" begin
         say("Pentru a obtine o cutie misterioasa ai nevoie de")
         say("50 de Trandafiri rosii!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50024) > 49 then
                    pc.remove_item(50024, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destui Trandafiri rosii!")
                end
            else
                return
            end
        end
      
        when 11004.chat."Cutia Misterioasa contra Ciocolate" begin
         say("Pentru a obtine o cutie misterioasa ai nevoie de")
         say("50 de Ciocolate!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50025) > 49 then
                    pc.remove_item(50025, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destule Ciocolate!")
                end
            else
                return
            end
        end

        when 11004.chat."Cutia Misterioasa contra Trandafiri galbeni" begin
         say("Pentru a obtine o cutie misterioasa ai nevoie de")
         say("50 de Trandafiri galbeni!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50031) > 49 then
                    pc.remove_item(50031, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destui Trandafiri galbeni!")
                end
            else
                return
            end
        end
      
        when 11004.chat."Cutia Misterioasa contra Bomboane" begin
         say("Pentru a obtine o cutie misterioasa ai nevoie de")
         say("50 de Bomboane!")
            local s = select("Vreau!","Nu vreau!")
            if s == 1 then
                if pc.count_item(50032) > 49 then
                    pc.remove_item(50032, 1)
                    pc.give_item2(50033, 1)
                else
                    syschat("Imi pare rau, dar nu ai destule Bomboane!")
                end
            else
                return
            end
        end
    end
end


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


BadBoyBy scrie:Vreau sa imi scoti din questul asta teleportu in v4

Cod: Selectaţi tot

   local x
    local y
    local t
    local e = pc . get_empire ( )
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local s = select ( "Map1" , "Map2" , "Valea Orcilor" , "Desert" , "Sohan" , "Tara de foc" , "Urmatoarele" )
    if s == 7 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local p = select ( "Turnul Demonilor" , "V2" , "Grota Exilului" , "Campul cu serpi" , "V4" , "Insula Haosului" ,"Lungsam" , "Padurea Rosie" , "Închide" )
    if p == 1 then
    x = "590400"
    y = "110500"
    elseif p == 2 then
    x = "704100"
    y = "464100"
    elseif p == 3 then
    x = "284200"
    y = "809600"
    elseif p == 4 then
    x = "1059200"
    y = "726900"
    elseif p == 5 then
    if pc.get_level() >= 90 then
    x = "241600"
    y = "1274600"
    elseif p == 6 then
    x="289000"
    y="5800"
    elseif p == 7 then
   say_title ( "Teleporter" )
   say ( "Încotro vrei sa mergi straine?" )
   t = select ( "Început", "Sfârsit", "Închide" )
   if t == 1 then
    x = "1119900"
    y = "70800"
    elseif t == 2 then
    x = "1119200"
    y = "7000"
   end
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    elseif p == 6 then
    if pc.get_level() >= 90 then
    x = "1277800"
    y = "1737100"
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    end
    elseif s == 1 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "473900"
    y = "954600"
    elseif t == 2 then
    x = "63200"
    y = "166700"
    elseif t == 3 then
    x = "959600"
    y = "269700"
    end
    elseif s == 2 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "352300"
    y = "882700"
    elseif t == 2 then
    x = "145700"
    y = "239800"
    elseif t == 3 then
    x = "863800"
    y = "246000"
    end
    elseif s == 3 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Centru" , "Arahani" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "402100"
    y = "673900"
    elseif e == 2 then
    x = "270400"
    y = "739900"
    elseif e == 3 then
    x = "321300"
    y = "808000"
    end
    elseif t == 2 then
    x = "332700"
    y = "745600"
    elseif t == 3 then
    x = "282800"
    y = "792800"
    end
    elseif s == 4 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Inceput" , "Sfârsit" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "217800"
    y = "627200"
    elseif e == 2 then
    x = "221900"
    y = "502700"
    elseif e == 3 then
    x = "344000"
    y = "502500"
    end
    elseif t == 2 then
    x = "296300"
    y = "547500"
    end
    elseif s == 5 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Mijloc" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "434200"
    y = "290600"
    elseif e == 2 then
    x = "375200"
    y = "174900"
    elseif e == 3 then
    x = "491800"
    y = "173600"
    end
    elseif t == 2 then
    x = "436200"
    y = "215300"
    end
    elseif s == 6 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "599400"
    y = "756300"
    elseif e == 2 then
    x = "597800"
    y = "622200"
    elseif e == 3 then
    x = "730700"
    y = "689800"
    end
    elseif t == 2 then
    return
    end
    end
    if s ~= 8 or p ~= 7 then
    pc . warp ( x , y )
    end

Multumesc :D


Quest

Cod: Selectaţi tot

   local x
    local y
    local t
    local e = pc . get_empire ( )
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local s = select ( "Map1" , "Map2" , "Valea Orcilor" , "Desert" , "Sohan" , "Tara de foc" , "Urmatoarele" )
    if s == 7 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    local p = select ( "Turnul Demonilor" , "V2" , "Grota Exilului" , "Campul cu serpi" , "Insula Haosului" ,"Lungsam" , "Padurea Rosie" , "Închide" )
    if p == 1 then
    x = "590400"
    y = "110500"
    elseif p == 2 then
    x = "704100"
    y = "464100"
    elseif p == 3 then
    x = "284200"
    y = "809600"
    elseif p == 4 then
    x = "1059200"
    y = "726900"
    elseif p == 5 then
    x="289000"
    y="5800"
    elseif p == 6 then
   say_title ( "Teleporter" )
   say ( "Încotro vrei sa mergi straine?" )
   t = select ( "Început", "Sfârsit", "Închide" )
   if t == 1 then
    x = "1119900"
    y = "70800"
    elseif t == 2 then
    x = "1119200"
    y = "7000"
   end
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    elseif p == 7 then
    if pc.get_level() >= 90 then
    x = "1277800"
    y = "1737100"
    else
    say_title ( "Teleporter:" )
    say ( "Iti trebui cel putin nivel 90." )
    return
    end
    end
    elseif s == 1 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "473900"
    y = "954600"
    elseif t == 2 then
    x = "63200"
    y = "166700"
    elseif t == 3 then
    x = "959600"
    y = "269700"
    end
    elseif s == 2 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Regatul Rosu" , "Regatul Galben" , "Regatul Albastru" , "Închide" )
    if t == 1 then
    x = "352300"
    y = "882700"
    elseif t == 2 then
    x = "145700"
    y = "239800"
    elseif t == 3 then
    x = "863800"
    y = "246000"
    end
    elseif s == 3 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Centru" , "Arahani" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "402100"
    y = "673900"
    elseif e == 2 then
    x = "270400"
    y = "739900"
    elseif e == 3 then
    x = "321300"
    y = "808000"
    end
    elseif t == 2 then
    x = "332700"
    y = "745600"
    elseif t == 3 then
    x = "282800"
    y = "792800"
    end
    elseif s == 4 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Inceput" , "Sfârsit" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "217800"
    y = "627200"
    elseif e == 2 then
    x = "221900"
    y = "502700"
    elseif e == 3 then
    x = "344000"
    y = "502500"
    end
    elseif t == 2 then
    x = "296300"
    y = "547500"
    end
    elseif s == 5 then
    say_title ( "Teleporter" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Mijloc" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "434200"
    y = "290600"
    elseif e == 2 then
    x = "375200"
    y = "174900"
    elseif e == 3 then
    x = "491800"
    y = "173600"
    end
    elseif t == 2 then
    x = "436200"
    y = "215300"
    end
    elseif s == 6 then
    say_title ( "Teleporter:" )
    say ( "Încotro vrei sa mergi straine?" )
    t = select ( "Început" , "Închide" )
    if t == 1 then
    if e == 1 then
    x = "599400"
    y = "756300"
    elseif e == 2 then
    x = "597800"
    y = "622200"
    elseif e == 3 then
    x = "730700"
    y = "689800"
    end
    elseif t == 2 then
    return
    end
    end
    if s ~= 8 or p ~= 7 then
    pc . warp ( x , y )
    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] » 04 Feb 2015, 22:49

Uite quest-ul complet inel ...

Cod: Selectaţi tot

local x
local y
local t
local e = pc . get_empire ( )
if pc . getqf ( "warp_ring" ) == 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Acest inel te ajutã sã te teleportezi" )
say ( "în aproape orice loc dorit, gratis." )
say ( "Un inel poate fi folosit doar de 50 de ori" )
say ( "" )
pc . setqf ( "warp_ring" , 1 )
pc . setqf ( "warps" , 50 )
return
end
if pc . getqf ( "warps" ) <= 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Nu mai poþi folosi acest inel." )
say ( "" )
pc . remove_item ( item . vnum )
pc . setqf ( "warp_ring" , 0 )
return
end
if pc . getqf ( "warp_ring" ) == 1 then
say ( "Unde vrei sã te teleportezi?" )
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) )
say_size ( 350 , 350 )
local s = select ( "Satul 1" , "Satul 2" , "Valea Seungryong" , "Deºertul Yongbi" , "Muntele Sohan" , "Doyyumhwan" , "Urmãtoarele" , "Închide" )
if s == 7 then
say ( "Unde vrei sã te teleportezi?" )
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) )
say_size ( 350 , 350 )
local p = select ( "Turnul Demonilor" , "Kuahlo Dong" , "Lungsam" , "Pãdurea Roºie" , "Þãrâmul Giganþilor" , "Grota Exilului" , "Temniþa Maimuþelor" , "Închide" )
if p == 1 then
x = "590400" y = "110500"
elseif p == 2 then
x = "91900" y = "525400"
elseif p == 3 then
x = "289000" y = "5800"
elseif p == 4 then
say_size ( 350 , 180 )
t = select ( "Început" , "Sfârºit" , "Închide" )
if t == 1 then
x = "1119900" y = "70800"
elseif t == 2 then
x = "1119200" y = "7000"
elseif t == 3 then
return
end
elseif p == 5 then
x = "828100" y = "763400"
elseif p == 6 then
x = "284200" y = "809600"
elseif p == 7 then
say_size ( 350 , 200 )
t = select ( "Temniþa Maimuþelor Începãtor" , "Temniþa Maimuþelor Normal" , "Temniþa Maimuþelor Avansat" , "Închide" )
if t == 1 then
local empire = pc . get_empire ( )
if empire == 1 then
x = "768000" y = "435200"
elseif empire == 2 then
x = "844800" y = "435200"
elseif empire == 3 then
x = "921600" y = "435200"
end
elseif t == 2 then
x = "128000" y = "640000"
elseif t == 3 then
x = "128000" y = "716800"
elseif t == 4 then
return
end
elseif p == 8 then
return
end
elseif s == 1 then
say_size ( 350 , 200 )
t = select ( "Þinutul Yongan" , "Þinutul Joan" , "Þinutul Pyungmoo" , "Închide" )
if t == 1 then
x = "473900" y = "954600"
elseif t == 2 then
x = "63200" y = "166700"
elseif t == 3 then
x = "959600" y = "269700"
elseif t == 4 then
return
end
elseif s == 2 then
say_size ( 350 , 200 )
t = select ( "Þinutul Yayang" , "Þinutul Bokjung" , "Þinutul Bakra" , "Închide" )
if t == 1 then
x = "352300" y = "882700"
elseif t == 2 then
x = "145700" y = "239800"
elseif t == 3 then
x = "863800" y = "246000"
elseif t == 4 then
return
end
elseif s == 3 then
say_size ( 350 , 200 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "402100" y = "673900"
elseif e == 2 then
x = "270400" y = "739900"
elseif e == 3 then
x = "321300" y = "808000"
elseif e == 4 then
return
end
elseif t == 2 then
x = "332700" y = "745600"
elseif t == 3 then
return
end
elseif s == 4 then
say_size ( 350 , 180 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "217800" y = "627200"
elseif e == 2 then
x = "221900" y = "502700"
elseif e == 3 then
x = "344000" y = "502500"
end
elseif t == 2 then
x = "296300" y = "547500"
elseif t == 3 then
return
end
elseif s == 5 then
say_size ( 350 , 180 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "434200" y = "290600"
elseif e == 2 then
x = "375200" y = "174900"
elseif e == 3 then
x = "491800" y = "173600"
end
elseif t == 2 then
x = "436200" y = "215300"
elseif t == 3 then
return
end
elseif s == 6 then
say_size ( 350 , 150 )
t = select ( "Început" , "Închide" )
if t == 1 then
if e == 1 then
x = "599400" y = "756300"
elseif e == 2 then
x = "597800" y = "622200"
elseif e == 3 then
x = "730700" y = "689800"
end
elseif t == 2 then
return
end
elseif s == 8 then
return
end
end
pc . warp ( x , y )
pc . setqf ( "warps" , pc . getqf ( "warps" ) - 1 )


Şi aş vreau şi eu să rămână următoarele mape pe inel .

Map1 toate
Map2 toate
Desert
Valea orcilor
Şi in V1

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 » 04 Feb 2015, 23:03

[Chuli-Gaara] scrie:Uite quest-ul complet inel ...

Cod: Selectaţi tot

local x
local y
local t
local e = pc . get_empire ( )
if pc . getqf ( "warp_ring" ) == 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Acest inel te ajutã sã te teleportezi" )
say ( "în aproape orice loc dorit, gratis." )
say ( "Un inel poate fi folosit doar de 50 de ori" )
say ( "" )
pc . setqf ( "warp_ring" , 1 )
pc . setqf ( "warps" , 50 )
return
end
if pc . getqf ( "warps" ) <= 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Nu mai poþi folosi acest inel." )
say ( "" )
pc . remove_item ( item . vnum )
pc . setqf ( "warp_ring" , 0 )
return
end
if pc . getqf ( "warp_ring" ) == 1 then
say ( "Unde vrei sã te teleportezi?" )
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) )
say_size ( 350 , 350 )
local s = select ( "Satul 1" , "Satul 2" , "Valea Seungryong" , "Deºertul Yongbi" , "Muntele Sohan" , "Doyyumhwan" , "Urmãtoarele" , "Închide" )
if s == 7 then
say ( "Unde vrei sã te teleportezi?" )
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) )
say_size ( 350 , 350 )
local p = select ( "Turnul Demonilor" , "Kuahlo Dong" , "Lungsam" , "Pãdurea Roºie" , "Þãrâmul Giganþilor" , "Grota Exilului" , "Temniþa Maimuþelor" , "Închide" )
if p == 1 then
x = "590400" y = "110500"
elseif p == 2 then
x = "91900" y = "525400"
elseif p == 3 then
x = "289000" y = "5800"
elseif p == 4 then
say_size ( 350 , 180 )
t = select ( "Început" , "Sfârºit" , "Închide" )
if t == 1 then
x = "1119900" y = "70800"
elseif t == 2 then
x = "1119200" y = "7000"
elseif t == 3 then
return
end
elseif p == 5 then
x = "828100" y = "763400"
elseif p == 6 then
x = "284200" y = "809600"
elseif p == 7 then
say_size ( 350 , 200 )
t = select ( "Temniþa Maimuþelor Începãtor" , "Temniþa Maimuþelor Normal" , "Temniþa Maimuþelor Avansat" , "Închide" )
if t == 1 then
local empire = pc . get_empire ( )
if empire == 1 then
x = "768000" y = "435200"
elseif empire == 2 then
x = "844800" y = "435200"
elseif empire == 3 then
x = "921600" y = "435200"
end
elseif t == 2 then
x = "128000" y = "640000"
elseif t == 3 then
x = "128000" y = "716800"
elseif t == 4 then
return
end
elseif p == 8 then
return
end
elseif s == 1 then
say_size ( 350 , 200 )
t = select ( "Þinutul Yongan" , "Þinutul Joan" , "Þinutul Pyungmoo" , "Închide" )
if t == 1 then
x = "473900" y = "954600"
elseif t == 2 then
x = "63200" y = "166700"
elseif t == 3 then
x = "959600" y = "269700"
elseif t == 4 then
return
end
elseif s == 2 then
say_size ( 350 , 200 )
t = select ( "Þinutul Yayang" , "Þinutul Bokjung" , "Þinutul Bakra" , "Închide" )
if t == 1 then
x = "352300" y = "882700"
elseif t == 2 then
x = "145700" y = "239800"
elseif t == 3 then
x = "863800" y = "246000"
elseif t == 4 then
return
end
elseif s == 3 then
say_size ( 350 , 200 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "402100" y = "673900"
elseif e == 2 then
x = "270400" y = "739900"
elseif e == 3 then
x = "321300" y = "808000"
elseif e == 4 then
return
end
elseif t == 2 then
x = "332700" y = "745600"
elseif t == 3 then
return
end
elseif s == 4 then
say_size ( 350 , 180 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "217800" y = "627200"
elseif e == 2 then
x = "221900" y = "502700"
elseif e == 3 then
x = "344000" y = "502500"
end
elseif t == 2 then
x = "296300" y = "547500"
elseif t == 3 then
return
end
elseif s == 5 then
say_size ( 350 , 180 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "434200" y = "290600"
elseif e == 2 then
x = "375200" y = "174900"
elseif e == 3 then
x = "491800" y = "173600"
end
elseif t == 2 then
x = "436200" y = "215300"
elseif t == 3 then
return
end
elseif s == 6 then
say_size ( 350 , 150 )
t = select ( "Început" , "Închide" )
if t == 1 then
if e == 1 then
x = "599400" y = "756300"
elseif e == 2 then
x = "597800" y = "622200"
elseif e == 3 then
x = "730700" y = "689800"
end
elseif t == 2 then
return
end
elseif s == 8 then
return
end
end
pc . warp ( x , y )
pc . setqf ( "warps" , pc . getqf ( "warps" ) - 1 )


Şi aş vreau şi eu să rămână următoarele mape pe inel .

Map1 toate
Map2 toate
Desert
Valea orcilor
Şi in V1


Nustiu daca functioneaza pentru ca am editat repede ^-^
Vezi tu iubire ^-^

Quest

Cod: Selectaţi tot

--- ####################
--- ## Quest editat de DaRealPain ##
--- ###################

local x
local y
local t
local e = pc . get_empire ( )
if pc . getqf ( "warp_ring" ) == 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Acest inel te ajutã sã te teleportezi" )
say ( "în aproape orice loc dorit, gratis." )
say ( "Un inel poate fi folosit doar de 50 de ori" )
say ( "" )
pc . setqf ( "warp_ring" , 1 )
pc . setqf ( "warps" , 50 )
return
end
if pc . getqf ( "warps" ) <= 0 then
say_title ( "Inel teleportare" )
say ( "" )
say ( "Nu mai poþi folosi acest inel." )
say ( "" )
pc . remove_item ( item . vnum )
pc . setqf ( "warp_ring" , 0 )
return
end
if pc . getqf ( "warp_ring" ) == 1 then
say ( "Unde vrei sã te teleportezi?" )
say_reward ( "Teleportãri rãmase: " .. pc . getqf ( "warps" ) )
say_size ( 350 , 350 )
local s = select ( "Satul 1" , "Satul 2" , "Valea Seungryong" , "Deºertul Yongbi" , "Doyyumhwan" , "Închide" )
elseif s == 1 then
say_size ( 350 , 200 )
t = select ( "Þinutul Yongan" , "Þinutul Joan" , "Þinutul Pyungmoo" , "Închide" )
if t == 1 then
x = "473900" y = "954600"
elseif t == 2 then
x = "63200" y = "166700"
elseif t == 3 then
x = "959600" y = "269700"
elseif t == 4 then
return
end
elseif s == 2 then
say_size ( 350 , 200 )
t = select ( "Þinutul Yayang" , "Þinutul Bokjung" , "Þinutul Bakra" , "Închide" )
if t == 1 then
x = "352300" y = "882700"
elseif t == 2 then
x = "145700" y = "239800"
elseif t == 3 then
x = "863800" y = "246000"
elseif t == 4 then
return
end
elseif s == 3 then
say_size ( 350 , 200 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "402100" y = "673900"
elseif e == 2 then
x = "270400" y = "739900"
elseif e == 3 then
x = "321300" y = "808000"
elseif e == 4 then
return
end
elseif t == 2 then
x = "332700" y = "745600"
elseif t == 3 then
return
end
elseif s == 4 then
say_size ( 350 , 180 )
t = select ( "Început" , "Mijloc" , "Închide" )
if t == 1 then
if e == 1 then
x = "217800" y = "627200"
elseif e == 2 then
x = "221900" y = "502700"
elseif e == 3 then
x = "344000" y = "502500"
end
elseif t == 2 then
x = "296300" y = "547500"
elseif t == 3 then
return
end
elseif s == 5 then
say_size ( 350 , 150 )
t = select ( "Început" , "Închide" )
if t == 1 then
if e == 1 then
x = "599400" y = "756300"
elseif e == 2 then
x = "597800" y = "622200"
elseif e == 3 then
x = "730700" y = "689800"
end
elseif t == 2 then
return
end
elseif s == 6 then
return
end
end
pc . warp ( x , y )
pc . setqf ( "warps" , pc . getqf ( "warps" ) - 1 )
Imagine

Imagine


Înapoi la “Arhivă”

Cine este conectat

Utilizatori ce ce navighează pe acest forum: Niciun utilizator înregistrat și 8 vizitatori