首  页   最新日志    火人论坛        火人作品    编程园地    网络日志    网友作品     留言本本     关于火人
用户登陆
用户:
密码:
 

站点日历
73 2017 - 11 48
   1234
567891011
12131415161718
19202122232425
2627282930




日志搜索

 标题   内容

 
 
一生都要珍惜的人 AsphyreGUI完全中文支持版本--火人制作
晴天 传奇2地图读取(带寻路算法及源码)--火人出品
   [分类:火人作品][发表日期:2006-6-20] [发表:火人[查看:133234]

按此在新窗口打开图片
关于传奇地图的格式网上有很多,就不再多做说明,不了解的也可直接看代码。
显示引擎用的DelphiX
寻路算法已经封装成两个类TPathMap(通用),TLegendMap(传奇2专用)
(****************************************************************************
  关于TLegendMap(位于PathFind.pas)的用法
  1、FLegendMap:=TLegendMap.Create;
     FLegendMap.LoadMap('mapfile')返回地图数据TMapData
     FLegendMap.SetStartPos(StartX, StartY,PathSpace)
     Path:=FLegendMap.FindPath(StopX, StopY)
  2、FLegendMap:=TLegendMap.Create;
     FLegendMap.LoadMap('mapfile')返回地图数据TMapData
     Path:=FLegendMap.FindPath(StartX,StartY,StopX, StopY,PathSpace)

     其中
     Path为TPath = array of TPoint 为nil时表示不能到达
     第一个值为起点,最后一个值为终点

     PathSpace为离开障碍物多少个象素
****************************************************************************)

(****************************************************************************
  关于TPathMap的特点
  1、不需要传递地图数据,节省内存的频繁拷贝
  2、可自定义估价函数,根据自己需要产生不同路径

  关于TPathMap的用法
  1、定义估价函数MovingCost(X, Y, Direction: Integer)
     只需根据自定义的地图格式编写)
  2、FPathMap:=TPathMap.Create;
     FPathMap.MakePathMap(MapHeader.width, MapHeader.height, StartX, StartY,MovingCost);
     Path:=FPathMap.FindPathOnMap( EndX, EndY)
     其中Path为TPath = array of TPoint;

  如果不喜欢在TPathMap外部定义估价函数,可继承TPathMap,
  将地图数据的读取和估价函数封装成一个类使用。
***************************************************************************)

点击下载此文件



[本日志由 火人 于 2006-06-22 03:04 AM 编辑]

[3] [4] [5] [6] [7] [8] [9] [10] [11] [12]  ... [29]  

引用这个评论 BennyTes 于 2017-09-11 05:07 AM 发表评论: 
wh0cd258174 [url=http://zithromax.systems/]zithromax[/url] [url=http://metforminonline.pro/]ordering metformin on line without a prescription[/url] [url=http://buyprednisone.reisen/]where to buy prednisone online[/url] 

引用这个评论 AaronCax 于 2017-09-11 00:10 AM 发表评论: 
wh0cd6111346 [url=http://buy-ventolin.shop/]ventolin[/url] [url=http://buybentyl.reisen/]bentyl over the counter[/url] 

引用这个评论 BillyExads 于 2017-09-10 07:15 PM 发表评论: 
wh0cd6184790 [url=http://buyneurontin.reisen/]neurontin cost generic[/url] [url=http://lasixonline.pro/]cost of lasix[/url] 

引用这个评论 Brettdib 于 2017-09-10 02:52 PM 发表评论: 
wh0cd6331746 [url=http://valtrex.zone/]valtrex prescription[/url] [url=http://prednisoneonline.pro/]buy predisone steriods[/url] 

引用这个评论 AaronCax 于 2017-09-09 08:33 PM 发表评论: 
wh0cd5450077 [url=http://baclofen.work/]cheap baclofen[/url] [url=http://effexor.zone/]effexor 75 mg[/url] 

引用这个评论 CharlesWab 于 2017-09-09 03:44 PM 发表评论: 
wh0cd5743970 [url=http://sildenafil.us.com/sildenafil-soft-tabs.html]sildenafil citrate over the counter[/url] 

引用这个评论 MichaelWen 于 2017-09-09 03:41 PM 发表评论: 
wh0cd6184806 [url=http://tadalafil.fail/]tadalafil[/url] [url=http://buyviagrasoft.store/]viagra soft[/url] 

引用这个评论 BennyTes 于 2017-09-09 01:31 PM 发表评论: 
wh0cd3907105 [url=http://propranolol.zone/]generic propranolol[/url] 

引用这个评论 AaronCax 于 2017-09-09 12:46 AM 发表评论: 
wh0cd5376597 [url=http://avodart.zone/]avodart[/url] 

引用这个评论 MichaelWen 于 2017-09-09 11:35 AM 发表评论: 
wh0cd5964379 [url=http://costofcialis.pro/]cialis[/url] [url=http://buyprovera.reisen/]buy provera pills with mastercard[/url] [url=http://buy-tretinoin.reisen/]tretinoin cream[/url] 

引用这个评论 BillyExads 于 2017-09-09 10:19 AM 发表评论: 
wh0cd5523522 [url=http://advaironline.pro/]generic advair online[/url] 

引用这个评论 MichaelWen 于 2017-09-09 07:53 AM 发表评论: 
wh0cd4347962 [url=http://propecia365.us.com/]PROPECIA[/url] 

引用这个评论 AaronCax 于 2017-09-09 07:43 AM 发表评论: 
wh0cd5009228 [url=http://acyclovircream.pro/]for more info[/url] [url=http://buy-arimidex.reisen/]arimidex[/url] 

[3] [4] [5] [6] [7] [8] [9] [10] [11] [12]  ... [29]  

 

发表评论
发表: 用户:  密码:   注册?  
验证码    
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字
表  情
 

Copyright © 2006 All rights reserved. Design by huosoft

电话:13974847258    QQ群:7155339
Powered by L-Blog V-Blog 2004-2005