Quest Yazma Benzeri Yok---||3||---

[dovuscuhaydar]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

İlk Yayılarıma Buralardan Ulasabilirsiniz

quest-yazma-benzeri-yok-||1||
quest-yazma-benzeri-yok-||2||


Gecen Yayında Piyango Npc Sinden Bahsetmistim Şimdi Yapalım

if 4320 > get_global_time() - pc . getqf ( "lottery_last_play" ) then 
		say ("Kumari son kullandigindan 3 gün sonra tekrar kullabilirsiniz.") 
		return
	end 
	say_title ( "Kumar masasi:" )
	say ("Bunu yapman icin belirli bir ücret ödemen gerekir.")
	say_reward ("Fiyatı: 50.000 Yang")
	say ("Devam edecek mi?")
	local scelta = select ( "Evet","Hayır" )
	if scelta == 1 then
		if pc . gold >= 50000 then
			pc . changegold ( - 50000 )
			local k
			repeat
				say_title ( "Kumar masasi:" )
				say ( "1 ve 3 arasinda bir sayi secin" )
				say ("Benim elimdeki sayi ile uyarsa")
				say ("ikramiye kazanacaksin")
				say ("150.000.000 ikramiye Yang!!")
				k = tonumber(input())
				if k == nil then
					say_title("Kumar masasi:")
					say("Bir sayı girmelisiniz!")
					local s = select("Devam etmek", "iptal")
					if s == 2 then
						return
					end
				else
					if k <= 0 then
						say_title("Kumar masasi:")
						say("Lütfen belirttigim sayilar secin!")
						local s = select("Devam", "Vazgec")
						if s == 2 then
							return
						end
					else
						if k > 3 then
							say_title("Kumar masasi:")
							say("Sen 1 ve 3 arasında bir sayı girmelisiniz")
							local s = select("Devam", "Vazgec")
							if s == 2 then
								return
							end
						else
							break
						end
					end
				end
			until false
			say("Numara sec: " .. k )
			wait ()
			say ("Ve şimdi işlemine devam!")
			local random_number = tostring(number(1,3))
			say("Benim numaram: " .. random_number)
			if random_number == tostring(k) then
				say ("Tebrikler, İkramiye kazandin150kk!")
				say_reward ("Aldigin 150.000.000 Yang")
				pc.changegold ( 150000000 )
			else 
				say ("Üzgünüm olmadi.Yeniden dene!")
			end
		end
		pc.setqf("lottery_last_play" , get_global_time()) 
		return
	end

İnceleyelim

if 4320 > get_global_time() - pc . getqf ( "lottery_last_play" ) then
En Ustte Bu SEkilde Bİr İfade Geciyor Turkceye Cevirelim
Eger 4320 buyuktur (Su Anki zaman) - (En Son Piyango Oynama) ise
Demek oluyor 4320 sayıdır dakika Cınsınden yani 72 saat ediyor
bu da 3 gun dur ama bazı pvp lerde 4320 saniye de olabilir buna dikkat edin

aradaki kodları eski yayınlarımı okuduysanız cok kola anlarsınız
ama biraz ordtalara indigimizde "until false" diye bie komutsa karsılasıyoruz bu hiçbiri olmazsa gii bir nalma tasıyor "else"den farklı olarak son yargı için degil butun yargılar için bir eylem içeriyor hiçbiri olmazsa yukardakilerden bunu yap gibi
bide "k = tonumber(input())" boyle bişi var bu dan sizden bir klavyeyi kullanarak bir deger girmenizi ister
if k == nil then
ise -
k girdigimiz degerdi k harf ise diyor burda nill sayı harıc işaretler gibi bir anlşam katıyor
say("Numara sec: " .. k ) i inceleyelim size aslında basında anlatmam gerekiyordu ama unutmusum .. lar ne işe yarıyo onu bir cozelim

eger girilen bir deger varsa ne oldugu kullanıcı tarafından belirtilmısse "" gerekmez "..pc.get_level.." gibi olmaz "" ları koymamıza gerek kalmaz .. lar ise hangi taraafta yazı oldugunu belirtir bilşgisayara ..k deseydik yazı vardı ama buınula bitcek demis oluruz k.. deseydik yazı yoktu ama bundan sonra baslıycak olurdu
..k.. deseydik yazı vardı ve devap edicek olurdu hiç koymasaydık derseniz oyle birsey olmaz onun yerini ..k.. tutuar

pc.setqf("lottery_last_play" , get_global_time())
ise en son oynanma zamanını Su an ki global timeye ayarla olur



Alıntıdır Yazmanız Yerelidir DovuscuHaydar ([TL]Thyphon)

 

[darvencolk]

Teşekkürler.

 

[Augustus]

Paylaşım için teşekkürler

 

[Guven ALBAYRAK]

Birader o questi ben 2010 yılında yazmıştım , sgL