Game Tebak Nomor dengan Bahasa QBasic

Oh, ini post pertama Cinta. Sebelumnya Cinta mau kasih tahu dulu, Kak ... kalau Cinta ini anak SMK jurusan Multimedia, jadi di sekolah Cinta belajar soal bahasa pemrograman juga. Salah satu jenis bahasa pemrograman adalah QBasic atau Quick Basic yang merupakan salah satu versi dari bahasa BASIC (Begginer's All-purpose Symbolic Instruction Code).

Game tebak nomor intinya ya soal menebak nomor. Kita menyimpan nomor dan teman kita harus menebak nomor apa yang kita simpan. Di sini Cinta membuat game yang mana kalian bertugas sebagai seseorang yang harus memintai sumbangan masjid di blok kalian, tapi blok kalian sedang agak kosong karena orang-orang blok sedang pulang kampung, jadi ya semoga beruntung menebak-nebak mana saja rumah yang masih ditempati.

Cinta buat game ini buat iseng-iseng doang sih, Kak, menggunakan bahasa QBasic. Berikut script-nya.

!	Warning! Mengandung spoiler!

PRINT "Suatu hari, Anda ditunjuk untuk memintakan sumbangan dari sebuah"
PRINT "perumahan. Namun, banyak orang di perumahan tersebut yang sedang"
PRINT "bermudik ke kampung halaman."
PRINT ""
PRINT "Saat itu sudah malam, dan Anda harus segera pulang. Bapak ketua"
PRINT "majelis masjid pun membolehkan Anda pulang bila saja sudah mendapat"
PRINT "uang minimal Rp. 10.000,-."
PRINT ""
PRINT "Total di blok tersebut, ada 100 rumah. Anda pun menebak secara"
PRINT "acak."
PRINT ""
PRINT ""
PRINT "Ke rumah yang mana, ya?"

INPUT angka


WHILE angka <> 27 OR 61 OR 88 OR 92 OR 83

    IF angka = 27 THEN
        PRINT ""
        PRINT "Pemilik rumah membukakan pintu. Ia memberikan Anda uang"
        PRINT "Rp. 10.000,-. Anda berterima kasih dan kembali pulang."
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
    END IF
    IF angka = 61 THEN
        PRINT ""
        PRINT "Pemilik rumah membukakan pintu. Ia memberikan Anda uang"
        PRINT "Rp. 10.000,-. Anda berterima kasih dan kembali pulang."
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
    END IF
    IF angka = 88 THEN
        PRINT ""
        PRINT "Pemilik rumah membukakan pintu. Ia memberikan Anda uang"
        PRINT "Rp. 10.000,-. Anda berterima kasih dan kembali pulang."
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
    END IF
    IF angka = 92 THEN
        PRINT ""
        PRINT "Anda mengetuk pintu pagarnya. Seorang wanita keluar. Ia"
        PRINT "mempersilakan Anda masuk terlebih dahulu. Anda pun masuk."
        PRINT ""
        PRINT "Esoknya, Anda ditemukan tewas di rumah tersebut."
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
    END IF
    IF angka = 83 THEN
        PRINT ""
        PRINT "Pemilik rumah membukakan pintu. Ia memberikan Anda uang"
        PRINT "Rp. 50.000,-. Ia juga memberikan uang untuk keperluan"
        PRINT "Anda sebanyak Rp. 20.000,-. Anda sangat berterima kasih"
        PRINT "dan pulang dengan senang hati."
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
        PRINT ""
    END IF

    IF angka = 27 THEN
        END
    END IF
    IF angka = 61 THEN
        END
    END IF
    IF angka = 88 THEN
        END
    END IF
    IF angka = 92 THEN
        END
    END IF
    IF angka = 83 THEN
        END
    END IF


    PRINT ""
    PRINT "Anda mengetuk pintu pagar dan memberi salam. Namun tak ada"
    PRINT "balasan. Lagipula, lampu di dalam rumah terlihat redup. Anda"
    PRINT "akhirnya meninggalkan rumah tersebut dan mencari lagi."
    PRINT ""
    PRINT ""
    PRINT "Ke rumah yang mana, ya?"
    PRINT ""
    INPUT angka

WEND

Message

KALAU nomor dicetak begini

   ARTINYA kalian boleh ganti nomornya dengan nomor lain

   SELAIN ITU ya sudahlah, biarin aja nomor-nomornya segitu. Tapi sebaiknya ditambah lagi opsi nomornya, soalnya kalau opsi nomornya hanya sedikit seperti di atas, yang main jadi stress. 

Game-nya di copas terus di edit-edit juga gak apa-apa, Kak. Cinta seneng kok kalau hasil buatan Cinta berguna 😄