Arkadaşlar Paylaşıldıysa Silebilirim Konuyu Ben Göremediğim için Paylaşıyorum Belki İşinize Yarar. Kendi Serverimi Kapattığım için Kanıt Atamadım Kullanan Arkadaşlar Kanıt Atarsa Sevinirim İyi Formlar 
Bilgi Yarışması quest :
Bilgi Yarışması quest :
Kod:
state start begin
when 50034.use begin
say_title("Bilgi Yarışması! ")
say("")
----"123456789012345678901234567890123456789012345678901234567890"|
say("Bilgi yarışmasına hoş geldin! Eğer 3 soruyu ")
say("doğru cevaplarsan ödül kazanacaksın. ")
say("")
say("Hazır mısın? ")
say("")
local s=select("Hadi Başlayalım! ", "Vazgeçtim. ")
if 2==s then
return
end
pc.remove_item(50034, 1)
local size=3
local chance=pc.getqf("chance")
-- Chance!
if 0==chance then
pc.setqf("chance", number(3, 5))
elseif pc.getqf("success_count")==chance then
pc.setqf("success_count", 0)
pc.setqf("chance", number(3, 5))
size=5
end
say_title("Bilgi Yarışması! ")
say("")
----"123456789012345678901234567890123456789012345678901234567890"|
say(""..size.." soruyu doğru cevaplarsan ")
say("ödül kazanacaksın. ")
wait()
for i=1, size+1 do
local quiz_index=number(1, table.getn(locale.quiz))
local quiz_data=locale.quiz[quiz_index]
say_title("Bilgi Yarışması #"..i.." ")
say("")
say(quiz_data[1])
say("")
local s=select(quiz_data[2], quiz_data[3], quiz_data[4], quiz_data[5])
if s==quiz_data[6] then
if i==size then
say_title("Bilgi Yarışması! ")
say("")
say("Tüm soruları doğru cevapladın, ")
say("işte ödülün! ")
say("")
pc.setqf("success_count", pc.getqf("success_count")+1)
if 5==size then
say_item_vnum(50513)
say_reward("Ruh taşı kazandın. ")
pc.give_item2(50513)
else
say_item_vnum(50513)
say_reward("Ruh taşı kazandın. ")
pc.give_item2(50513)
end
say("")
return
else
say_title("Bilgi Yarışması! ")
say("")
say_reward("Doğru! ")
say("")
say("Bir sonraki soruya geçiliyor. ")
say("")
wait()
end
else
say_title("Bilgi Yarışması! ")
say("")
say("Yanlış cevap! ")
say("")
say("Üzgünüm, daha sonra tekrar dene! ")
say("")
return
end
end
end
end
end