XP: Resolution - Менябельное разрешение экрана

Equilibrium Keeper
Автор темы
Не в сети
Захожу иногда
Скриптер

Больше

17 года 3 нед. назад - 17 года 3 нед. назад #26074 от Equilibrium Keeper

Equilibrium Keeper создал тему: XP: Resolution - Менябельное разрешение экрана

Итак, вот первые плоды капания в скриптах покемонов. Вернее, даже не самих покемонов, а сопотствующих файлов, а именно кастомной Tilemap. В результате трехднвной работы получилось нечто вполне вменяемое и даже играбельное, хотя еще и далекое от идеала.

Как вы видите - на первый взгляд, все просто прекрасно. Но, увы, не обошлось и без тараканов.

При использовании огромных тайлсетов на огромных картах заметно падает FPS (-4 кадра) при обновлении автотайлов (это 7 самых верхних тайлов, не входящих в тайлсет). Во вторых, при этом автотайлы рисуются поверх нормальных тайлов, "выедая" дыры в деревьях и прочих объектах. Для исправления этого они в свою очередь перерисовываются заново (причем все), что скидывает FPS еще на 10~15 кадров. Естественно все мягко говоря лагает и играть в такое чудо невозможно.
С картами стандартных размеров без исполинских тайлсетов все нормально, но наверняка рано или поздно кому-нибудь понадобится создать карту 500x500... А играть без анимированных тайлов тоже не интерестно, наоборот - лучше бы добавить им 8~128 лишних кадров, что бы водичка колыхалась плавно...
При хождении вниз-вправо, карта ограничивается лишь по левому краю, а по нижнему и правому продолжает двигаться, открывая взору черные области

Это нужно править. Я добавил несколько комментариев, выстроил скрипты лесенкой, убрал Булевую алгебру (>>, <<), привел названия переменных и методов к более привычному виду, так что скрипт теперь стал намного более читабелен. Тем не менее, очень бы пригодилась помощь скриптеров в устранении вышеупомянутых багов. За эти три дня скрипт уже примелькался и на него трудно взглянуть объективно. Нужны новые люди, новые идеи реализации, оптимизации.

Вот техническая демка(10мб):
narod.ru/disk/7574735000/Resoulution%20(copy%202).zip.html
webfile.ru/3402139

Прошу прощения за большой объем - нет уже сил чистить ее от мусора. В основном это графика + последняя библиотека для тех, кто сидит на старом мейкере без R&W патча.

Не обращайте внимание на смещенные окна, пустоты в менюшках и битвах и прочее. Существует переменная $resolution, управляющая разрешением. Ссылаясь на нее, все это можно будет в последствии выровнять - тут ничего сложного. Сейчас главная задача - довести до ума класс Tilemap и все что с ним связано, так что бы корректно отображалась карта. К слову, разрешением можно буедет управлять из игры, через меню Настройки. А доступный масштабный ряд будет определяться разработчиком. К сожалению, это некоторым образом скажется на итоговых размеров игры, как вы можете заметить глядя на демку, однако это вынужденная мера в виду отсутствия пока масштабирования изображений.

Граждане-скриптеры, не проходите мира! Одному очень сложно этим заниматься!

Истина там, во тьме, и во тьме ты иди - мыслящий бродит во тьме.
В себя самого загляни, открой свою дорогу в Ничто.
В Ничто ты войди, во тьму, и пойми:
Пока ты во тьме, не может она быть Ничем - ведь там ты.

Последнее редактирование: 17 года 3 нед. назад пользователем Equilibrium Keeper.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

mephis
Не в сети
Завсегдатай
Коллекционер

Больше

17 года 3 нед. назад #26079 от mephis

mephis ответил в теме XP: Resolution - Менябельное разрешение экрана

Я честно говоря лох в устройстве классов мэйкера, так бы подсказал что-нибудь дельное. Разве что, покопавшись, понял что для починки глюка с чёрными областями нужно модифицировать (либо перекрыть старые, если это возможно) методы scroll_down и scroll_right в классе Game_Map.

Там они вида

Code:

  def scroll_down(distance)
    @display_y = [@display_y + distance, (self.height - 15) * 128].min
  end
  #--------------------------------------------------------------------------
  def scroll_right(distance)
    @display_x = [@display_x + distance, (self.width - 20) * 128].min
  end

Очевидно, если заменить 15 и 20 на то количество, которое влазит на экран, он скроллировать дальше не станет.

Кстати, Equilibrium Keeper, а вот что засоветуешь почитать, чтобы более-менее понять как всё это работает. В программировании разбираюсь. Думаю, что синтаксис Ruby за полдня осилю.

→ → ↓ ↑ Y

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Kuraudo
Не в сети
Давно я тут
Философ

Больше

17 года 3 нед. назад #26084 от Kuraudo

Kuraudo ответил в теме XP: Resolution - Менябельное разрешение экрана

Как известно, в скриптах я профан, но с точки зрения пользователя могу кое что посоветовать и прокоментировать. Ну во первых лучно у меня ФПС не проседает, во вторых хотелось бы в увеличении разрешения видеть не просто большую зону, которую охватывает глаз, а хотелось бы видеть ту же зону, н ов большем разрешении. Понимаю что сделать это очень трудно, фактически получается, что мукер должен сам дорисовывать графику до нужного разрешения, тут нуден определенный алгоритм. Вообщем лично меня бы устроил результат, в котором графика была бы не такой "рябой" при увеличении на весь экран, хотя и сделать это нашими усилиями наврядли возможно.

Это все, потому что я ужасный тип.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Equilibrium Keeper
Автор темы
Не в сети
Захожу иногда
Скриптер

Больше

17 года 3 нед. назад #26086 от Equilibrium Keeper

Equilibrium Keeper ответил в теме XP: Resolution - Менябельное разрешение экрана

mephis
Спасибо. Бывает. ^_^

Касательно изучения - чужие скрипты и замечательный учебник: ru.wikibooks.org/wiki/Ruby
Тебе будет легче. В отличии от тебя - я не программист. (=

Kuraudo
По сути, ничего особо сложного нет. Только опять же переделать Тайлмапу на тайлы размеров 64х64. А после покидать уже трансформированные изображения в папки с нужными разрешениями. Другой путь - писать метод для масштабирования изображений.
После отладки скриптов, возможно, сделаю и менябельный размер тайлов, тем более что предпосылке для этого есть. Но ничего быстро не обещаю.
Я же начал все это лишь за тем, что бы расширить поле битвы и окошки меню - уж больно они маленькие - ничего не уместишь.

А лагов ты не заметил потому что для больших карт я отключил обновление. А на маленьких лагов нет. )

all
Спасибо Доку за RPGAE, нарыл я в нем уже отлаженную Тайлмапу. Естественно отлажена она не до конца, но зато проблем с обновлением нет. Будет время - прикручу и избавлюсь от вылета на границе карты.

ВНИМАНИЕ: Спойлер!

# poccil's Tilemap script
# Need to be edited to match with RPGAE scripts and new features

class CustomTilemapAutotiles
attr_accessor :changed
def initialize
@changed=true
@tiles=[nil,nil,nil,nil,nil,nil,nil]
end
def []=(i,value)
@tiles=value
@changed=true
end
def [](i)
return @tiles
end
end

class Tilemap
Animated_Autotiles_Frames = 15
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,1024,768)
@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*2,@viewport.rect.height*2)
@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
@autotileInfo.dispose
@autotileInfo=nil
end
i+=1
end
i=0;len=@regularTileInfo.length;while i<len
if @regularTileInfo
@regularTileInfo.dispose
@regularTileInfo=nil
end
i+=1
end
i=0;len=@tiles.length;while i<len
@tiles.dispose
@tiles=nil
i+=2
end
i=0;len=@autosprites.length;while i<len
@autosprites.dispose
@autosprites=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=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 - 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 0...@autotileInfo.length
next if !@autotileInfo
frame=autotileFrame(i)
bltAutotile(@autotileInfo,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
@regularTileInfo.dispose
@regularTileInfo=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*2,@viewport.rect.height*2)
@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
@autotileInfo.dispose
@autotileInfo=nil
end
i+=1
end
i=0;len=@autosprites.length;while i<len
if @autosprites
@autosprites.dispose
@autosprites=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=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 !@flash || @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>>&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 0...@map_data.zsize
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

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Equilibrium Keeper
Автор темы
Не в сети
Захожу иногда
Скриптер

Больше

17 года 3 нед. назад - 17 года 3 нед. назад #26114 от Equilibrium Keeper

Equilibrium Keeper ответил в теме XP: Resolution - Менябельное разрешение экрана

Касательно бага с прокруткой:

Code:

def scroll_down(distance)
    @display_y = [@display_y + distance, (self.height - $resolution[1] / 32) * 128].min
  end
  #--------------------------------------------------------------------------
  def scroll_right(distance)
    @display_x = [@display_x + distance, (self.width 0 - $resolution[0] / 32) * 128].min
  end

Осталось расковырять второй баг - проявляется на картах размеры которых примерно 150x150 и больше. Почему то карта тайлов вылетает (высвобождается) и скрипт выдает ошибку... копаю.

Еще один момент - Graphics.transition, кажется, действует только на область 640х480. Видимо, придется переписывать этот метод...

Последнее редактирование: 17 года 3 нед. назад пользователем Equilibrium Keeper.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

mephis
Не в сети
Завсегдатай
Коллекционер

Больше

17 года 3 нед. назад - 17 года 3 нед. назад #26123 от mephis

mephis ответил в теме XP: Resolution - Менябельное разрешение экрана

Это где там Line 619: NoMethodOccurred? Да тупо выход за границы в map_data. Особо не смотрел, но как временное решение в строках 604 и 605 уменьшить на единицу size_x и size_y:

Code:

      end_x = size_x - 1 if end_x > size_x
      end_y = size_y - 1 if end_y > size_y

Но наверняка причина в другом месте зарыта. С чего бы тогда глюки были только на >150 клеток картах.

→ → ↓ ↑ Y

Последнее редактирование: 17 года 3 нед. назад пользователем mephis.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Equilibrium Keeper
Автор темы
Не в сети
Захожу иногда
Скриптер

Больше

17 года 3 нед. назад #26124 от Equilibrium Keeper

Equilibrium Keeper ответил в теме XP: Resolution - Менябельное разрешение экрана

Скрипт исправлен. Вернее поставлен аварийный переключатель. Протестировал - все работает. При оптимизации надо будет расковырять причины выхода из допустимого диапазона.
Просьба протестить - все должно работать.
Для тех кто уже скачал предыдущую версию, вот ссылка на исправленные скрипты. Распакуйте и забросьте в папку Data:
webfile.ru/3402146

Ссылки обновлены.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.

Equilibrium Keeper
Автор темы
Не в сети
Захожу иногда
Скриптер

Больше

17 года 3 нед. назад #26125 от Equilibrium Keeper

Equilibrium Keeper ответил в теме XP: Resolution - Менябельное разрешение экрана

mephis
Вот и я про это же. Не выход. Там ясно указан интервал без включения: n...x Тобишь n..х-1. И вылетает она именно на больших картах. Поэтому я просто разрываю циклы, если id = map[x, y, z] не существует. Побегал - вроде, это никак не влияет на рисовку тайлов - все отображаются. Просто один из циклов пробегает на один раз больше, чем положено... Почему - надо разобраться.

Пожалуйста Войти или Регистрация, чтобы присоединиться к беседе.