Membuat Game square 6x6 dengan Strawberry Prolog

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).