Sorry your browser is not supported!

dim letter$(10)
letter$(1)="magic"
letter$(2)="trap"
letter$(3)="monster"
letter$(4)="special"
letter$(5)="monster"
letter$(6)="magic"
letter$(7)="monster"


rem Begin


`start of project
do

`processes that are going to completed throughout the game

gosub _draw_player
gosub _hide_card
gosub _draw_com
gosub _menu
gosub _choice
gosub _end
gosub _com_draw
loop

`game
_draw_player:
draw_player()

_hide_card:
hide_card()

_draw_com:
draw_com()

_menu:
menu()
wait 2000

_choice:

if cho_card=3 or cho_card=5 or cho_card=7 then goto _mon_player
if cho_card=1 or cho_card=6 then goto _magic_player
if cho_card=4 then goto _special_player
if cho_card=2 then goto _trap_player
wait 2000

_mon_player:
cls
text 200,200, "Monster VS"
goto _mon_comp


_magic_player:
cls
text 200,200, "Magic VS"



_special_player:
cls
text 200,200, "Special VS"



_trap_player:
cls
text 200,200, "Trap VS"
wait 2000


_com_draw:
com_draw()

if com_dra=3 or cho_card=5 or com_dra=7 then goto _mon_comp
if com_dra=1 or com_dra=6 then goto _magic_comp
if com_dra=4 then goto _special_comp
if com_dra=2 then goto _trap_comp
wait 2000

_mon_comp:
goto _mon_player
set cursor 400,400
print "Monster"


_magic_comp:
goto _magic_player
set cursor 400,400
print "Magic"
`
`
`
_special_comp:
goto _special_player
set cursor 400,400
print "Special"
`
`
_trap_comp:
goto _trap_player
set cursor 400,400
print "Trap"



`end game
_end:
end


rem ____________________________________________________________________________________________
rem *** functions of the game ! ***
rem ____________________________________________________________________________________________
function ran_num()
randomize timer()

ran_no=int(rnd(6))+1
endfunction ran_no
function draw_player()
for x=0 to 5

set cursor 60+x*100,400
letter=ran_num()

print str$(letter)
set cursor 60+x*100,415

print letter$(letter)
wait 200

next x
endfunction
function draw_com()
for x=0 to 5

set cursor 60+x*100,100
letter=ran_num()
ink RGB(255,128,64),RGB(255,128,64)
set text transparent
print str$(letter)
set cursor 60+x*100,115
ink RGB(255,128,64),RGB(255,128,64)
set text transparent
print letter$(letter)
wait 200

next x
endfunction
function hide_card()

box 50,80,117,160,RGB(0,128,0),RGB(0,128,0),RGB(0,128,0),RGB(0,128,0)
wait 200
box 150,80,217,160,RGB(0,128,0),RGB(0,128,0),RGB(0,128,0),RGB(0,128,0)
wait 200
box 250,80,317,160,RGB(0,128,0),RGB(0,128,0),RGB(0,128,0),RGB(0,128,0)
wait 200
box 350,80,417,160,RGB(0,128,0),RGB(0,128,0),RGB(0,128,0),RGB(0,128,0)
wait 200
box 450,80,517,160,RGB(0,128,0),RGB(0,128,0),RGB(0,128,0),RGB(0,128,0)
wait 200
box 550,80,617,160,RGB(0,128,0),RGB(0,128,0),RGB(0,128,0),RGB(0,128,0)
endfunction
function menu()



ink RGB(255,255,255),RGB(0,0,0)
set cursor 200,200

text 200,215, "CHOOSE A CARD BY ITS TOP NUMBER---"
input "Make Your Choice  ", cho_card


endfunction
function com_draw()

randomize timer()

com_dra=int(rnd(6))+1


endfunction