Pada tugas Pengantar Teknologi Game ini kelompok saya
akan memberikan contoh game yang menggunakan AI (Artificial Intelligent).
Disini kita menggunakan prolog untuk membuat game tersebut.
· Rules
Untuk memainkan game ini, kita
harus memiliki kompiler strawberry prolog terlebih dahulu. Ini dikarenakan
penulis membuat aplikasi ini dengan strawberry prolog yang masih versi gratis,
sehingga tidak dapat dibuat menjadi object code berbentuk executable.
Game
ini menggunakan emote cool sebagai lawannya (AI)
dan emote love struck sebagai pemain (user). Aturan-aturan yang digunakan untuk bermain permainan
ini adalah pemain hanya bisa berjalan ke
arah diagonal maju (ke atas), sehingga tidak diperkenankan untuk mundur (ke bawah).
Tetapi jika kita sudah mencapai kotak lawan terjauh kita bisa mundur kebelakang untuk memakan emote lawan.
Begitu juga dengan lawannya.
Untuk
lebih jelas mengenai aturan bermainnya, brikut ini akan saya jelaskan secara
terperinci:
1. emot love struck bergerak pada kotak papan yang
tidak ditempati.
2. emot love struck bergerak secara diagonal
satu langkah.
3. emot love struck bisa bergerak secara diagonal
ke belakang jika di bagian belakang terdapat emot cool.
4. emot love struck bisa melompati lebih
dari satu token lawan dengan bergerak diagonal dan
zig-zag dengan melakukan gerakan dua langkah pada arah yang sama jika terdapat
kotak papan yang tidak ditempati pada jalur lompatan.
5. emot cool berubah menjadi emot
angry jika mencapai baris terjauh.
6. Permainan di mulai dengan
pemain hunter yang kemudian akan menghalangi pemain AI.
· Goal (Tujuan)
Tujuan dari game ini adalah
untuk memburu emote cool AI dengan cara memakannya yaitu dengan
melangkahkan emote cool AI dengan emot hunter secara diagonal pula. Kita bisa
bergerak mundur jika bertujuan untuk memakan emote lawan. Namun untuk memakan
bola emote lawan, syaratnya kita hanya bisa melangkahi 1 emote secara diagonal.
Semakin banyak memakan emote lawan
(AI), maka akan menguntungkan pihak yang memakan. Dan apabila pemain berhasil
menghabiskan emote lawan lebih dahulu, maka pemain hunter akan menang dan
berhasil mengalahkan pemain AI.
1. Win
Pemain dikatakan menang jika sudah memburu atau memakan paling banyak emote cool.
2. Loser
Pemain dikatakan kalah jika emot love sruck sudah tidak ada lagi di papan
permainan yang ada tinggal empat emot lawan. Satu emote cool dan tiga emot
devil. Ada tiga emote devil karena emote cool sudah mencapai kotak terjauh
lawan dan berubah menjadi emote devil.
· Algoritma
Pada permainan hunting emote ini akan mengimplementasikan algoritma Minimax dalam
permodelan AI. Algoritma Minimax(Minimax
algorithm) digunakan untuk menentukan pilihan agar memperkecil kehilangan nilai
maksimal. Algoritma ini dikembangkan berdasarkan teori game zero-sum
yang mendeskripsikan situasi dimana jika pemain mengalami pendapatan, pemain
lain akan mengalami kehilangan dengan nilai yang sama dari pendapatan tersebut,
dan sebaliknya. Jumlah pendapatan dari pemain yang dikurangi dengan jumlah
kehilangan akan berjumlah nol.
Teori minimax menyatakan untuk
setiap dua orang pemain dalam permainan terdapat nilai V dari strategi yang
dimiliki pemain seperti:
1. Strategi yang ditentukan
pemain hunter akan menghasilkan konsekuensi kemungkinan untuk pemain AI, V.
2. Strategi yang ditentukan
pemain AI akan menghasilkan konsekuensi kemungkinan untuk pemain Hunter, V.
Algoritma Minimax
merupakan algoritma dasar pencarian Depth First Search (DFS)
untuk melakukan traversal dalam pohon yang akan mengekspansi simpul paling
dalam terlebih dahulu. Algoritma ini membangkitkan simpul pada tingkat
selanjutnya setelah simpul akar dibangkitkan. Pencarian selesai jika tidak ada
simpul yang belum dikunjungi dapat dicapai dari simpul yang telah dikunjungi.
Berdasarkan hal
tersebut dapat diketahui bahwa algoritma ini terdapat dua peran, yaitu max dan min.
Pembuatan pohon dimulai dari posisi awal hingga posisi akhir permainan,
kemudian posisi akhir dievaluasi dari sudut pandang max. Setelah
itu, node bagian dalam diisi dengan nilai yang telah dievaluasi dan node yang
dimiliki max akan menerima nilai maksimum dari node anaknya.
Node untuk min akan memilih nilai minimum dari node
anak.
Keterangan Gambar :
Nilai yang terdapat pada papan
digunakan untuk pengambilan keputusan untuk AI dengan algoritma Minimax.
Implementasi Kode Program
Berikut ini adalah potongan
kode program beserta fungsi dari kode program tersebut.
o Kode program untuk pembuatan
tampilan awal game
?-
set(pos(w,[[m,1,0],[m,3,0],[m,5,0],[m,7,0],
[m,0,1],[m,2,1],[m,4,1],[m,6,1],
[m,1,2],[m,3,2],[m,5,2],[m,7,2]],
[ [m,0,5],[m,2,5],[m,4,5],[m,6,5],
[m,1,6],[m,3,6],[m,5,6],[m,7,6],
[m,0,7],[m,2,7],[m,4,7],[m,6,7]])),
G_Val is 50,
G_Pawn_w is bitmap_image("../HUNTING/ris/pawn_w.bmp","../HUNTING/ris/maska.bmp"),
G_Pawn_ws is bitmap_image("../HUNTING/ris/pawn_ws.bmp","../HUNTING/ris/maska.bmp"),
G_Pawn_b is bitmap_image("../HUNTING/ris/pawn_b.bmp","../HUNTING/ris/maska.bmp"),
G_King_w is bitmap_image("../HUNTING/ris/king_w.bmp","../HUNTING/ris/maska.bmp"),
G_King_ws is bitmap_image("../HUNTING/ris/king_ws.bmp","../HUNTING/ris/maska.bmp"),
G_King_b is bitmap_image("../HUNTING/ris/king_b.bmp","../HUNTING/ris/maska.bmp"),
G_NoColor is brush(rgb(0,0,100)),
G_Grey is brush(rgb(20,20,200)),
pen(pen(0,rgb(0,0,0))),
window(_,_,myFunc(_),"Hunting",80,30,492,531).
o Kode program untuk menginisialisasi
nilai – nilai yang digunakan
newGame:- set(pos(w,[[m,1,0],[m,3,0],[m,5,0],[m,7,0],
[m,0,1],[m,2,1],[m,4,1],[m,6,1],
[m,1,2],[m,3,2],[m,5,2],[m,7,2]],
[ [m,0,5],[m,2,5],[m,4,5],[m,6,5],
[m,1,6],[m,3,6],[m,5,6],[m,7,6],
[m,0,7],[m,2,7],[m,4,7],[m,6,7]])),
G_Clicked:= 0,update_window(_),(G_P=1->play).
myFunc(init):-
G_H = 60,G_N = 8,G_P = 0,
G_Clicked = 0,G_K = m,
G_X = 1,G_Depth = 3,
G_Y = 1,
o Kode program untuk membuat
menu bar
menu(pop_up, _,_,myPopUpGame(_),"&start"),
menu(pop_up, G_Menu,_,level(_),"&Level"),
menu( right, _, _, menu_help(_), "&Help").
level(init):-
menu(normal,_,_,l2(_),"&easy"),
menu(checked,_,_,l3(_),"&medium"),
menu(normal,_,_,l4(_),"&hard").
l2(press):-change_menu(2).
l3(press):-change_menu(3).
l4(press):-change_menu(4).
change_menu(M):-modify_menu(G_Menu,G_Depth- 1,normal,_),
G_Depth:=M, modify_menu(G_Menu,M- 1,checked,_).
myPopUpGame(init):-
menu(normal,_,_,newGame(_),"close this game"),
menu(normal,_,_,swapSides(_),"New game - hunter start").
newGame(press) :-close_window(_).
swapSides(press):-G_P:= 0, newGame.
menu_help(press):-shell_execute("Checkers.html").
o Kode program jika user mengklik bola
bintang dan memindahkannya
myFunc(mouse_click(X,Y)):-X<G_H*G_N,Y<G_H*G_N,
X1 is X // G_H,Y1 is Y // G_H,move(X1,Y1),!,fail.
move(X,Y):- G_Clicked = 0,pos(C,B,W),
elem([K,X,Y],W),G_Clicked:=G_Clicked+1,draw_Pul(K,mm,X,Y),
G_X:=X,G_Y:=Y,G_K:=K.
move(X,Y):- G_Clicked = 1,
(pos(C,B,W),
(elem([K,X,Y], W)->
draw_Pul(G_K,w,G_X,G_Y),G_X:=X,G_Y:=Y,G_K:=K,draw_Pul(K,mm,X,Y);
hodW(C,G_K,G_X,G_Y,X,Y,B,W));
G_Clicked:=0, draw_Pul(G_K,w,G_X,G_Y)).
move(X,Y):- G_Clicked > 1,
pos(C,B,W),
take(G_K,G_X,G_Y,X,Y,B,W).
o Kode program yang digunakan
jika bola bintang bergerak satu langkah
step(k,X1,Y1,X2,Y2,B,W):-
abs(Y2-Y1)=:=1,abs(X2-X1)=:=1,
not(elem([_,X2,Y2],B)),not(elem([_,X2,Y2],W)),
remove([k,X1,Y1],W,W1),
addB([k,X2,Y2],W1,W2),
set(pos(w,B,W2)),
draw_Pul(k,w,X2,Y2),clear(X1,Y1),G_Clicked:=0,play.
step(m,X1,Y1,X2,Y2,B,W):-
Y2=:=Y1- 1,abs(X2-X1)=:=1,
not(elem([_,X2,Y2],B)),not(elem([_,X2,Y2],W)),
remove([m,X1,Y1],W,W1),
(Y2=0->addB([k,X2,Y2],W1,W2),draw_Pul(k,w,X2,Y2);
addB([m,X2,Y2],W1,W2),draw_Pul(m,w,X2,Y2)),
set(pos(w,B,W2)),
clear(X1,Y1),G_Clicked:=0,play.
o Kode program yang digunakan
untuk melompati bola bintang dan menghilangkannya dari papan
permainan
hodW(C,K,X1,Y1,X2,Y2,B,W):-
(take(K,X1,Y1,X2,Y2,B,W);can(W,B,W),draw_Pul(G_K,w,G_X,G_Y);step(K,X1,Y1,X2,Y2,B,W)).
t(X1,Y1,X2,Y2,B,W):-
abs(X2-X1)=:=2,abs(Y2-Y1)=:=2,
not(elem([_,X2,Y2],B)),not(elem([_,X2,Y2],W)),
Y is (Y1+Y2)//2,X is (X1+X2)//2,elem([_,X,Y],B).
take(K,X1,Y1,X2,Y2,B,W):-t(X1,Y1,X2,Y2,B,W),
Y is (Y1+Y2)//2,X is (X1+X2)//2,
remove([_,X1,Y1],W,W1),
(Y2=0->draw_Pul(k,w,X2,Y2),addB([k,X2,Y2],W1,W2);
draw_Pul(K,w,X2,Y2),addB([K,X2,Y2],W1,W2)),
remove([_,X,Y],B,B1),
set(pos(w,B1,W2)),
clear(X1,Y1),clear(X,Y),cantake(K,X2,Y2).
o Kode program untuk melompati
lebih dari satu bola bintang jika mungkin
cantake(K,X,Y):-pos(C,B,W),Y1 is Y+2,Y2 is Y- 2,X1 is X+2,X2 is X- 2,
(in(X1,Y1),t(X,Y,X1,Y1,B,W),G_Clicked:=G_Clicked+1,draw_Pul(K,mm,X,Y),G_X := X,G_Y := Y,G_K:=K;
in(X1,Y2),t(X,Y,X1,Y2,B,W),G_Clicked:=G_Clicked+1,draw_Pul(K,mm,X,Y),G_X := X,G_Y := Y,G_K:=K;
in(X2,Y1),t(X,Y,X2,Y1,B,W),G_Clicked:=G_Clicked+1,draw_Pul(K,mm,X,Y),G_X := X,G_Y := Y,G_K:=K;
in(X2,Y2),t(X,Y,X2,Y2,B,W),G_Clicked:=G_Clicked+1,draw_Pul(K,mm,X,Y),G_X := X,G_Y := Y,G_K:=K).
cantake(K,X,Y):-G_Clicked := 0,play.
o Kode program untuk mengetahui
giliran
play:-pos(C,B,W),(isFinal(B,W,X),end(w);
set_text("waiting!",_),
winB(G_Depth,B,W,X),(X> -32000->update_window(_);end(d)),
(pos(C,B1,W1),(isFinal(B1,W1,X),end(b);isDrawW(B1,W1,X),end(d));
set_text("Your Turn,Lady / Sir",_))).
o Kode program untuk menampilkan
pemberitahuan jika kita menang atau kalah dan ingin bermain lagi atau tidak.
s(w,Y):-Y is " congratulation you a winner. ".
s(b,Y):-Y is " sorry you still loser. ".
end(X):-s(X,Y),
(yes_no("Game over",Y+"Play again?",!) -> G_P:=1-G_P,
newGame; (!,G_Clicked:= -1,fail)).
end(X).
