3.7 Listing Program

?-

%Deklarasi Variabel & Gambar++++++++++++++++++++++++++++++++++++++++

read(Name,”Masukan nama anda”,s),set(hisname(Name)),

G_bgmain := bitmap_image(“IMG\\arena\\bgmain1.bmp”,_),

G_kiri := bitmap_image(“IMG\\arena\\kiri1.bmp”,”IMG\\arena\\kirimask.bmp”),

G_kanan := bitmap_image(“IMG\\arena\\kanan1.bmp”,”IMG\\arena\\kananmask.bmp”),

G_switch:=0,

G_scom:=0, G_splay:=0, G_pcom :=0, G_pplay:=0,

G_MainPicture := bitmap_image(“IMG\\bg.bmp”,_),

G_menang := bitmap_image(“IMG\\menang.bmp”,_),

G_seri := bitmap_image(“IMG\\seri.bmp”,_),

G_kalah := bitmap_image(“IMG\\kalah.bmp”,_),

G_kar := bitmap_image(“IMG\\bg_karakter.bmp”,”IMG\\bg_karaktermask.bmp”),

G_karup := bitmap_image(“IMG\\bg_karakter_up.bmp”,”IMG\\bg_karakter_upmask.bmp”),

G_law := bitmap_image(“IMG\\bg_lawan.bmp”,”IMG\\bg_karaktermask.bmp”),

G_lawup := bitmap_image(“IMG\\bg_lawan_up.bmp”,”IMG\\bg_karakter_upmask.bmp”),

G_tam := bitmap_image(“IMG\\tambahan.bmp”,”IMG\\tambahanmask.bmp”),

G_ar := bitmap_image(“IMG\\bg_arena.bmp”,”IMG\\bg_arenamask.bmp”),

G_arup := bitmap_image(“IMG\\bg_arena_up.bmp”,”IMG\\bg_arena_upmask.bmp”),

G_player1 := bitmap_image(“IMG\\player1.bmp”,_),

G_player2 := bitmap_image(“IMG\\player2.bmp”,_),

G_player3 := bitmap_image(“IMG\\player3.bmp”,_),

G_arena1 := bitmap_image(“IMG\\arena1.bmp”,_),

G_arena2 := bitmap_image(“IMG\\arena2.bmp”,_),

G_arena3 := bitmap_image(“IMG\\arena3.bmp”,_),

G_tentang := bitmap_image(“IMG\\about.bmp”,_),

%+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

%Splash Screen ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

G_N := 17,

window(G_splash,_,splash(_),””,120,20,1120,690).

splash(init):-

G_c is set_timer(_,1,time),

execute(“Music//opening.exe”),

window_brush(_, rgb(0, 0, 0)),

animate(_, _, fail(_), “VIDEO\\open.avi”, 60, 210).

time(end):-

(G_N=0->

close_window(G_splash),

kill_timer(_,G_c),

wait(4),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690)

else

G_N<>=G_N-1).

splash(key_down(13,_)):-

close_window(G_splash),

execute(“Music//closing.exe”),

execute(“Music//awal.exe”),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690).

%~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

%Window Notifikasi menang / kalah ———————————

seri(paint):-

draw_bitmap(0,0,G_seri,_,_).

menang(paint):-

draw_bitmap(0,0,G_menang,_,_).

kalah(paint):-

draw_bitmap(0,0,G_kalah,_,_).

%——————————————————————

%Display Nama Pemain **********************************************

name(_):-

hisname(Aname),

S is Aname,

font(15,15,”Arial”),

text_out(140,30,S),

text_out(520,30,” vs                                 Komputer  “).

%******************************************************************

%Menu Utama##########################################################

awal(paint):-

draw_bitmap(0,0,G_MainPicture,_,_).

awal(init):-

window_brush(_, rgb(0, 0, 0)),

button(_,_,mulai_game(_),”START THE GAME”,800,50,250,50),

button(_,_,pilih_karakter(_),”CHOOSE YOUR CHARACTER”,800,150,250,50),

button(_,_,pilih_lawan(_),”CHOOSE YOUR ENEMY”,800,250,250,50),

button(_,_,pilih_arena(_),”CHOOSE ARENA”,800,350,250,50),

button(_,_,about(_),”About”,800,450,250,50),

button(_,_,keluar_game(_),”Exit”,800,550,250,50).

mulai_game(press):-

G_switch:=0,

beep(“Music//klik.wav”),

execute(“Music//closing.exe”),

execute(“Music//tawal.exe”),

close_window(G_window1),

charachter(_),

window(G_window2,_,win_func(_),”Suit Metal”,120,20,1120,690),

G_W:=90, G_scom:=0, G_splay:=0,

update_window(G_window2),

execute(“Music//main.exe”),

G_waktu := set_timer(_,1,time_func).

time_func(end):-

(G_W=0->

execute(“Music//tmain.exe”),

kill_timer(_,G_waktu),

message(“pesan”,”waktu habis”,!),

close_window(G_window2),

(G_scom = G_splay ->

execute(“Music//draw.exe”),

window(G_ser,_,seri(_),”Imbang”,120,20,1120,690),

wait(5), execute(“Music//tdraw.exe”), close_window(G_ser)

else

(G_scom < G_splay ->

execute(“Music//winer.exe”),

window(G_men,_,menang(_),”menang”,120,20,1120,690),

wait(8), execute(“Music//twin.exe”), close_window(G_men)

else

execute(“Music//loser.exe”),

window(G_kal,_,kalah(_),”kalah”,120,20,1120,690),

wait(8), execute(“Music//tlos.exe”), close_window(G_kal))),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690),

update_window(G_window1),

execute(“Music//awal.exe”)

else

G_W<>=G_W-1),

Angka is printq(G_W),

draw_bitmap(0,0,G_tam,_,_),

text_out(534,570,Angka).

pilih_karakter(press):-

beep(“Music//klik.wav”),

execute(“Music//tawal.exe”),

execute(“Music//closing.exe”),

execute(“Music//menu.exe”),

close_window(G_window1),

window(G_karakter,_,win_kar(_),”Choose Your Character”,120,20,1120,690).

pilih_lawan(press):-

beep(“Music//klik.wav”),

execute(“Music//tawal.exe”),

execute(“Music//closing.exe”),

execute(“Music//menu.exe”),

close_window(G_window1),

window(G_lawan,_,win_law(_),”Choose Your Enemy”,120,20,1120,690).

pilih_arena(press):-

beep(“Music//klik.wav”),

execute(“Music//tawal.exe”),

execute(“Music//closing.exe”),

execute(“Music//menu.exe”),

close_window(G_window1),

window(G_arena,_,win_ar(_),”Arena”,120,20,1120,690).

about(press):-

beep(“Music//klik.wav”),

execute(“Music//klik.exe”),

close_window(G_window1),

window(G_about,_,win_about(_),”About”,120,20,1120,690).

keluar_game(press):-

execute(“Music//tawal.exe”),

execute(“Music//closing.exe”),

close_window(G_window1).

awal(close):-

execute(“Music//tawal.exe”),

execute(“Music//closing.exe”),

end.

%###################################################################

% MENU KARAKTER ####################################################

win_kar(paint):-

draw_bitmap(0,0,G_kar,_,_).

win_kar(init):-

menu(right,_,_,help_kar(_), “&help”),

button(_,_,pemain1(_),”KENSHIN HIMURA”,160,200,300,40),

button(_,_,pemain2(_),”SAITO HAJIME”,160,250,300,40),

button(_,_,pemain3(_),”SHISHIO MAKOTO”,160,300,300,40),

button(_,_,lawan(_),”<< PILIH LAWAN”,160,350,150,40),

button(_,_,arena1(_),”PILIH ARENA >>”,310,350,150,40),

button(_,_,btm1(_),”BACK TO MENU”,160,450,300,40).

help_kar(press):-

message(“Help”,

“Pilih Salah Satu Karakter Anda

Jika sudah,

anda dapat memilih lawan(Komputer) dengan cara klik pada (PILIH LAWAN)

atau langsung memilih arena pertandingan dengan mengklik (PILIH ARENA).

“,_).

pemain1(press):-

draw_bitmap(675,230,G_player1,_,_),

draw_bitmap(0,0,G_karup,_,_),

G_pl:=1.

pemain2(press):-

draw_bitmap(675,230,G_player2,_,_),

draw_bitmap(0,0,G_karup,_,_),

G_pl:=2.

pemain3(press):-

draw_bitmap(675,230,G_player3,_,_),

draw_bitmap(0,0,G_karup,_,_),

G_pl:=3.

lawan(press):-

beep(“Music//klik.wav”),

close_window(G_karakter),

window(G_lawan,_,win_law(_),”Choose Your Enemy”,120,20,1120,690).

arena1(press):-

beep(“Music//klik.wav”),

close_window(G_karakter),

window(G_arena,_,win_ar(_),”CHOOSE THE ARENA”,120,20,1120,690).

btm1(press):-

beep(“Music//klik.wav”),

close_window(G_karakter),

execute(“Music//tmenu.exe”),

execute(“Music//awal.exe”),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690).

%#####################################################################

% MENU LAWAN ####################################################

win_law(paint):-

draw_bitmap(0,0,G_law,_,_).

win_law(init):-

menu(right,_,_,help_law(_), “&help”),

button(_,_,lawan1(_),”KENSHIN HIMURA”,160,200,300,40),

button(_,_,lawan2(_),”SAITO HAJIME”,160,250,300,40),

button(_,_,lawan3(_),”SHISHIO MAKOTO”,160,300,300,40),

button(_,_,pemain(_),”<< PILIH KARAKTER”,160,350,150,40),

button(_,_,arena2(_),”PILIH ARENA >>”,310,350,150,40),

button(_,_,btm2(_),”BACK TO MENU”,160,450,300,40).

help_law(press):-

message(“Help”,

“Pilih Salah Satu Lawan Anda (Komputer)

Jika sudah,

anda dapat memilih arena pertandingan dengan mengklik (PILIH ARENA)

Atau kembali ke memilih karakter (PILIH KARAKTER)

“,_).

lawan1(press):-

draw_bitmap(675,230,G_player1,_,_),

draw_bitmap(0,0,G_lawup,_,_),

G_com:=1.

lawan2(press):-

draw_bitmap(675,230,G_player2,_,_),

draw_bitmap(0,0,G_lawup,_,_),

G_com:=2.

lawan3(press):-

draw_bitmap(675,230,G_player3,_,_),

draw_bitmap(0,0,G_lawup,_,_),

G_com:=3.

pemain(press):-

beep(“Music//klik.wav”),

close_window(G_lawan),

window(G_karakter,_,win_kar(_),”Choose Your Character”,120,20,1120,690).

arena2(press):-

beep(“Music//klik.wav”),

close_window(G_lawan),

window(G_arena,_,win_ar(_),”CHOOSE THE ARENA”,120,20,1120,690).

btm2(press):-

beep(“Music//klik.wav”),

close_window(G_lawan),

execute(“Music//tmenu.exe”),

execute(“Music//awal.exe”),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690).

% ###############################################################

% MENU ARENA ####################################################

win_ar(paint):-

draw_bitmap(0,0,G_ar,_,_).

win_ar(init):-

menu(right,_,_,help_ar(_), “&help”),

button(_,_,barena1(_),”FIELD”,160,200,300,40),

button(_,_,barena2(_),”EARTH”,160,250,300,40),

button(_,_,barena3(_),”LIVING ROOM”,160,300,300,40),

button(_,_,blawan(_),”<< PILIH LAWAN”,160,350,150,40),

button(_,_,mulai_game2(_),”PLAY >>”,310,350,150,40),

button(_,_,btm3(_),”BACK TO MENU”,160,450,300,40).

help_ar(press):-

message(“Help”,

“Pilih Salah Satu ARENA

Jika sudah,

anda dapat langsung bermain dengan mengklik(PLAY)

Atau kembali ke memilih karakter (PILIH KARAKTER) atau lawan (PILIH LAWAN)

“,_).

barena1(press):-

draw_bitmap(470,125,G_arena1,_,_),

draw_bitmap(0,0,G_arup,_,_),

G_aren:=1.

barena2(press):-

draw_bitmap(470,125,G_arena2,_,_),

draw_bitmap(0,0,G_arup,_,_),

G_aren:=2.

barena3(press):-

draw_bitmap(470,125,G_arena3,_,_),

draw_bitmap(0,0,G_arup,_,_),

G_aren:=3.

blawan(press):-

beep(“Music//klik.wav”),

close_window(G_arena),

window(G_lawan,_,win_law(_),”Choose Your Enemy”,120,20,1120,690).

btm3(press):-

beep(“Music//klik.wav”),

close_window(G_arena),

execute(“Music//tmenu.exe”),

execute(“Music//awal.exe”),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690).

mulai_game2(press):-

G_switch:=0,

beep(“Music//klik.wav”),

execute(“Music//tmenu.exe”),

close_window(G_arena),

battle_field(_),

charachter(_),

window(G_window2,_,win_func(_),”Suit Metal”,120,20,1120,690),

G_W:=90, G_scom:=0, G_splay:=0,

update_window(G_window2),

execute(“Music//main.exe”),

G_waktu := set_timer(_,1,time_func).

%#####################################################################

%About ###########################################################

win_about(paint):-

draw_bitmap(0,50,G_tentang,_,_).

win_about(init):-

window_brush(_, rgb(0, 0, 0)),

menu(normal,_,_,luar(_), “&EXIT”).

luar(press):-

execute(“Music//tklik.exe”),

execute(“Music//awal.exe”),

close_window(G_about),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690).

%##################################################################

%window win_func###################################

win_func(paint):-

draw_bitmap(0,0,G_bgmain,_,_),

draw_bitmap(293,200,G_p1,_,_),

draw_bitmap(613,200,G_c1,_,_),

name(_),

draw_bitmap(126,89,G_ip,_,_),

draw_bitmap(834,89,G_ic,_,_),

wait(1),

reset(_),

G_tot := G_a+G_b+G_c,

G_showcom is printq(G_scom),

text_out(900,570,G_showcom),

G_showplay is printq(G_splay),

text_out(180,570,G_showplay),

(G_switch = 0 ->

G_tes is random(3),

(G_tes = 0 -> G_x:=0),

(G_tes = 1 -> G_y:=0),

(G_tes = 2 -> G_z:=0),

draw_bitmap(0,0,G_kiri,_,_),

komputer2(_)).

%fixed hilang gambar saat player jalan duluan______________

temp(_):-

(G_tot = 1 ->

(G_tempx := G_x),

(G_tempy := G_y),

(G_tempz := G_z)).

cetak_temp(_):-

(G_tempx = 1 -> draw_bitmap(293,200,G_p5,_,_)),

(G_tempy = 1 -> draw_bitmap(293,200,G_p6,_,_)),

(G_tempz = 1 -> draw_bitmap(293,200,G_p7,_,_)).

%__________________________________________________________

win_func(init):-

menu(normal,_,_,menu_new(_), “&New Games”),

menu(normal,_,_,back_menu(_), “&Back to Menu”),

menu(right,_,_,help(_), “&help”).

menu_new(press):-

yes_no(“ATTENTION”, “MEMULAI DARI AWAL”,?),

write(“Succeeded!”), nl,

reset(_),G_switch:=0,G_scom:=0,G_splay:=0,G_W:=90,

execute(“Music//tmain.exe”),

execute(“Music//main.exe”),

update_window(G_window2).

back_menu(press):-

yes_no(“ATTENTION”, “ANDA INGIN KELUAR GAME”,?),

write(“Succeeded!”), nl,

execute(“Music//awal.exe”),

execute(“Music//tmain.exe”),

close_window(G_window2),

window(G_window1,_,awal(_),”Menu”,120,20,1120,690).

help(press):-

message(“Help”,

“CARA MAIN :

-Untuk Memeangkan Game kalahkan skor komputer

-Batas waktu permainan 90 detik

-Untuk Menyerang Jempol Tekan keyboard ‘KIRI’

-Untuk Menyerang Telunjuk Tekan keyboard ‘ATAS’

-Untuk Menyerang Kelingking Tekan keyboard ‘KANAN’

Aturan Permainan:

-‘Jempol’ Kalah dengan ‘Kelingking’

-‘Kelingking’ Kalah dengan ‘Telunjuk’

-‘Telunjuk’ Kalah dengan ‘Jempol’

“,_).

win_func(key_down(37,_)):-

(G_switch = 0 ->

play1(_)

else

com1(_)).

win_func(key_down(38,_)):-

(G_switch = 0 ->

play2(_)

else

com2(_)).

win_func(key_down(39,_)):-

(G_switch = 0 ->

play3(_)

else

com3(_)).

play1(_):-

(G_a = 1 ->

G_a := 0,

total1(_),

temp(_),

kanan(_),

komputer1(_),

player(_),

wait(1),

kiri(_),

komputer2(_)),

(G_tot = 1 -> cetak_temp(_),score2(_), G_switch:=1, wait(1), mulai_baru(_)).

play2(_):-

(G_b = 1 ->

G_b := 0,

total1(_),

temp(_),

kanan(_),

komputer1(_),

player(_),

wait(1),

kiri(_),

komputer2(_)),

(G_tot = 1 -> cetak_temp(_),score2(_),G_switch:=1, wait(1), mulai_baru(_)).

play3(_):-

(G_c = 1 ->

G_c := 0,

total1(_),

temp(_),

kanan(_),

komputer1(_),

player(_),

wait(1),

kiri(_),

komputer2(_)),

(G_tot = 1 -> cetak_temp(_),score2(_),G_switch:=1, wait(1), mulai_baru(_)).

com1(_):-

(G_a = 1 ->

G_a := 0,

kanan(_),

komputer1(_),

komputer(_),

wait(1),

kiri(_),

komputer2(_)),

total2(_),

(G_tot2 = 1 -> score(_), G_switch:=0, wait(1), mulai_baru(_)).

com2(_):-

(G_b = 1 ->

G_b := 0,

kanan(_),

komputer1(_),

komputer(_),

wait(1),

kiri(_),

komputer2(_)),

total2(_),

(G_tot2 = 1 -> score(_), G_switch:=0, wait(1), mulai_baru(_)).

com3(_):-

(G_c = 1 ->

G_c := 0,

kanan(_),

komputer1(_),

komputer(_),

wait(1),

kiri(_),

komputer2(_)),

total2(_),

(G_tot2 = 1 -> score(_), G_switch:=0, wait(1), mulai_baru(_)).

kiri(_):-

draw_bitmap(0,0,G_kiri,_,_).

kanan(_):-

draw_bitmap(0,0,G_kanan,_,_).

win_func(close):-

execute(“Music//tmain.exe”),

end.

%#########################################################

player(_):-

check(_),

(G_a = 0 ->

(G_y = 0 ->

G_x := 0),

G_y := 0),

(G_b = 0 ->

(G_z = 0->

G_y := 0),

G_z :=0),

(G_c = 0 ->

(G_x = 0->

G_z := 0),

G_x := 0).

komputer(_):-

(G_a = 0 ->

G_y := 0),

(G_b = 0 ->

G_z := 0),

(G_c = 0 ->

G_x := 0).

mulai_baru(_):-

reset(_),

update_window(G_window2).

komputer1(_):-

beep(“Music//press.wav”),

(G_a = 0 -> (G_b = 1 -> (G_c = 1 ->

draw_bitmap(613,200,G_c2,_,_)))),

(G_a = 1 -> (G_b = 0 -> (G_c = 1 ->

draw_bitmap(613,200,G_c3,_,_)))),

(G_a = 1 -> (G_b = 1 -> (G_c = 0 ->

draw_bitmap(613,200,G_c4,_,_)))),

(G_a = 0 -> (G_b = 0 -> (G_c = 1 ->

draw_bitmap(613,200,G_c7,_,_)))),

(G_a = 0 -> (G_b = 1 ->  (G_c = 0 ->

draw_bitmap(613,200,G_c6,_,_)))),

(G_a = 1 -> (G_b = 0 ->  (G_c = 0 ->

draw_bitmap(613,200,G_c5,_,_)))).

komputer2(_):-

beep(“Music//press.wav”),

(G_x = 0 -> (G_y = 1 -> (G_z = 1 ->

draw_bitmap(293,200,G_p2,_,_)))),

(G_x = 1 -> (G_y = 0 -> (G_z = 1 ->

draw_bitmap(293,200,G_p3,_,_)))),

(G_x = 1 -> (G_y = 1 -> (G_z = 0 ->

draw_bitmap(293,200,G_p4,_,_)))),

(G_x = 0 -> (G_y = 0 -> (G_z = 1 ->

draw_bitmap(293,200,G_p7,_,_)))),

(G_x = 0 -> (G_y = 1 -> (G_z = 0 ->

draw_bitmap(293,200,G_p6,_,_)))),

(G_x = 1 -> (G_y = 0 -> (G_z = 0 ->

draw_bitmap(293,200,G_p5,_,_)))).

reset(_):-

G_a:=1,G_b:=1,G_c:=1,G_x:=1,G_y:=1,G_z:=1,G_tempx:=0,

G_tempy:=0,G_tempz:=0.

total1(_):-

G_tot:=G_a+G_b+G_c.

total2(_):-

G_tot2:=G_x+G_y+G_z.

check(_):-

total2(_),total1(_),

(G_tot2 = 1 ->

(G_a = 1 -> (G_b = 0 -> (G_c = 0 ->

(G_x = 0 -> (G_y = 1 -> (G_z = 0 ->

G_pcom := 1, G_pplay:=0)))))),

(G_a = 0 -> (G_b = 1 -> (G_c = 0 ->

(G_x = 0 -> (G_y = 0 -> (G_z = 1 ->

G_pcom := 1, G_pplay:=0)))))),

(G_a = 0 -> (G_b = 0 -> (G_c = 1 ->

(G_x = 1 -> (G_y = 0 -> (G_z = 0 ->

G_pcom := 1, G_pplay:=0)))))),

(G_a = 1 -> (G_b = 0 -> (G_c = 0 ->

(G_x = 0 -> (G_y = 0 -> (G_z = 1 ->

G_pplay := 1,G_pcom:=0)))))),

(G_a = 0 -> (G_b = 1 -> (G_c = 0 ->

(G_x = 1 -> (G_y = 0 -> (G_z = 0 ->

G_pplay := 1,G_pcom:=0)))))),

(G_a = 0 -> (G_b = 0 -> (G_c = 1 ->

(G_x = 0 -> (G_y = 1 -> (G_z = 0 ->

G_pplay := 1,G_pcom:=0)))))),

(G_a = 1 -> (G_b = 0 -> (G_c = 0 ->

(G_x = 1 -> (G_y = 0 -> (G_z = 0 ->

G_pcom := 0, G_pplay :=0)))))),

(G_a = 0 -> (G_b = 1 -> (G_c = 0 ->

(G_x = 0 -> (G_y = 1 -> (G_z = 0 ->

G_pcom := 0, G_pplay :=0)))))),

(G_a = 0 -> (G_b = 0 -> (G_c = 1 ->

(G_x = 0 -> (G_y = 0 -> (G_z = 1 ->

G_pcom := 0, G_pplay :=0))))))).

score(_):-

(G_a = 1 -> (G_b = 0 -> (G_c = 0 ->

(G_x = 0 -> (G_y = 1 -> (G_z = 0 ->

G_scom := G_scom + 1 )))))),

(G_a = 0 -> (G_b = 1 -> (G_c = 0 ->

(G_x = 0 -> (G_y = 0 -> (G_z = 1 ->

G_scom := G_scom + 1 )))))),

(G_a = 0 -> (G_b = 0 -> (G_c = 1 ->

(G_x = 1 -> (G_y = 0 -> (G_z = 0 ->

G_scom := G_scom + 1 )))))).

score2(_):-

(G_pcom=1 -> G_scom := G_scom+1),

(G_pplay=1 -> G_splay := G_splay+1).

keluar_game(press):-

execute(“Music//closing.exe”).

% PILIH ARENA >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

battle_field(_):-

(G_aren = 1 ->

G_bgmain := bitmap_image(“IMG\\arena\\bgmain1.bmp”,_),

G_kiri := bitmap_image(“IMG\\arena\\kiri1.bmp”,”IMG\\arena\\kirimask.bmp”),

G_kanan := bitmap_image(“IMG\\arena\\kanan1.bmp”,”IMG\\arena\\kananmask.bmp”)

else

(G_aren = 2 ->

G_bgmain := bitmap_image(“IMG\\arena\\bgmain2.bmp”,_),

G_kiri := bitmap_image(“IMG\\arena\\kiri2.bmp”,”IMG\\arena\\kirimask.bmp”),

G_kanan := bitmap_image(“IMG\\arena\\kanan2.bmp”,”IMG\\arena\\kananmask.bmp”)

else

G_bgmain := bitmap_image(“IMG\\arena\\bgmain3.bmp”,_),

G_kiri := bitmap_image(“IMG\\arena\\kiri3.bmp”,”IMG\\arena\\kirimask.bmp”),

G_kanan := bitmap_image(“IMG\\arena\\kanan3.bmp”,”IMG\\arena\\kananmask.bmp”))).

% PILIH KARAKTER >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

charachter(_):-

(G_com = 1 ->

G_ic := bitmap_image(“IMG\\computer1\\1.bmp”,_),

G_c1 := bitmap_image(“IMG\\Computer1\\c1.bmp”,”IMG\\Computer1\\c1mask.bmp”),

G_c2 := bitmap_image(“IMG\\Computer1\\c2.bmp”,”IMG\\Computer1\\c2mask.bmp”),

G_c3 := bitmap_image(“IMG\\Computer1\\c3.bmp”,”IMG\\Computer1\\c3mask.bmp”),

G_c4 := bitmap_image(“IMG\\Computer1\\c4.bmp”,”IMG\\Computer1\\c4mask.bmp”),

G_c5 := bitmap_image(“IMG\\Computer1\\c5.bmp”,”IMG\\Computer1\\c5mask.bmp”),

G_c6 := bitmap_image(“IMG\\Computer1\\c6.bmp”,”IMG\\Computer1\\c6mask.bmp”),

G_c7 := bitmap_image(“IMG\\Computer1\\c7.bmp”,”IMG\\Computer1\\c7mask.bmp”)

else

(G_com = 2 ->

G_ic := bitmap_image(“IMG\\computer2\\2.bmp”,_),

G_c1 := bitmap_image(“IMG\\Computer2\\c1.bmp”,”IMG\\Computer2\\c1mask.bmp”),

G_c2 := bitmap_image(“IMG\\Computer2\\c2.bmp”,”IMG\\Computer2\\c2mask.bmp”),

G_c3 := bitmap_image(“IMG\\Computer2\\c3.bmp”,”IMG\\Computer2\\c3mask.bmp”),

G_c4 := bitmap_image(“IMG\\Computer2\\c4.bmp”,”IMG\\Computer2\\c4mask.bmp”),

G_c5 := bitmap_image(“IMG\\Computer2\\c5.bmp”,”IMG\\Computer2\\c5mask.bmp”),

G_c6 := bitmap_image(“IMG\\Computer2\\c6.bmp”,”IMG\\Computer2\\c6mask.bmp”),

G_c7 := bitmap_image(“IMG\\Computer2\\c7.bmp”,”IMG\\Computer2\\c7mask.bmp”)

else

G_ic := bitmap_image(“IMG\\computer3\\3.bmp”,_),

G_c1 := bitmap_image(“IMG\\Computer3\\c1.bmp”,”IMG\\Computer3\\c1mask.bmp”),

G_c2 := bitmap_image(“IMG\\Computer3\\c2.bmp”,”IMG\\Computer3\\c2mask.bmp”),

G_c3 := bitmap_image(“IMG\\Computer3\\c3.bmp”,”IMG\\Computer3\\c3mask.bmp”),

G_c4 := bitmap_image(“IMG\\Computer3\\c4.bmp”,”IMG\\Computer3\\c4mask.bmp”),

G_c5 := bitmap_image(“IMG\\Computer3\\c5.bmp”,”IMG\\Computer3\\c5mask.bmp”),

G_c6 := bitmap_image(“IMG\\Computer3\\c6.bmp”,”IMG\\Computer3\\c6mask.bmp”),

G_c7 := bitmap_image(“IMG\\Computer3\\c7.bmp”,”IMG\\Computer3\\c7mask.bmp”))),

(G_pl = 1 ->

G_ip := bitmap_image(“IMG\\player1\\1.bmp”,_),

G_p1 := bitmap_image(“IMG\\Player1\\p1.bmp”,”IMG\\Player1\\p1mask.bmp”),

G_p2 := bitmap_image(“IMG\\Player1\\p2.bmp”,”IMG\\Player1\\p2mask.bmp”),

G_p3 := bitmap_image(“IMG\\Player1\\p3.bmp”,”IMG\\Player1\\p3mask.bmp”),

G_p4 := bitmap_image(“IMG\\Player1\\p4.bmp”,”IMG\\Player1\\p4mask.bmp”),

G_p5 := bitmap_image(“IMG\\Player1\\p5.bmp”,”IMG\\Player1\\p5mask.bmp”),

G_p6 := bitmap_image(“IMG\\Player1\\p6.bmp”,”IMG\\Player1\\p6mask.bmp”),

G_p7 := bitmap_image(“IMG\\Player1\\p7.bmp”,”IMG\\Player1\\p7mask.bmp”)

else

(G_pl = 2 ->

G_ip := bitmap_image(“IMG\\player2\\2.bmp”,_),

G_p1 := bitmap_image(“IMG\\Player2\\p1.bmp”,”IMG\\Player2\\p1mask.bmp”),

G_p2 := bitmap_image(“IMG\\Player2\\p2.bmp”,”IMG\\Player2\\p2mask.bmp”),

G_p3 := bitmap_image(“IMG\\Player2\\p3.bmp”,”IMG\\Player2\\p3mask.bmp”),

G_p4 := bitmap_image(“IMG\\Player2\\p4.bmp”,”IMG\\Player2\\p4mask.bmp”),

G_p5 := bitmap_image(“IMG\\Player2\\p5.bmp”,”IMG\\Player2\\p5mask.bmp”),

G_p6 := bitmap_image(“IMG\\Player2\\p6.bmp”,”IMG\\Player2\\p6mask.bmp”),

G_p7 := bitmap_image(“IMG\\Player2\\p7.bmp”,”IMG\\Player2\\p7mask.bmp”)

else

G_ip := bitmap_image(“IMG\\player3\\3.bmp”,_),

G_p1 := bitmap_image(“IMG\\Player3\\p1.bmp”,”IMG\\Player3\\p1mask.bmp”),

G_p2 := bitmap_image(“IMG\\Player3\\p2.bmp”,”IMG\\Player3\\p2mask.bmp”),

G_p3 := bitmap_image(“IMG\\Player3\\p3.bmp”,”IMG\\Player3\\p3mask.bmp”),

G_p4 := bitmap_image(“IMG\\Player3\\p4.bmp”,”IMG\\Player3\\p4mask.bmp”),

G_p5 := bitmap_image(“IMG\\Player3\\p5.bmp”,”IMG\\Player3\\p5mask.bmp”),

G_p6 := bitmap_image(“IMG\\Player3\\p6.bmp”,”IMG\\Player3\\p6mask.bmp”),

G_p7 := bitmap_image(“IMG\\Player3\\p7.bmp”,”IMG\\Player3\\p7mask.bmp”))).

%>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>

Link Anggota Kelompok:

(http://muchammadeko15.blogspot.com/2015/04/tugas-teori-game.html)

(http://andridwisaputra-andri.blogspot.com/2015/04/tugas-pengantar-teori-game.html)

(http://aanhiratta.blogspot.com/2015/04/tugas-it-pengantar-teori-game.html)

(http://koloronta.blogspot.com/2015/04/teori-pengantar-game.html)

(https://coretanfauzi.wordpress.com/2015/04/21/tugas-pengantar-teori-game-listing-program/)

(http://ihsandin.blogspot.com/p/blog-page.html)

(http://andriesyahriandy.blogspot.com/2015/04/tugas-pengantar-teknologi-game_21.html)

Iklan

About Ahmad Fauzi

Saya seorang ikhwan biasa. Berasal dari negeri Nusantara. Anak pertama dari tiga bersaudara. Sekarang sedang melanjutkan studi di Universitas Gunadarma jurusan Teknik Informatika. Punya banyak impian (Book Writer, Soccer Coach, Building Village Muslim, etc). For Futher more follow me @FauziNgetweet

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