rmxp4droid Tilemap大家帮忙优化下

秒杀

近期一直在想办法解决rmxp4droid在大地图卡的问题，经过排除找到问题出在Tilemap上。

以下是rmxp4droid中使用的Tilemap我已经做了一点优化，希望有高人能帮忙优化下，在大地图下能保证不卡就好(现在只要复杂点的地图就会卡)。

关于重写测试的话直接在工程的数据库脚本中加入Tilemap 类就会覆盖，然后rmxp4droid下运行即可。


百度上对TileMap解释：
TileMap高运算速度
与其他许多软件相比,RMXP和RMVX都具有相对较高的TileMap再现速度.据测试,一台中低端电脑可以在大约0.17秒的时间内完成一幅60*60大小地图的再现,而RGE,Java都无法达到这样的速度(C/C++语言处理的除外).

rmxp4droid底层用JAVA实现的,改用C/C++不可能，只能尝试在代码上优化。在PC上测试不出来，在android手机上卡的现象就非常明显了。


另外，640*480分辨率修改的方式不考虑在内.

RUBY 代码复制

class CustomTilemapAutotiles
  attr_accessor :changed
  def initialize
   @changed=true
   @tiles=[nil,nil,nil,nil,nil,nil,nil]
  end
  def []=(i,value)
   @tiles[i]=value
   @changed=true
  end
  def [](i)
   return @tiles[i]
  end
end
 
class Tilemap
#Animated_Autotiles_Frames = 15
 Animated_Autotiles_Frames = 999999
  Autotiles = [
    [ [27, 28, 33, 34], [ 5, 28, 33, 34], [27,  6, 33, 34], [ 5,  6, 33, 34],
      [27, 28, 33, 12], [ 5, 28, 33, 12], [27,  6, 33, 12], [ 5,  6, 33, 12] ],
    [ [27, 28, 11, 34], [ 5, 28, 11, 34], [27,  6, 11, 34], [ 5,  6, 11, 34],
      [27, 28, 11, 12], [ 5, 28, 11, 12], [27,  6, 11, 12], [ 5,  6, 11, 12] ],
    [ [25, 26, 31, 32], [25,  6, 31, 32], [25, 26, 31, 12], [25,  6, 31, 12],
      [15, 16, 21, 22], [15, 16, 21, 12], [15, 16, 11, 22], [15, 16, 11, 12] ],
    [ [29, 30, 35, 36], [29, 30, 11, 36], [ 5, 30, 35, 36], [ 5, 30, 11, 36],
      [39, 40, 45, 46], [ 5, 40, 45, 46], [39,  6, 45, 46], [ 5,  6, 45, 46] ],
    [ [25, 30, 31, 36], [15, 16, 45, 46], [13, 14, 19, 20], [13, 14, 19, 12],
      [17, 18, 23, 24], [17, 18, 11, 24], [41, 42, 47, 48], [ 5, 42, 47, 48] ],
    [ [37, 38, 43, 44], [37,  6, 43, 44], [13, 18, 19, 24], [13, 14, 43, 44],
      [37, 42, 43, 48], [17, 18, 47, 48], [13, 18, 43, 48], [ 1,  2,  7,  8] ]
  ]
  FlashOpacity=[100,90,80,70,80,90]
  attr_reader :tileset
  attr_reader :autotiles
  attr_reader :map_data
  attr_accessor :flash_data
  attr_accessor :priorities
  attr_reader :visible
  attr_accessor :ox
  attr_accessor :oy
  attr_reader :viewport
  def initialize(viewport)
    @tileset    = nil  # Refers to Map Tileset Name
    @autotiles  = CustomTilemapAutotiles.new
    @map_data   = nil  # Refers to 3D Array Of Tile Settings
    @flash_data = nil  # Refers to 3D Array of Tile Flashdata
    @priorities = nil  # Refers to Tileset Priorities
    @visible    = true # Refers to Tileset Visibleness
    @ox         = 0    # Bitmap Offsets
    @oy         = 0    # bitmap Offsets
    @plane       = false
    @selfviewport=Viewport.new(0,0,640,480)
    @viewport=viewport ? viewport : @selfviewport
    @tiles=[]
    @autotileInfo=[]
    @regularTileInfo=[]
    @oldOx=0
    @oldOy=0
    @layer0=Sprite.new(viewport)
    @layer0.visible=true
    @nowshown=false
    @layer0.bitmap=Bitmap.new(@viewport.rect.width*1.5,@viewport.rect.height*1.5)
    @flash=nil
    @layer0.ox=0
    @layer0.oy=0
    @oxLayer0=0
    @oyLayer0=0
    @oxFlash=0
    @oyFlash=0
    @layer0.z=0
    @priotiles=[]
    @prioautotiles=[]
    @autosprites=[]
    @framecount=[]
    @tilesetChanged=true
    @flashChanged=false
    @firsttime=true
    @disposed=false
    @usedsprites=false
    @layer0clip=true
    @firsttimeflash=true
    @fullyrefreshed=false
    @fullyrefreshedautos=false
  end
  def disposed?
   return @disposed
  end
  def flash_data=(value)
   @flash_data=value
   @flashChanged=true   
  end
  def update
   # if @autotiles.changed
  #    refresh_autotiles
   #   repaintAutotiles
   # end
   # if @flashChanged
   #   refresh_flash
   # end
   # if @tilesetChanged
   #   refresh_tileset
   # end
   # if @flash
  #   @flash.opacity=FlashOpacity[(Graphics.frame_count/2) % 6]
  #  end
    if !(@oldOx==@ox && @oldOy==@oy &&
           !@tilesetChanged &&
           !@autotiles.changed)
      refresh
    end
   # if (Graphics.frame_count % Animated_Autotiles_Frames == 0) || @nowshown
   #   repaintAutotiles
   #   refresh(true)
   # end
    @nowshown=false
    @autotiles.changed=false
    @tilesetChanged=false
  end
def priorities=(value)
  @priorities=value
  @tilesetChanged=true
end
def tileset=(value)
  @tileset=value
  @tilesetChanged=true
end
def shown?
   return false if !@visible
   ysize=@map_data.ysize
   xsize=@map_data.xsize
   xStart=(@ox/32)-1
   xEnd=((@ox+@viewport.rect.width)/32)+1
   yStart=(@oy/32)-1
   yEnd=((@oy+@viewport.rect.height)/32)+1
   xStart=0 if xStart<0
   xStart=xsize-1 if xStart>=xsize
   xEnd=0 if xEnd<0
   xEnd=xsize-1 if xEnd>=xsize
   yStart=0 if yStart<0
   yStart=ysize-1 if yStart>=ysize
   yEnd=0 if yEnd<0
   yEnd=ysize-1 if yEnd>=ysize
   return (xStart<xEnd && yStart<yEnd)
end
def dispose
return if disposed?
@help.dispose if @help
@help=nil
i=0;len=@autotileInfo.length;while i<len
  if @autotileInfo[i]
     @autotileInfo[i].dispose
     @autotileInfo[i]=nil
  end
  i+=1
end
i=0;len=@regularTileInfo.length;while i<len
  if @regularTileInfo[i]
     @regularTileInfo[i].dispose
     @regularTileInfo[i]=nil
  end
  i+=1
end
i=0;len=@tiles.length;while i<len
  @tiles[i].dispose
  @tiles[i]=nil
  i+=2
end
i=0;len=@autosprites.length;while i<len
  @autosprites[i].dispose
  @autosprites[i]=nil
  i+=2
end
if @layer0
  @layer0.bitmap.dispose if !@layer0.disposed?
  @layer0.bitmap=nil if !@layer0.disposed?
  @layer0.dispose
  @layer0=nil
end
if @flash
  @flash.bitmap.dispose if !@flash.disposed?
  @flash.bitmap=nil if !@flash.disposed?
  @flash.dispose
  @flash=nil
end
for i in 0...7
  self.autotiles[i]=nil
end
@tiles.clear
@autosprites.clear
@autotileInfo.clear
@regularTileInfo.clear
@tilemap=nil
@tileset=nil
@priorities=nil
@selfviewport.dispose
@selfviewport=nil
@disposed=true
end
 
def bltAutotile(bitmap,x,y,id,frame)
  return if frame<0
  autotile=@autotiles[id/48-1]
  return if !autotile 
  if autotile.height==32
    anim=frame*32
    src_rect=Rect.new(anim,0,32,32)
    bitmap.blt(x,y,autotile,src_rect)
  else
    anim=frame*96
    id%=48
    tiles = Autotiles[id>>3][id&7]
    src=Rect.new(0,0,0,0)
    for i in 0...4
      tile_position = tiles[i] - 1
      src.set(tile_position % 6 * 16 + anim,
       tile_position / 6 * 16, 16, 16)
      bitmap.blt(i%2*16+x,i/2*16+y, autotile, src)
    end
  end
end
 
def autotileNumFrames(id)
  autotile=@autotiles[id/48-1]
  return 0 if !autotile || autotile.disposed?
  frames=1
  if autotile.height==32
   frames=autotile.width/32
  else
   frames=autotile.width/96
  end
  return frames
end
 
def autotileFrame(id)
  autotile=@autotiles[id/48-1]
  return -1 if !autotile || autotile.disposed?
  frames=1
  if autotile.height==32
   frames=autotile.width/32
  else
   frames=autotile.width/96
  end
  return (Graphics.frame_count/Animated_Autotiles_Frames)%frames
end
 
def repaintAutotiles
for i in [email]0...@autotileInfo.length[/email]
  next if !@autotileInfo[i]
  frame=autotileFrame(i)
  bltAutotile(@autotileInfo[i],0,0,i,frame)
end
end
 
def getAutotile(sprite,id)
  anim=autotileFrame(id)
  return if anim<0
  bitmap=@autotileInfo[id]
  if !bitmap
    bitmap=Bitmap.new(32,32)
    bltAutotile(bitmap,0,0,id,anim)
    @autotileInfo[id]=bitmap
  end
  sprite.bitmap=bitmap if !sprite.equal?(bitmap) || sprite.bitmap!=bitmap
end
 
def getRegularTile(sprite,id)
if false
  sprite.bitmap=@tileset if !sprite.equal?(@tileset) || sprite.bitmap!=@tileset
  sprite.src_rect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)
else
  bitmap=@regularTileInfo[id]
  if !bitmap
   bitmap=Bitmap.new(32,32)
   rect=Rect.new((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)
   bitmap.blt(0,0,@tileset,rect)
   @regularTileInfo[id]=bitmap
  end
  sprite.bitmap=bitmap if !sprite.equal?(bitmap) || sprite.bitmap!=bitmap
end
end
 
def addTile(tiles,count,xpos,ypos,id)
   if id>=384
     if count>=tiles.length
        sprite=Sprite.new(@viewport)
      tiles.push(sprite,0)
     else
      sprite=tiles[count]
      tiles[count+1]=0
     end
     sprite.visible=@visible
     sprite.x=xpos
     sprite.y=ypos
     getRegularTile(sprite,id)
     spriteZ=(@priorities[id]==0||!@priorities[id]) ? 0 : ypos+@priorities[id]*32+32
     sprite.z=spriteZ
     count+=2
   else
     if count>=tiles.length
         sprite=Sprite.new(@viewport)
      tiles.push(sprite,1)
     else
      sprite=tiles[count]
      tiles[count+1]=1
     end
     sprite.visible=@visible
     sprite.x=xpos
     sprite.y=ypos
     getAutotile(sprite,id)
     spriteZ=(@priorities[id]==0||!@priorities[id]) ? 0 : ypos+@priorities[id]*32+32
     sprite.z=spriteZ
     count+=2
   end
   return count
end
 
def refresh_tileset
i=0;len=@regularTileInfo.length;while i<len
  if @regularTileInfo[i]
     @regularTileInfo[i].dispose
     @regularTileInfo[i]=nil
  end
  i+=1
end
@regularTileInfo.clear
@priotiles.clear
ysize=@map_data.ysize
xsize=@map_data.xsize
zsize=@map_data.zsize
if xsize>100 || ysize>100
  @fullyrefreshed=false
else
  for z in 0...zsize
   for y in 0...ysize
    for x in 0...xsize
     id = @map_data[x, y, z]
     next if id==0 || !@priorities[id]
     next if @priorities[id]==0
     @priotiles.push([x,y,z,id])
    end
   end
  end
  @fullyrefreshed=true
end
end
 
def refresh_flash
if @flash_data && !@flash
  @flash=Sprite.new(viewport)
  @flash.visible=true
  @flash.z=1
  @flash.blend_type=1
  @flash.bitmap=Bitmap.new(@viewport.rect.width*1.5,@viewport.rect.height*1.5)
  @firsttimeflash=true
elsif !@flash_data && @flash
  @flash.bitmap.dispose if @flash.bitmap
  @flash.dispose
  @flash=nil
  @firsttimeflash=false
end
end
 
def refresh_autotiles
i=0;len=@autotileInfo.length;while i<len
  if @autotileInfo[i]
     @autotileInfo[i].dispose
     @autotileInfo[i]=nil
  end
  i+=1
end
i=0;len=@autosprites.length;while i<len
  if @autosprites[i]
     @autosprites[i].dispose
     @autosprites[i]=nil
  end
  i+=2
end
@autosprites.clear
@autotileInfo.clear
@prioautotiles.clear
hasanimated=false
for i in 0...7
  numframes=autotileNumFrames(48*(i+1))
  hasanimated=true if numframes>=2
  @framecount[i]=numframes
end
if hasanimated
  ysize=@map_data.ysize
  xsize=@map_data.xsize
  zsize=@map_data.zsize
  if xsize>100 || ysize>100
    @fullyrefreshedautos=false
  else
    for y in 0...ysize
     for x in 0...xsize
      haveautotile=false
      for z in 0...zsize
       id = @map_data[x, y, z]
       next if id==0 || id>=384 || @priorities[id]!=0 || !@priorities[id]
       next if @framecount[id/48-1]<2
       haveautotile=true
       break
      end
      @prioautotiles.push([x,y]) if haveautotile
     end
    end
    @fullyrefreshedautos=true
  end
else
  @fullyrefreshedautos=true 
end
end
 
def map_data=(value)
@map_data=value
@tilesetChanged=true
end
 
def refreshFlashSprite
return if ![url=home.php?mod=space&uid=14082]@Flash[/url] || @flash_data.nil?
ptX=@ox-@oxFlash
ptY=@oy-@oyFlash
if !@firsttimeflash && !@usedsprites &&
    ptX>=0 && ptX+@viewport.rect.width<=@flash.bitmap.width &&
    ptY>=0 && ptY+@viewport.rect.height<=@flash.bitmap.height
  @flash.ox=0
  @flash.oy=0
  @flash.src_rect.set(ptX.round,ptY.round,
     @viewport.rect.width,@viewport.rect.height)
  return
end
width=@flash.bitmap.width
height=@flash.bitmap.height
bitmap=@flash.bitmap
ysize=@map_data.ysize
xsize=@map_data.xsize
zsize=@map_data.zsize
@firsttimeflash=false
@oxFlash=@ox-(width>>2)
@oyFlash=@oy-(height>>2)
@flash.ox=0
@flash.oy=0
@flash.src_rect.set(width>>2,height>>2,
     @viewport.rect.width,@viewport.rect.height)
@flash.bitmap.clear
@oxFlash=@oxFlash.floor
@oyFlash=@oyFlash.floor
xStart=(@oxFlash>>5)
xStart=0 if xStart<0
yStart=(@oyFlash>>5)
yStart=0 if yStart<0
xEnd=xStart+(width>>5)+1
yEnd=yStart+(height>>5)+1
xEnd=xsize if xEnd>=xsize
yEnd=ysize if yEnd>=ysize
if xStart<xEnd && yStart<yEnd
  yrange=yStart...yEnd
  xrange=xStart...xEnd
  tmpcolor=Color.new(0,0,0,0)
  for y in yrange
   ypos=(y<<5)-@oyFlash
   for x in xrange
     xpos=(x<<5)-@oxFlash
     id = @flash_data[x, y, 0]
     r=(id>>8)&15
     g=(id>>4)&15
     b=(id)&15
     tmpcolor.set(r*16,g*16,b*16)
     bitmap.fill_rect(xpos,ypos,32,32,tmpcolor)
   end
  end
end
end
 
 
def refreshLayer0(autotiles=false)
ptX=@ox-@oxLayer0
ptY=@oy-@oyLayer0
if !autotiles && !@firsttime && !@usedsprites &&
    ptX>=0 && ptX+@viewport.rect.width<=@layer0.bitmap.width &&
    ptY>=0 && ptY+@viewport.rect.height<=@layer0.bitmap.height
  if @layer0clip
   @layer0.ox=0
   @layer0.oy=0
   @layer0.src_rect.set(ptX.round,ptY.round,
     @viewport.rect.width,@viewport.rect.height)
  else
   @layer0.ox=ptX.round
   @layer0.oy=ptY.round
   @layer0.src_rect.set(0,0,@layer0.bitmap.width,@layer0.bitmap.height)
  end
  return true
end
width=@layer0.bitmap.width
height=@layer0.bitmap.height
bitmap=@layer0.bitmap
ysize=@map_data.ysize
xsize=@map_data.xsize
zsize=@map_data.zsize
if autotiles
  return true if @fullyrefreshedautos && @prioautotiles.length==0
  return true if !shown?
  xStart=(@oxLayer0>>5)
  xStart=0 if xStart<0
  yStart=(@oyLayer0>>5)
  yStart=0 if yStart<0
  xEnd=xStart+(width>>5)+1
  yEnd=yStart+(height>>5)+1
  xEnd=xsize if xEnd>xsize
  yEnd=ysize if yEnd>ysize
  return true if xStart>=xEnd || yStart>=yEnd
  trans=Color.new(0,0,0,0)
  temprect=Rect.new(0,0,0,0)
  tilerect=Rect.new(0,0,32,32)
  range=0...zsize
  overallcount=0
  count=0
  if !@fullyrefreshedautos
   for y in yStart..yEnd
    for x in xStart..xEnd
     haveautotile=false
     for z in range
      id = @map_data[x, y, z]
      next if id<48 || id>=384 || @priorities[id]!=0 || !@priorities[id]
      next if @framecount[id/48-1]<2
      haveautotile=true
      break
     end
     next if !haveautotile
     overallcount+=1
     xpos=(x<<5)-@oxLayer0
     ypos=(y<<5)-@oyLayer0
     bitmap.fill_rect(xpos,ypos,0,0,trans) if overallcount<=2000
     for z in range
      id = @map_data[x,y,z]
      next if id<48 || @priorities[id]!=0 || !@priorities[id]
      if overallcount>2000
       count=addTile(@autosprites,count,xpos,ypos,id)
       next
      elsif id>=384
       temprect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)
       bitmap.blt(xpos,ypos,@tileset,temprect)
      else
       tilebitmap=@autotileInfo[id]
       if !tilebitmap
        anim=autotileFrame(id)
        next if anim<0
        tilebitmap=Bitmap.new(32,32)
        bltAutotile(tilebitmap,0,0,id,anim)
        @autotileInfo[id]=tilebitmap
       end
       bitmap.blt(xpos,ypos,tilebitmap,tilerect)
      end
     end
    end
   end
  else
   for tile in @prioautotiles
    x=tile[0]
    y=tile[1]
    next if x<xStart||x>xEnd
    next if y<yStart||y>yEnd
    overallcount+=1
    xpos=(x<<5)-@oxLayer0
    ypos=(y<<5)-@oyLayer0
    bitmap.fill_rect(xpos,ypos,0,0,trans) if overallcount<=2000
    for z in range
     id = @map_data[x,y,z]
     next if id<48 || @priorities[id]!=0 || !@priorities[id]
     if overallcount>2000
      count=addTile(@autosprites,count,xpos,ypos,id)
      next
     elsif id>=384
      temprect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)
      bitmap.blt(xpos,ypos,@tileset,temprect)
     else
      tilebitmap=@autotileInfo[id]
      if !tilebitmap
        anim=autotileFrame(id)
        next if anim<0
        tilebitmap=Bitmap.new(32,32)
        bltAutotile(tilebitmap,0,0,id,anim)
        @autotileInfo[id]=tilebitmap
      end
      bitmap.blt(xpos,ypos,tilebitmap,tilerect)
     end
    end
   end
  end
  Graphics.frame_reset if overallcount>2000
  @usedsprites=false
  return true
end
return false if @usedsprites
@firsttime=false
@oxLayer0=@ox-(width>>2)
@oyLayer0=@oy-(height>>2)
if @layer0clip
  @layer0.ox=0
  @layer0.oy=0
  @layer0.src_rect.set(width>>2,height>>2,
     @viewport.rect.width,@viewport.rect.height)
else
  @layer0.ox=(width>>2)
  @layer0.oy=(height>>2)
end
@layer0.bitmap.clear
@oxLayer0=@oxLayer0.floor
@oyLayer0=@oyLayer0.floor
xStart=(@oxLayer0>>5)
xStart=0 if xStart<0
yStart=(@oyLayer0>>5)
yStart=0 if yStart<0
xEnd=xStart+(width>>5)+1
yEnd=yStart+(height>>5)+1
xEnd=xsize if xEnd>=xsize
yEnd=ysize if yEnd>=ysize
if xStart<xEnd && yStart<yEnd
  tmprect=Rect.new(0,0,0,0)
  yrange=yStart...yEnd
  xrange=xStart...xEnd
  for z in 0...zsize
   for y in yrange
    ypos=(y<<5)-@oyLayer0
    for x in xrange
     xpos=(x<<5)-@oxLayer0
     id = @map_data[x, y, z]
     next if id==0 || @priorities[id]!=0 || !@priorities[id]
     if id>=384
       tmprect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)
       bitmap.blt(xpos,ypos,@tileset,tmprect)
     else
       frame=autotileFrame(id)
       bltAutotile(bitmap,xpos,ypos,id,frame)
     end
    end
   end
  end
  Graphics.frame_reset
end
return true
end
def getResizeFactor
  return $ResizeFactor ? $ResizeFactor : 1.0
end
def ox=(val)
   val=(val*getResizeFactor).to_i
   val=(val/getResizeFactor).to_i
   wasshown=self.shown?
   @ox=val.floor
   @nowshown=(!wasshown && self.shown?)
end
def oy=(val)
   val=(val*getResizeFactor).to_i
   val=(val/getResizeFactor).to_i
   wasshown=self.shown?
   @oy=val.floor
   @nowshown=(!wasshown && self.shown?)
end
def visible=(val)
   wasshown=@visible
   @visible=val
   @nowshown=(!wasshown && val)
end
def refresh(autotiles=false)
@oldOx=@ox
@oldOy=@oy
usesprites=false
if @layer0
  @layer0.visible=@visible
  usesprites=!refreshLayer0(autotiles)
  if autotiles && !usesprites
   return
  end
else
  usesprites=true
end
refreshFlashSprite
vpx=@viewport.rect.x
vpy=@viewport.rect.y
vpr=@viewport.rect.width+vpx
vpb=@viewport.rect.height+vpy
xsize=@map_data.xsize
ysize=@map_data.ysize
minX=(@ox/32)-1
maxX=((@ox+@viewport.rect.width)/32)+1
minY=(@oy/32)-1
maxY=((@oy+@viewport.rect.height)/32)+1
minX=0 if minX<0
minX=xsize-1 if minX>=xsize
maxX=0 if maxX<0
maxX=xsize-1 if maxX>=xsize
minY=0 if minY<0
minY=ysize-1 if minY>=ysize
maxY=0 if maxY<0
maxY=ysize-1 if maxY>=ysize
count=0
if minX<maxX && minY<maxY
  @usedsprites=usesprites || @usedsprites
  if @layer0
   @layer0.visible=false if usesprites
  end
  if @fullyrefreshed
   for prio in @priotiles
    next if prio[0]<minX||prio[0]>maxX
    next if prio[1]<minY||prio[1]>maxY
    id=prio[3]
    xpos=(prio[0]<<5)-@ox
    ypos=(prio[1]<<5)-@oy
    count=addTile(@tiles,count,xpos,ypos,id)
   end
  else
   for z in [email]0...@map_data.zsize[/email]
    for y in minY..maxY
     for x in minX..maxX
      id = @map_data[x, y, z]
      next if id==0 || !@priorities[id]
      next if @priorities[id]==0
      xpos=(x<<5)-@ox
      ypos=(y<<5)-@oy
      count=addTile(@tiles,count,xpos,ypos,id)
     end
    end
   end
  end
end
if count<@tiles.length
  bigchange=(count<=(@tiles.length*2/3)) && (@tiles.length*2/3)>25
  j=count;len=@tiles.length;while j<len
   sprite=@tiles[j]
   @tiles[j+1]=-1
   if bigchange
    sprite.dispose
    @tiles[j]=nil
    @tiles[j+1]=nil
   elsif !@tiles[j].disposed?
    sprite.visible=false if sprite.visible
   end
   j+=2
  end
  @tiles.compact! if bigchange
end
end
 
end

class CustomTilemapAutotiles


  attr_accessor :changed


  def initialize


   @changed=true


   @tiles=[nil,nil,nil,nil,nil,nil,nil]


  end


  def []=(i,value)


   @tiles[i]=value


   @changed=true


  end


  def [](i)


   return @tiles[i]


  end


end


 


class Tilemap


#Animated_Autotiles_Frames = 15


 Animated_Autotiles_Frames = 999999


  Autotiles = [


    [ [27, 28, 33, 34], [ 5, 28, 33, 34], [27,  6, 33, 34], [ 5,  6, 33, 34],


      [27, 28, 33, 12], [ 5, 28, 33, 12], [27,  6, 33, 12], [ 5,  6, 33, 12] ],


    [ [27, 28, 11, 34], [ 5, 28, 11, 34], [27,  6, 11, 34], [ 5,  6, 11, 34],


      [27, 28, 11, 12], [ 5, 28, 11, 12], [27,  6, 11, 12], [ 5,  6, 11, 12] ],


    [ [25, 26, 31, 32], [25,  6, 31, 32], [25, 26, 31, 12], [25,  6, 31, 12],


      [15, 16, 21, 22], [15, 16, 21, 12], [15, 16, 11, 22], [15, 16, 11, 12] ],


    [ [29, 30, 35, 36], [29, 30, 11, 36], [ 5, 30, 35, 36], [ 5, 30, 11, 36],


      [39, 40, 45, 46], [ 5, 40, 45, 46], [39,  6, 45, 46], [ 5,  6, 45, 46] ],


    [ [25, 30, 31, 36], [15, 16, 45, 46], [13, 14, 19, 20], [13, 14, 19, 12],


      [17, 18, 23, 24], [17, 18, 11, 24], [41, 42, 47, 48], [ 5, 42, 47, 48] ],


    [ [37, 38, 43, 44], [37,  6, 43, 44], [13, 18, 19, 24], [13, 14, 43, 44],


      [37, 42, 43, 48], [17, 18, 47, 48], [13, 18, 43, 48], [ 1,  2,  7,  8] ]


  ]


  FlashOpacity=[100,90,80,70,80,90]


  attr_reader :tileset


  attr_reader :autotiles


  attr_reader :map_data


  attr_accessor :flash_data


  attr_accessor :priorities


  attr_reader :visible


  attr_accessor :ox


  attr_accessor :oy


  attr_reader :viewport


  def initialize(viewport)


    @tileset    = nil  # Refers to Map Tileset Name


    @autotiles  = CustomTilemapAutotiles.new


    @map_data   = nil  # Refers to 3D Array Of Tile Settings


    @flash_data = nil  # Refers to 3D Array of Tile Flashdata


    @priorities = nil  # Refers to Tileset Priorities


    @visible    = true # Refers to Tileset Visibleness


    @ox         = 0    # Bitmap Offsets


    @oy         = 0    # bitmap Offsets


    @plane       = false


    @selfviewport=Viewport.new(0,0,640,480)


    @viewport=viewport ? viewport : @selfviewport


    @tiles=[]


    @autotileInfo=[]


    @regularTileInfo=[]


    @oldOx=0


    @oldOy=0


    @layer0=Sprite.new(viewport)


    @layer0.visible=true


    @nowshown=false


    @layer0.bitmap=Bitmap.new(@viewport.rect.width*1.5,@viewport.rect.height*1.5)


    @flash=nil


    @layer0.ox=0


    @layer0.oy=0


    @oxLayer0=0


    @oyLayer0=0


    @oxFlash=0


    @oyFlash=0


    @layer0.z=0


    @priotiles=[]


    @prioautotiles=[]


    @autosprites=[]


    @framecount=[]


    @tilesetChanged=true


    @flashChanged=false


    @firsttime=true


    @disposed=false


    @usedsprites=false


    @layer0clip=true


    @firsttimeflash=true


    @fullyrefreshed=false


    @fullyrefreshedautos=false


  end


  def disposed?


   return @disposed


  end


  def flash_data=(value)


   @flash_data=value


   @flashChanged=true   


  end


  def update


   # if @autotiles.changed


  #    refresh_autotiles


   #   repaintAutotiles


   # end


   # if @flashChanged


   #   refresh_flash


   # end


   # if @tilesetChanged


   #   refresh_tileset


   # end


   # if @flash


  #   @flash.opacity=FlashOpacity[(Graphics.frame_count/2) % 6]


  #  end


    if !(@oldOx==@ox && @oldOy==@oy &&


           !@tilesetChanged &&


           !@autotiles.changed)


      refresh


    end


   # if (Graphics.frame_count % Animated_Autotiles_Frames == 0) || @nowshown


   #   repaintAutotiles


   #   refresh(true)


   # end


    @nowshown=false


    @autotiles.changed=false


    @tilesetChanged=false


  end


def priorities=(value)


  @priorities=value


  @tilesetChanged=true


end


def tileset=(value)


  @tileset=value


  @tilesetChanged=true


end


def shown?


   return false if !@visible


   ysize=@map_data.ysize


   xsize=@map_data.xsize


   xStart=(@ox/32)-1


   xEnd=((@ox+@viewport.rect.width)/32)+1


   yStart=(@oy/32)-1


   yEnd=((@oy+@viewport.rect.height)/32)+1


   xStart=0 if xStart<0


   xStart=xsize-1 if xStart>=xsize


   xEnd=0 if xEnd<0


   xEnd=xsize-1 if xEnd>=xsize


   yStart=0 if yStart<0


   yStart=ysize-1 if yStart>=ysize


   yEnd=0 if yEnd<0


   yEnd=ysize-1 if yEnd>=ysize


   return (xStart<xEnd && yStart<yEnd)


end


def dispose


return if disposed?


@help.dispose if @help


@help=nil


i=0;len=@autotileInfo.length;while i<len


  if @autotileInfo[i]


     @autotileInfo[i].dispose


     @autotileInfo[i]=nil


  end


  i+=1


end


i=0;len=@regularTileInfo.length;while i<len


  if @regularTileInfo[i]


     @regularTileInfo[i].dispose


     @regularTileInfo[i]=nil


  end


  i+=1


end


i=0;len=@tiles.length;while i<len


  @tiles[i].dispose


  @tiles[i]=nil


  i+=2


end


i=0;len=@autosprites.length;while i<len


  @autosprites[i].dispose


  @autosprites[i]=nil


  i+=2


end


if @layer0


  @layer0.bitmap.dispose if !@layer0.disposed?


  @layer0.bitmap=nil if !@layer0.disposed?


  @layer0.dispose


  @layer0=nil


end


if @flash


  @flash.bitmap.dispose if !@flash.disposed?


  @flash.bitmap=nil if !@flash.disposed?


  @flash.dispose


  @flash=nil


end


for i in 0...7


  self.autotiles[i]=nil


end


@tiles.clear


@autosprites.clear


@autotileInfo.clear


@regularTileInfo.clear


@tilemap=nil


@tileset=nil


@priorities=nil


@selfviewport.dispose


@selfviewport=nil


@disposed=true


end


 


def bltAutotile(bitmap,x,y,id,frame)


  return if frame<0


  autotile=@autotiles[id/48-1]


  return if !autotile 


  if autotile.height==32


    anim=frame*32


    src_rect=Rect.new(anim,0,32,32)


    bitmap.blt(x,y,autotile,src_rect)


  else


    anim=frame*96


    id%=48


    tiles = Autotiles[id>>3][id&7]


    src=Rect.new(0,0,0,0)


    for i in 0...4


      tile_position = tiles[i] - 1


      src.set(tile_position % 6 * 16 + anim,


       tile_position / 6 * 16, 16, 16)


      bitmap.blt(i%2*16+x,i/2*16+y, autotile, src)


    end


  end


end


 


def autotileNumFrames(id)


  autotile=@autotiles[id/48-1]


  return 0 if !autotile || autotile.disposed?


  frames=1


  if autotile.height==32


   frames=autotile.width/32


  else


   frames=autotile.width/96


  end


  return frames


end


 


def autotileFrame(id)


  autotile=@autotiles[id/48-1]


  return -1 if !autotile || autotile.disposed?


  frames=1


  if autotile.height==32


   frames=autotile.width/32


  else


   frames=autotile.width/96


  end


  return (Graphics.frame_count/Animated_Autotiles_Frames)%frames


end


 


def repaintAutotiles


for i in [email]0...@autotileInfo.length[/email]


  next if !@autotileInfo[i]


  frame=autotileFrame(i)


  bltAutotile(@autotileInfo[i],0,0,i,frame)


end


end


 


def getAutotile(sprite,id)


  anim=autotileFrame(id)


  return if anim<0


  bitmap=@autotileInfo[id]


  if !bitmap


    bitmap=Bitmap.new(32,32)


    bltAutotile(bitmap,0,0,id,anim)


    @autotileInfo[id]=bitmap


  end


  sprite.bitmap=bitmap if !sprite.equal?(bitmap) || sprite.bitmap!=bitmap


end


 


def getRegularTile(sprite,id)


if false


  sprite.bitmap=@tileset if !sprite.equal?(@tileset) || sprite.bitmap!=@tileset


  sprite.src_rect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)


else


  bitmap=@regularTileInfo[id]


  if !bitmap


   bitmap=Bitmap.new(32,32)


   rect=Rect.new((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)


   bitmap.blt(0,0,@tileset,rect)


   @regularTileInfo[id]=bitmap


  end


  sprite.bitmap=bitmap if !sprite.equal?(bitmap) || sprite.bitmap!=bitmap


end


end


 


def addTile(tiles,count,xpos,ypos,id)


   if id>=384


     if count>=tiles.length


        sprite=Sprite.new(@viewport)


      tiles.push(sprite,0)


     else


      sprite=tiles[count]


      tiles[count+1]=0


     end


     sprite.visible=@visible


     sprite.x=xpos


     sprite.y=ypos


     getRegularTile(sprite,id)


     spriteZ=(@priorities[id]==0||!@priorities[id]) ? 0 : ypos+@priorities[id]*32+32


     sprite.z=spriteZ


     count+=2


   else


     if count>=tiles.length


         sprite=Sprite.new(@viewport)


      tiles.push(sprite,1)


     else


      sprite=tiles[count]


      tiles[count+1]=1


     end


     sprite.visible=@visible


     sprite.x=xpos


     sprite.y=ypos


     getAutotile(sprite,id)


     spriteZ=(@priorities[id]==0||!@priorities[id]) ? 0 : ypos+@priorities[id]*32+32


     sprite.z=spriteZ


     count+=2


   end


   return count


end


 


def refresh_tileset


i=0;len=@regularTileInfo.length;while i<len


  if @regularTileInfo[i]


     @regularTileInfo[i].dispose


     @regularTileInfo[i]=nil


  end


  i+=1


end


@regularTileInfo.clear


@priotiles.clear


ysize=@map_data.ysize


xsize=@map_data.xsize


zsize=@map_data.zsize


if xsize>100 || ysize>100


  @fullyrefreshed=false


else


  for z in 0...zsize


   for y in 0...ysize


    for x in 0...xsize


     id = @map_data[x, y, z]


     next if id==0 || !@priorities[id]


     next if @priorities[id]==0


     @priotiles.push([x,y,z,id])


    end


   end


  end


  @fullyrefreshed=true


end


end


 


def refresh_flash


if @flash_data && !@flash


  @flash=Sprite.new(viewport)


  @flash.visible=true


  @flash.z=1


  @flash.blend_type=1


  @flash.bitmap=Bitmap.new(@viewport.rect.width*1.5,@viewport.rect.height*1.5)


  @firsttimeflash=true


elsif !@flash_data && @flash


  @flash.bitmap.dispose if @flash.bitmap


  @flash.dispose


  @flash=nil


  @firsttimeflash=false


end


end


 


def refresh_autotiles


i=0;len=@autotileInfo.length;while i<len


  if @autotileInfo[i]


     @autotileInfo[i].dispose


     @autotileInfo[i]=nil


  end


  i+=1


end


i=0;len=@autosprites.length;while i<len


  if @autosprites[i]


     @autosprites[i].dispose


     @autosprites[i]=nil


  end


  i+=2


end


@autosprites.clear


@autotileInfo.clear


@prioautotiles.clear


hasanimated=false


for i in 0...7


  numframes=autotileNumFrames(48*(i+1))


  hasanimated=true if numframes>=2


  @framecount[i]=numframes


end


if hasanimated


  ysize=@map_data.ysize


  xsize=@map_data.xsize


  zsize=@map_data.zsize


  if xsize>100 || ysize>100


    @fullyrefreshedautos=false


  else


    for y in 0...ysize


     for x in 0...xsize


      haveautotile=false


      for z in 0...zsize


       id = @map_data[x, y, z]


       next if id==0 || id>=384 || @priorities[id]!=0 || !@priorities[id]


       next if @framecount[id/48-1]<2


       haveautotile=true


       break


      end


      @prioautotiles.push([x,y]) if haveautotile


     end


    end


    @fullyrefreshedautos=true


  end


else


  @fullyrefreshedautos=true 


end


end


 


def map_data=(value)


@map_data=value


@tilesetChanged=true


end


 


def refreshFlashSprite


return if ![url=home.php?mod=space&uid=14082]@Flash[/url] || @flash_data.nil?


ptX=@ox-@oxFlash


ptY=@oy-@oyFlash


if !@firsttimeflash && !@usedsprites &&


    ptX>=0 && ptX+@viewport.rect.width<=@flash.bitmap.width &&


    ptY>=0 && ptY+@viewport.rect.height<=@flash.bitmap.height


  @flash.ox=0


  @flash.oy=0


  @flash.src_rect.set(ptX.round,ptY.round,


     @viewport.rect.width,@viewport.rect.height)


  return


end


width=@flash.bitmap.width


height=@flash.bitmap.height


bitmap=@flash.bitmap


ysize=@map_data.ysize


xsize=@map_data.xsize


zsize=@map_data.zsize


@firsttimeflash=false


@oxFlash=@ox-(width>>2)


@oyFlash=@oy-(height>>2)


@flash.ox=0


@flash.oy=0


@flash.src_rect.set(width>>2,height>>2,


     @viewport.rect.width,@viewport.rect.height)


@flash.bitmap.clear


@oxFlash=@oxFlash.floor


@oyFlash=@oyFlash.floor


xStart=(@oxFlash>>5)


xStart=0 if xStart<0


yStart=(@oyFlash>>5)


yStart=0 if yStart<0


xEnd=xStart+(width>>5)+1


yEnd=yStart+(height>>5)+1


xEnd=xsize if xEnd>=xsize


yEnd=ysize if yEnd>=ysize


if xStart<xEnd && yStart<yEnd


  yrange=yStart...yEnd


  xrange=xStart...xEnd


  tmpcolor=Color.new(0,0,0,0)


  for y in yrange


   ypos=(y<<5)-@oyFlash


   for x in xrange


     xpos=(x<<5)-@oxFlash


     id = @flash_data[x, y, 0]


     r=(id>>8)&15


     g=(id>>4)&15


     b=(id)&15


     tmpcolor.set(r*16,g*16,b*16)


     bitmap.fill_rect(xpos,ypos,32,32,tmpcolor)


   end


  end


end


end


 


 


def refreshLayer0(autotiles=false)


ptX=@ox-@oxLayer0


ptY=@oy-@oyLayer0


if !autotiles && !@firsttime && !@usedsprites &&


    ptX>=0 && ptX+@viewport.rect.width<=@layer0.bitmap.width &&


    ptY>=0 && ptY+@viewport.rect.height<=@layer0.bitmap.height


  if @layer0clip


   @layer0.ox=0


   @layer0.oy=0


   @layer0.src_rect.set(ptX.round,ptY.round,


     @viewport.rect.width,@viewport.rect.height)


  else


   @layer0.ox=ptX.round


   @layer0.oy=ptY.round


   @layer0.src_rect.set(0,0,@layer0.bitmap.width,@layer0.bitmap.height)


  end


  return true


end


width=@layer0.bitmap.width


height=@layer0.bitmap.height


bitmap=@layer0.bitmap


ysize=@map_data.ysize


xsize=@map_data.xsize


zsize=@map_data.zsize


if autotiles


  return true if @fullyrefreshedautos && @prioautotiles.length==0


  return true if !shown?


  xStart=(@oxLayer0>>5)


  xStart=0 if xStart<0


  yStart=(@oyLayer0>>5)


  yStart=0 if yStart<0


  xEnd=xStart+(width>>5)+1


  yEnd=yStart+(height>>5)+1


  xEnd=xsize if xEnd>xsize


  yEnd=ysize if yEnd>ysize


  return true if xStart>=xEnd || yStart>=yEnd


  trans=Color.new(0,0,0,0)


  temprect=Rect.new(0,0,0,0)


  tilerect=Rect.new(0,0,32,32)


  range=0...zsize


  overallcount=0


  count=0


  if !@fullyrefreshedautos


   for y in yStart..yEnd


    for x in xStart..xEnd


     haveautotile=false


     for z in range


      id = @map_data[x, y, z]


      next if id<48 || id>=384 || @priorities[id]!=0 || !@priorities[id]


      next if @framecount[id/48-1]<2


      haveautotile=true


      break


     end


     next if !haveautotile


     overallcount+=1


     xpos=(x<<5)-@oxLayer0


     ypos=(y<<5)-@oyLayer0


     bitmap.fill_rect(xpos,ypos,0,0,trans) if overallcount<=2000


     for z in range


      id = @map_data[x,y,z]


      next if id<48 || @priorities[id]!=0 || !@priorities[id]


      if overallcount>2000


       count=addTile(@autosprites,count,xpos,ypos,id)


       next


      elsif id>=384


       temprect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)


       bitmap.blt(xpos,ypos,@tileset,temprect)


      else


       tilebitmap=@autotileInfo[id]


       if !tilebitmap


        anim=autotileFrame(id)


        next if anim<0


        tilebitmap=Bitmap.new(32,32)


        bltAutotile(tilebitmap,0,0,id,anim)


        @autotileInfo[id]=tilebitmap


       end


       bitmap.blt(xpos,ypos,tilebitmap,tilerect)


      end


     end


    end


   end


  else


   for tile in @prioautotiles


    x=tile[0]


    y=tile[1]


    next if x<xStart||x>xEnd


    next if y<yStart||y>yEnd


    overallcount+=1


    xpos=(x<<5)-@oxLayer0


    ypos=(y<<5)-@oyLayer0


    bitmap.fill_rect(xpos,ypos,0,0,trans) if overallcount<=2000


    for z in range


     id = @map_data[x,y,z]


     next if id<48 || @priorities[id]!=0 || !@priorities[id]


     if overallcount>2000


      count=addTile(@autosprites,count,xpos,ypos,id)


      next


     elsif id>=384


      temprect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)


      bitmap.blt(xpos,ypos,@tileset,temprect)


     else


      tilebitmap=@autotileInfo[id]


      if !tilebitmap


        anim=autotileFrame(id)


        next if anim<0


        tilebitmap=Bitmap.new(32,32)


        bltAutotile(tilebitmap,0,0,id,anim)


        @autotileInfo[id]=tilebitmap


      end


      bitmap.blt(xpos,ypos,tilebitmap,tilerect)


     end


    end


   end


  end


  Graphics.frame_reset if overallcount>2000


  @usedsprites=false


  return true


end


return false if @usedsprites


@firsttime=false


@oxLayer0=@ox-(width>>2)


@oyLayer0=@oy-(height>>2)


if @layer0clip


  @layer0.ox=0


  @layer0.oy=0


  @layer0.src_rect.set(width>>2,height>>2,


     @viewport.rect.width,@viewport.rect.height)


else


  @layer0.ox=(width>>2)


  @layer0.oy=(height>>2)


end


@layer0.bitmap.clear


@oxLayer0=@oxLayer0.floor


@oyLayer0=@oyLayer0.floor


xStart=(@oxLayer0>>5)


xStart=0 if xStart<0


yStart=(@oyLayer0>>5)


yStart=0 if yStart<0


xEnd=xStart+(width>>5)+1


yEnd=yStart+(height>>5)+1


xEnd=xsize if xEnd>=xsize


yEnd=ysize if yEnd>=ysize


if xStart<xEnd && yStart<yEnd


  tmprect=Rect.new(0,0,0,0)


  yrange=yStart...yEnd


  xrange=xStart...xEnd


  for z in 0...zsize


   for y in yrange


    ypos=(y<<5)-@oyLayer0


    for x in xrange


     xpos=(x<<5)-@oxLayer0


     id = @map_data[x, y, z]


     next if id==0 || @priorities[id]!=0 || !@priorities[id]


     if id>=384


       tmprect.set((id - 384) % 8 * 32, (id - 384) / 8 * 32,32,32)


       bitmap.blt(xpos,ypos,@tileset,tmprect)


     else


       frame=autotileFrame(id)


       bltAutotile(bitmap,xpos,ypos,id,frame)


     end


    end


   end


  end


  Graphics.frame_reset


end


return true


end


def getResizeFactor


  return $ResizeFactor ? $ResizeFactor : 1.0


end


def ox=(val)


   val=(val*getResizeFactor).to_i


   val=(val/getResizeFactor).to_i


   wasshown=self.shown?


   @ox=val.floor


   @nowshown=(!wasshown && self.shown?)


end


def oy=(val)


   val=(val*getResizeFactor).to_i


   val=(val/getResizeFactor).to_i


   wasshown=self.shown?


   @oy=val.floor


   @nowshown=(!wasshown && self.shown?)


end


def visible=(val)


   wasshown=@visible


   @visible=val


   @nowshown=(!wasshown && val)


end


def refresh(autotiles=false)


@oldOx=@ox


@oldOy=@oy


usesprites=false


if @layer0


  @layer0.visible=@visible


  usesprites=!refreshLayer0(autotiles)


  if autotiles && !usesprites


   return


  end


else


  usesprites=true


end


refreshFlashSprite


vpx=@viewport.rect.x


vpy=@viewport.rect.y


vpr=@viewport.rect.width+vpx


vpb=@viewport.rect.height+vpy


xsize=@map_data.xsize


ysize=@map_data.ysize


minX=(@ox/32)-1


maxX=((@ox+@viewport.rect.width)/32)+1


minY=(@oy/32)-1


maxY=((@oy+@viewport.rect.height)/32)+1


minX=0 if minX<0


minX=xsize-1 if minX>=xsize


maxX=0 if maxX<0


maxX=xsize-1 if maxX>=xsize


minY=0 if minY<0


minY=ysize-1 if minY>=ysize


maxY=0 if maxY<0


maxY=ysize-1 if maxY>=ysize


count=0


if minX<maxX && minY<maxY


  @usedsprites=usesprites || @usedsprites


  if @layer0


   @layer0.visible=false if usesprites


  end


  if @fullyrefreshed


   for prio in @priotiles


    next if prio[0]<minX||prio[0]>maxX


    next if prio[1]<minY||prio[1]>maxY


    id=prio[3]


    xpos=(prio[0]<<5)-@ox


    ypos=(prio[1]<<5)-@oy


    count=addTile(@tiles,count,xpos,ypos,id)


   end


  else


   for z in [email]0...@map_data.zsize[/email]


    for y in minY..maxY


     for x in minX..maxX


      id = @map_data[x, y, z]


      next if id==0 || !@priorities[id]


      next if @priorities[id]==0


      xpos=(x<<5)-@ox


      ypos=(y<<5)-@oy


      count=addTile(@tiles,count,xpos,ypos,id)


     end


    end


   end


  end


end


if count<@tiles.length


  bigchange=(count<=(@tiles.length*2/3)) && (@tiles.length*2/3)>25


  j=count;len=@tiles.length;while j<len


   sprite=@tiles[j]


   @tiles[j+1]=-1


   if bigchange


    sprite.dispose


    @tiles[j]=nil


    @tiles[j+1]=nil


   elsif !@tiles[j].disposed?


    sprite.visible=false if sprite.visible


   end


   j+=2


  end


  @tiles.compact! if bigchange


end


end


 


end

   

enghao_lim

为何不从新写一个库？反而要用脚本？这样不等于在模拟中运算么？效率有限啊。