我第一次做的武馆机器人(不需要zmud或者mush直接使用)

小优(xyou@tj)

有自动定位功能，在
Dim map1 As New clsMudMap
map1.roomname = "武馆大厅"
map1.RoomPathBack = "l"
map1.RoomPathGo = "l"
map1.RoomRemark = "这里是武馆大厅"
rooms.Add map1

Dim map2 As New clsMudMap
map2.roomname = "物品房"
map2.RoomPathBack = "nw"
map2.RoomPathGo = "se"
map2.RoomRemark = "这里是武馆的物品房"
rooms.Add map2

Dim map3 As New clsMudMap
map3.roomname = "西廊"
map3.RoomPathBack = "e;eu"
map3.RoomPathGo = "wd;w"
map3.RoomRemark = "往东面走就到了武馆"
rooms.Add map3

Dim map4 As New clsMudMap
map4.roomname = "马厩"
map4.RoomPathBack = "n;n;n;e;eu"
map4.RoomPathGo = "wd;w;s;s;s"
map4.RoomRemark = "这是武馆的马厩"
rooms.Add map4

Dim map5 As New clsMudMap
map5.roomname = "菜地"
map5.RoomPathBack = "s;s;s;e;eu"
map5.RoomPathGo = "wd;w;n;n;n"
map5.RoomRemark = "看来要整修了。由于长期"
rooms.Add map5

Dim map6 As New clsMudMap
map6.roomname = "木房"
map6.RoomPathBack = "e;n;n;e;eu"
map6.RoomPathGo = "wd;w;s;s;w"
map6.RoomRemark = "你就被巨大的锯木声吵住"
rooms.Add map6

Dim map7 As New clsMudMap
map7.roomname = "水房"
map7.RoomPathBack = "w;n;n;e;eu"
map7.RoomPathGo = "wd;w;s;s;e"
map7.RoomRemark = "一群武馆的弟子正在忙碌的挑着水"
rooms.Add map7

Dim map8 As New clsMudMap
map8.roomname = "柴房"
map8.RoomPathBack = "e;s;s;e;eu"
map8.RoomPathGo = "wd;w;n;n;w"
map8.RoomRemark = "刚进屋就被屋里叮叮"
rooms.Add map8

Dim map9 As New clsMudMap
map9.roomname = "武馆前院"
map9.RoomPathBack = "nu"
map9.RoomPathGo = "sd"
map9.RoomRemark = "从前厅出来就看见这个大院子"
rooms.Add map9

Dim map10 As New clsMudMap
map10.roomname = "菜园"
map10.RoomPathBack = "w;s;s;e;eu"
map10.RoomPathGo = "wd;w;n;n;e"
map10.RoomRemark = "菜园旁有几口大缸"
rooms.Add map10



Dim map11 As New clsMudMap
map11.roomname = "厨房"
map11.RoomPathBack = "e;e;eu"
map11.RoomPathGo = "wd;w;w"
map11.RoomRemark = "这是武馆的厨房"
rooms.Add map11

Dim map12 As New clsMudMap
map12.roomname = "女休息室"
map12.RoomPathBack = "n;w;w;wu"
map12.RoomPathGo = "ed;e;e;s"
map12.RoomRemark = "这里是武馆内的休息室"
rooms.Add map12


Dim map13 As New clsMudMap
map13.roomname = "书房"
map13.RoomPathBack = "s;w;wu"
map13.RoomPathGo = "ed;e;n"
map13.RoomRemark = "这里是老馆主的书房"
rooms.Add map13

Dim map14 As New clsMudMap
map14.roomname = "男休息室"
map14.RoomPathBack = "s;w;w;wu"
map14.RoomPathGo = "ed;e;e;n"
map14.RoomRemark = "这里是武馆内的休息室"
rooms.Add map14
这些房间点启动或者输入start就可以定位，开始任务
第一次写机器人，请各位大大多多指教。
这是为了后期的全球定位打基础，目前遇到的问题是，两个room名字一样，怎么处理，我这个程序两个名字一样，我附加描述，房间名和描述名一起验证，进行定位的
请各位大大多多指教

小优(xyou@tj)

我本地测试没有问题，各位大大，谁没事开个小号，帮我点一下，看其他电脑运行是否正常。谢谢各位大大了。

一把龙泉(pinkmoon@tj)

神龙岛要改名机器岛了   

定海神针(yhj@tj)

haha,下载的时候提示：“失败 - 检测到病毒”，不知道什么原因。

小优(xyou@tj)

不是病毒 360误报的 好像自己写的exe访问网络 他都会认为是病毒吧 我把源码也发布了

一捆绳子(cxi@tj)

我大神龙果然牛人多啊。                           

有点甜(yuanjiu@tj)

难道要自己做robot了？这可是大的系统问题呀

红豆(ruanjian@tj)

大侠，你为什么要去神龙岛啊，来古墓啊

野人(ooo@tj)

真是牛人啊，客户端都作出来了。都是程序猿吗？

糖醋里脊(zhuoyi@tj)

全球定位，厉害啊，必须下载学习