Membuat Game Minesweeper Borland Delphi

Masih ingatkah Anda dengan game Minessweeper, game ini merupakan salah satu game sederhana buatan Microsoft. Penulis mencoba untuk membuat tiruan dari game Minesweeper dengan menggunakan Bahasa Pemrograman Delphi. Namun walaupun hanya tiruan, game ini tidak kalah dari game Minesweeper yang asli, alias dibikin mirip.

Berbeda dengan Minesweeper yang asli yang hanya memiliki 3 level saja, program ini memiliki 5 level, yaitu Beginner, Novice, Intermediate, Advanced dan Expert. Semakin tinggi levelnya, semakin besar medan permainan dan semakin banyak ranjaunya.

Dengan pilihan Custom Size Anda juga bisa mengatur sendiri besar medan permainan maupun jumlah ranjaunya. Namun bila Anda bermain dengan besar medan yang  Anda tentukan sendiri, Anda tidak akan bisa masuk ke dalam high scores. Ya jelas aja dong, misalkan Anda membuat petak 6 x 6 dengan jumlah ranjau hanya 1, cuma butuh 1 detik untuk memenangkannya, kalau gitu semua orang juga bisa.

Pada program ini terdapat 4 form, yaitu form utama (frmsweep) tempat dilaksanakannya permainan, form custom (frmcustom) untuk mengatur pilihan Custom Size, form highscores (frmscores) untuk menampilkan highscores, dan form about (frmabout) untuk menampilkan keterangan program.

Sebenarnya, membuat game Minesweeper bukanlah hal yang sulit, kira-kira hanya butuh 700 baris. Setelah melakukan inilialisasi, program akan memanggil prosedur acakranjau yang berfungsi untuk menyebar ranjau di medan permainan.

Cara Bermain Game Minesweeper

Sebenarnya bagaimanakah cara memainkan Minesweeper? Memang Minesweeper bukahlah game baru, namun saya rasa masih ada orang yang belum bisa memainkannya. Cara memainkannya cukup mudah, ketika permainan dimulai, program akan menampilkan kotak-kotak, tugas Anda adalah membuka semua kotak kecuali kotak yang mengandung ranjau, kotak yang mengandung ranjau harus diberi penjinak ranjau. Untuk membuka petak, digunakan klik kiri dan untuk memasang penjinak ranjau digunakan klik kanan. Penjinak ranjau dilambangkan dengan bendera.

Skenario Game

Ketika salah satu kotak diklik, maka akan tampil jumlah ranjau disekeliling kotak tersebut, bila disekelilingnya tidak ada ranjau, maka petak akan terus dibuka sampai disekelilingnya ada ranjau.

Bila ternyata yang dibuka adalah ranjau, maka permainan akan berakhir, dan semua ranjau akan ditampilkan. Bila semua petak telah dibuka dan semua ranjau telah dijinakkan, maka Anda telah berhasil memenangkan permainan ini. Prosedur cekhighscores akan memeriksa apakah Anda layak untuk masuk highscore? Untuk selengkapnya, Anda dapat mempelajari source code yang saya sertakan.

Download Source Code Game Minesweeper Borland Delphi (via Ziddu)