vb编写超级玛丽游戏的问题

vb编写超级玛丽游戏的问题

可以用控件数组 也可以用 地图 两个坐标相减 如果小于某个数 表示发生碰撞 回复原来的坐标即可

其实超级玛丽游戏 早就有人做完了追问可不可以帮我写一个代码？可不可以帮我写一个代码？
我实在做不出来.....追答给你个代码 需要在 XP系统运行
 
追问这个源码我有，我只要“可以用控件数组 也可以用 地图 两个坐标相减 如果小于某个数 表示发生碰撞 回复原来的坐标即可”这句话的源码，拜托，帮帮我吧！追答x1 =玛丽.x:y1=玛丽.y '保存原来坐标
'移动玛丽
if key=vbkeyleft then 玛丽.x=玛丽.x-n
if key=vbkeyright then 玛丽.x=玛丽.x+n
if key=vbkeyup then 玛丽.y=玛丽.y-n
if key=vbkeydown then 玛丽.y=玛丽.y+n
'检测碰撞
for i= 1 to ubouond( 控件数组)
if 控件数组(i).tag=墙 then
if abs(控件数组(i).x-玛丽.x)<20 and abs(控件数组(i).y-玛丽.y)<20 then '发生碰撞
玛丽.x=x1:玛丽.y=y1 '还原坐标
exit sub
end if
end if
next追问你提示了我搜索时要搜索‘碰撞’，虽然你的回答没有帮上我，但是我搜索碰撞时搜到了答案