DELPHI开发的冒险岛的资源图片浏览器

huasoft111

下面是软件截图，欢迎对此有兴趣的朋友来我的BLOG交流：http://www.huosoft.com(火人工作室)

注意我的BLOG中没有本软件的下载，但有相关技术文章，也不要试图向我索取DELPHI源码，但我会陆续发表部分核心技术的代码

DraculaLin

不公?源?可以接受
但是最好?放下??绦形募?XE
可不要像766上的SJXSOFT一?颖徽f成自私,炫耀.....
不然你??帖就?]意?

?D像?源我都全部搞好了
目前我也正在用Asphyre在做冒??u,?然?度?慢
但是做好以後??l一些展示上?

最後要提醒你的是那Python源?所解出?D像?K不含??lpha Channel
像一些魔法,特效,特殊的背景?D都有Alpha Channel
所以?K不正?,用Asphyre??你就知道了,差很多的
GeeWiz or Maplox就正?了

如果你能解?Q????那就非常完美

huasoft111

DraculaLin你好，很喜欢你做的SpriteEngine。
这个软件本来想一开始就开放源码的，但我的朋友提醒我，不见得开放就一定好，有些人会拿来做坏事，所以目前软件包括源码暂时只对少数程序员(很乐意包括你)开放，以便相互交流。
Alpha Channel的问题我去试试看，另外字串的解密算法好象对UNICODE字符无效，我试了简体中文的不行，不知这个问题你解决没有。
你有MSN或ICQ即时通讯工具吗，能否告诉我，我的MAIL：hth@21cn.com

DraculaLin

不好意思我比?忙
目前的重??放在Asphyre及SpriteEngine本身,也不想研究解密算法的?|西
新版本的SpriteEngine已???好了,不??不打算在AfterWarp官?上??
我?]用MSN或ICQ,?於?方面的???可以到XeNTaX去????

我好奇的是Delphi版本的效能,因??ython非常慢
GeeWiz和maplox也要解老半天,新更新冒??u版本又要重新?咭淮

如果可以的???我??
我的MAIL: mingder.linn@msa.hinet.net

huasoft111

源码已发到你信箱，Unicode解密的问题因为外国朋友不懂中文，操作系统也无法正确显示，所以无法验证。不行就算了，我原意只是想把怪物图片名称用中文显示而已，因为是一时兴趣，也不见得有时间。

DraculaLin

已收到,??
另外Sprite Engine也寄到你的MAIL
如收到?通知

huasoft111

源码已收到，谢谢，关于GetSpriteAt我以前也写了一个，可以选择缩放和旋转过的Sprite，你参考一下：
function TSpriteEngine.GetSpriteAt(const X, Y: Double): TSprite;
  procedure Collision_GetSpriteAt(X, Y: Double; Sprite: TSprite);
  var
     NEWX, NEWY: Double;
  begin
    NEWX := Y * sin(Sprite.Angle) + X * cos(Sprite.Angle);
    NEWY := Y * cos(Sprite.Angle) - X * sin(Sprite.Angle);
    if Sprite.Visible and PointInRect(Point(Round(NEWX), Round(NEWY)),
      Bounds(-Round(Sprite.PatternWidth*Sprite.ScaleX) div 2,
      -Round(Sprite.PatternHeight*Sprite.ScaleY) div 2,
      Round(Sprite.PatternWidth*Sprite.ScaleX),
      Round(Sprite.PatternHeight*Sprite.ScaleY))) then
    begin
      if (Result = nil) or (Sprite.Z > Result.Z) then
        Result := Sprite ;
    end
  end;

huasoft111

刚才不全，下面还有：
var
  i: Integer;
  X2, Y2: Double;
begin
  Result := nil;

  for i := 0 to Count - 1 do
    if Items.DoCollision then
    begin
      Items.Collisioned :=false;
      X2 := X - Items.X-Items.PatternWidth/2;
      Y2 := Y - Items.Y-Items.PatternHeight/2;
      Collision_GetSpriteAt(X2, Y2, Items);
    end;
  if Result<>nil then
  begin
      Result.Collisioned := True;
      Result.OnCollision(nil);
  end;
end;

大树懒

昨天晚上用网上那个python写的dump,dump了N个小时,,才弄完~可能是我电脑太慢了吧~~
27W多个文件.........好恐怖

DraculaLin

???了Delphi版本的
感?速度快了很多,但好像不能保存(?こ??D像
是不是??]加入此功能?