Posts by Piciul- [Legacy 3554]

quest daymode begin
state start begin
function ath_func()
local text = {
-------Textul care va aparea dimineata(ora 08:00).
{"[08:00]"},
{"Buna dimineata dragi playeri !"},
-------Textul care va aparea noaptea(ora 22:00).
{"[22:00]"},
{"Deci, a venit vremea sa dormiti. Echipa Just4Metin.ro va doreste noapte buna."},
}
local ata = number(1, 2)
local si = number(3, 4)
local atatext = text[ata][1]
local shitext = text[si][1]
local ata_ceas = os.date ("%H")
if ata_ceas >= "22" and game.get_event_flag("eclipse") == 0 then
notice_all(""..shitext.."")
game.set_event_flag("eclipse", 1 )
elseif ata_ceas >= "08" and game.get_event_flag("eclipse") == 1 then
notice_all(""..atatext.."")
game.set_event_flag("eclipse", 0 )
end
end

when login or levelup or logout begin
daymode.ath_func()
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 .

quest cal_armat begin
state start begin
when login with pc.level >= 35 and pc.level <= 49 begin
set_state(information)
end
end

state information begin
when letter begin
send_letter("Cal armat lv11")
end

when info or button begin
say("Cal armat")
say("Nu ai cal ? Daca vei indeplini aceasta misiune vei avea cal !")
say("Dar daca nu toti vor rade de tine ! Asa ca incearca macar sa o treci !")
say("Dupa ce indeplinesti misiunea dute la grajdar si cumparati manualul pentru chemat calul !")
say("Sa o zi buna !")
say_reward("Ucide 50 de Salbatici Devotati!")
say_reward("Recompensa : Cal armat ( Cal nivel 11) si 2.000.000 yang !")
say("")
pc.setqf("state", 50)
q.set_counter("Salbatic Devotat", 50)
end

when 502.kill begin
local count = pc.getqf("state") - 1
if count <= 50 then
pc.setqf("state", count)
q.set_counter("Salbatic Devotat", count)
end
if count == 0 then
say_title("Cal armat")
say("Ai completat cu succes misiunea !")
say("Pentru efortul depus te voi rasplati cu:")
say_reward("2.000.000 yang Yang")
say_reward("11 Nivel Cal")
pc.change_money(2000000)
horse.set_level("11")
clear_letter()
set_state(__COMPLETE__)

end
end
end

state __COMPLETE__ begin
end
end

Tutorial instalare quest:

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

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

• Îl puneţi acolo (să fie .quest sau .lua).

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

• Intraţi pe server şi scrieţi /reload q

quest vara_2016 begin
        state start begin
      when login with game.get_event_flag("inghetata") == 1 begin
            syschat("Dragi jucatori evenimentul de vara este activ!")
            syschat("Aduna inghetata de la mobi si schimb-o pe un premiu")
            syschat("valoros la Octavio!")
               end
      when kill with game.get_event_flag("optiunefva") == 4 begin
               local inghetata=number(1, 500)
               if inghetata==1 and game.get_event_flag("inghetata") == 1 then 

                  pc.give_item2(30149,1)

               end
            end
      when kill with game.get_event_flag("optiunefva") == 3 begin
               local inghetata=number(1, 250)
               if inghetata==1 and game.get_event_flag("inghetata") == 1 then 

                  pc.give_item2(30149,1)

               end
            end
            when kill with game.get_event_flag("optiunefva") == 2 begin
               local inghetata=number(1, 150)
               if inghetata==1 and game.get_event_flag("inghetata") == 1 then 

                  pc.give_item2(30149,1)

               end
            end
            when kill with game.get_event_flag("optiunefva") == 1 begin
               local inghetata=number(1, 50)
               if inghetata==1 and game.get_event_flag("inghetata") == 1 then 

                  pc.give_item2(30149,1)

               end
            end
               when 33004.chat."Event: Vara 2016" with pc.is_gm() begin
               say_title("Eventul de Vara  -"..pc.getname().."-")
               local eventul = select("Porneste Event-ul de vara", "Opreste Eventul de vara", "Panoul de control", "Anuleaza.")
            if eventul == 1 and game.get_event_flag("inghetata") == 1 then
               say_title("Eventul de inghetata :")
               say("Event-ul este deja pornit.")
               wait()

               return
               else
               if eventul == 1 then
               say_title("Eventul de vara :")
               say("Event-ul a fost pornit si automat a fost pus pe mod")
               say("'Normal',daca vrei sa modifici modul fa o tura prin")
               say("Panoul de control.Bafta!")
               notice_all("Dragi jucatori!")
               notice_all("Eventul de vara este activ!!")
               game.set_event_flag("optiunefva", 3)
               game.set_event_flag("inghetata", 1)
               wait()
             return
             end
            end
            if eventul == 2 and game.get_event_flag("inghetata") == 0 then
               say_title("Eventul de vara :")
               say("Event-ul este deja oprit.")
               wait()
               return
               else
               if eventul == 2 then
               say_title("Eventul de inghetata :")
               say("Event-ul a fost oprit.")
               notice_all("Dragi jucatori!")
               notice_all("Event-ul de vara a luat sfarsit!")
               game.set_event_flag("inghetata", 0)
               wait()
             return
             end
            end
            if eventul == 3 then
            say_title("Panou de control'Eventul de vara '")
                local optiunefva = select("Inghetata rata de 1/50 'USOR'","Inghetata rata de 1/150 'Binisor'","Inghetata rata de 1/250 'Normal'","Inghetata rata de 1/500 'Greu'","Inchide")
               if optiunefva == 1 then
               game.set_event_flag("optiunefva", 1)
               syschat("Succes!")
               return
               end
               if optiunefva == 2 then
               game.set_event_flag("optiunefva", 2)
               syschat("Succes!")
               return
               end
               if optiunefva == 5 then
               return
               end
               if optiunefva == 3 then
               syschat("Succes!")
               game.set_event_flag("optiunefva", 3)
               return
               end
               if optiunefva == 4 then
               game.set_event_flag("optiunefva", 4)
               syschat("Succes!")
               return
               end
             return
            end
            if eventul == 4 then
               return
            end
            end
            
      end
end[/spoiler]

[spoiler]quest negustoare_2016 begin
 state start begin
 when 9003.chat."Shop Special(Puncte)" begin

 say_title("Octavio!")
 say("")
 say("Salut "..pc.get_name().." aici poti sa")
 say("schimbi inghetata pe care o castigi")
 say("omorand mobii !")
 say("")
 say("Sansa de drop este random")
 say("In acest moment ai "..pc.count_item("30149").." Inghetata cu sirop")
 say("")
 wait()
 say("Lista de schimb:")
 say("Print Desert(Rosu,PvM) : 350x Inghetata")
 say("Print Desert(Albastru,PvP): 350x Inghetata")
 say("Printesa Desert(Rosu,PvM): 350x Inghetata")
 say("Printesa Desert(Albastru,PvP): 350x Inghetata")
 say("Sigiliu:Pepsi(15zile): 800x Inghetata")
 say("Amuleta Dragostei Eterne(60zile): 1600x Inghetata")
 say("Cufar Misterios(O Bucata): 30x Inghetata")
 say("")
 say("Ce alegi sa faci?")


 local canj = select ("Cumpara" , "Iesire") 

 if canj == 1 then


 say_title("Lista de schimb:")
 say("")
 local elegir = select("Print Desert(Rosu,PvM)","Print Desert(Albastru,PvP)","Printesa Desert(Rosu,PvM)","Printesa Desert(Albastru,PvP)","Sigiliu:Pepsi(15zile)","Amuleta Dragostei Eterne(60 zile)","Cufar Misterios","Iesire")
 local premios = {

 {41546,1,30149,350},
 {41547,1,30149,350},
 {41548,1,30149,350},
 {41549,1,30149,350},
 {52022,1,30149,800},
 {71145,1,30149,1600},
 {50125,1,30149,30}

 }

 if elegir != 14 then

 if pc.count_item(premios[elegir][3]) < premios[elegir][4] then

 say_title("Octavio")
 say("")
 say("Imi pare rau, dar nu ai inghetata necesara")
 say("pentru a cumpara acest item")
 say("")
 say("Mai ai nevoie de "..premios[elegir][4]-pc.count_item(premios[elegir][3]).." pentru al cumpara")
 say("revino cand ai toata inghetata necesara")
 say("")
 return
 end

 pc.give_item2(premios[elegir][1],premios[elegir][2])
 pc.remove_item(premios[elegir][3],premios[elegir][4])

 end
 end
 end 
 end
end

Tutorial instalare quest:

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

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

• Îl puneţi acolo (să fie .quest sau .lua).

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

• Intraţi pe server şi scrieţi /reload q

quest channel_id begin
	state start begin
		when login begin
		syschat("Acum esti conectat la canalul "..pc.get_channel_id()..".")
		end
	end
end

quest neograd begin
state start begin
when 20023.chat."Puncte de Grad(Pozitiv)" begin
say_title("Soon : ")
say("Hmm, am aflat o noua posibilitate de-ati imbunatati, ..")
say_reward("punctele de grad, te rog alege :")
local a = select ( "Prietenos" , "Bun" , "Nobil" , "Cavaleresc" , "Anuleaza" )
if a == 1 then
pc . change_alignment ( 1000 )
return
end
else a == 2 then
pc . change_alignment ( 4000 )
return
end
else a == 3 then
pc . change_alignment ( 8000 )
return
end
else a == 4 then
pc . change_alignment ( 20000 )
return
end
else a == 5 then
return
end
when 20023.chat."Puncte de Grad(Negativ)" begin
say_title("Soon :")
say("Hmm, am aflat o noua posibilitate de-ati scadea, ..")
say_reward("punctele de grad, te rog alege :")
local b = select ( "Agresiv" , "Fatarnic" , "Rautacios" , "Crud" , "Anuleaza" )
if b == 1 then
pc . change_alignment ( -1000 )
return
end
else b == 2 then
pc . change_alignment ( -4000 )
return
end
else b == 3 then
pc . change_alignment ( -8000 )
return
end
else b == 4 then
pc . change_alignment ( -20000 )
return
end
else b == 5 then
return
end 

Creaţi un fişier nou fisier.quest, pe care-l redenumiţi neograd.quest; îl puneţi în filezilla dosarul quest, îî puneţi la permisiuni 777 şi după în consola scrieţi cd /directoarele până la quest..../quest

şi apoi ./qc neograd.quest

În fine reboot!

Testaţi quest-ul.

 quest PiatraCurcubeu begin
        state start begin
                when 50512.use  begin
                pc.removeitem("50512", 1)
            
                    say_title("Piatra curcubeu")
                    say("Aceasta piatra va poate face")
                    say("1 abilitate perfecta")
                   
                    if pc.job ==0 then
                    say("Alegeti magiile pe care le detineti")
                   
                    local s=select("Corp","Mental")
                   
                    if s==1 then
               say("Alegeti abilitatea")
               local s=select("Aura","Iures","Vartej","Incizie","Izbitura")
               if s==1 then
                    pc.set_skill_level(4 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(3 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(2 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(1 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(5 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
                   
                    if s==2 then
               say("Alegeti abilitatea")
               local s=select("Corp Rezistent","Zdruncinare","Atacul Spiritului","Zdrobire","Atacul Sabiei")
               if s==1 then
                    pc.set_skill_level(20 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(18 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(16 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(19 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(17 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
               
                    elseif pc.job ==1 then
                    say("Alegeti competentele dvs.")
                   
                    local s=select("Lame","Arc")
                   
                    if s==1 then
               say("Alegeti abilitatea")
               local s=select("Ninja1","Ninja2","Ninja3","Ninja4","Ninja5")
               if s==1 then
                    pc.set_skill_level(31 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(32 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(33 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(34 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(35 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
                   
                    if s==2 then
                    say("Alegeti abilitatea")
               local s=select("Ninja1","Ninja2","Ninja3","Ninja4","Ninja5")
               if s==1 then
                    pc.set_skill_level(46 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(47 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(48 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(49 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(50 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
                   
                    elseif pc.job ==2 then
                    say("Alegeti competentele dvs.")
                    local s=select("Magie","Arme")
                   
                    if s==1 then
               ("Alegeti abilitatea")
               local s=select("Sura1","Sura2","Sura3","Sura4","Sura5","Sura6")
               if s==1 then
                    pc.set_skill_level(61 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(62 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(63 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(64 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(65 ,59)
                    say("Abilitatea dvs. este perfecta")               
               if s==6 then
                    pc.set_skill_level(66 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
                   
                    if s==2 then
               ("Alegeti abilitatea")
               local s=select("Sura1","Sura2","Sura3","Sura4","Sura5","Sura6")
               if s==1 then
                    pc.set_skill_level(76 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(77 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(78 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(79 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(80 ,59)
                    say("Abilitatea dvs. este perfecta")               
               if s==6 then
                    pc.set_skill_level(81 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
                   
                    elseif pc.job ==3 then
                    say("Alegeti competentele dvs.")
                    local s=select("Vindecare","Dragon")
                   
                    if s==1 then
               ("Alegeti abilitatea")
               local s=select("Shaman1","Shaman2","Shaman3","Shaman4","Shaman5","Shaman6")
               if s==1 then
                    pc.set_skill_level(106 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(107 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(108 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(109 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(110 ,59)
                    say("Abilitatea dvs. este perfecta")               
               if s==6 then
                    pc.set_skill_level(111 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
                   
                    if s==2 then
               ("Alegeti abilitatea")
               local s=select("Shaman1","Shaman2","Shaman3","Shaman4","Shaman5","Shaman6")
               if s==1 then
                    pc.set_skill_level(91 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(92 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(93 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(94 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(95 ,59)
                    say("Abilitatea dvs. este perfecta")               
               if s==6 then
                    pc.set_skill_level(96 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
               
               elseif pc.job ==4 then
                    say("Alegeti competentele dvs.")
                    local s=select("Lycan")
                   
                    if s==1 then
               ("Alegeti abilitatea")
               local s=select("Lycan1","Lycan2","Lycan3","Lycan4","Lycan5","Lycan6")
               if s==1 then
                    pc.set_skill_level(170 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==2 then
                    pc.set_skill_level(171 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==3 then
                    pc.set_skill_level(172 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==4 then
                    pc.set_skill_level(173 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               if s==5 then
                    pc.set_skill_level(174 ,59)
                    say("Abilitatea dvs. este perfecta")               
               if s==6 then
                    pc.set_skill_level(175 ,59)
                    say("Abilitatea dvs. este perfecta")
               end
               end
                end
            end
        end
    end

Tutorial instalare quest:

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

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

• Îl puneţi acolo (să fie .quest sau .lua).

• Te loghezi în FreeBSD / putty şi scrii în felul următor: cd /usr/home/game/share/locale/germany/quest(depinde ce server aveţi) apoi ./qc piatra.quest/.lua

• Intraţi pe server şi scrieţi /reload q

Pe lângă faptu' că nu ai un număr măricel de posturi,te-aş sfăuit să îl măreşti postând. Pe de altă parte,nu deţii/făcut vreo reclamaţie la adresa unu-i membru staff/ţie , cea ce mă face să îţi dau PRO dar pune mâna şi mai postează câte ceva.

Aș mânca și bea cu picioarele. Scurt și la obiect.

Bun venit,şedere plăcută.