Так, я переделал немного перемещение игрока, но всё равно игрок может проникнуть в камни
If KeyDown(200) Then
col1=1
speed#=speed#+0.1
a=2
b=1
y=y-speed#
EndIf
If KeyDown(208) Then
col1=2
speed#=speed#+0.1
a=2
b=1
y=y+speed#
EndIf
If KeyDown(205) Then
col1=3
speed#=speed#+0.1
a=1
b=0
x=x+speed#
EndIf
If KeyDown(203) Then
col1=4
speed#=speed#+0.1
a=1
b=0
x=x-speed
EndIf
If KeyDown(205) And KeyDown(200) Then
col1=5
speed#=speed#+0.1
a=5
b=2
EndIf
If KeyDown(203) And KeyDown(200) Then
col1=6
speed#=speed#+0.1
a=7
b=3
EndIf
If KeyDown(205) And KeyDown(208) Then
col1=7
speed#=speed#+0.1
a=9
b=4
EndIf
If KeyDown(203) And KeyDown(208) Then
col1=8
speed#=speed#+0.1
a=11
b=5
EndIf
If speed#>5 speed#=5
If speed#<0 speed#=0
If KeyDown(203)=0 And KeyDown(208)=0 And KeyDown(205)=0 And KeyDown(200)=0 Then speed#=0
...
If ImagesCollide(gert,x,y,frames,m\stone,m\x,m\y,0) speed=speed-5
...