VB 超简易迷宫 代码

'API函数，判断两个矩形是否相交(包括边界重合)

Private Declare Function IntersectRect Lib "user32" (lpDestRECT As RECT, lpSrc1RECT As RECT, lpSrc2RECT As RECT) As Long

Private Type RECT

X1 As Long

Y1 As Long

X2 As Long

Y2 As Long

End Type

Dim xyStart As RECT '定义小人开始所在区域

Dim xyEnd As RECT '定义小人走出迷宫所在区域，用来判断是否成功

Dim spRECT(12) As RECT '我这里只有13个shape画的墙，用来记录所有墙覆盖的区域

Dim menRECT As RECT '小人覆盖的区域

Const bu As Long = 10 '定义小人移动的步长

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

Dim temp As RECT

Select Case KeyCode

Case vbKeyUp

menRECT.Y1 = menRECT.Y1 - bu

menRECT.Y2 = menRECT.Y2 - bu

If zq(menRECT) Then spMen.top = spMen.top - bu

Case vbKeyDown

menRECT.Y1 = menRECT.Y1 + bu

menRECT.Y2 = menRECT.Y2 + bu

If zq(menRECT) Then spMen.top = spMen.top + bu

Case vbKeyLeft

menRECT.X1 = menRECT.X1 - bu

menRECT.X2 = menRECT.X2 - bu

If zq(menRECT) Then spMen.left = spMen.left - bu

Case vbKeyRight

menRECT.X1 = menRECT.X1 + bu

menRECT.X2 = menRECT.X2 + bu

If zq(menRECT) Then spMen.left = spMen.left + bu

End Select

menRECT.X1 = spMen.left

menRECT.Y1 = spMen.top

menRECT.X2 = spMen.left + spMen.Width

menRECT.Y2 = spMen.top + spMen.Height

If IntersectRect(temp, menRECT, xyEnd) >0 Then

MsgBox "抵达终点了"

End If

End Sub

Private Sub Form_Load()

xyStart.X1 = 0'开始的位置你自己定义

xyStart.Y1 = 0

xyStart.X2 = 360

xyStart.Y2 = 360

xyEnd.X1 = Me.ScaleWidth - 360'结束的位置你自己定义

xyEnd.Y1 = 0

xyEnd.X2 = Me.ScaleWidth

xyEnd.Y2 = 360

Me.AutoRedraw = True

Line (xyStart.X1, xyStart.Y1)-(xyStart.X2, xyStart.Y2), vbYellow, BF '开始的地方画方框标记

Line (xyEnd.X1, xyEnd.Y1)-(xyEnd.X2, xyEnd.Y2), vbGreen, BF '结束的地方画方框标记

spMen.Shape = 3 'spmen是SHAPE控件表示人，用圆形表示

spMen.Width = 255: spMen.Height = 255 '人物大小

spMen.top = (xyStart.Y2 - xyStart.Y1 - spMen.Height) / 2 '让小人在开始位置居中

spMen.left = (xyStart.X2 - xyStart.X1 - spMen.Width) / 2

menRECT.X1 = spMen.left'记录开始小人的区域

menRECT.Y1 = spMen.top

menRECT.X2 = spMen.left + spMen.Width

menRECT.Y2 = spMen.top + spMen.Height

For i = 0 To 12 '记录开始时所有墙的区域

spRECT(i).X1 = sp(i).left

spRECT(i).Y1 = sp(i).top

spRECT(i).X2 = sp(i).left + sp(i).Width

spRECT(i).Y2 = sp(i).top + sp(i).Height

Next

End Sub

Private Function zq(Men As RECT) As Boolean

'判断是否撞墙并且没有出窗体的界限，超出界限返回假

zq = True

Dim temp As RECT

For i = 0 To 12

If IntersectRect(temp, Men, spRECT(i)) >0 Then

zq = False

Exit Function

End If

Next

If Men.X1 <0 Then zq = False: Exit Function

If Men.X2 >Me.ScaleWidth Then zq = False: Exit Function

If Men.Y1 <0 Then zq = False: Exit Function

If Men.Y2 >Me.ScaleHeight Then zq = False: Exit Function

End Function

Chatgpt是一个由开源社区提供的AI智能对话系统，它基于GPT-2（Generative Pre-trained Transformer 2）和DialoGPT（Dialogue Generative Pretraining）等技术，可用于自然语言处理和对话生成。该工具可以帮助开发人员轻松构建能够进行自然语言对话的应用程序，例如客服聊天机器人、智能问答系统等。Chatgpt具有良好的对话生成能力，可以流畅、自然地与用户进行交互，模拟人类真实的对话场景，为企业提供了有效的数字化服务解决方案。

恶魔城

起初，神甫与吸血鬼猎人兄妹对完话后， 男主角先进入承城堡，进入城堡后落地取得第一个魔导器后,按x键就能换女主角，上面的魔导器取得后按a女主角会出现并肩做战，她/他的hp是自身的mp，进入右边的的可以破坏石头的房间出现一个牛，xx里面的那种，不快点打石头进的话将被其打到，到房间最右面的时候，它撞破墙壁自己也可以进去了，进入后拿到第3个魔导器，按上加y可以使用魔法。存档房上的魔导器暂时拿不到。左边拿到的魔导器是按下a使搭档停住。然后将搭档停在石像上推到左边，按x换人就能上去。取得魔导器女搭档能按上使用火魔法。穿过有骷髅的房间进门往上取得魔导器。左边传送房间的对面遇到eric lecard0e，之后发展剧情外加接任务能得到强力的武器和道具。往他后面的房间里遇到神甫，买个药和地图给eric，换到滑铲。之后向左滑铲进入房间剧情进入烟雾街。

烟雾街

烟雾街存档处后对面的房间取得合体技能上加x发出合体技能，最右面拿某魔导器，下面存档处有个车子，一个主角坐到车子里呼唤搭档停住去打压杆立即换人，车子横冲直撞到尽头。进对面房间取得魔导器按r键搭档出魔法，最右边存档处上左遇到boss武士，一开始被杀2次，之后发现无伤too eazy，放鬼魂就左右移动，双人的话只要把他夹在中间打，打死之后遇到斯蒂拉的妹妹，之后往左取得魔导器，再往右拖拉机取得魔导器后双人一起推开拖拉机。可以下去，往左取得魔导器一时的con上升。之后回到拖拉机处下去得到风魔法。

恶魔城

回到恶魔城eric处做第2个任务，回到烟雾街最左上的房间打肉得到？？回去交给eric得到拳套。之后去原来不能去的地方召唤搭档出来后跳一下然后再按跳可以到达原来不能到的地方。取得可以按住y转辫子的魔导器，之后向右遇到原来撞墙的boss半截牛，只要主义攻击方式很容易对付，之后进入地下场，左下得到魔导器，右中间得到魔导器之后进入服从大阶段，进去遇到死神，剧情后向左，遇到眼镜蛇样子的boss，只要推到靠墙边，站在当中打3下缸，他就会出来，之后就拿范围大的为期攻击他，地下绿色喽罗打 不到你，黑色球又高，只要注意向下的布罗内尔决就可以轻易解决，向右取得两段跳~之后向右走，看到与去雾市差不多的标志的房间后按上来到沙漠地带，

沙漠地带

右边纪录点相对房间的左边可以得到飞行道具强化的魔法，继续向右，遇到布罗内尔与吸血鬼姐妹剧情，遇到不断下落石头的地方暂时不能进来到上面的左方位，与沙漠女王战斗，她的攻击方式拿武器发旋风和跳跃闪电以及诱惑，诱惑的时候换女主角，都则完了，之后打败她后向右能退重的东西的能力魔导器，回到恶魔城

愚者之国

进入左上进入愚者之国， 到中心取的前前加y武器必杀魔导器，同时去打boss，吃到道具后死人军团降临，只要躲在两个触角当中，知道中心露出来后，黄色烟雾跟着它跑，其它的就躲在触角夹层中打就可解决，之后回到恶魔城，

刻死塔

前往右上的地方，前去刻死塔，来到塔传送点对面的boss房间，遇到斯蒂拉，剧情后与她对战`~她的攻击方式分为落地魔法，就是和龙珠裂战中的佛利萨的差不多，只要两段跳就可以躲过，月牙攻击看清楚就可以了，打败她后妹妹来了，之后她们离开了，乔纳桑发现斯蒂拉遗落下一张照片，照片上两姐妹和eric一起很亲密，之后返回问到eric，得知两姐妹是她的女儿和其他事情，之后回到与斯蒂拉战斗的地方往右，有两辆车子，分别站上一人，下面蹲，然后上面蹲，然后下面蹲，然后跳跃，注意不要被障碍物挡住，之后撞坏墙壁，来到循环的梯子，最上面拿到个魔法，右边通道是踩坏与刻死塔相连火柱的开关，左上进入画里，来到黄昏之森。

黄昏之森

右边有个石碑，需要两个人推开，底下有路，下去是黑暗的地方，下午后绕过都是青蛙的路，上去左边是魔法，右边遇到boss，下面的头没有用，要打上面的头才能杀死它，接着往右边拿到变青蛙的魔导器，之后返回恶魔城，再返回沙漠地带，来到那个不断下落球星物状的通道里拿到最终净化魔导器，回到恶魔城。

恶魔城

去刻死塔，与斯蒂拉战斗的右边让女主角装备变青蛙的魔法过去那个狭隘通道。一路往上拿到个魔法，来到最右上，遇到boss死神，剧情对话后开战，强化了不少啊，镰刀大飞转，打掉铁链就可以，被抓住使用挣脱，打败后他跑掉了，向右拿到个魔法，乘电梯左边来到城主居住的地方，右上的大房间左上部位有个魔法，传送点最上面的房间由魔力挡住，还是先打吸血鬼姐妹吧，剧情后开战，不愧是姐妹两个，一个在后面放冰，一个攻击，打败后布罗内尔降临，竟两姐妹带到画里走了，之后就可以看到结局画面了。

分支完美结局~

打吸血鬼姐妹时，对她们使用在金字塔变青蛙拿到的最终净化，注意女主角要吟唱一段时间，一定要保护，之后两姐妹醒觉了，左边房门开了，出去后再进来，嘿嘿，摆满了好吃了，与她们对话后，出现了里西特，真强啊，我打了半天，终于打败了，得到了最强鞭子。得到了接着去左面，出现了5副图，左边和右边开的。

冥界使舍

沿着路一直往左，最右边纪录点左边的房间里得到了魔法，装备后变成白猫头鹰的能力，接着一路杀敌来到最左边的boss房间，遇到科学怪人，这个家伙会发射导d，只要注意就可以躲开，手臂发射机关子d，看他发射前跳到他背后，激光只要来到他脚下就可以了，注意不要被抓到了，打完后可以去另外2副。

消失的都市，

音乐和背景看上去就是埃及啊，最左面可以拿到个魔法。，接着回到刚刚从地下露出个怪物的地方，就是有流沙的地方，让他自己掉下去，然后下去，左下的西方可以拿到高跳，怎么看怎么像升龙拳，下面的变青蛙或者猫头鹰才能进去的通道里拿到合体技能陨石降落，中间的地方存在boss木乃伊，攻击是控制方块攻击，仔细对应即刻杀死。

魔之街，

走到一定距离出现了一辆火车，这个时候一名主角挡住火车的同时，召唤搭档，挡住火车后可以通过，路上有个十字架，估计是做任务的，最左边是boss 狼人，攻击方式主要是前冲抓，砸路灯，升龙拳等，攻击前都有破绽，很好对付，打完后进入烧堕乐园，左面有个稍微大的房间可以得到免毒的魔法，下面的中间遇到boss，反正是条蛇，攻击方式多种，蛇状态时是冲撞，美杜莎状态时，蛇尾巴攻击时，站在夹缝中，美杜莎头时候只要打掉就可以了，还有近身石化光要主义，杀了它后可以进入那个最大的图画里了。

转机

进去后，遇见布罗内尔，剧情后开战。

布罗内尔身体发红只看见一到红引子过来，致意他手写的形状，打掉就可以了，还有召唤画板，里面飞出很多富有的可以石化你的头，也可以打掉，他还会召唤多手怪物，这个怪物会减低你的mp，还有种绿色的旋转怪物，跟着旋转位置跑就可以了，艰难的打败了他，就在他不甘心的时候，逃走的死神回来了，一镰刀劈开了他。

恶魔城城主

然后主角进入了恶魔城最上层的王座，boss门上方的隐藏房间有移动加速的魔法，站着的正是德库拉伯爵，，死神也赶来了，死神这次充当着使魔的角色，他主要从上方向下攻击，德库拉还是经典招数，不过这次是连续的，随便打败一个，死神会将魔力注入德库拉身体里，恶魔变身，长着大翅膀的怪物，翅膀一扇是发出火柱，只要移动位置就可以了，红色血轮和空中重拳都是很难躲开的，我挂了4次才干掉他，最厉害的是那个翅膀变手一击毙杀，nnd。之后德库拉小时在阳光下，可以看结局了，也可以欣赏到姐妹两个和父亲的告别~

回答于 2017-11-24

赞同168

已采纳

1

下一条回答

宋轶代言长安幻想2023回合手游-登陆送变异宝宝

最近6分钟前有人下载

开局就送葫芦8连，极速下载，梦幻开局，资源不愁，良心洗炼。长安幻想大服开启!福利爆炸，无损进阶，超燃国风，轻松躺赢!

广州诗悦网络科技有..广告

万国觉醒正版手游-立即下载

万国战场，由你执掌，万国觉醒官方正版下载

上海莉莉丝网络科技有限公司广告

大家还在搜

梦幻神界

手游地下城与勇士下载

网游

魔神世界

奇迹魔界战记h5

游戏

寻灵大冒险下载游戏

魔界战记

「安卓」部落超神手游_魔幻题材放置大作

高品质暗黑风魔幻放置RPG手游，超丰富六大种族，与全球百万玩家一同踏上魔幻旅程!

---