Show Posts
This section allows you to view all posts made by this member. Note that you can only see posts made in areas you currently have access to.
Yes, I have something akin planned for my own project. Sadly, I have no access to the source code (probably no one besides the author does) so your best bet would be registering on their forum and reporting the laggy behavior.
Something that you could try is, so to speak, having "calm.sunvox" and "fight.sunvox" loaded from the start of a stage, the first in slot 0 and the second in slot 1. If an enemy appears then you could just tell the engine to Stop(0) and Play(1). Or, if the change might be less abrupt, having them crossfade during a little while using the Volume method, since it works by slots as well.
// --------------------------------- //
// Project: colorfont
// Start: Saturday, September 24, 2011
// IDE Version: 10.113
TYPE TColor
Initialized = FALSE
Name$
ABGR%
Red%
Green%
Blue%
Alpha%
FUNCTION Set: color%, alpha = 255, name$ = "unknown"
self.Red = bAND(color, 0xff)
self.Green = bAND(ASR(color,8), 0xff)
self.Blue = bAND(ASR(color,16), 0xff)
self.Alpha = alpha
self.Name$ = name$
self.ABGR = bOR(RGB(self.Red,self.Green, self.Blue), ASL(self.Alpha, 24))
self.Initialized = TRUE
ENDFUNCTION
ENDTYPE
TYPE TText
lineWidth%
lineHeight%
fontWidth%
fontHeight%
screenId%
spriteId%
originalColor AS TColor
Color AS TColor
FUNCTION Init: org_color% = 0xffffffff, sprite_id% = -1, screen_id% = 31
self.originalColor.Set(org_color)
self.Color.Set(org_color)
GETFONTSIZE self.fontWidth, self.fontHeight
self.lineHeight = self.fontHeight + 1 // Need this TO NOT crash on draw-functions
IF sprite_id = -1
self.spriteId = GENSPRITE()
ELSE
self.spriteId = sprite_id
ENDIF
self.screenId = screen_id
ENDFUNCTION
FUNCTION setColor: color%
self.Color.Set(color%)
ENDFUNCTION
FUNCTION Write: txt$, xpos%, ypos%
LOCAL abgr%[]
self.lineWidth = LEN(txt$) * self.fontWidth
CREATESCREEN self.screenId, self.spriteId, self.lineWidth, self.lineHeight
USESCREEN self.screenId
DRAWRECT 0,0, self.lineWidth, self.lineHeight, RGB(255,0,128)
PRINT txt$ , 0, 0
SPRITE2MEM(abgr[], self.spriteId)
FOR x = 0 TO self.lineWidth * self.fontHeight
IF abgr[x]=self.originalColor.ABGR
abgr[x]=self.Color.ABGR
ENDIF
NEXT
MEM2SPRITE(abgr[], self.spriteId, self.lineWidth, self.lineHeight)
USESCREEN -1
DRAWSPRITE self.spriteId, xpos, ypos
ENDFUNCTION
ENDTYPE
SETSCREEN 320, 240, FALSE
DRAWRECT 0,0, 320,240, RGB(80,80,80)
LOCAL txt AS TText
txt.Init()
txt.setColor(RGB(0,255,255))
txt.Write( "This is a test", 10, 10)
txt.setColor(RGB(255,0,0))
txt.Write( "Another Color :)", 40, 30)
SHOWSCREEN
MOUSEWAIT
).
Thats a shame - a Linux version would be very handy...