Permainan ini menggunakan bahasa pemrograman Prolog. Dan di sini saya menggunakan Strawberry Prolog
sebagai program editor.
Square merupakan jenis permainan game board, Game
ini berisi tentang permainan logika yang terdiri dari titik-titik yang harus
dihubungkan sehingga menjadi sebuah persegi empat, game ini adalah game
sederhana yang berguna untuk melatih logika si user (pemain),jadi game ini
mengandalkan strategi dari si user untuk memenagkan permainan. Permainan ini
dimainkan oleh dua orang pemain dengan tujuan menciptakan
blok persegi sebanyak-banyaknya. Game ini dilambangkan dengan (jumlah titik hubung adalah sebanyak 49 , blok persegi
yang dapat dibuat sebanyak 36 blok yang dibentuk dari titik hubung
tersebut. Pemain hanya terdiri dari user dan
computer).
RULES
:
Aturan main (Rule) yang digunakan pada games square ini
adalah sebagai berikut:
-
Kita berjalan dengan cara mengklik
diantara dua titik yang tersedia
-
Kedua titik yang akan membuat garis bisa
berupa horizontal maupun vertical garisnya
-
Dari garis yang telah dibuat akan saling terhubung dan menciptakan blok
persegi
- Kita tidak bisa mengklik di sembarang tempat,
melainkan di tengah-tengah antara kedua titik.
- Kita bermain secara bergantian dengan pemain lawan
(komputer), 1 langkah kita dan 1 langkah
- berikutnya adalah lawan, dan itu
berlangsung secara terus-menerus sampai membuat banyak kotak.
- Dalam
hal ini, pemain yang dapat menciptakan blok persegi yang paling banyak adalah
pemenangnya kita kotak warna kuning, computer berawarna merah
USER
MENANG(KUNING) = Jumlah kotak kuning ada 19 kotak sedangkan merah ada 17 kotak
KETIKA
KOMPUTER MENNG(MERAH) Jumlah kotak merah ada 19 kotak sedangkan Kotak Kuning ada 17 kotak
Pengalan source code
Bagian
pembentukan menu
?-
window(_,_,func(_),"Square
6x6",90,90,420,430).
func(init):-
menu(pop_up, _, _, myPopUpGame(_), "&New
Game"),
menu( normal, _, _, menu_help(_),
"&Help"),
menu( normal, _, _, menu_exit(_),
"&Exit").
myPopUpGame(init):-
menu(normal,_,_,menu_player1(_),"Player
First"),
menu(normal,_,_,menu_comp1(_),"Computer
First").
menu_player1(press):-
new_player.
menu_comp1(press):-
new_comp.
cancel_func(press) :-
close_window(parent(_)).
menu_help(press) :-
message("Help","Just like we
played game, but this is more
complicated.", i).
menu_exit(press) :-
close_window(_).
check_func(press) :-
Bagian
pembentukan kotak
set_check_box_value(_,1-get_check_box_value(_)).
mem3([E,_,_,_,_,_],E,0).
mem3([_,E,_,_,_,_],E,1).
mem3([_,_,E,_,_,_],E,2).
mem3([_,_,_,E,_,_],E,3).
mem3([_,_,_,_,E,_],E,4).
mem3([_,_,_,_,_,E],E,5).
replace3([E,A,B,C,D,F],[_,A,B,C,D,F],E,0).
replace3([A,E,B,C,D,F],[A,_,B,C,D,F],E,1).
replace3([A,B,E,C,D,F],[A,B,_,C,D,F],E,2).
replace3([A,B,C,E,D,F],[A,B,C,_,D,F],E,3).
replace3([A,B,C,D,E,F],[A,B,C,D,_,F],E,4).
replace3([A,B,C,D,F,E],[A,B,C,D,F,_],E,5).
