oh it moves fine for me
thats weird it works fine for me hm.... heres the code I'm using (yours edited)
sync on
hide mouse
x=0
y=0
LoadImages()
create bitmap 1,640,480
set current bitmap 1
ink rgb(250,250,250),0
box 0,0,45,60
ink rgb(0,0,0),1
set text size 15
text 0,0,"?"
cls
ink rgb(250,250,250),0
box 0,0,21,28
ink rgb(250,250,250),0
box 0,0,45,60
ink rgb(0,0,0),1
set text size 30
text 0,0,"?"
copy bitmap 1,0
cls
set current bitmap 0
for num = 1 to 13
for suit = 2 to 5
if 1<num<11
string$=str$(num)
else
if num=1 then string$ = "A"
if num=11 then string$ = "J"
if num=12 then string$ = "Q"
if num=13 then string$ = "K"
endif
if suit=2 or suit=3 then color=rgb(11,11,11)
if suit=4 or suit=5 then color=rgb(250,0,0)
repeat
ink rgb(250,250,250),0
box x,y,x+21,y+28
paste image suit,x+5,y+5
ink color,1
set text size 15
text x+10,y+15,string$
ink rgb(250,250,250),1
text 320,240,str$(x)
text 340,240,str$(y)
if leftkey()=1 then dec x,1
if rightkey()=1 then inc x,1
if upkey()=1 then dec y
if downkey()=1 then inc y
if spacekey()=0 then spaceflag=0
sync
cls
until spacekey()=1 and spaceflag=0
spaceflag=1
copy bitmap 1,0
cls
copy bitmap 1,0
next suit
next num
Function LoadImages()
load image "Spade.png",2
load image "Club.png",3
load image "Heart.png",4
load image "Diamond.png",5
endfunction
(Btw Isn't that easier to read
hahaha)
New Site! Check it out \/
