Bomber Graf!TY Indonesia

Jangan cuma kanvas yang di gambar tembok juga

PEMBUATAN GAME REVERSY/OTHELLO DENGAN STRAWBERRY PROLOG

 

PEMBUATAN GAME REVERSY/OTHELLO DENGAN STRAWBERRY PROLOG

 

BAHASA DAN PROGRAM EDITOR :

 

Permainan ini menggunakan bahasa pemrograman Prolog. Bahasa Pemrograman Prolog sendiri memiliki 3 editor, diantaranya: Strawberry Prolog, Visual Prolog, dan SWI Prolog. Namun untuk project ini saya menggunakan Strawberry prolog sebagai program editornya. Alasan saya menggunakan strawberry prolog ini karena menurut saya beserta teman saya strawberry prolog lebih mudah untuk digunakan dari pada editor lainnya.

 

 

 

 

 

INITIAL STATE :

 

Initial State yang digunakan sebagai acuan untuk membuat program Reversy + 14×14 adalah pembuatan papan permainan adan alur game. Di sini saya menggunakan papan 2 dimensi yang berukuran 14 x 14. Pada dasarnya Game Reversy + 14×14 sama halnya seperti permainan Reversy biasa. Hanya saja jumlah borad yang digunakan 14×14 sebanyak 196 kotak. Dinakanakan + 14×14 karena pada awal permainan jumlah biji Reversy berbentuk gambar plus + jadi game ini diberikan tambahan nama +. Board atau papan berwarna merah dengan biji kuning dan biru. Menu deberikan terdiri dari new game, quit dan help.

 

 

 

 

 

RULES :

 

                        Aturan main (Rule) yang digunakan pada games Reversy + 14×14 ini adalah sebagai berikut:

 

  1. Untuk masing-masing player tediri dari 18 biji kuning dan biru berbentuk gambar plus +
  2. Untuk setiap biji hari memakan atau mengambil ahil biji lawan dengan membuat garis vertical diagonal dan silang atau miring.
  3. Jika dalam satu garis biji dapat diambil alih kalau setiap sisinya sama dengan cara menaruh biji pada bidang kosong untuk memblok biji lawan sehingga termabil alih.
  4. Pemenang ditentukan dari banyaknya jumlah biji yang terdapat di board.

 

 

 

TUJUAN :

 

Tujuan permainan Reversy adalah untuk memiliki jumlah keping sebanyak-banyaknya di akhir permainan. Karena inilah pemain pemula Reversy selalu berusaha melangkah di kotak-kotak di mana dia bisa membalik keping lawan sebanyak-banyaknya. Strategi ini disebut ‘greedy strategy’ (= strategi rakus).

 

 

 

Greedy strategy memang diperlukan di akhir permainan untuk memperbanyak jumlah keping, tetapi di awal dan tengah permainan strategi ini akan membawa malapetaka, dengan alasan ‘mobility’ seperti di bawah. Untuk itu disarankan supaya kita menjaga jumlah keping sedikit di awal dan tengah permainan, tetapi tentu saja harus memperbanyak keping di akhir permainan.

 

 

 

GOAL :

 

Goal untuk menyelesaikan games Reversy ini adalah mengambil alih biji lawan dan mengakhiri game dengan jumlah biji pada board lebih banyk dari lawan.

 

 

 

DRAW :

 

                        Draw dapat saja terjadi jika pada papan jika pada akhir game jumlah biji masing-masing sama banyak.

 

 

 

AI :

 

Kecerdasan buatan atau yang sering disebut dengan AI pada game ini terletak pada computer yang akan bertindak sebagai lawan. Komputer akan selalu berusaha mengambil pemain dengan cara mengambil alih biji lawan.

 

 

 

BATAS USIA :

 

Permainan ini dapat dimainkan untuk semua usia. Karena permainan ini mengasah ketrampilan otak dengan menyusun strategi sesuai dengan tujuan yang telah ditentukan sebelumnya.

 

 

 

 

 

 

 

 

 

 

 

 

 

INSTALASI STRAWBERRY PROLOG :

 

Strawberry Prolog merupakan sebuah bahasa pemrograman logika yang memiliki Object Oriented Language. Pada prolog ini tidak terdapat prosedur, hanya terdapat kumpulan data yang akan diolah. Untuk menggunakan strawberry prolog tidak dilakukan instalasi. Programmer dapat meng-unduhnya secara gratis di website resminya. Namun karena penggunaannya yang gratis, pada strawberry prolog ini, games Reversy tidak dapat membentuk sebuah file execute (exe). Jadi program dapat dijalankan dengan membuka file strawberry prolog (spj) di dalam strawberry prolog itu sendiri. Berikut ini cara membuka permainan Reversy:

 

  1. Jalankan Strawberry prolog.

 

 

 

 

  1. Untuk membuka file spj-nya, pilih pada menu bar FILE → OPEN kemudian pilih file Reversy14.spj

 

 

  1. Untuk menjalankan games-nya dapat menggunakan shortcut F5. Atau pada menu bar pilih RUN → RUN. Hasilnya dapat dilihat pada output dibawah ini.

 

 

 

OUTPUT :

 

Awal game biji player membentuk + plus

 

 

 

 

 

 

 

 

 

 

 

Jika hasilnya menang (Win)

 

 

Jika hasilnya kalah (Lose):

 

 

 

 

 

 

 

 

 

 

LISTING  PROGRAM:

 

?-

 

set(sit([[n,n,n,n,n,n,n,n,n,n,n,n,n,n],[n,n,n,n,n,n,n,n,n,n,n,n,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,b,w,b,w,b,w,b,w,b,w,n,n],[n,n,w,b,w,b,w,b,w,b,w,b,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,n,n,n,n,n,n,n,n,n,n,n,n],[n,n,n,n,n,n,n,n,n,n,n,n,n,n]])),

 

pen(2,rgb(0,0,0)),

 

window(_,_,win_func(_),”Reversy”,100,50,508,528).

 

 

 

win_func(init):-

 

menu(pop_up, _, _, myPopUpGame(_), “&Game”),

 

menu( right, _, _, menu_help(_), “&Help”).

 

 

 

myPopUpGame(init):-

 

menu(normal,_,_,menu_new(_),”New”),

 

menu(normal,_,_,menu_exit(_),”Quit”).

 

 

 

menu_new(press):-

 

new_game.

 

 

 

menu_exit(press):-

 

close_window(_).

 

 

 

menu_help(press):-

 

message(“Help”,”Click the box to take your opposit.Get more than other opposit”,i).

 

 

 

 

 

win_func(paint):-

 

brush(rgb(255,0,0)),

 

rect(30,30,450,450),

 

for(I,0,14),

 

X is I * 30 + 30,

 

line(X,30,X,450),

 

line(30,X,450,X),

 

fail.

 

 

 

win_func(paint):-

 

brush(rgb(255,255,0)),

 

sit(M),

 

for(J,0,14),

 

for(I,0,14),

 

take(M,Line,J),

 

take(Line,b,I),

 

X is I*30 + 35,

 

Y is J*30 + 35,

 

X1 is X + 20,

 

Y1 is Y + 20,

 

ellipse(X,Y,X1,Y1),

 

fail.

 

 

 

win_func(paint):-

 

brush(rgb(19,166,236)),

 

sit(M),

 

N1 is count_successes(victory(w,M)),

 

N2 is count_successes(victory(b,M)),

 

text_out(0, 0, “You: “+print(N1)+”, Computer: “+print(N2)),

 

(N1>N2, N1+N2=:=196 ->

 

ask1

 

else (N1=N2, N1+N2=:=196 ->

 

ask3

 

else (N1<N2, N1+N2=:=196->

 

ask3

 

))),

 

(N2=:=0 ->

 

ask1

 

else (N1=:=0->

 

ask3

 

)),

 

 

 

for(J,0,14),

 

for(I,0,14),

 

take(M,Line,J),

 

take(Line,w,I),

 

X is I*30 + 35,

 

Y is J*30 + 35,

 

X1 is X + 20,

 

Y1 is Y + 20,

 

ellipse(X,Y,X1,Y1),

 

fail.

 

win_func(paint).

 

 

 

win_func(mouse_click(X,Y)):-

 

X1 is (X – 20) // 30,

 

Y1 is (Y – 20) // 30,

 

X1 >= 0,

 

X1 =< 13,

 

Y1 >= 0,

 

Y1 =< 13,

 

sit(Sit1),

 

insert(X1,Y1,w),

 

sit(Sit2),

 

not(Sit1=Sit2),

 

win_func(paint),

 

wait(0),

 

take3(Sit2,n,X2,Y2),

 

insert(X2,Y2,b),

 

sit(Sit3),

 

not(Sit2=Sit3),

 

win_func(paint).

 

 

 

insert(X,Y,Who):-%trace,

 

sit(Sit),

 

take2(Sit,n,X,Y),

 

opposit(Who,NewWho),

 

for(WayX,-1,1),

 

for(WayY,-1,1),

 

sit(Sit2),

 

neighbour(NewWho,X,Y,Sit2,WayX,WayY),

 

jump(NewWho,X,Y,Sit2,WayX,WayY,NewX,NewY),

 

replace3(Result,Sit2,Who,X,Y,NewX,NewY,WayX,WayY),

 

set(sit(Result)),

 

fail.

 

insert(X,Y,Who).

 

 

 

neighbour(Who,X,Y,Sit,WayX,WayY):-

 

X1 is X+ WayX,

 

Y1 is Y+ WayY,

 

take2(Sit,Who,X1,Y1).

 

 

 

jump(Who,X,Y,Sit,WayX,WayY,X2,Y2):-

 

X1 is X+ WayX,

 

Y1 is Y+ WayY,

 

opposit(Who,NewWho),

 

neighbour(NewWho,X1,Y1,Sit,WayX,WayY),

 

X2 is X1+ WayX,

 

Y2 is Y1+ WayY.

 

 

 

jump(Who,X,Y,Sit,WayX,WayY,NewX,NewY):-

 

X1 is X+ WayX,

 

Y1 is Y+ WayY,

 

neighbour(Who,X1,Y1,Sit,WayX,WayY),

 

jump(Who,X1,Y1,Sit,WayX,WayY,NewX,NewY).

 

 

 

take3(Sit,El,0,0):-

 

take2(Sit,El,0,0).

 

 

 

take3(Sit,El,0,13):-

 

take2(Sit,El,0,13).

 

 

 

take3(Sit,El,13,0):-

 

take2(Sit,El,13,0).

 

 

 

take3(Sit,El,13,13):-

 

take2(Sit,El,13,13).

 

 

 

take3(Sit,El,X,Y):-

 

take2(Sit,El,X,Y).

 

 

 

take2(Sit,El,X,Y):-

 

take(Sit,Row,Y),

 

take(Row,El,X).

 

 

 

replace2(Result,Sit,El,X,Y):-

 

take(Sit,Line,Y),

 

replace(NewLine,Line,El,X),

 

replace(Result,Sit,NewLine,Y).

 

 

 

replace3(Result,Result,Who,X,Y,X,Y,WayX,WayY).

 

replace3(Result,Sit,Who,X,Y,ToX,ToY,WayX,WayY):-

 

replace2(ResultP,Sit,Who,X,Y),

 

X1 is X + WayX,

 

Y1 is Y + WayY,

 

replace3(Result,ResultP,Who,X1,Y1,ToX,ToY,WayX,WayY).

 

 

 

replace([New,B,C,D,E,F,G,H,I,J,K,L,M,N],[_,B,C,D,E,F,G,H,I,J,K,L,M,N],New,0).

 

replace([A,New,C,D,E,F,G,H,I,J,K,L,M,N],[A,_,C,D,E,F,G,H,I,J,K,L,M,N],New,1).

 

replace([A,B,New,D,E,F,G,H,I,J,K,L,M,N],[A,B,_,D,E,F,G,H,I,J,K,L,M,N],New,2).

 

replace([A,B,C,New,E,F,G,H,I,J,K,L,M,N],[A,B,C,_,E,F,G,H,I,J,K,L,M,N],New,3).

 

replace([A,B,C,D,New,F,G,H,I,J,K,L,M,N],[A,B,C,D,_,F,G,H,I,J,K,L,M,N],New,4).

 

replace([A,B,C,D,E,New,G,H,I,J,K,L,M,N],[A,B,C,D,E,_,G,H,I,J,K,L,M,N],New,5).

 

replace([A,B,C,D,E,F,New,H,I,J,K,L,M,N],[A,B,C,D,E,F,_,H,I,J,K,L,M,N],New,6).

 

replace([A,B,C,D,E,F,G,New,I,J,K,L,M,N],[A,B,C,D,E,F,G,_,I,J,K,L,M,N],New,7).

 

replace([A,B,C,D,E,F,G,H,New,J,K,L,M,N],[A,B,C,D,E,F,G,H,_,J,K,L,M,N],New,8).

 

replace([A,B,C,D,E,F,G,H,I,New,K,L,M,N],[A,B,C,D,E,F,G,H,I,_,K,L,M,N],New,9).

 

replace([A,B,C,D,E,F,G,H,I,J,New,L,M,N],[A,B,C,D,E,F,G,H,I,J,_,L,M,N],New,10).

 

replace([A,B,C,D,E,F,G,H,I,J,K,New,M,N],[A,B,C,D,E,F,G,H,I,J,K,_,M,N],New,11).

 

replace([A,B,C,D,E,F,G,H,I,J,K,L,New,N],[A,B,C,D,E,F,G,H,I,J,K,L,_,N],New,12).

 

replace([A,B,C,D,E,F,G,H,I,J,K,L,M,New],[A,B,C,D,E,F,G,H,I,J,K,L,M,_],New,13).

 

 

 

 

 

take([El,_,_,_,_,_,_,_,_,_,_,_,_,_],El,0).

 

take([_,El,_,_,_,_,_,_,_,_,_,_,_,_],El,1).

 

take([_,_,El,_,_,_,_,_,_,_,_,_,_,_],El,2).

 

take([_,_,_,El,_,_,_,_,_,_,_,_,_,_],El,3).

 

take([_,_,_,_,El,_,_,_,_,_,_,_,_,_],El,4).

 

take([_,_,_,_,_,El,_,_,_,_,_,_,_,_],El,5).

 

take([_,_,_,_,_,_,El,_,_,_,_,_,_,_],El,6).

 

take([_,_,_,_,_,_,_,El,_,_,_,_,_,_],El,7).

 

take([_,_,_,_,_,_,_,_,El,_,_,_,_,_],El,8).

 

take([_,_,_,_,_,_,_,_,_,El,_,_,_,_],El,9).

 

take([_,_,_,_,_,_,_,_,_,_,El,_,_,_],El,10).

 

take([_,_,_,_,_,_,_,_,_,_,_,El,_,_],El,11).

 

take([_,_,_,_,_,_,_,_,_,_,_,_,El,_],El,12).

 

take([_,_,_,_,_,_,_,_,_,_,_,_,_,El],El,13).

 

 

 

victory(Who,[[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_,_,_,_,_,_,_,_]).

 

 

 

victory(Who,[_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_,_,_,_,_,_,_]).

 

 

 

victory(Who,[_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_,_,_,_,_,_]).

 

 

 

victory(Who,[_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_,_,_,_,_]).

 

 

 

 

 

victory(Who,[_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_,_,_,_]).

 

 

 

 

 

victory(Who,[_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_,_,_]).

 

 

 

victory(Who,[_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_,_]).

 

 

 

victory(Who,[_,_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_,_]).

 

 

 

victory(Who,[_,_,_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_,_]).

 

 

 

victory(Who,[_,_,_,_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_,_]).

 

 

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_,_]).

 

 

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_,_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_,_]).

 

 

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_],_]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who],_]).

 

 

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[Who,_,_,_,_,_,_,_,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,Who,_,_,_,_,_,_,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,Who,_,_,_,_,_,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,Who,_,_,_,_,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,Who,_,_,_,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,Who,_,_,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,Who,_,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,Who,_,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,Who,_,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,Who,_,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,Who,_,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,Who,_,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,Who,_]]).

 

victory(Who,[_,_,_,_,_,_,_,_,_,_,_,_,_,[_,_,_,_,_,_,_,_,_,_,_,_,_,Who]]).

 

 

 

new_game:-

 

set(sit([[n,n,n,n,n,n,n,n,n,n,n,n,n,n],[n,n,n,n,n,n,n,n,n,n,n,n,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,b,w,b,w,b,w,b,w,b,w,n,n],[n,n,w,b,w,b,w,b,w,b,w,b,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,n,n,n,n,b,w,n,n,n,n,n,n],[n,n,n,n,n,n,w,b,n,n,n,n,n,n],[n,n,n,n,n,n,n,n,n,n,n,n,n,n],[n,n,n,n,n,n,n,n,n,n,n,n,n,n]])),

 

pen(2,rgb(0,0,0)),

 

update_window(_).

 

 

 

ask1:-

 

yes_no(“Game over”,”You are the winner.”+”Play again?”,!) -> new_game; (!,close_window(_)).

 

 

 

ask2:-

 

yes_no(“Game over”,”You lost this time.”+”Play again?”,!) -> new_game; (!,close_window(_)).

 

 

 

ask3:-

 

yes_no(“Game over”,”This game is lose.”+”Play again?”,!) -> new_game; (!,close_window(_)).

 

 

 

opposit(b,w).

 

opposit(w,b).

 

 

 

 


2 Juli 2012 - Posted by | Uncategorized

Belum ada komentar.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: