Hello I am working on this puzzle game called Reach For Stars. But I have a problem with my code. It will move right to left but not left to right.
Here's My Code:
Randomize timer():Sync On:Hide Mouse:choice1=0:choice2=0
Load Image "star_red.bmp",1:Load Image "star_green.bmp",2:Load Image "star_yellow.bmp",3:Load Image "star_blue.bmp",4:Load Image "star_orange.bmp",5:load Image "hand.bmp",6
Load Bitmap "reachforstars.bmp":dim board(6,10):level=1:score=0
board_width=384:board_height=640:new_level=1:do:if new_level=1 then make_level
Sprite 61,MouseX(),MouseY(),6:Scale Sprite 61,50:new_level=0
Move
Sync:loop:end
Function make_level
for y=0 to 9:for x=0 to 5:board(x,y)=rnd(4)+1:next x:next y:star=1:start_x=10:start_y=90:for y=0 to 9:for x=0 to 5
if board(x,y)=1 then Sprite star,start_x,start_y,1:newstar=star+1:star=newstar
if board(x,y)=2 then sprite star,start_x,start_y,2:newstar=star+1:star=newstar
if board(x,y)=3 then sprite star,start_x,start_y,3:newstar=star+1:star=newstar
if board(x,y)=4 then sprite star,start_x,start_y,4:newstar=star+1:star=newstar
if board(x,y)=5 then sprite star,start_x,start_y,5:newstar=star+1:star=newstar
new_x=start_x+32:start_x=new_x:next x:new_y=start_y+32:start_y=new_y:start_x=10:next y
EndFunction
Function Move
hit=Sprite Collision(61,0)
if Mouseclick()=1
if hit>0
if hit>0 then x=sprite x(hit)
if hit>0 then y=sprite y(hit)
if choice1=0
choice1_x=x/32:choice1_y=(y/32)-2:choice1_star=hit:choice1=1:if hit>0 then choice1star_x=Sprite x(hit):choice1star_y=Sprite y(hit):choice1=1
else
choice2_x=x/32:choice2_y=(y/32)-2:choice2_star=hit:choice2=1:if hit>0 then choice2star_x=Sprite x(hit):choice2star_y=Sprite y(hit)
endif
Rem Check to see if they are close
x=0: y=0
if choice1=1 and choice2=1
remstart if choice1_x>choice2_x
x=choice1_x-choice2_x
else
x=choice2_x-choice1_x
endif
if choice1_y>choice2_y
y=choice1_y-choice2_y
else
y=choice2_y-choice1_y
endif
if x<=1 and y<=1
remend
temp=board(choice1_x,choice1_y)
board(choice1_x,choice1_y)=board(choice2_x,choice2_y)
board(choice2_x,choice2_y)=temp
star1=board(choice1_x,choice1_y)
star2=board(choice2_x,choice2_y)
Sprite choice1_star,choice2star_x,choice2star_y,star2
Sprite choice2_star,choice1star_x,choice1star_y,star1
choice1=0
choice2=0
endif
endif
Rem Let's Move The Sprites
endif
EndFunction
Function Match_Check
dim found(6,6)
dim star_sprite(6)
star=1
check=1
found=0
for y=0 to 9
for x=0 to 5
if board(x,y)=check then newfound=found+1:found=newfound:found(x,y)=board(x,y):star_sprite(x)=star:new_star=star+1:star=new_star
else
found=0
next x
if found>=4
for x=0 to 5
delete sprite star_sprite(x)
next x
endif
new_check=check+1
check=new_check
next y
endfunction
