BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Res-changing code -- Can be added to any program easily", by grim_1_2_3

This piece of code basically allows you to change between resolutions easily, at any time during the program. More resolutions can be added by simply adding a few lines of code. Right now it has 3: 640 by 480, 800 by 600, and 1024 by 768. Fully commented.

Note: You must use you're own images, Since none are included with the code.

Also, Please don't be put off by all of the text in the code -- Most of it is comments, LOL -- I guess I over-did it a little :) I wanted it to be easy for everyone to understand though. Anyway -- If you delete the commented lines, You will find that the code is a LOT smaller.

Code

; **************************
; *     By Grim_1_2_3      *
; **************************

; Dynamic Resolution changing example

Global ix = 0 ; stores x screen coordinate of the 'image1' image 
Global iy = 0 ; stores y screen coordinate of the 'image1' image 
Global xoffset = 0 ; The x offset in pixels(Used to center images no matter what the resolution is) 
Global yoffset = 0 ; The y offset in pixels(Used to center images no matter what the resolution is) 
Global mode = 1 ; keeps track of the current 'mode' - Starts out as 640 by 480. 
Global loadpics = 0 ; turns the loading of images on or off. This is initially set at 0 - off, because you can't load images until the 'Graphics' command is called
Global background ; this is purposely left empty, so that we can access the image globally - later, There's a reason for this
Global image1 ; this is purposely left empty, so that we can access the image globally - later, There's a reason for this

; If you make 'background' and 'image1' load an image in the begining, you will get an 'illegal memory address'
; message. The reason for this is because the graphics command isn't used at the very start of the program,
; Because you can't switch resolution settings when you do it that way, So I came up with this method! :)

While Not KeyHit(1) ; while the 'esc' key isn't being pressed..
ix = MouseX() ; make the 'image1's' x position match the mouse x position on the screen
iy = MouseY() ; make the 'image1's' y position match the mouse y position on the screen
Select mode ; check the current mode..
Case 1 ; If the mode chosen is 1 (640 by 480)
w = 640 ; Make the screen width 640 pixels wide
h = 480 ; Make the screen height 480 pixels in height
mode = 4 ; initiate the 'graphics' command & double buffer sequence
xoffset = 0 ; make the background picture's x position 0 
yoffset = 0 ; make the background picture's y position 0 
Case 2 ; If the mode chosen is 2 (800 by 600)
w = 800 ; Make the screen width 800 pixels wide
h = 600 ; Make the screen height 600 pixels in height
mode = 4 ; initiate the 'graphics' command & double buffer sequence
xoffset = 80 ; make the background picture's x position 80 (this value centers the background for this mode) 
yoffset = 60 ; make the background picture's y position 60 (this value centers the background for this mode) 
Case 3 ; If the mode chosen is 3 (1024 by 768)
w = 1024 ; Make the screen width 1024 pixels wide
h = 768 ; Make the screen height 768 pixels in height
mode = 4 ; initiate the 'graphics' command & double buffer sequence
xoffset = 192 ; make the background picture's x position 192 (this value centers the background for this mode) 
yoffset = 144 ; make the background picture's y position 144 (this value centers the background for this mode) 
Case 4 ; this is where the actual graphics command is called
Graphics w,h ; set the graphics mode according to the current width/w and height/h, Values 
SetBuffer BackBuffer() ; enable double buffering
mode = 5 ; go to the graphics update sequence
loadpics = 1 ; enable the images to load
Case 5  ; this is where the graphics are updated each time through the loop
loadpics = 0 ; turn the image loading off - this keeps the images from being loaded over and over -- Which would drastically slows things down
MidHandle image1 ; Set the handle of the 'image1' image to the center of the image
DrawImage background,xoffset,yoffset ; update the background image at the current background x/y offset coordinates  
DrawImage image1,ix,iy ; update the 'image1' image at the current image1 x/y coordinates
Text 0,20, "Current Mouse Position is:" + " X>" + MouseX() +" Y>" + MouseY() ; Put whatever text info you want here
Flip ; flip the screen into view
Cls ; clears the current drawing buffer
End Select
If KeyHit(2) Then ; If the '1' key is pressed..
mode = 1 ; Change the graphics to the 1st mode, 640 by 480 pixels
EndIf
If KeyHit(3) Then ; If the '2' key is pressed..
mode = 2 ; Change the graphics to the 2nd mode, 800 by 600 pixels
EndIf
If KeyHit(4) Then ; If the '3' key is pressed..
mode = 3 ; Change the graphics to the 3rd mode, 1024 by 768 pixels
EndIf
If KeyHit(16) Then ; If the 'Q' key is pressed quit the program 
End
EndIf
If loadpics = 1 Then ; If loadpics is 1 (on), Then load the game images
pic1 = LoadImage("background.bmp") ; Replace with any bitmap image you want.
pic2 = LoadImage("image1.bmp") ; Replace with any bitmap image you want. 
background = pic1 ; make 'background' the pic1 image
image1 = pic2 ; make 'image1' the pic2 image 
EndIf
Wend

Code software created by Krylar's Kreations