new move object

[sadsack]

Hi,
Here is the code I am using to to move an object on the screen with the wsad keys.

CODE
key.initialize 'Initalize keys, without keys we wouldn't be able to exit the game loop causing B2D to crash (save often, it sucks to forget this)

class ImageSprite
public x
public y
public image
public speed
function Move()
if Key.Pressed(vk_W) then 'Move up
y = y - speed
end if
if Key.Pressed(vk_S) then 'Move down
y = y + speed
end if
if Key.Pressed(vk_A) then 'Move left
x = x - speed
end if
if Key.Pressed(vk_D) then 'Move right
x = x + speed
end if
end function
end class

dim Sprite 'Create a new variable named imageFile
Set Sprite = new ImageSprite
Sprite.speed = .5
Sprite.x = 200
Sprite.y = 200
Sprite.image = graphics.loadImage("test.bmp") 'We're settings the imageFile variable to the test.png image

dim font
font = graphics.CreateFont("system",15,true)

Do While not Key.Pressed(vk_escape) and not Key.Pressed(vk_windowx)
'If you don't press escape and don't press the window's X button (top right) it will loop

Sprite.Move

graphics.SetXY Sprite.image , Sprite.x , Sprite.y 'Set its X and Y to the Sprite's x and y
graphics.Clear 'Anything between this and .Display is drawn

graphics.setImage(Sprite.image) 'Draw sprite
graphics.SetText "(" & Sprite.x & " , " & Sprite.y & ")", 10, 10, font 'Output the X and Y
graphics.SetText "Use WASD to move the block", 10, 30, font 'Instructions

graphics.Display 'Finish it up

loop 'Needed for the loop to work

key.terminate 'Destroy the key object
graphics.terminate 'Destroy the graphics object... We're done!

Here is the erroe I am getting.

Error 9
Error loading image file test.bmp
Error 9 in CreateFont: system
Key terminated
Graphics terminate

Is there a list of what the error are??
here is my test bmp
Thank you
renny

[Guilect]

Hi sadsack,
welcome.

you are just needing to start DirectX by the graphics.initialize command.
You have to initialize the graphics object before calling any of its members such as createfont or load image.

if you put it in your existing code here:
.
.
.
Sprite.y = 200    
graphics.initialize
Sprite.image = graphics.loadImage("test.bmp")
.
.
.
It works as expected.

Cheers.

[sadsack]

Thank you Guilect, it worked just like it should. Just a dumb thing I did.
renny

[cemetarycat]

hey sadsack. ;D

yeah, you beat me to it.
I was going to implement an imagesprite class too.
That was going to be my next steps.
I'm still going to.

I won't copy yours nor look at it again.
Honest.

cheers

[sadsack]

the cemetary cat, hey how are you. This imagesprite class is not mine. I found it some place. I am just trying to get the the code thing down.
renny

[cemetarycat]

I'm doing better now.
Being nocturnal...I sleep a lot during the day.
If you catch my coffin.
("catch my drift")....


and about the sprite class not being yours....I'm gonna
take it and use it. No, not really. I'll still make and code my own.

The challenge and pleasure...and pain too...is in making your own.

[cemetarycat]

ohhhhh!

I have had a Sprite class already. I made this a few months ago. I did some modifying and tweaking. Its just a generic Sprite class.

Here is the code:

     
     
  'spriteclass1b2d
 'another template approach to programming in Brutus2d
 'loading and and display space bacground  
 
 'create  spriteclass....Sprite1
 'make class members x1,y1, speed...private  
 
 class Sprite1
 
   Private x1,y1, speed
   Public Image
   
   
  'place the width on screen of the Sprite1 Image
  'thru the class(objects') property-method and parameter assignment  
   Public Property Let x(mx)
     graphics.setx image, mx
      x1=mx
   end property
 
  'place the height onscreen of the Sprite1 image
  'thru the class(objects') property-method and parameter assignment
   Public Property Let y(my)
    graphics.sety image, my
     y1=my
   end property  
   
   'set the private member speed
   'thru via a property-method only.    
   
    Public Property Let setspeed(sp)
      speed=sp
    end property
   
   
   'set the image of the Sprite1..by the file name
   Public Property Let picname(tempname)
       maskcolor1=argb(255,0,0,0)
     Image=graphics.LoadImage(tempname, maskcolor1)
   end property
   
   'retrieve the positional width-x of particular Sprite1 image
   Public Property Get getx()
    x1=graphics.Getx(image)
   end property
   
   
      'set the width of the image...Sprite1 image
      'thru the objects' method, not thru its property
      Public sub setimagex(tempx)
       graphics.setx image, tempx
        x1=tempx
      end sub
       
      'set the height of the image...the Sprite1 image
      'thru the objects method, not thru its property
      Public sub setimagey(tempy)
       graphics.sety image, tempy
        y1=tempy
      end sub
       
    'display the x,y coordinates of bugs' image..x1,y1
    'x1 and y1 are private members of the Sprite1 class..and for each Sprite1 object  
     Public sub displayxy()
      graphics.SetText "xpos is: "+cstr(x1), 10, 400, Font1, textcolor
       graphics.SetText "ypos is: "+cstr(y1), 10, 420, Font1, textcolor
     end sub
     
     'move width-x of image across
     'update and reassign x1...which is private member
     
      Public sub placex()
        x1=x1+speed
        if (x1>=(799)-49) or (x1<=0) then          
           speed=speed*-1
        end if
       
       graphics.setx image, x1
      end sub  
       
   
   'display the Sprite1 image..by the subroutine of particular class
   Public sub image1()
    graphics.setImage Image
   end sub    
   
   
   
 end class
 
 
 
 dim backcolor, textcolor, Font1   'background color, text color, and Font
 dim background                    'background image
 dim alien1                        'Sprite1 object of alien
 

 
 
'default initialization of 800,600,32
'initialize graphics and graphics built in object

if (graphics.initialize(800,600,1,32)=True) Then
 
   key.initialize
   Font1=graphics.createfont("times",14)
   
   backcolor=argb(255,0,0,0)     'blue background
    textcolor=argb(255,10,250,10)    'green text color  
   
      background=graphics.LoadImage("space11.bmp")
          graphics.setxy background, 0,0
 
   
  'create alien object from Sprite1 class
 
   Set alien=New Sprite1
   
    'set an image into the alien object
      alien.picname="ship4.bmp"
     
    'set/place x,y coordinates of image...of alien object
      alien.setimagex(50)
      alien.setimagey(100)
             

   ' main loop      

   
   
   Do
   
          graphics.clear backcolor
       
         graphics.SetImage background
         
         graphics.SetText "Outer Space and Beyond", 240,10, Font1, textcolor  
         
           'draw alien image..from alien object
           
           alien.image1()  
           
       
         
       
       graphics.display
         
         'exit loop and clean up and end program
         'when Esc key pressed.
         
       if key.pressed(vk_escape) or key.pressed(0)=True  then exit do  
         
         
                 

       
    Loop  
   
   
   
  'clean up...shut down
 
    key.terminate
    graphics.clearFont Font1
   
      graphics.terminate
       
   
   
 
 end if
 
 
 
 




the ship image




and the background image is the Outer Space one
and is shown in my 3D Astro Boy program

[sadsack]

hey very nice, did you make the ship?? I am playing around with 3D GS. I got my tank in the program and you can move it around. I have not been able to load a world in yet, to drive on.
renny

[cemetarycat]

I didn't make the ship.
I wish I did, cause it looks so cool and out of this world.

Its royalty free content for use.
Just like with Reiner tiles.

reinerstileset.4players.de/englisch.html

a few other links too.

www.arrakis.es/~esanchez/
www.flyingyogi.com/fun/spritelib.html
lostgarden.com/labels/free%20game%20graphics.html


by the way, your tank looks cool in 3DGS.