Bilmece Sorduran Komut Yazalım
CEYD-A’ ya soğuk bir bilmece sorduralım ve bizim söyleyeceğimiz cevaba kendisi inceleyip doğru veya yanlış desin. Bilmeceler de komutun içinde olacağı için ilginç bir komut örneği olacak. Bu komut onaylandığı için sizin bu komutu yazmanıza gerek yok. Soğuk bilmece dediğinizde bu komutu çalıştırıp size bilmece soracaktır.
Peki, komutun nasıl yazıldığına kısaca bakalım:
$sorular değişkenine ; işareti ile ayrıştırılmış tüm bilmece sorularını atıyoruz. $cevaplar değişkenine ise yine ; işareti ile ayrıştırılmış tüm cevapları yazıyoruz.
Tam 14 adet soru ve cevap olduğu için, $rnd değişkenine rastgele 0 13 arası sayı tanımlıyoruz. Bu şekilde her sorduğumuzda farklı bir soru elde edeceğiz.
$soru değişkenine $sorular içinden rastgele belirlediğimiz sıradaki bilmeceyi atıyoruz. Aynı şekilde $cevap değişkenine aynı sıradaki bilmecenin cevabını atıyoruz.
inputbox ile $soru bilmecesini kendimize sordurup $kullanicicevap değişkenine söylediğimiz cevabı döndürüyoruz.
Eğer dönen cevap olan $kullanicicevap, $cevap ile aynı ise bize doğru cevap bravo diyor, eğer değilse yanlış deyip doğru cevabı söylüyor.
|
1 2 3 4 5 6 7 8 9 10 11 |
SORU: soğuk bilmece CEVAP: {!SET $sorular=Hangi bağda üzüm yetişmez; Adamin biri hamama gitmis, terlememis. Neden ?;Lastik neden esner ?;Avlanmasi en zor hayvan hangisidir?;Kadın yaşlanınca ne yapar?;Denizler nicin tuzludur?; Zenciler kollarina baktiklarinda neden kendilerini görürler?;Bir elma diskoya gitmis, neden?;Eve Gelen Hirsiz Neyi Calmaz?;Erkek robot disi robotu görünce ne olur?; Iki domates yolda gidiyormus, birinin üzerinden otomobil geçmis,digeri ona ne demis?;Adam bilgisayar basinda uyuyakalmis. Ertesi gün nezle olmus. Neden?;Itfaiyeciler neden kirmizi kemer takar?;Sineğin içinden ne çıkar?!} {!SET $cevaplar=ayakkabı bağında;çünkü adam notermiş;uykusu geldigi için;dinazor;havlu alıp kurulanır;balıklar kokmasın diye;karakolda ayna var;kurtlarını dökmek için;zili çalmaz;vidaları gevşer;yürü salça;windows açık kalmış;pantalonları düşmesin diye;inek!} {!SET $rnd={!RET random 14!}!} {!SET $soru={!RET cmdsplitandfetch ;,$rnd,$sorular!}!} {!SET $cevap={!RET cmdsplitandfetch ;,$rnd,$cevaplar!}!} {!SET kullanicicevap={!RET inputbox {!GET $soru!}!}!} {!IF $kullanicicevap==$cevap??Doğru cevap bravo::Yanlış, doğru cevap <b>{!GET $cevap!}</b> olmalıydı!} |