Perspective View help

def bltMinimapAutotile(dstBitmap,x,y,srcBitmap,id)
  return if id>=48 || !srcBitmap || srcBitmap.disposed?
  anim=0
  cxTile=3
  cyTile=3
  tiles = TileDrawingHelper::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 * cxTile + anim,
      tile_position / 6 * cyTile, cxTile, cyTile)
    dstBitmap.blt(i%2*cxTile+x,i/2*cyTile+y, srcBitmap, src)
  end
end
def passable?(passages,tile_id)
    return false if tile_id == nil
    return false if passages[tile_id] == nil
    return (passages[tile_id]<15) 
end
def getPassabilityMinimap(mapid)
  map=load_data(sprintf("Data/Map%03d.rxdata",mapid))
  tileset=$data_tilesets[map.tileset_id]
  minimap=Bitmap.new("Graphics/Pictures/minimap_tiles.png")
  ret=Bitmap.new(map.width*6,map.height*6)
  passtable=Table.new(map.width,map.height)
  passages=tileset.passages
  for i in 0...map.width
    for j in 0...map.height
      pass=true
      for z in [2,1,0]
        if !passable?(passages,map.data[i,j,z])
          pass=false
          break
        end
      end
      passtable[i,j]=pass ? 1 : 0
    end
  end
  neighbors=TileDrawingHelper::NeighborsToTiles
  for i in 0...map.width
    for j in 0...map.height
      if passtable[i,j]==0
        nb=TileDrawingHelper.tableNeighbors(passtable,i,j)
        tile=neighbors[nb]
        bltMinimapAutotile(ret,i*6,j*6,minimap,tile)
      end
    end
  end
  minimap.dispose
  return ret
end
module ScreenPosHelper
 def self.pbScreenZoomX(ch)
  if $PokemonSystem.tilemap==2
     return ((ch.screen_y - 16) - (Graphics.height / 2)) *
           (Draw_Tilemap::Pitch*1.0 / (Graphics.height * 25)) + 1
  else
     return 1.0
  end
 end
 def self.pbScreenZoomY(ch)
  if $PokemonSystem.tilemap==2
     return ((ch.screen_y - 16) - (Graphics.height / 2)) *
           (Draw_Tilemap::Pitch*1.0 / (Graphics.height * 25)) + 1
  else
     return 1.0
  end
 end
 def self.pbScreenX(ch)
  ret=ch.screen_x
  if $PokemonSystem.tilemap==2
    widthdiv2=(Graphics.width / 2)
    ret=widthdiv2+(ret-widthdiv2)*pbScreenZoomX(ch)
  end
  return ret
 end
 def self.pbScreenY(ch)
  ret=ch.screen_y
  if $PokemonSystem.tilemap==2 && Draw_Tilemap::Curve && Draw_Tilemap::Pitch != 0
   zoomy=pbScreenZoomY(ch)
   oneMinusZoomY=1-zoomy
   ret += (8 * oneMinusZoomY * (oneMinusZoomY /
     (2 * ((Draw_Tilemap::Pitch*1.0 / 100) / (Graphics.height*1.0 / 16.0))) + 0.5))
  end
  return ret
 end
 @heightcache={}
 def self.bmHeight(bm)
  [EMAIL="h=@heightcache"]h=@heightcache[/EMAIL][bm]
  if !h
   bmap=RPG::Cache.character(bm,0)
   h=bmap.height
   @heightcache[bm]=h
   bmap.dispose
  end
  return h
 end
 def self.pbScreenZ(ch,height=nil)
  if height==nil
   height=0
   if ch.tile_id > 0
     height=32
   elsif ch.character_name!=""
     height=bmHeight(ch.character_name)/4
   end
  end
  ret=ch.screen_z(height)
  if $PokemonSystem.tilemap==2
    ret-=(pbScreenZoomY(ch) < 0.5 ? 1000 : 0)
  end
  return ret
 end
end
###############################################
class Draw_Tilemap # This class controls a set of sprites, with different Z
                   #  values, arranged into horizontal bars
  StripSize = 16
  Curve = true
  Pitch = 3
  attr_accessor :tileset
  attr_accessor :map_data
  attr_accessor :flash_data
  attr_accessor :priorities
  attr_reader :autotiles
  attr_accessor :bitmaps
  attr_accessor :pitch
  attr_accessor :ox
  attr_accessor :oy
  attr_accessor :visible
  attr_reader :viewport
  attr_accessor :color
  attr_accessor :tone
  FlashOpacity=[100,90,80,70,80,90]
  #-----------------------------------------------------------------------------
  def initialize(viewport=nil)
    @tileset=nil
    @map_data=nil
    @priorities=nil
    @autotiles=[nil,nil,nil,nil,nil,nil,nil]
    @viewport=viewport
    @visible=true
    @helper=TileDrawingHelper.new(nil,@autotiles)
    @drawnstrips=[]
    @contentstrips=[]
    @disposed=false
    @bitmaps=[]
    @sprites=[]
    @ox=0
    @oy=0
    @tone=Tone.new(0,0,0,0)
    @color=Color.new(0,0,0,0)
    @flash_data=nil
    @numsprites=0
  end
  def tileset=(value)
    @tileset=value
    @helper.tileset=value
    @doredraw=true
  end
  def map_data=(value)
    @map_data=value
    @doredraw=true
  end
  def flash_data=(value)
    @flash_data=value
    @doredraw=true
  end
  def priorities=(value)
    @priorities=value
    @doredraw=true
  end
  def redrawmap
  # Provide blank data in proper object form
    self.clear
    [EMAIL="xsize=@map_data.xsize"]xsize=@map_data.xsize[/EMAIL]
    [EMAIL="ysize=@map_data.ysize"]ysize=@map_data.ysize[/EMAIL]
  # Bitmaps used for each priority's drawing.  Priorities 2-5 are combined.
    @bitmaps = [Bitmap.new(xsize*32, ysize*32+StripSize),
                Bitmap.new(xsize*32, ysize*32+StripSize),
                Bitmap.new(xsize*32, ysize*32+StripSize)]
    for i in @bitmaps
      i.clear
    end
    if @flash_data
      @bitmaps.push(Bitmap.new(xsize*32, ysize*32+StripSize))
    end
    @drawnstrips.clear
    @contentstrips.clear
  # Generate blank sprites
    @sprites.clear
    @numsprites=ysize * (32 / StripSize)
    for i in [EMAIL="0...@map_data.zsize"]0...@map_data.zsize[/EMAIL] # For each layer
      @sprites.push([])
      @contentstrips.push([])
    end
    if @flash_data
      @sprites.push([])
      @contentstrips.push([])      
    end
  end
  def update
    oyunchanged=false
    if [EMAIL="!@flash_data.nil"]!@flash_data.nil[/EMAIL]? && @sprites.length>0
     [EMAIL="[email protected]"][email protected][/EMAIL]
     for j in [EMAIL="0...@numsprites"]0...@numsprites[/EMAIL]
      [EMAIL="sprite=@sprites"]sprite=@sprites[/EMAIL][flashindex][j]
      next if !sprite.is_a?(Sprite)
      sprite.opacity=FlashOpacity[(Graphics.frame_count/2) % 6]
     end
    end
    for s in @sprites
      for sprite in s
        next if !sprite.is_a?(Sprite)
 #       [EMAIL="sprite.tone=@tone"]sprite.tone=@tone[/EMAIL]
 #       [EMAIL="sprite.color=@color"]sprite.color=@color[/EMAIL]
      end
    end
    if @doredraw
      @drawnstrips=[]
      redrawmap
      @doredraw=false
    elsif @oldOx==@ox && @oldOy==@oy
      return
    elsif @oldOy==@oy
      oyunchanged=true
    end
    @oldOx=@ox
    @oldOy=@oy
    @pitch = Pitch
    minvalue=[0, ((Graphics.height / 2) - ((Graphics.height * 60) / @pitch) + @oy) / StripSize].max.to_i
    maxvalue=[@numsprites - 1,(@oy + Graphics.height) / StripSize].min.to_i
    return if minvalue>maxvalue
     for j in [EMAIL="0...@numsprites"]0...@numsprites[/EMAIL]
      if j<minvalue || j>maxvalue
        for i in [EMAIL="[email protected]"][email protected][/EMAIL]
          [EMAIL="sprite=@sprites"]sprite=@sprites[/EMAIL][i][j]
          if sprite
            sprite.dispose if sprite.is_a?(Sprite)
            @sprites[i][j]=nil
          end
        end
      else
        drawStrip(j)
      end
    end
    [EMAIL="[email protected]"][email protected][/EMAIL]
    [EMAIL="[email protected][email protected]"][email protected][email protected][/EMAIL]
    [EMAIL="[email protected][email protected]"][email protected][email protected][/EMAIL]
    numsprites=0
    for i in @sprites
      numsprites+=i.compact.length
    end
    for j in minvalue..maxvalue
        # For each strip within the visible screen, update OX/Y
        x=Graphics.width/2
        [EMAIL="sox=@ox+x"]sox=@ox+x[/EMAIL]
        y = (j * StripSize - @oy)
        zoom_x=1.0
        zoom_y=1.0
        unless @pitch == 0 # Apply X Zoom
          zoom_x = (y - Graphics.height*1.0 / 2) * (@pitch*1.0 / (Graphics.height * 25)) + 1
          if Curve # Zoom Y values same as X, and compensate
            zoom_y = zoom_x
            yadd = StripSize*1.0 * (1 - zoom_y) *
                                ((1 - zoom_y) /
                                (2 * ((@pitch*1.0 / 100) /
                                      (Graphics.height*1.0 / (StripSize * 2)))) + 0.5)
            y+=yadd
          end
        end
        xstart=(x-sox*zoom_x)
        yend=(y+(StripSize*2)*zoom_y)
        if xstart>vpr || yend<=vpy
         for i in [EMAIL="[email protected]"][email protected][/EMAIL]
          [EMAIL="sprite=@sprites"]sprite=@sprites[/EMAIL][i][j]
          if sprite.is_a?(Sprite)
           sprite.dispose
           @sprites[i][j]=nil
          end
         end
        else
         for i in [EMAIL="[email protected]"][email protected][/EMAIL]
          [EMAIL="sprite=@sprites"]sprite=@sprites[/EMAIL][i][j]
          next if !sprite
          if sprite==true
           sprite=newSprite(i,j)
           @sprites[i][j]=sprite
          end
          [EMAIL="sprite.visible=@visible"]sprite.visible=@visible[/EMAIL]
          sprite.x = x
          sprite.ox = sox
          sprite.y = y
          sprite.zoom_x = zoom_x
          sprite.zoom_y = zoom_y
         end
        end
    end
  end
  def clear
    for i in @bitmaps
      i.dispose
    end
    @bitmaps.clear
    for i in [EMAIL="[email protected]"][email protected][/EMAIL]
      for j in [EMAIL="0...@sprites"]0...@sprites[/EMAIL][i].length
        @sprites[i][j].dispose if @sprites[i][j].is_a?(Sprite)
      end
      @sprites[i].clear
    end
    @sprites.clear
  end
  def dispose
    return if @disposed
    self.clear
    for i in 0...7
      self.autotiles[i]=nil
    end
    @helper=nil
    @sprites=nil
    @bitmaps=nil
    @disposed = true
  end
  def disposed?
    return @disposed
  end
  def newSprite(i,j)
        sprite=Sprite.new(@viewport)
        [EMAIL="sprite.bitmap=@bitmaps"]sprite.bitmap=@bitmaps[/EMAIL][i]
        sprite.src_rect.set(0, j * StripSize, 
          @map_data.xsize * 32, StripSize * 2)
        sprite.x = Graphics.width / 2
        sprite.y = -64
        sprite.z = (i * 32)
        [EMAIL="sprite.tone=@tone"]sprite.tone=@tone[/EMAIL]
        [EMAIL="sprite.color=@color"]sprite.color=@color[/EMAIL]
        if [EMAIL="[email protected]"][email protected][/EMAIL] && [EMAIL="!@flash_data.nil"]!@flash_data.nil[/EMAIL]?
          sprite.blend_type=1
          sprite.z=1
          sprite.opacity=FlashOpacity[(Graphics.frame_count/2) % 6]
        end
        return sprite
  end
  def drawStrip(j)
    minY=(j*StripSize)/32
    maxY=(j*StripSize+StripSize*2)/32
    minY=0 if minY<0
    [EMAIL="minY=@map_data.ysize-1"]minY=@map_data.ysize-1[/EMAIL] if minY>@map_data.ysize-1
    maxY=0 if maxY<0
    [EMAIL="maxY=@map_data.ysize-1"]maxY=@map_data.ysize-1[/EMAIL] if maxY>@map_data.ysize-1
    for y in minY..maxY
      if [EMAIL="!@drawnstrips"]!@drawnstrips[/EMAIL][y]
       for x in [EMAIL="0...@map_data.xsize"]0...@map_data.xsize[/EMAIL]
        draw_position(x, y)
       end
       @drawnstrips[y]=true
      end
    end
    for i in [EMAIL="[email protected]"][email protected][/EMAIL] # For each priority
      [EMAIL="sprite=@sprites"]sprite=@sprites[/EMAIL][i][j]
      if !sprite || (sprite!=true && sprite.disposed?)
        havecontent=false
        for y in minY..maxY
          [EMAIL="havecontent=havecontent||@contentstrips"]havecontent=havecontent||@contentstrips[/EMAIL][i][y]
        end
        sprite=(havecontent) ? true : nil
        @sprites[i][j]=sprite
      end
    end
  end
  def draw_position(x, y)
    for layer in [EMAIL="0...@map_data.zsize"]0...@map_data.zsize[/EMAIL]
      pos = @map_data[x, y, layer]
      [EMAIL="priopos=@priorities"]priopos=@priorities[/EMAIL][pos]
      priopos=0 if !priopos
      prio=(2<priopos) ? 2 : priopos
      @contentstrips[prio][y]=true if pos>0
      @helper.bltTile(@bitmaps[prio],x*32,y*32,pos,0)
    end
    if [EMAIL="!@flash_data.nil"]!@flash_data.nil[/EMAIL]?
      [EMAIL="[email protected]"][email protected][/EMAIL]
      [EMAIL="id=@flash_data"]id=@flash_data[/EMAIL][x,y,0]
      r=(id>>8)&15
      g=(id>>4)&15
      b=(id)&15
      @contentstrips[lastlayer][y]=true
      color=Color.new(r*16,g*16,b*16)
      @bitmaps[lastlayer].fill_rect(x*32,y*32,32,32,color)
    end
  end
end
class Sprite_Character
  alias perspectivetilemap_initialize initialize
  attr_accessor :character
  def initialize(viewport, character = nil)
    @character = character
    perspectivetilemap_initialize(viewport,character)
  end
  alias update_or :update
  def update
    update_or
    if $PokemonSystem.tilemap==2
      self.zoom_y=ScreenPosHelper.pbScreenZoomY(@character)
      self.zoom_x=ScreenPosHelper.pbScreenZoomX(@character)
      self.x=ScreenPosHelper.pbScreenX(@character)
      self.y=ScreenPosHelper.pbScreenY(@character)
      self.z=ScreenPosHelper.pbScreenZ(@character,@ch)
    else
      self.zoom_x=1.0
      self.zoom_y=1.0
    end
  end
end