Deoarece vreau sa ma imbunatatesc in Questing am decis sa deschid un topic in care sa creez Questuri la cerere, dar cerand nimic in schimb
Daca doriti un Quest scrieti aici detalii exacte despre cum doriti sa arate Questul
Nu gen "Vreau un quest de vanatoare"
Ci "Vreau un Quest in care playerii de nivelul 90 sa trebuiasca sa omoare 2 dragoni albastrii"
Questurile vor fi postate apoi aici si voi le puteti lua ^-^
Vreau un quest pentru Moderatoi in care scrii numele unui jucatori si ii dai Kick/Mute/Ban
Si ar mai fi unul...Pentru creare item dar doar pentru Administratori
Filip™ scrie:Vreau un quest pentru Moderatoi in care scrii numele unui jucatori si ii dai Kick/Mute/Ban
Si ar mai fi unul...Pentru creare item dar doar pentru Administratori
Buna!
Am facut questul pentru ban si mute
Tu doar trebuie sa inlocuiesti
####################
## Quest facut de DaRealPain ##
###################
quest ingamebann begin
state start begin
when ITEM_ID.use with pc.is_gm() begin
say("Ce doresti sa faci?")
local s = select('Baneaza','Debaneaza',"Nimic")
if s == 3 then return end
local ban,bantxt,bantxt2 = "BLOCK","baneaza","banat"
if s == 2 then
ban,bantxt,bantxt2 = "OK","debaneaza","debanat"
end
say(col.blue('Jucator '..bantxt)); say('[ENTER]Introdu numele jucatorului[ENTER](chiar si o parte din nume este de ajuns)')
local inp = input(); inp = mysql_escape(inp)
if inp == "" or inp == pc.get_name() then
say(col.red('Numele nu exista.[ENTER]Inchide!'))
return
end
local q = mysql_query('select * from player.player WHERE name LIKE \\"%'..inp..'%\\" AND name NOT like \\"%[%\\"')
if q == "ERROR" then
say(col.red('Tabelul player nu poate fi citit sau numele nu exista.'))
return
end
say('Alege numele jucatorului care, sa fie '..bantxt2..' :')
local wahl = q.name; table.insert(wahl,"-Inapoi-")
table.insert(wahl,1,6) -- 6 limita jucatorilor pe o pagina ^-^
local auswahl = select2(wahl)
if wahl[auswahl] == "-Inapoi-" then return end
say('Esti sigur ca jucatorul \\"'..q.name[auswahl]..'\\" sa fie '..bantxt..'?')
if select("Da","Nu") == 2 then return end
mysql_query('UPDATE account.account SET status = \\"'..ban..'\\" WHERE id = '..q.account_id[auswahl]..' LIMIT 1')
say('Operatiune absolvita cu succes.')
end
end
end
quest mut begin
state start begin
when ITEM_ID.use with pc.is_gm() begin
say_title("Mut")
say("De aici poti da mute unui jucator sa i-l poti ridica!")
say("")
local a = select ( "Da mut" , "Ridica mut" , "Inapoi" )
if a == 1 then
say("Introdu numele jucatorului care sa primeasca mute")
say("Asigurate ca numele este corect!")
local cblock = input()
say("Este acesta numele corect?")
say(" Nume : ".. cblock .." ")
local m = select ( "Da", "Nu")
if m == 1 then
say("Timp in secunde!")
say("Exemplu :")
say("5 Min = 300")
say("10 Min = 600")
say("1 ora = 3600")
say("Introdu cate secunde doresti:")
local cbtime = input()
command("block_chat ".. cblock .." ".. cbtime .."")
notice_all("Jucatorul ".. cblock .." are mut pentru ".. cbtime .." secunde!")
end
if m == 2 then
return
end
end
if a == 2 then
say("Introdu numele jucatorului carui sa ii fie ridicat mute.")
say("Poti vedea lista jucatorilor cu mut folosind comanda")
say("asta block_chat_list ")
local cublock = input()
command("block_chat ".. cublock .." 0")
notice_all("Jucatorul ".. cublock .." Poate vorbi din nou")
end
end
end
end
Gr1mjoww scrie:Vreau un Quest in care playerii de nivelul 100 sa trebuiasca sa omoare 1 dragon albastru si unul rosu si sa primeasca un pet : azrael.
####################
## Quest facut de DaRealPain ##
###################
quest dragon begin
state start begin
when login with pc.level >= 100 begin
set_state(information)
end
end
state information begin
when letter begin
send_letter("Dragonul ucigas")
end
when info or button begin
say_title("Dragonul ucigas"")
say("Vino mai aproape micutule.")
say("Am auzit ca in ultimul timp ai devenit foarte puternic.")
say("De aceea am o rugaminte la tine:")
say("Fata mea a fost ucisa acum mult timp de o bestie nemiloasa.")
say("Te rog sa imi razbuni fata.")
say("Daca reusesti iti voi da o recompensa pe masura!")
say_reward("Omoara Dragonul Albastru!")
say("")
pc.setqf("state")
q.set_counter("2493", 1)
end
when 2291.kill begin
local count = pc.getqf("state1
if count <= 1 then
pc.setqf("stateunt)
q.set_counter("2493", count)
end
if count == 0 then
say_title("Dragonul ucigas")
say("Multumesc ca ai omorat Dragonul.")
say("Ca recompensa primesti sigiliul lui Azrael!")
pc.give_item2(53005, 1)
clear_letter()
set_state(__COMPLETE__)
end
end
end
state __COMPLETE__ begin
end
end
Hm.... Sa vedem ce Esti in stare :s
Poti face un quest cand vrau sa fac un shop adica un magazin in cerc sa pun ceva la shop sa ma trimita in alta mapa sa fac shopu am inplementat o mapa si cand dai pe aia de facut shop sa te trimita in mapa de shopuri Poti face asa un quest ?
brizualyn123 scrie:Hm.... Sa vedem ce Esti in stare :s
Poti face un quest cand vrau sa fac un shop adica un magazin in cerc sa pun ceva la shop sa ma trimita in alta mapa sa fac shopu am inplementat o mapa si cand dai pe aia de facut shop sa te trimita in mapa de shopuri Poti face asa un quest ?
####################
## Quest facut de DaRealPain ##
###################
quest handel begin
state start begin
when 71049.use begin
if pc.get_map_index() == !!!INDEX!!! then
cmdchat("OpenPrivateShop")
else
chat("Poti face un Shop doar pe Harta de Negot!")
return
end
end
end
end
!!!INDEX!!! -> Inlocuiesti cu indexul mapelor pe care vrei sa nu se poata face un shop ^.^[/color]
cand dau clik pe un cufar sa mise descida si sami d-ea 5kk am bagat cufere noi si 1 vrau sal fac sami d-ea 5kk cand dau clik pe iel Multumesc !
p.s mai am nev de un quest la fiecare lvl facut sati d-ea cate 1kk la lvl 2 2kk lvl 3 1kk tot asa era un quest pe net dar nul mai gasesc daca al gasesti te astept cu reply !!!!
de 
de 
de