Well here you go:
Additionally you have a problem with creation responsability. Since New() cannot be made private you should use either New(), or the Create Function (Simple Factory). Moving the lines in the New() method to the Create Function would solve this, and additionally you should only increase the count, and add an object to the list, if image loading was actually successful.
Additionally there's a potential problem with the Update method. Does having a Global here actually work? Shouldn't scale be a Field (maybe even a Global/static one) like Alphalevel?
Also the update method has way too many different responsabilities. It would be better to seperate the update (queue management, etc.) and actual rendering (fade/scale, drawimage) in seperate methods. Additionally Cls/Flip/Flushmem etc. should be moved to the main loop.
The main loop could then look something like:
You've set scale as an Int when it should be a float.
Or double. Also, the same is true for Alpha. Field _image:TImage = New TImage
As far as I can tell, this is redundant since all images are stored in a List anyway.Additionally you have a problem with creation responsability. Since New() cannot be made private you should use either New(), or the Create Function (Simple Factory). Moving the lines in the New() method to the Create Function would solve this, and additionally you should only increase the count, and add an object to the list, if image loading was actually successful.
Additionally there's a potential problem with the Update method. Does having a Global here actually work? Shouldn't scale be a Field (maybe even a Global/static one) like Alphalevel?
Also the update method has way too many different responsabilities. It would be better to seperate the update (queue management, etc.) and actual rendering (fade/scale, drawimage) in seperate methods. Additionally Cls/Flip/Flushmem etc. should be moved to the main loop.
The main loop could then look something like:
While Not KeyHit(KEY_ESCAPE) Cls i.update() i.render() Flip Flushmem WendOther than that it looks perfectly reasonable.