Back to Piciul- [Legacy 3554]'s profile
Piciul- [Legacy 3554]

Posts by Piciul- [Legacy 3554]

933 posts

  1. #441
    Reply in Gaming
    
        quest abcdefoc begin
        state start begin
        when login with pc.level > 60 begin
        send_letter(“Abecedarul pumnalului de foc”)
        local v = find_npc_by_vnum(20023)
        target.vid(“soon”, v, “soon”)
        end
    
        when info or button begin
        say_title(” “.. pc.get_name() ..” este nevoie de tine”)
        say(“Soon are nevoie de tine,pare a fi ceva urgent”)
        say(“Du-te la el si vezi ce doreste.”)
        say_reward(“Sigur vrea ceva legat de cartile lui plictisitoare”)
        end
    
        when soon.target.click begin
        say_title(“Soon:”)
        say(“Hei vierme ce esti,da tu,ce te uiti asa?”)
        say(“Am si eu nevoie de tine,lasa-ma sa detaliez”)
        say(“Astazi am vorbit cu invatatorul de lupta aprop.”)
        say(“si m-a rugat sa ii dau un manual.”)
        say(“Totusi acel abecedar stravechi se gaseste foarte”)
        say(“foarte greu. Cauta Abecedarul pumnalului de foc”)
        say_reward(“Ai putea sa ma ajuti? Te voi recompensa”)
        wait()
        say_title(“Just4Metin.ro:”)
        say_item_vnum(70034)
        say(“Obtine acest manual si du-l lui Uriel sa il”)
        say(“studieze. Apoi treci pe la mine sa ati iei”)
        say(“recompensa.”)
        target.delete(“soon”)
        set_state(killing)
        end
        end
    
        state killing begin
    
        when letter begin
        send_letter(“Abecedarul pumnalului de foc”)
        end
    
        when button or info begin
        say_title(“Abecedarul pumnalului de foc”)
        say(“Omoara Flacari,Spiritul focului si Tigru luptator”)
        say(“pentru a obtine Abecedarul pumnalului de foc”)
        say_item_vnum(70034)
        end
    
        when 2202.kill or 2205.kill or 2201.kill or 2203.kill begin
        local n = number(0,100)
        if n>95 and pc.count_item(70034) == 0 then
        pc.give_item2(70034, 1)
        say_title(“Abecedarul pumnalului de foc”)
        say(“Ai obtinut abecedarul pumnalului de foc.”)
        say(“Du-l lui Uriel pentru a fi studiat mai bine”)
        set_state(backuriel)
        end
        end
        end
    
        state backuriel begin
        when letter begin
        send_letter(“Abecedarul pumnalului de foc”)
        local v = find_npc_by_vnum(20011)
        target.vid(“uriel”, v, “uriel”)
        end
    
        when button or info begin
        say_title(“Abecedarul pumnalului de foc”)
        say(“Ai obtinut abecedarul.”)
        say(“Du-te la Uriel pentru a-l studia.”)
        end
    
        when uriel.target.click begin
        if pc.count_item(70034) == 0 then
        say(“Revino cand vei avea Abecedarul Pumnalului de foc”)
        else
        say_title(“Uriel:”)
        say(“Abecedarul pumnalului de foc?Astea sunt povesti”)
        say(“vechi.Of doamne,asta chiar exista,acum voi studia”)
        pc.remove_item(70034, 1)
        wait()
        say_title(“Uriel:”)
        say(“Notitele sunt gata, le poti duce lui Soon.”)
        target.delete(“uriel”)
        pc.give_item2(70010, 1)
        set_state(soonback)
        end
        end
        end
    
        state soonback begin
        when letter begin
        send_letter(“Abecedarul pumnalului de foc”)
        local v = find_npc_by_vnum(20023)
        target.vid(“soon”, v, “Soon”)
        end
    
        when button or info begin
        say_title(“Abecedarul pumnalului de foc”)
        say(“Du-te si du notitele lui Soon pentru a-ti primi”)
        say(“recompensa.”)
        end
    
        when 20023.chat.”Abecedarul de foc” begin
        if pc.count_item(70010) == 1 then
        say_title(“Soon:”)
        say(“O sa fiu al naibii,chiar ai adus abecedarul”)
        say(“Sa moara T-Zeus,ma bag pe citit acum.”)
        pc.remove_item(70010, 1)
        wait()
        say_reward(“O da,uite si recompensa”)
        say_reward(“O meriti din plin.”)
        say_reward(“Ai primit Elixirul Biologului x3″)
        say_reward(“Ai primit Perla Alba”)
        say_reward(“Ai primit Perla Albastra”)
        say_reward(“Ai primit Perla Rosie”)
        pc.give_item2(71035, 3)
        pc.give_item2(27994, 1)
        pc.give_item2(27993, 1)
        pc.give_item2(27992, 1)
        target.delete(“soon”)
        clear_letter()
        set_state(__complete)
        else
        say_title(“Soon:”)
        say(“Adu-mi notitele cat mai repede”)
        end
        end
        end
        state __complete begin
        end
        end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q .

  2. #442
    [Resursă] Quest Npc Judy
    Reply in Gaming
    
    quest npc_judy begin
       state start begin
          when 20094.chat."NPC - Metin2" begin
             local s = select("Skiluri G/P", "Banca", "Loto(Loterie)", "Schimba rasa", "Schimba sexul", "Resetare Skill", "Pagina 2", "Anuleaza")
                if s == 1 then   
                   say_title ( "Skilluri G/P:" )
                   say ( "Bun venit pe Metin2" )
                   say ( "Metin2 va ofera posibilitatea de a lua skillurile P sau G fara a mai apela la GM!" )
                   say ( "Pentru a lua skillurile trebuie sa platesti o suma de bani" )
                   say ( "" )
                   say ( "" )
                   say_reward ( "Skillurile G costa 15kk, necesita nivel 40" )
                   say_reward ( "Skillurile P costa 30kk, necesita nivel 60")
                   local opzioni = select ( "Skiluri G" , "Skiluri P", "Anuleaza" )
                      if opzioni == 1 then
                         if pc.get_gold()<15000000 then
                            say("Nu ai 15 kk")
                         elseif pc.get_level()<40 then
                            say("Nu ai nivel 40")
                         else
                            local skillg = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
                               if skillg == 1 then
                                  pc.set_skill_level (1,30)
                                  pc.set_skill_level (2,30)
                                  pc.set_skill_level (3,30)
                                  pc.set_skill_level (4,30)
                                  pc.set_skill_level (5,30)
                                  pc.set_skill_level (16,30)
                                  pc.set_skill_level (17,30)
                                  pc.set_skill_level (18,30)
                                  pc.set_skill_level (19,30)
                                  pc.set_skill_level (20,30)
                                  pc . changegold ( - 15000000 ) 
                               elseif skillg == 2 then
                                  pc.set_skill_level (31,30)
                                  pc.set_skill_level (32,30)
                                  pc.set_skill_level (33,30)
                                  pc.set_skill_level (34,30)
                                  pc.set_skill_level (35,30)
                                  pc.set_skill_level (46,30)
                                  pc.set_skill_level (47,30)
                                  pc.set_skill_level (48,30)
                                  pc.set_skill_level (49,30)
                                  pc.set_skill_level (50,30)
                                  pc . changegold ( - 15000000 )
                               elseif skillg == 3 then
                                  pc.set_skill_level (61,30)
                                  pc.set_skill_level (62,30)
                                  pc.set_skill_level (63,30)
                                  pc.set_skill_level (64,30)
                                  pc.set_skill_level (65,30)
                                  pc.set_skill_level (66,30)
                                  pc.set_skill_level (76,30)
                                  pc.set_skill_level (77,30)
                                  pc.set_skill_level (78,30)
                                  pc.set_skill_level (79,30)
                                  pc.set_skill_level (80,30)
                                  pc.set_skill_level (81,30)
                                  pc . changegold ( - 15000000 )
                               elseif skillg == 4 then
                                  pc.set_skill_level (91,30)
                                  pc.set_skill_level (92,30)
                                  pc.set_skill_level (93,30)
                                  pc.set_skill_level (94,30)
                                  pc.set_skill_level (95,30)
                                  pc.set_skill_level (96,30)
                                  pc.set_skill_level (106,30)
                                  pc.set_skill_level (107,30)
                                  pc.set_skill_level (108,30)
                                  pc.set_skill_level (109,30)
                                  pc.set_skill_level (110,30)
                                  pc.set_skill_level (111,30)
                                  pc . changegold ( - 15000000 )
                               end
                            end
                      elseif opzioni == 2 then
                         if pc.get_gold()<30000000 then
                            say("Nu ai 30kk")
                         elseif pc.get_level()<60 then
                            say("Nu ai nivelul 60")
                         else
                            local skillp = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
                               if skillp == 1 then
                                  pc.set_skill_level(1 ,59)
                                  pc.set_skill_level(2 ,59)
                                  pc.set_skill_level(3 ,59)
                                  pc.set_skill_level(4 ,59)
                                  pc.set_skill_level(5 ,59)
                                  pc.set_skill_level(16 ,59)
                                  pc.set_skill_level(17 ,59)
                                  pc.set_skill_level(18 ,59)
                                  pc.set_skill_level(19 ,59)
                                  pc.set_skill_level(20 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 2 then
                                  pc.set_skill_level(31 ,59)
                                  pc.set_skill_level(32 ,59)
                                  pc.set_skill_level(33 ,59)
                                  pc.set_skill_level(34 ,59)
                                  pc.set_skill_level(35 ,59)
                                  pc.set_skill_level(46 ,59)
                                  pc.set_skill_level(47 ,59)
                                  pc.set_skill_level(48 ,59)
                                  pc.set_skill_level(49 ,59)
                                  pc.set_skill_level(50 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 3 then
                                  pc.set_skill_level(76 ,59)
                                  pc.set_skill_level(77 ,59)
                                  pc.set_skill_level(78 ,59)
                                  pc.set_skill_level(79 ,59)
                                  pc.set_skill_level(80 ,59)
                                  pc.set_skill_level(81, 59)
                                  pc.set_skill_level(61 ,59)
                                  pc.set_skill_level(62 ,59)
                                  pc.set_skill_level(63 ,59)
                                  pc.set_skill_level(64 ,59)
                                  pc.set_skill_level(65 ,59)
                                  pc.set_skill_level(66 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 4 then
                                  pc.set_skill_level(106 ,59)
                                  pc.set_skill_level(107 ,59)
                                  pc.set_skill_level(108 ,59)
                                  pc.set_skill_level(109 ,59)
                                  pc.set_skill_level(110 ,59)
                                  pc.set_skill_level(111 ,59)
                                  pc.set_skill_level(91 ,59)
                                  pc.set_skill_level(92 ,59)
                                  pc.set_skill_level(93 ,59)
                                  pc.set_skill_level(94 ,59)
                                  pc.set_skill_level(95 ,59)
                                  pc.set_skill_level(96 ,59)
                                  pc . changegold ( - 30000000 )
                               end
                            end
                         end
                elseif s == 2 then
                   say_title("Depozit de Yang")
                   say("Ce pot face pentru tine?")
                   local f = select("Depune Yang(100kk)", "Depune Yang(500kk)", "Depune Yang(1kkk)", "Retrage Yang(100kk)" , "Retrage Yang(500kk)" , "Retrage Yang(1kkk)" , "Inchide")
                   if f == 1 then
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Pana Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 100kk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<100000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 100kk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Pana Razboinicului" , 70036 , "" ) 
                               pc . changegold ( - 100000000 ) 
                               pc . give_item2 ( 70036 )
                   elseif f == 2 then            
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Medalia Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 500kk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<500000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 500kk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Medalia Razboinicului" , 70004 , "" ) 
                               pc . changegold ( - 500000000 ) 
                               pc . give_item2 ( 70004 )            
                   elseif f == 3 then
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Cupa Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 1kkk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<1000000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 1kkk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Cupa Razboinicului" , 50042 , "" ) 
                               pc . changegold ( - 1000000000 ) 
                               pc . give_item2 ( 50042 )
                               elseif f == 4 then
                                  say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Pana Razboinicului" , 70036 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 70036 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Pana Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 100kk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Pana Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 70036 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 70036 ) 
                                  pc . changegold ( 100000000 )
                                                       elseif f == 5 then
                                                          say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Medalia Razboinicului" , 70004 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 70004 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Medalia Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 500kk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Medalia Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 70004 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 70004 ) 
                                  pc . changegold ( 500000000 )
                                                        elseif f == 6 then
                                                          say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Cupa Razboinicului" , 50042 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 50042 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Cupa Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 1kkk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Cupa Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 50042 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 50042 ) 
                                  pc . changegold ( 1000000000 )
                               end
                elseif s == 3 then
                   local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am nrorc...")
                      if loto == 1 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("6.000.000 Yang (6kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 6000000 then
                               pc . changegold ( - 6000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 5" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 50.000.000 Yang (50kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 5 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 5")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,5))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 50.000.000 Yang(50kk)")
                                  pc.changegold ( 50000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      elseif loto == 2 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("5.000.000 Yang (5kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 5000000 then
                               pc . changegold ( - 5000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 10" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 75.000.000 Yang (75kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 10 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 10")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,10))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 75.000.000 Yang(75kk)")
                                  pc.changegold ( 75000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      elseif loto == 3 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("4.000.000 Yang (4kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 4000000 then
                               pc . changegold ( - 4000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 20" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 100.000.000 Yang (100kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 20 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 20")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,20))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 100.000.000 Yang(100kk)")
                                  pc.changegold ( 100000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      end
                elseif s == 4 then
                   say ( "" ) 
                   say ( "Vrei sa schimbi Rasa??" ) 
                   say ( "Din ori ce rasa esti poti deveni alta" )
                   say ( "" )
                   say ( "" )
                   say ( "" )
                   local main_set = select ( "Da" , "Nu" )
                   if main_set == 1 then
                      say ( "Ce Rasa Vrei?" )
                      local razzacambiasex = select ("Warrior","Ninja","Sura","Shaman","Nu Stiu..")
                         if razzacambiasex == 1 then      
                            local sexwar = select ("Baiat","Fata")
                               if sexwar == 1 then            
                                  pc.polymorph("4")
                                  pc.change_sex()
                               elseif sexwar == 2 then
                                  pc.polymorph("4")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 2 then
                            local sexninja = select ("Baiat","Fata")
                               if sexninja == 2 then            
                                  pc.polymorph("5")
                                  pc.change_sex()
                               elseif sexninja == 1 then
                                  pc.polymorph("5")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 3 then
                            local sexsura = select ("Baiat","Fata")
                               if sexsura == 1 then            
                                  pc.polymorph("6")
                                  pc.change_sex()
                               elseif sexsura == 2 then
                                  pc.polymorph("6")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 4 then
                            local sexshamy = select ("Baiat","Fata")
                               if sexshamy == 2 then            
                                  pc.polymorph("7")
                                  pc.change_sex()
                               elseif sexshamy == 1 then
                                  pc.polymorph("7")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                            end
                         end
                elseif s == 5 then
                   say ( "" ) 
                   say ( "Sigur vrei sa schimbi sexul?" ) 
                   say ( "" )
                   local main_set = select ( "Da" , "Nu" ) 
                      if main_set == 1 then
                         pc.change_sex()
                         pc.polymorph("20032")
                         say ( "Ai schimbat sexul cu succes" ) 
                      end
                elseif s == 6 then
                   local reskill = select("Reseteaza toate skilurile", "M-am razgandit")
                      if reskill == 1 then
                         say ( "Vrei Sa Resetezi toate skillurile?" )
                         say ( "Daca resetezi skillurile vei loa totul de la M1." )
                         local main_set = select ( "Da" , "Nu" ) 
                            if main_set == 1 then
                               pc.setqf("clear", 1)
                               pc.clear_skill()
                               pc.set_skill_group(0)
                               say ( "Succes! Iti urez o zi buna !" ) 
                            end
                         end
                elseif s == 7 then
                   local pagina2 = select("Elimina frizura", "Mareste viteza", "Mesaj global", "Modificare grad", "Teleportarea jucatorului", "Cal lvl 21", "Marmura Binecuvantare", "Anuleaza")
                      if pagina2 == 1 then
                         say ( "" ) 
                         say ( "Esti sigur ca vrei sa elimini frizura?" ) 
                         say ( "" )
                         local main_set = select ( "Da" , "Nu" ) 
                            if main_set == 1 then
                            pc.set_part(PART_HAIR, 0)
                            say ( "Ai Eliminat Cu Succes Frizura" ) 
                            say ( "" ) 
                         end
                      elseif pagina2 == 2 then
                         if pc.get_gold()<1000000000 then
                         say("Nu ai 1.000.000.000 Yang (1kkk)")
                      else
                         say ( "Esti sigur ca vrei sa iti maresc viteza" ) 
                         say ( "de miscare si de atac cu 150 puncte?" )
                         say ( "Aceasta costa 1.000.000.000 Yang (1kkk)" )
                         local vel =select ("Da","Nu")
                            if vel == 1 then
                               affect . add_collect ( apply . ATT_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
                               affect . add_collect ( apply . MOV_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
                               pc . changegold ( -1000000000 )
                               say ( "Ai primit viteza maxima cu succes" ) 
                               say ( "Ti s-au retras din Yang 1.000.000.000 Yang (1kkk)" )
                            end
                         end
                      elseif pagina2 == 3 then
                         say("Cu doar 5kk poti sa postezi")
                         say("un mesaj global")
                         say("Daca adresezi jigniri staffului")
                         say("sau unor playeri , se ajunge la sanctiuni")
                         say("Esti sigur ca vrei sa postezi un mesaj?")
                         local mes = select("Da", "Nu")
                            if mes == 1 then
                               if pc.get_gold()<5000000 then
                               say("Nu ai 5.000.000 Yang (5kk)")
                            else
                               say("Scrie Mesajul :")
                               local notice_text = input()
                               notice_all("Lv. "..pc.get_level().."  "..pc.get_name().." spune : "..notice_text)
                               pc.changegold(-5000000)
                            end
                         end
                      elseif pagina2 == 4 then
                         say("Cu doar 3kk poti sa iti")
                         say("modifici gradul din fata numelui")
                         say("Esti sigur ca vrei sa iti modifici")
                         say("gradul?")
                         local grad = select("Da", "Nu")
                            if grad == 1 then
                               local grad1 = select("Transforma-ti gradul(Pozitiv)", "Transforma-ti gradul(Nagativ)", "Anuleaza")
                                  if grad1 == 1 then
                                     if pc.get_gold()<3000000 then
                                     say("Nu ai 3.000.000 Yang (3kk)")
                                  else
                                     say("Alege ce grad sa-ti dau")
                                     local a = select ( "Prietenos" , "Bun" , "Nobil" , "Cavaleresc" , "Anuleaza" )
                                        if a == 1 then
                                        pc . change_alignment ( 1000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Prietenos")
                                        elseif a == 2 then
                                        pc . change_alignment ( 4000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Bun")
                                        elseif a == 3 then
                                        pc . change_alignment ( 8000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Nobil")
                                        elseif a == 4 then
                                        pc . change_alignment ( 20000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Cavaleresc")
                                        end
                                     end
                                  elseif grad1 == 2 then
                                     if pc.get_gold()<3000000 then
                                     say("Nu ai 3.000.000 Yang (3kk)")
                                  else
                                     local b = select ( "Agresiv" , "Fatarnic" , "Rautacios" , "Crud" , "Anuleaza" )
                                        if b == 1 then
                                        pc . change_alignment ( -1000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Agresiv")
                                        elseif b == 2 then
                                        pc . change_alignment ( -4000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Fatarnic")
                                        elseif b == 3 then
                                        pc . change_alignment ( -8000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Rautacios")
                                        elseif b == 4 then
                                        pc . change_alignment ( -20000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Crud")
                                        end
                                     end
                                  end
                               end
                      elseif pagina2 == 5 then
                         say_title("Teleportarea jucatorului:")
                         say("Daca ai 35kk poti sa te teleportezi la un alt jucator.")
                         say_reward("Vrei sa te teleportezi?")
                         local a = select("Da","Nu!")
                            if a == 1 then
                               if pc.get_gold()<35000000 then
                               say("Nu ai 35.000.000 Yang (35kk)")
                            else
                               say_title("Teleportarea jucatorului:")
                               say_reward("Scrie numele jucatorului la care vrei sa te[ENTER]teleportezi:")
                               local name = input()
                                  pc.teleport(name)
                                  pc.changegold(-35000000)
                               end
                            end
                      elseif pagina2 == 6 then
                         say ( "Salut! Iti pot oferi cal lvl 21 in schimbul a 5kk" ) 
                         say ( "Vrei sa iti dau calul?" ) 
                         say ( "" ) 
                         say ( "Sigur vrei?" )
                         local main_set = select("Da", "Nu") 
                            if main_set == 1 then
                               if pc.get_gold()<5000000 then
                               say("Nu ai 5.000.000 Yang (5kk)")
                            else
                               horse . unride ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               pc.changegold(-5000000)
                               command("setsk 131 10")
                               command("setsk 137 20")
                               command("setsk 138 20")
                               command("setsk 139 20")
                               command("setsk 140 20")
                               horse . ride ( ) 
                               setskin ( NOWINDOW ) 
                               pc . give_item2 ( "50053" , 1 )
                            end
                         end
                      elseif pagina2 == 7 then
                         say("Eu iti pot oferi 2 stocuri de marmuri")
                         say("Unul de o marmura; Unul de 5 marmuri")
                         local marmuri = select("Stoc de o Marmura", "Stoc de 5 Marmuri", "Anuleaza")
                            if marmuri == 1 then
                               pc . give_item2 ( "70024" , 1 )
                               say("Ai primit o Marmura")
                            elseif marmuri == 2 then
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               say("Ai primit 5 Marmuri")
                            end
                         end
                      end
                   end
                end
             end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu npc_july.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc npc_july.quest

    5. Intraţi pe server şi scrieţi /reload q .

  3. #443
    [Resursă] Quest Inel 70007
    Reply in Gaming
    
    quest teleporter begin
    state start begin
    when 70007.use begin
    say_title ( "Metin2GO" )
    say_title ( "Teleport:" )
    say ( "Salut," )
    say ( "Unde vrei sa te duci?" )
    local main_set = select ("Camp Cu Serpi","DT","V2","Padurea Rosie","Grota Exilului","Mai departe")
    if main_set == 1 then
    pc.warp ( 1059000 , 726200 )
    elseif main_set == 2 then
    pc.warp ( 590500 , 110500)
    elseif main_set == 3 then
    pc.warp ( 665600 , 435200 )
    elseif main_set == 4 then
    pc.warp ( 1049600 , 0 )
    elseif main_set == 5 then
    pc.warp ( 0 , 1203200 )
    elseif main_set == 6 then
    
    local main_set2 = select ("Valea Orcilor","Desert","Muntele Sohan", "Tara de foc", "Mai departe")
    if main_set2 == 1 then
    pc.warp ( 333949 , 752560 )
    elseif main_set2 == 2 then
    pc.warp ( 344000 , 502500 )
    elseif main_set2 == 3 then
    pc.warp ( 491800, 173600 )
    elseif main_set2 == 4 then
    pc.warp ( 730700, 689800 )
    elseif main_set2 == 5 then
    
    local main_set3 =select ("Map 1 Albastri","Map 2 Albastri","Map 1 Galbeni","Map 2 Galbeni","Map 1 Rosi","Map 2 Rosi","Nu mai vreau,multumesc")
    if main_set3 == 1 then
    pc.warp ( 969600 , 278400 )
    elseif main_set3 == 2 then
    pc.warp ( 873100 , 242600 )
    elseif main_set3 == 3 then
    pc.warp ( 55700 , 157900 )
    elseif main_set3 == 4 then
    pc.warp ( 138500 , 234900 )
    elseif main_set3 == 5 then
    pc.warp ( 469300 , 964200 )
    elseif main_set3 == 6 then
    pc.warp ( 360800 , 877600 )
    elseif main_set3 == 7 then
    return
    end
    end
    end
    end
    end
    end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q .

  4. #444
  5. #445
    Reply in Gaming
    
    -- © 2014  - This system it's made by me for 
    -- Do not change Copyrights or re-post on another stupid forums!
    quest thsgiftdev begin
        state start begin
            when login begin
                cmdchat("zetsugfsys "..q.getcurrentquestindex())
                if pc.getqf("giftsystemuse") > get_time() then
                end
            end
              
            function giverandomitem()
                local random_nr = number(1,22)
                chat("Metin2: Hm. Sa vedem ce noroc avem.") -- Opening
                pc.give_item2(70031,1)
             pc.give_item2(70024,5)
             pc.give_item2(50037,10)
             pc.give_item2(71020,15)
                 
                pc.setqf("giftsystemuse", get_time()+60*60*12) -- 12 hours (60*minutes*hrs, 30 minutes example: 60*30, 10 minutes example: 60*10)
            end
      
            when button or info begin
                if pc.getqf("giftsystemuse") <= get_time() then
                    thsgiftdev.giverandomitem()
                else
                    chat("Metin2: Nu mai ai cadouri acum. Incearca peste 12 ore.") -- Played
                end
            end
        end
    end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q.

  6. #446
    Reply in Gaming
    
    quest skillurisecundare begin
            state start begin
                    when 9003.chat."Skillurile Secundare" begin           
                        say("Eu iti pot oferii")
                        say("skilurile secundare.")
                        say("Esti sigur ca vrei?")                   
                        local s=select("Da!")                   
                        if s==1 then
                        --Da!
                        pc.set_skill_level(121 ,59)
                        pc.set_skill_level(122 ,59)
                        pc.set_skill_level(123 ,59)
                        pc.set_skill_level(124 ,59)
                        pc.set_skill_level(125 ,59)
                        pc.set_skill_level(126 ,59)
                        pc.set_skill_level(127 ,59)
                        pc.set_skill_level(128 ,59)
                        pc.set_skill_level(129 ,59)
                        pc.set_skill_level(130 ,59)
                        pc.set_skill_level(131 ,59)
                        pc.set_skill_level(132 ,59)
                        pc.set_skill_level(133 ,59)
                        pc.set_skill_level(134 ,59)
                        pc.set_skill_level(135 ,59)
                        pc.set_skill_level(136 ,59)
                        pc.set_skill_level(137 ,59)
                        pc.set_skill_level(138 ,59)
                        say("Ai primit skilurile secundare !")
                        end
                    end
                end
            end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q.

  7. #447
    Reply in Gaming
    
    quest duele begin
       state start begin
           when login with pc.level >= 95 begin
               set_state(player_kill)
           end
       end
    
       state player_kill begin
           when letter begin
               send_letter("Duele")
           end
    
           when button or info begin
               say_title("Experti in duele!")
            say("")
               say("Crezi ca esti cel mai bun din regat ?")
               say("Demonstreaza!")
               say("Respecta regulile si fi corect")
            say("")
            say("")
            say("")
               say_reward("Omoara 500 jucatori in duel")
            say_reward("Si iti vei primi recompensa!")
               say("")
               pc.setqf("state", 500)
               q.set_counter("Dueluri ramase:", 500)
            set_state (kill)
           end
       end
    
       state kill begin
         when letter begin
            send_letter("Duel")
         end
         
         when button or info begin
               say("Crezi ca esti cel mai bun din regat ?")
               say("Demonstreaza!")
               say("Respecta regulile si fi corect")
            say_reward("Dueluri ramase: "..pc.getqf("state").." ")
         end
    
    
           when kill begin
               if npc.is_pc() then
               local count = pc.getqf("state") - 1
               if count <= 500 then
                   pc.setqf("state", count)
                   q.set_counter("Dueluri restante:", count)
               end
               if count == 0 then
                   say_title("BRAVO ai reusit!")
                   say("Ai omorat 500 jucatori in duel!")
                   say("Recompesa:")
                   say_reward("5% impotriva oricarei rase.")
                   affect.add_collect(apply.ATT_BONUS_TO_WARRIOR, 5, 60*60*24*365*60)
                   affect.add_collect(apply.ATT_BONUS_TO_ASSASSIN, 5, 60*60*24*365*60)
                   affect.add_collect(apply.ATT_BONUS_TO_SURA, 5, 60*60*24*365*60)
                   affect.add_collect(apply.ATT_BONUS_TO_SHAMAN, 5, 60*60*24*365*60)
               notice_all("".. pc.get_name() .." a castigat 500 de duele")
                   clear_letter()
                   set_state(__COMPLETE__)
    
               end
           end
       end
       end
    
       state __COMPLETE__ begin
       end
    end
    

    Instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q .

  8. #448
    Reply in Gaming
    
    quest teleportarea_jucatorului begin
    state start begin
    when 40004.use begin
    say_title(“Teleportarea jucatorului:”)
    say(Acest obiect iti permite sa te teleportezi la un jucator.)
    say_reward(“Vrei sa te teleportezi?”)
    local a = select(“Da”,”Nu am timp!”)
    if a == 1 then
    say_title(“Teleportarea jucatorului:”)
    say_reward(“Scrie numele jucatorului la care vrei sa te teleportezi:”)
    local name = input()
    if pc.get_level() < 35 then
    say_title(“Teleportarea jucatorului:”)
    say(“Poti folosi acest item decat dupa nivelul 35!”)
    else
    pc.teleport(name)
    pc.remove_item(40004, 1)
    end
    end
    end
    end
    end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu dueluri.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc dueluri.quest

    5. Intraţi pe server şi scrieţi /reload q .

  9. #449
    Reply in Gaming
    
    quest npc begin
       state start begin
          when 20094.chat." NPC " begin
             local s = select("Skiluri G/P", "Banca", "Loto(Loterie)", "Schimba rasa", "Schimba sexul", "Resetare Skill", "Pagina 2", "Anuleaza")
                if s == 1 then   
                   say_title ( "Skilluri G/P:" )
                   say ( "Bun venit pe " )
                   say ( " va ofera posibilitatea de a lua skillurile P sau G fara a mai apela la GM!" )
                   say ( "Pentru a lua skillurile trebuie sa platesti o suma de bani" )
                   say ( "" )
                   say ( "" )
                   say_reward ( "Skillurile G costa 15kk, necesita nivel 40" )
                   say_reward ( "Skillurile P costa 30kk, necesita nivel 60")
                   local opzioni = select ( "Skiluri G" , "Skiluri P", "Anuleaza" )
                      if opzioni == 1 then
                         if pc.get_gold()<15000000 then
                            say("Nu ai 15 kk")
                         elseif pc.get_level()<40 then
                            say("Nu ai nivel 40")
                         else
                            local skillg = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
                               if skillg == 1 then
                                  pc.set_skill_level (1,30)
                                  pc.set_skill_level (2,30)
                                  pc.set_skill_level (3,30)
                                  pc.set_skill_level (4,30)
                                  pc.set_skill_level (5,30)
                                  pc.set_skill_level (16,30)
                                  pc.set_skill_level (17,30)
                                  pc.set_skill_level (18,30)
                                  pc.set_skill_level (19,30)
                                  pc.set_skill_level (20,30)
                                  pc . changegold ( - 15000000 ) 
                               elseif skillg == 2 then
                                  pc.set_skill_level (31,30)
                                  pc.set_skill_level (32,30)
                                  pc.set_skill_level (33,30)
                                  pc.set_skill_level (34,30)
                                  pc.set_skill_level (35,30)
                                  pc.set_skill_level (46,30)
                                  pc.set_skill_level (47,30)
                                  pc.set_skill_level (48,30)
                                  pc.set_skill_level (49,30)
                                  pc.set_skill_level (50,30)
                                  pc . changegold ( - 15000000 )
                               elseif skillg == 3 then
                                  pc.set_skill_level (61,30)
                                  pc.set_skill_level (62,30)
                                  pc.set_skill_level (63,30)
                                  pc.set_skill_level (64,30)
                                  pc.set_skill_level (65,30)
                                  pc.set_skill_level (66,30)
                                  pc.set_skill_level (76,30)
                                  pc.set_skill_level (77,30)
                                  pc.set_skill_level (78,30)
                                  pc.set_skill_level (79,30)
                                  pc.set_skill_level (80,30)
                                  pc.set_skill_level (81,30)
                                  pc . changegold ( - 15000000 )
                               elseif skillg == 4 then
                                  pc.set_skill_level (91,30)
                                  pc.set_skill_level (92,30)
                                  pc.set_skill_level (93,30)
                                  pc.set_skill_level (94,30)
                                  pc.set_skill_level (95,30)
                                  pc.set_skill_level (96,30)
                                  pc.set_skill_level (106,30)
                                  pc.set_skill_level (107,30)
                                  pc.set_skill_level (108,30)
                                  pc.set_skill_level (109,30)
                                  pc.set_skill_level (110,30)
                                  pc.set_skill_level (111,30)
                                  pc . changegold ( - 15000000 )
                               end
                            end
                      elseif opzioni == 2 then
                         if pc.get_gold()<30000000 then
                            say("Nu ai 30kk")
                         elseif pc.get_level()<60 then
                            say("Nu ai nivelul 60")
                         else
                            local skillp = select ("Warrior","Ninja","Sura","Shaman","Le-am luat deja..")
                               if skillp == 1 then
                                  pc.set_skill_level(1 ,59)
                                  pc.set_skill_level(2 ,59)
                                  pc.set_skill_level(3 ,59)
                                  pc.set_skill_level(4 ,59)
                                  pc.set_skill_level(5 ,59)
                                  pc.set_skill_level(16 ,59)
                                  pc.set_skill_level(17 ,59)
                                  pc.set_skill_level(18 ,59)
                                  pc.set_skill_level(19 ,59)
                                  pc.set_skill_level(20 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 2 then
                                  pc.set_skill_level(31 ,59)
                                  pc.set_skill_level(32 ,59)
                                  pc.set_skill_level(33 ,59)
                                  pc.set_skill_level(34 ,59)
                                  pc.set_skill_level(35 ,59)
                                  pc.set_skill_level(46 ,59)
                                  pc.set_skill_level(47 ,59)
                                  pc.set_skill_level(48 ,59)
                                  pc.set_skill_level(49 ,59)
                                  pc.set_skill_level(50 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 3 then
                                  pc.set_skill_level(76 ,59)
                                  pc.set_skill_level(77 ,59)
                                  pc.set_skill_level(78 ,59)
                                  pc.set_skill_level(79 ,59)
                                  pc.set_skill_level(80 ,59)
                                  pc.set_skill_level(81, 59)
                                  pc.set_skill_level(61 ,59)
                                  pc.set_skill_level(62 ,59)
                                  pc.set_skill_level(63 ,59)
                                  pc.set_skill_level(64 ,59)
                                  pc.set_skill_level(65 ,59)
                                  pc.set_skill_level(66 ,59)
                                  pc . changegold ( - 30000000 )
                               elseif skillp == 4 then
                                  pc.set_skill_level(106 ,59)
                                  pc.set_skill_level(107 ,59)
                                  pc.set_skill_level(108 ,59)
                                  pc.set_skill_level(109 ,59)
                                  pc.set_skill_level(110 ,59)
                                  pc.set_skill_level(111 ,59)
                                  pc.set_skill_level(91 ,59)
                                  pc.set_skill_level(92 ,59)
                                  pc.set_skill_level(93 ,59)
                                  pc.set_skill_level(94 ,59)
                                  pc.set_skill_level(95 ,59)
                                  pc.set_skill_level(96 ,59)
                                  pc . changegold ( - 30000000 )
                               end
                            end
                         end
                elseif s == 2 then
                   say_title("Depozit de Yang")
                   say("Ce pot face pentru tine?")
                   local f = select("Depune Yang(100kk)", "Depune Yang(500kk)", "Depune Yang(1kkk)", "Retrage Yang(100kk)" , "Retrage Yang(500kk)" , "Retrage Yang(1kkk)" , "Inchide")
                   if f == 1 then
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Pana Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 100kk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<100000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 100kk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Pana Razboinicului" , 70036 , "" ) 
                               pc . changegold ( - 100000000 ) 
                               pc . give_item2 ( 70036 )
                   elseif f == 2 then            
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Medalia Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 500kk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<500000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 500kk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Medalia Razboinicului" , 70004 , "" ) 
                               pc . changegold ( - 500000000 ) 
                               pc . give_item2 ( 70004 )            
                   elseif f == 3 then
                      say_title("Depozit de Yang")
                   say ( "Buna. Vrei sa pui, vorba aia... sub saltea niste banuti? :)" ) 
                   say ( "Eu pot sa iti depozitez aceasta suma, si iti voi da in schimb Cupa Razboinicului!" )
                               say ( "Iar cand ai nevoie poti veni sa ii retragi, folosind ceea ce iti ofer!" ) 
                               say ( "" ) 
                               say ( "Doresti sa depui 1kkk?" )
                               local s = select ( "Da" , "Nu" )
                               if s == 2 then 
                               return 
                               end  
                               if pc.get_gold()<1000000000 then
                               say ( "Suma este prea mica pentru a o putea depozia! Tti trebuie minim 1kkk" )  
                               say ( "Te astept cand ai acesti bani :)" ) 
                               return 
                               end
                               say ( "Ai depozitat banii cu succes!" ) 
                               say_item ( "Cupa Razboinicului" , 50042 , "" ) 
                               pc . changegold ( - 1000000000 ) 
                               pc . give_item2 ( 50042 )
                               elseif f == 4 then
                                  say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Pana Razboinicului" , 70036 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 70036 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Pana Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 100kk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Pana Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 70036 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 70036 ) 
                                  pc . changegold ( 100000000 )
                                                       elseif f == 5 then
                                                          say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Medalia Razboinicului" , 70004 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 70004 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Medalia Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 500kk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Medalia Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 70004 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 70004 ) 
                                  pc . changegold ( 500000000 )
                                                        elseif f == 6 then
                                                          say_title ( "Depozit de Yang" ) 
                                  say ( "Buna. Ai nevoie de bani si doresti sa ii retragi din depozit? " ) 
                                  say ( "Daca iti amintesti, la depunerea yang-ului, ai primit o Pana a Razboinicului. Cu ajutorul ei poti retrage suma dorita." ) 
                                  say_item ( "Cupa Razboinicului" , 50042 , "" )
                                    say_title ( "Depozit de Yang" ) 
                                  say ( "Esti sigur ca doresti sa retragi banii?" )
                                  local s = select ( "Da" , "Nu" ) 
                                  if s == 2 then 
                                  return 
                                  end 
                                  if pc . count_item ( 50042 ) == 0 then 
                                  say_title ( "Depozit de Yang" )
                                  say ( "Nu detii Cupa Razboinicului primita la depunerea baniilor pentru ai putea retrage suma de 1kkk!." ) 
                                  say ( "Fara ea nu poti retrage banii deoarece nu ai nici o dovada ca sunt ai tai. Haide inapoi cu Cupa Razboinicului." ) 
                                  return 
                                  end 
                                  say_title ( "Depozit de Yang" ) 
                                  if pc . count_item ( 50042 ) == 0 then 
                                  return 
                                  end 
                                  say ( "Ai retras banii cu succes!" ) 
                                  pc . remove_item ( 50042 ) 
                                  pc . changegold ( 1000000000 )
                               end
                elseif s == 3 then
                   local loto = select("Loto 1 din 5", "Loto 1 din 10", "Loto 1 din 20", "Poate nu am nrorc...")
                      if loto == 1 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("6.000.000 Yang (6kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 6000000 then
                               pc . changegold ( - 6000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 5" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 50.000.000 Yang (50kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 5 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 5")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,5))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 50.000.000 Yang(50kk)")
                                  pc.changegold ( 50000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      elseif loto == 2 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("5.000.000 Yang (5kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 5000000 then
                               pc . changegold ( - 5000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 10" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 75.000.000 Yang (75kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 10 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 10")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,10))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 75.000.000 Yang(75kk)")
                                  pc.changegold ( 75000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      elseif loto == 3 then
                         say_title("Loteria:")
                         say("Salutare ".. pc.get_name() .."! Te simnti norocos?")
                         say("Poti sa participi la loto la un pret de:")
                         say_reward("4.000.000 Yang (4kk)")
                         say("Continui?")
                         local scelta = select("Da","Nu")
                         if scelta == 1 then
                            if pc . gold >= 4000000 then
                               pc . changegold ( - 4000000 )
                               local k
                               repeat
                                  say_title( "Loteria:" )
                                  say( "Introdu un numar de la 1 la 20" )
                                  say("Daca acest numar corespunde cu rezultatul")
                                  say("poti castiga un")
                                  say("jackpot de 100.000.000 Yang (100kk)!!")
                                  k = tonumber(input())
                                  if k == nil then
                                     say_title("Loteria:")
                                     say("Scrie un numar!")
                                     local s = select("Continua", "Anuleaza")
                                     if s == 2 then
                                        return
                                     end
                                  else
                                     if k <= 0 then
                                        say_title("Loteria:")
                                        say("Scrie un numar pozitiv!")
                                        local s = select("Continua", "Anuleaza")
                                        if s == 2 then
                                           return
                                        end
                                     else
                                        if k > 20 then
                                           say_title("Loteria:")
                                           say("Scrie un numar intre 1 si 20")
                                           local s = select("Continua", "Anuleaza")
                                           if s == 2 then
                                              return
                                           end
                                        else
                                           break
                                        end
                                     end
                                  end
                               until false
                               say("Numarul ales de tine: " .. k )
                               wait ()
                               say ("Este timpul extrageri numarului!")
                               local random_number = tostring(number(1,20))
                               say("Numarul extras: " .. random_number)
                               if random_number == tostring(k) then
                                  say ("Se pare ca norocul te-a lovit din plin")
                                  say_reward ("Ai castigat 100.000.000 Yang(100kk)")
                                  pc.changegold ( 100000000 )
                               else 
                                  say ("Din pacate nu ai avut noroc. Reincearca!")
                               end
                            end
                         end
                      end
                elseif s == 4 then
                   say ( "" ) 
                   say ( "Vrei sa schimbi Rasa??" ) 
                   say ( "Din ori ce rasa esti poti deveni alta" )
                   say ( "" )
                   say ( "" )
                   say ( "" )
                   local main_set = select ( "Da" , "Nu" )
                   if main_set == 1 then
                      say ( "Ce Rasa Vrei?" )
                      local razzacambiasex = select ("Warrior","Ninja","Sura","Shaman","Nu Stiu..")
                         if razzacambiasex == 1 then      
                            local sexwar = select ("Baiat","Fata")
                               if sexwar == 1 then            
                                  pc.polymorph("4")
                                  pc.change_sex()
                               elseif sexwar == 2 then
                                  pc.polymorph("4")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 2 then
                            local sexninja = select ("Baiat","Fata")
                               if sexninja == 2 then            
                                  pc.polymorph("5")
                                  pc.change_sex()
                               elseif sexninja == 1 then
                                  pc.polymorph("5")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 3 then
                            local sexsura = select ("Baiat","Fata")
                               if sexsura == 1 then            
                                  pc.polymorph("6")
                                  pc.change_sex()
                               elseif sexsura == 2 then
                                  pc.polymorph("6")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                         elseif razzacambiasex == 4 then
                            local sexshamy = select ("Baiat","Fata")
                               if sexshamy == 2 then            
                                  pc.polymorph("7")
                                  pc.change_sex()
                               elseif sexshamy == 1 then
                                  pc.polymorph("7")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                                  pc.polymorph("1")
                                  pc.change_sex()
                                  pc.polymorph("20032")
                               end
                            end
                         end
                elseif s == 5 then
                   say ( "" ) 
                   say ( "Sigur vrei sa schimbi sexul?" ) 
                   say ( "" )
                   local main_set = select ( "Da" , "Nu" ) 
                      if main_set == 1 then
                         pc.change_sex()
                         pc.polymorph("20032")
                         say ( "Ai schimbat sexul cu succes" ) 
                      end
                elseif s == 6 then
                   local reskill = select("Reseteaza toate skilurile", "M-am razgandit")
                      if reskill == 1 then
                         say ( "Vrei Sa Resetezi toate skillurile?" )
                         say ( "Daca resetezi skillurile vei loa totul de la M1." )
                         local main_set = select ( "Da" , "Nu" ) 
                            if main_set == 1 then
                               pc.setqf("clear", 1)
                               pc.clear_skill()
                               pc.set_skill_group(0)
                               say ( "Succes! Iti urez o zi buna !" ) 
                            end
                         end
                elseif s == 7 then
                   local pagina2 = select("Elimina frizura", "Mareste viteza", "Mesaj global", "Modificare grad", "Teleportarea jucatorului", "Cal lvl 21", "Marmura Binecuvantare", "Anuleaza")
                      if pagina2 == 1 then
                         say ( "" ) 
                         say ( "Esti sigur ca vrei sa elimini frizura?" ) 
                         say ( "" )
                         local main_set = select ( "Da" , "Nu" ) 
                            if main_set == 1 then
                            pc.set_part(PART_HAIR, 0)
                            say ( "Ai Eliminat Cu Succes Frizura" ) 
                            say ( "" ) 
                         end
                      elseif pagina2 == 2 then
                         if pc.get_gold()<1000000000 then
                         say("Nu ai 1.000.000.000 Yang (1kkk)")
                      else
                         say ( "Esti sigur ca vrei sa iti maresc viteza" ) 
                         say ( "de miscare si de atac cu 150 puncte?" )
                         say ( "Aceasta costa 1.000.000.000 Yang (1kkk)" )
                         local vel =select ("Da","Nu")
                            if vel == 1 then
                               affect . add_collect ( apply . ATT_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
                               affect . add_collect ( apply . MOV_SPEED , 150 , 60 * 60 * 24 * 365 * 60 ) 
                               pc . changegold ( -1000000000 )
                               say ( "Ai primit viteza maxima cu succes" ) 
                               say ( "Ti s-au retras din Yang 1.000.000.000 Yang (1kkk)" )
                            end
                         end
                      elseif pagina2 == 3 then
                         say("Cu doar 5kk poti sa postezi")
                         say("un mesaj global")
                         say("Daca adresezi jigniri staffului")
                         say("sau unor playeri , se ajunge la sanctiuni")
                         say("Esti sigur ca vrei sa postezi un mesaj?")
                         local mes = select("Da", "Nu")
                            if mes == 1 then
                               if pc.get_gold()<5000000 then
                               say("Nu ai 5.000.000 Yang (5kk)")
                            else
                               say("Scrie Mesajul :")
                               local notice_text = input()
                               notice_all("Lv. "..pc.get_level().."  "..pc.get_name().." spune : "..notice_text)
                               pc.changegold(-5000000)
                            end
                         end
                      elseif pagina2 == 4 then
                         say("Cu doar 3kk poti sa iti")
                         say("modifici gradul din fata numelui")
                         say("Esti sigur ca vrei sa iti modifici")
                         say("gradul?")
                         local grad = select("Da", "Nu")
                            if grad == 1 then
                               local grad1 = select("Transforma-ti gradul(Pozitiv)", "Transforma-ti gradul(Nagativ)", "Anuleaza")
                                  if grad1 == 1 then
                                     if pc.get_gold()<3000000 then
                                     say("Nu ai 3.000.000 Yang (3kk)")
                                  else
                                     say("Alege ce grad sa-ti dau")
                                     local a = select ( "Prietenos" , "Bun" , "Nobil" , "Cavaleresc" , "Anuleaza" )
                                        if a == 1 then
                                        pc . change_alignment ( 1000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Prietenos")
                                        elseif a == 2 then
                                        pc . change_alignment ( 4000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Bun")
                                        elseif a == 3 then
                                        pc . change_alignment ( 8000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Nobil")
                                        elseif a == 4 then
                                        pc . change_alignment ( 20000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Cavaleresc")
                                        end
                                     end
                                  elseif grad1 == 2 then
                                     if pc.get_gold()<3000000 then
                                     say("Nu ai 3.000.000 Yang (3kk)")
                                  else
                                     local b = select ( "Agresiv" , "Fatarnic" , "Rautacios" , "Crud" , "Anuleaza" )
                                        if b == 1 then
                                        pc . change_alignment ( -1000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Agresiv")
                                        elseif b == 2 then
                                        pc . change_alignment ( -4000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Fatarnic")
                                        elseif b == 3 then
                                        pc . change_alignment ( -8000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Rautacios")
                                        elseif b == 4 then
                                        pc . change_alignment ( -20000 )
                                        pc.changegold(-3000000)
                                           say("Acum ai primit gradul Crud")
                                        end
                                     end
                                  end
                               end
                      elseif pagina2 == 5 then
                         say_title("Teleportarea jucatorului:")
                         say("Daca ai 35kk poti sa te teleportezi la un alt jucator.")
                         say_reward("Vrei sa te teleportezi?")
                         local a = select("Da","Nu!")
                            if a == 1 then
                               if pc.get_gold()<35000000 then
                               say("Nu ai 35.000.000 Yang (35kk)")
                            else
                               say_title("Teleportarea jucatorului:")
                               say_reward("Scrie numele jucatorului la care vrei sa te[ENTER]teleportezi:")
                               local name = input()
                                  pc.teleport(name)
                                  pc.changegold(-35000000)
                               end
                            end
                      elseif pagina2 == 6 then
                         say ( "Salut! Iti pot oferi cal lvl 21 in schimbul a 5kk" ) 
                         say ( "Vrei sa iti dau calul?" ) 
                         say ( "" ) 
                         say ( "Sigur vrei?" )
                         local main_set = select("Da", "Nu") 
                            if main_set == 1 then
                               if pc.get_gold()<5000000 then
                               say("Nu ai 5.000.000 Yang (5kk)")
                            else
                               horse . unride ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               horse . advance ( ) 
                               pc.changegold(-5000000)
                               command("setsk 131 10")
                               command("setsk 137 20")
                               command("setsk 138 20")
                               command("setsk 139 20")
                               command("setsk 140 20")
                               horse . ride ( ) 
                               setskin ( NOWINDOW ) 
                               pc . give_item2 ( "50053" , 1 )
                            end
                         end
                      elseif pagina2 == 7 then
                         say("Eu iti pot oferi 2 stocuri de marmuri")
                         say("Unul de o marmura; Unul de 5 marmuri")
                         local marmuri = select("Stoc de o Marmura", "Stoc de 5 Marmuri", "Anuleaza")
                            if marmuri == 1 then
                               pc . give_item2 ( "70024" , 1 )
                               say("Ai primit o Marmura")
                            elseif marmuri == 2 then
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               pc . give_item2 ( "70024" , 1 )
                               say("Ai primit 5 Marmuri")
                            end
                         end
                      end
                   end
                end
             end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q.

  10. #450
    [Resursă] Quest Skill-Uri G
    Reply in Gaming
    
    quest skill_g_keny begin
       state start begin
          when 20091.chat."Skilluri G" begin
             say_title("Salut, "..pc.get_name().."!")
             say("De la mine iti poti lua skilluri G.")
             if pc.get_skill_group() == 0 then 
                    say_reward("Imi pare rau, dar se pare ca inca nu ti-ai ales invatatura.")
                    return 
                end 
                local result = skill_g.BuildPerfectMasterSkillList(pc.get_job(), pc.get_skill_group()) 
                local vnum_list = result[1] 
                local name_list = result[2] 
                local menu_list = {} 
                table.foreach(name_list, function(i, name) table.insert(menu_list, name) end) 
                table.insert(menu_list, "Anuleaza")  
                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]
                say("Vrei sa faci skillul "..skill_name.." G?") 
                local wahl = select("Da", "Nu") 
                if wahl == 1 then  
                    pc.set_skill_level(skill_vnum, 30) 
                    say("Skillul "..skill_name.." a fost facut G.") 
                elseif wahl == 2 then 
                    return 
                end 
          end
          function BuildPerfectMasterSkillList(job, group) 
             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) 
                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) 
             return {ret_vnum_list, ret_name_list} 
            end 
       end
    end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q .

  11. #451
    Reply in Gaming
    
    quest cufar_ucenic_keny begin
          state start begin
          when 50187.use begin
          if pc.get_empty_inventory_count() <= 20 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50188, 1)     -- Cufar ucenic II
             pc.remove_item(50187, 1)   -- Elimina din inventar
            pc.give_item2(71027, 3)   
             pc.give_item2(71028, 3)
             pc.give_item2(71029, 3)
          pc.give_item2(71030, 3)
          pc.give_item2(71044, 3)
          pc.give_item2(71045, 3)
          pc.give_item2(27003, 200)
          pc.give_item2(27006, 200)
          pc.give_item2(27102, 10)
          pc.give_item2(27105, 10)
          pc.give_item2(72702, 1)
          pc.give_item2(70058, 1)
          pc.give_item2(52709, 1)
          
          end
       ------------------------------------------------------------------------------------------
          when 50188.use with pc.get_level() >= 10 begin
          if pc.get_empty_inventory_count() <= 8 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50189, 1)     -- Cufar ucenic III
             pc.remove_item(50188, 1)   -- Elimina din inventar
            pc.give_item2(72723, 1)
             pc.give_item2(72727, 1)
             pc.give_item2(71004, 5)
          pc.give_item2(27102, 10)
             pc.give_item2(71044, 5)
             pc.give_item2(71045, 5)
          end
       -------------------------------------------------------------------------------------------
          when 50189.use with pc.get_level() >= 20 begin
          if pc.get_empty_inventory_count() <= 10 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50190, 1)     -- Cufar ucenic I expert
             pc.remove_item(50189, 1)   -- Elimina din inventar
             pc.give_item2(70003, 1) 
          pc.give_item2(27989, 1)
          pc.give_item2(52014, 1)
          pc.give_item2(71084, 5)
          pc.give_item2(71085, 5)
          pc.give_item2(38050, 1)
          end
       -------------------------------------------------------------------------------------------
          when 50190.use with pc.get_level() >= 30 begin
          if pc.get_empty_inventory_count() <= 10 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50191, 1)     -- Cufar ucenic II expert
             pc.remove_item(50190, 1)   -- Elimina din inventar
             pc.give_item2(71110, 1)
          pc.give_item2(50011, 5)
          pc.give_item2(50050, 1)
          pc.give_item2(71084, 5)
          pc.give_item2(71085, 5)
          pc.give_item2(38050, 1)
          pc.give_item2(71095, 1)
          pc.give_item2(25040, 3)
       
          end
       -------------------------------------------------------------------------------------------
          when 50191.use with pc.get_level() >= 40 begin
          if pc.get_empty_inventory_count() <= 13 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50192, 1)     -- Cufar ucenic III expert
             pc.remove_item(50191, 1)   -- Elimina din inventar
             pc.give_item2(70043, 1)
             pc.give_item2(38050, 1)
          pc.give_item2(70024, 3)
          pc.give_item2(71001, 5)
          pc.give_item2(71094, 5)
          pc.give_item2(71084, 10)
          pc.give_item2(27987, 5)
          pc.give_item2(25040, 3)
          end
       -------------------------------------------------------------------------------------------
          when 50192.use with pc.get_level() >= 50 begin
          if pc.get_empty_inventory_count() <= 10 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.remove_item(50192, 1)   -- Eiimina din inventar
          pc.give_item2(50193, 1)     -- Cufar ucenic I expert
          pc.give_item2(70005, 1)
          pc.give_item2(50513, 1)
          pc.give_item2(25040, 5)
          pc.give_item2(50011, 10)
          pc.give_item2(71085, 10)
          pc.give_item2(70024, 5)
          pc.give_item2(70102, 3)
          end
       -------------------------------------------------------------------------------------------
          when 50193.use with pc.get_level() >= 60 begin
          if pc.get_empty_inventory_count() <= 10 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50194, 1)     -- Cufar ucenic II maiestru
             pc.remove_item(50193, 1)   -- Elimina din inventar
             pc.give_item2(70024, 3)
             pc.give_item2(50513, 1)
          pc.give_item2(50011, 15)
          pc.give_item2(70005, 1)
          pc.give_item2(71085, 10)
          pc.give_item2(70102, 5)
          end
       -------------------------------------------------------------------------------------------
          when 50194.use with pc.get_level() >= 70 begin
          if pc.get_empty_inventory_count() <= 12 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50195, 1)     -- Cufar ucenic III maiestru
             pc.remove_item(50194, 1)   -- Elimina din inventar
             pc.give_item2(72726, 1)
             pc.give_item2(72730, 1)
          pc.give_item2(70102, 3)
          pc.give_item2(27992, 1)
          pc.give_item2(27993, 1)
          pc.give_item2(27994, 1)
          pc.give_item2(70043, 1)
          pc.give_item2(50513, 10)
          end
       -------------------------------------------------------------------------------------------
          when 50195.use with pc.get_level() >= 80 begin
          if pc.get_empty_inventory_count() <= 12 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.give_item2(50196, 1)     -- Cufar ucenic
             pc.remove_item(50195, 1)   -- Elimina din inventar
             pc.give_item2(70005, 1)
          pc.give_item2(70043, 10)
          pc.give_item2(50513, 3)
          pc.give_item2(70102, 5)
          pc.give_item2(27992, 1)
          pc.give_item2(27993, 1)
          pc.give_item2(27994, 1)
          pc.give_item2(25041, 1)
          end
    
       -------------------------------------------------------------------------------------------
          when 50196.use with pc.get_level() >= 90 begin
          if pc.get_empty_inventory_count() <= 10 then
             syschat("Ai inventarul plin. Arunca ceva din inventar.")
          return
          end
             pc.remove_item(50196, 1)   -- Elimina din inventar
             pc.give_item2(70024, 1)
            pc.give_item2(70024, 5)
            pc.give_item2(25041, 1)
            pc.give_item2(27992, 3)
            pc.give_item2(27993, 3)
            pc.give_item2(27994, 3)
            pc.give_item2(70005, 1)
            pc.give_item2(70043, 1)
          end
       -------------------------------------------------------------------------------------------
          end
       end
    

    Tutorial instalare quest:

    1. Salvaţi conţinutul quest-ului într-un fişier text numit de exemplu nume_quest.quest .

    2. Vă conectaţi la filezilla / winscp şi întrati în /usr/home/game/share/locale/germany/quest (depinde ce server aveţi).

    3. Îl puneţi acolo (să fie .quest) şi da-ţi permisiuni 777.

    4. Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest apoi ./qc nume_quest.quest

    5. Intraţi pe server şi scrieţi /reload q .

  12. #452
  13. #453
  14. #454
  15. #455
  16. #456
  17. #457
  18. #458
  19. #459
  20. #460