[Sursa=]quest achievement begin
state start begin
when 33008.chat."Premii cu Puncte" begin
cmdchat("SetIsNpc")
npc.open_shop(6969)
setskin(NOWINDOW)
cmdchat("SetPrice 8|3|10|50|100|120|120|120|120|120|120|120|120|50|350|350|350|350|200|200|200|200|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0|0")
end
when login begin
cmdchat("SetQuestIndex "..q.getcurrentquestindex())
cmdchat("setPP "..pc.getqf("achievement_points"))
end
when button or info begin
local items = {
[0]={821, 1, 8},
[1]={822, 1, 3},
[2]={890, 1, 10},
[3]={891, 1, 50},
[4]={892, 1, 100},
[5]={11915, 1, 200},
[6]={11916, 1, 200},
[7]={11917, 1, 200},
[8]={11918, 1, 200},
[9]={27991, 1, 200},
[10]={30204, 1, 200},
[11]={31033, 1, 200},
[12]={31034, 1, 200},
[13]={41488, 1, 350},
[14]={41491, 1, 350},
[15]={41513, 1, 350},
[16]={41515, 1, 350},
[17]={41551, 1, 350},
[18]={45207, 1, 200},
[19]={41550, 1, 350},
[20]={85005, 1, 200},
[21]={85001, 1, 200},
}
local slot = tonumber(achievement.GetInput("GetInput"))
if pc.getqf("achievement_points") >= items[slot][3] then
pc.setqf("achievement_points", pc.getqf("achievement_points")-items[slot][3])
cmdchat("setPP "..pc.getqf("achievement_points"))
pc.give_item2(items[slot][1], items[slot][2])
else
cmdchat("NieMamPP")
end
end
function GetInput(value)
cmdchat("GetInputStart")
local ret = input(cmdchat(value))
cmdchat("GetInputStop")
return ret
end
when levelup begin
local level = pc.get_level()
if level == 30 then
syschat("Ai primit 50 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 50)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
if level == 50 then
syschat("Ai primit 50 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 50)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
if level == 75 then
syschat("Ai primit 100 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 100)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
if level == 90 then
syschat("Ai primit 150 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 150)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
if level == 100 then
syschat("Ai primit 150 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 150)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
if level == 110 then
syschat("Ai primit 200 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 200)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
if level == 120 then
syschat("Ai primit 250 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 250)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
if level == 127 then
syschat("Ai primit 300 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 300)
cmdchat("setPP "..pc.getqf("achievement_points"))
return
end
end
when 8007.kill or 8008.kill or 8009.kill or 8010.kill or 8011.kill or 8012.kill or 8013.kill or 8014.kill or 8024.kill or 8025.kill or 8026.kill or 8027.kill begin
pc.setqf("achievement_points", pc.getqf("achievement_points") + 10)
cmdchat("setPP "..pc.getqf("achievement_points"))
syschat("Felicitari, ai primit 10 PCT")
end
when 890.use begin
syschat("Ai primit 10 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 10)
cmdchat("setPP "..pc.getqf("achievement_points"))
pc.remove_item(890, 1)
end
when 891.use begin
syschat("Ai primit 50 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 50)
cmdchat("setPP "..pc.getqf("achievement_points"))
pc.remove_item(891, 1)
end
when 892.use begin
syschat("Ai primit 100 PCT")
pc.setqf("achievement_points", pc.getqf("achievement_points") + 100)
cmdchat("setPP "..pc.getqf("achievement_points"))
pc.remove_item(892, 1)
end
end
end[/Sursa]

[Sursa=]

quest tombola begin
state start begin
function tablica(vnum, pozitie, pozitie2)
local itemy = {
{
{85001, 1},
{27991, 1},
{31022, 1},
{31024, 1},
{31026, 1},
{71015, 1},
{85005, 1},
{31033, 1},
{72703, 1},
{72704, 1},
{30204, 1},
{50512, 1},
{81001, 1},
{30179, 1},
{31034, 1},
{80006, 1},
{80005, 1},
},
{
{85001, 1},
{27991, 1},
{31022, 1},
{31024, 1},
{31026, 1},
{71015, 1},
{85005, 1},
{31033, 1},
{72703, 1},
{72704, 1},
{30204, 1},
{50512, 1},
{81001, 1},
{30179, 3},
{31034, 1},
{80006, 1},
{80005, 1},
},
}
return itemy[vnum][pozitie][pozitie2]
end



when login begin
cmdchat("tombola "..q.getcurrentquestindex())
end

when 33008.chat."Tombola" begin
say_title("Tombola Orasului:")
say("")
say("Salut! Pentru a putea juca la tombola orasului")
say("ai nevoie de zece bilete!")
say_item("Bilet pentru Tombola", 31012, "")
wait()
local vegas = number(1,2)
local str = " "
for i = 1,16 do
if i == 16 then
str = str..tombola.tablica(vegas, i, 1).."|"..tombola.tablica(vegas, i, 2)
else
str = str..tombola.tablica(vegas, i, 1).."|"..tombola.tablica(vegas, i, 2).."|"
end
end
cmdchat("OnPrepare"..str)
cmdchat("openTombola")
setskin(NOWINDOW)
end

when info or button begin
local vegas = number(1,2)
local str = " "
for i = 1,16 do
if i == 16 then
str = str..tombola.tablica(vegas, i, 1).."|"..tombola.tablica(vegas, i, 2)
else
str = str..tombola.tablica(vegas, i, 1).."|"..tombola.tablica(vegas, i, 2).."|"
end
end
cmdchat("OnPrepare"..str)
if pc.count_item(31012) < 10 then
syschat("Nu aveþi ce vã trebuie pentru a putea juca!")
return
end

cmdchat("get_input_start")
local intrare = input(cmdchat("get_input_value"))
cmdchat("get_input_end")
if intrare == "tombola|begin" then
pc.setqf("slot", number(1, 16))
cmdchat("OnRun "..number(2,3)*16+pc.getqf("slot").."|5")
elseif intrare == "tombola|end" then
cmdchat("buff_vegas") --- o sa va caut sa va pun un effect si va fac un tut de implementare
syschat("Felicitari! Ai primit "..tombola.tablica(vegas, pc.getqf("slot")+1, 2).."x "..item_name(tombola.tablica(vegas, pc.getqf("slot")+1, 1)).."")
pc.give_item2(tombola.tablica(vegas, pc.getqf("slot")+1, 1), tombola.tablica(vegas, pc.getqf("slot")+1, 2))
pc.remove_item(31012, 10)
end
end
end
end[/Sursa]