Cerere quest
Salut, am incercat sa-ti ”modific” unul, nu l-am testat .
Bafta
Cod: Selectaţi tot
quest prima misiune begin
state start begin
when letter begin
send_letter("Prima misiune.!")
end
when button or info begin
say_title("Prima misiune!")
say("Salutare razboinicule!")
say("Ca sa primesti un ”bonus” trebuie sa")
say("omori 10 caini flamanzi")
say("")
say("Mult noroc!")
pc.setqf("state", 10)
q.set_counter("Caini Flamanzi", 10)
end
when 101.kill begin
local count = pc.getqf("state") - 1
if count < 10 then
pc.setqf("state", count)
q.set_counter("Caini Flamanzi:", count)
end
if count == 0 then
say_title(“Prima misiune”)
say(“Felicitari , ai reusit sa omori 10 caini.”)
say(“Te rog sa iti alegi premiu.”)
say(“”)
local premiu = select (“premiul1”,”premiul2”)
if premiu == 1 then
pc.give_item2(VNUM)
say(“Ai primit premiul 1”)
elseif premiu == 2 then
pc.give_item2(VNUM)
say(“Ai primit premiul 2”)
clear_letter()
set_state(__COMPLETE__)
end
end
end
end- [RaffaeL]
-

- Mesaje: 3223
- Membru din: 19 Mar 2016, 12:58
- Server: ...
- Aprecieri: 15
- Mulţumiri: 2502
- Rezolvări prob.: 2
- Discord: Copiază ID
- Contact:
- [RaffaeL]
-

- Mesaje: 3223
- Membru din: 19 Mar 2016, 12:58
- Server: ...
- Aprecieri: 15
- Mulţumiri: 2502
- Rezolvări prob.: 2
- Discord: Copiază ID
- Contact:
quest kill_reward begin
state start begin
function settings()
mCount = 5 --mobi de ucis
mId = 101 --vnum mob
mName = mob_name(mId)
return mCount, mId, mName
end
when letter begin
send_letter("Ucide pentru premiu")
end
when button or info begin
kill_reward.settings()
local bStr = "bonus"
say_title("Ucide pentru premiu")
say("Salutare razboinicule!")
say(string.format("Ca sa primesti un %q trebuie sa omori %d %s",tostring(bStr),tonumber(mCount),tostring(mName)))
say("Mult noroc!")
pc.setqf("state", mCount)
q.set_counter(string.format("%q ",tostring(mName)), mCount)
end
when kill begin
kill_reward.settings()
if npc.get_race() == mId then
local count = pc.getqf("state") - 1
if count < mCount then
pc.setqf("state", count)
q.set_counter(string.format("%q ",tostring(mName)), count)
end
if count == 0 then
say_title("Ucide pentru premiu")
say(string.format("Felicitari , ai reusit sa omori %d %s.",tonumber(mCount),tostring(mName)))
say("Te rog sa iti alegi premiul.")
wait()
premii = {
{["v"] = 15, ["c"] = 1, ["n"] = ""}, -- {["v"] = vnum, ["c"] = count(numar de iteme), ["n"] = nume}
{["v"] = 16, ["c"] = 1, ["n"] = ""}, -- {In cazul in care ["n"] ramane cu valoarea default ""(string.empty)}
{["v"] = 17, ["c"] = 1, ["n"] = ""}, -- {va fi incarcat numele itemului, dupa vnum(ca string)}
{["v"] = 18, ["c"] = 1, ["n"] = ""},
{["v"] = 19, ["c"] = 1, ["n"] = ""},
}
p_tab = {}
for p in premii do
iName = tostring(premii[p]["n"])
iVnum = tostring(premii[p]["v"])
if iName == "" then iName = tostring(item_name(iVnum)) end
table.insert(p_tab,iName)
end
list = select_table(p_tab)
pVnum = premii[list]["v"]
pCount = premii[list]["c"]
pName = tostring(item_name(pVnum))
pc.give_item2(pVnum, pCount)
say_reward(string.format("Ai primit %q x %d[ENTER]",tostring(pName),tonumber(pCount)))
say_item_vnum(pVnum)
clear_letter()
q.done()
set_state(__COMPLETE__)
end
end
end
end
state __COMPLETE__ begin
end
end
Răspunsuri
6 Vizualizări
350
6 Vizualizări
350
Răspunsuri
2 Vizualizări
463
2 Vizualizări
463
Răspunsuri
5 Vizualizări
1777
5 Vizualizări
1777
-
- Informaţie
-
Cine este conectat
Utilizatori ce ce navighează pe acest forum: Bomboanecuheroina și 4 vizitatori













