Messages

Well I slapped something together for you mostly from something i did before its 800x600 i hope u can use it if not you can hack it up yourself with stuff you find on the web. If im not mistaken (probably am) boot screen is 256 colors this is rgb 24 bit so you might have to reduce colors then it will probably look really crap because of the gradients used. so you will get banding (ughh) but since its on only your computer.......... I spent about 10 minutes on this. If you need something for a released prod let me know

that's cool thanks

Personally i would never change a system file (resource) for such a thing

I wonder if that's why Vista doesn't have a boot screen?
Jim

Actually Vista does have a boot screen. it is that animated loading bar but through study I found that I can extended the timer to how long or how short I want the screen displayed

Yeah but hopefully someone will do it. Is there a way I can make a image fit the screen even if it's another image size?

I tried that but they don't ft my taste and if they did they did not have the attributes need to make the boot screen criteria

I was trying to make a boot screen for my own personalized laptop boot screen instead of the regular windows boot screen. I tried and failed miseriablly . I didn't know who to turn to except ya in hope that someone could do this little favor for me. I would like the Grim Repear just the way I said it but if you think ya can make something much cooler to your liking then by all means go head I am in no position to be picky. So have at it and enjoy being adventurous. ya can all so put yourname on it in small letters like a copy right. If ya do this then this will let people know who done the awsome artwork for me

Thank You

  I need a graphic artist that can make a boot screen with a grim reaper in the middle of the screen and under that a couple of spaces below a progress bar in the shape of four bones and inside a sythe that does a 360 degree turn going across the screen and below that a couple of spaces the words Anonymus Slayer but with slayer below anonymus (mirror form) also you can have the words in style you want. Please and thank you

ScreenW and ScreenH= 800X600 24-bit  1024X768 24-bit 
these are a must have screen width and height

I am serious need of a graphics designer could you be some assistance to me. What I am looking for is someone to make a custom boot screen for my laptop.  I would like for it to be the grim reaper with a sythe(intigute details something cool) in the middle of the screen and under him a loading bar made of bones and in teh inside I would like a rotating sythe.  Under that the words Anonymus Slayer but with slayer at the bottom of the word Anonymus (sorta mirror image thing)

Ok I see what you are saying in a way but my code is already posted. I just want the alien to be deleted as soon as the laser hit the alien but it just goes through it. How can I accomplish this task

Code Select Expand


Graphics 640,480
SetBuffer BackBuffer()
AutoMidHandle True


;TYPES
Type ship
    Field x,y
End Type

Global s.ship=New ship
       s\x=320
       s\y=440     


Type laser
   Field x,y
End Type


Type alien
   Field x,y,frame,shoot
End Type

Global a.alien=New alien
          a\x=30
          a\y=30
          a\frame=0
          a\shoot=shoot

Global ship=LoadImage("graphics/ship.bmp")
Global laser=LoadImage("graphics/laser.bmp")
MaskImage laser,0,0,0
Global alien=LoadAnimImage("graphics/alien.bmp",68,38,0,10)
MaskImage alien,0,0,0
Global background=LoadImage("graphics/stars.bmp")
Global a_bullet=LoadAnimImage("graphics/s_bullet.bmp",34,19,0,10)

While Not KeyHit(1)
Cls

t=t


If a\x>=620 Then t=1

Select t
     
         Case 1
              a\x=a\x-1
           
     
         Case 2
              a\x=a\x+1
             
End Select


If a\x<=30 Then t=2


UpdateAlien()
UpdateShip()
LaserUpdate()



TileImage background,x,y
Flip

Wend
End


;-----------------------
;     Update Ship      -
;-----------------------
Function UpdateShip()

If KeyDown(203) Then s\x=s\x-2 ;move ship left
If s\x<=10 Then s\x=10 ;stop ship from going off screen

If KeyDown(205) Then s\x=s\x+2 ;move ship right
If s\x>=610 Then s\x=610;stop ship from going off screen

If KeyHit(57) Then    ;if space is pushed then shoot laser
   l.laser=New laser   
        l\x=s\x
        l\y=s\y+2
EndIf

DrawImage ship,s\x,s\y

End Function

   

;---------------
;  Laser Update-
;---------------
Function LaserUpdate()
  For l.laser=Each laser   
        l\y=l\y-5 
   
      If l\y<0 Then  ;if laser goes off screen delete it
         
           Delete l
     
      Else

           DrawImage laser,l\x,l\y
     
     EndIf
             
  Next
End Function

;-----------------
;  Alien Update  -
;-----------------
Function UpdateAlien()

a\frame=a\frame+1


Delay 4
If a\frame>9 Then a\frame=0
If a\frame<0 Then a\frame=9

DrawImage alien,a\x,a\y,a\frame

End Function

;--------------------
;  Collision Update -
;--------------------
Function Update_Collision()
For l.laser=Each laser
     
    For a.alien=Each alien
   
        If ImagesCollide(laser,l\x,l\y,0,alien,a\x,a\y,0)
          Delete a
        EndIf
       
Next     
     Next
 
   

End Function


Alright I still can't get my collision to work so what's the deal 
email me at JoshuaMoten@gcasda.org and if that don't work just use all lower case letters

  thanks that  worked almost perfectly only my alien don't get deleted   

  my collisions are not working for some reason

Code Select Expand


Graphics 640,480
SetBuffer BackBuffer()
AutoMidHandle True


;TYPES
Type ship
    Field x,y
End Type

Global s.ship=New ship
       s\x=320
       s\y=440     


Type laser
   Field x,y
End Type


Type alien
   Field x,y,frame
End Type

Global a.alien=New alien
          a\x=30
          a\y=30
          a\frame=0

Global ship=LoadImage("graphics/ship.bmp")
Global laser=LoadImage("graphics/laser.bmp")
Global alien=LoadAnimImage("graphics/alien.bmp",68,38,0,10)
Global background=LoadImage("graphics/stars.bmp")

While Not KeyHit(1)
Cls

t=t


If a\x>=620 Then t=1

Select t
     
         Case 1
              a\x=a\x-1
           
     
         Case 2
              a\x=a\x+1
             
End Select


If a\x<=30 Then t=2


UpdateAlien()
UpdateShip()
LaserUpdate()
Collision_Update()


TileImage background,x,y
Flip

Wend



;-----------------------
;     Update Ship      -
;-----------------------
Function UpdateShip()

If KeyDown(203) Then s\x=s\x-2 ;move ship left
If s\x<=10 Then s\x=10 ;stop ship from going off screen

If KeyDown(205) Then s\x=s\x+2 ;move ship right
If s\x>=610 Then s\x=610;stop ship from going off screen

If KeyHit(57) Then    ;if space is pushed then shoot laser
   l.laser=New laser     
        l\x=s\x
        l\y=s\y+2
EndIf

DrawImage ship,s\x,s\y

End Function

   

;---------------
;  Laser Update-
;---------------
Function LaserUpdate()
  For l.laser=Each laser   
        l\y=l\y-5 
   
      If l\y<0 Then  ;if laser goes off screen delete it
         
           Delete l
     
      Else

           DrawImage laser,l\x,l\y
     
     EndIf
             
  Next
End Function

;-----------------
;  Alien Update  -
;-----------------
Function UpdateAlien()

a\frame=a\frame+1


Delay 4
If a\frame>9 Then a\frame=0
If a\frame<0 Then a\frame=9

DrawImage alien,a\x,a\y,a\frame

End Function

;----------------------
;  Collision Update   -
;----------------------
Function Collision_Update()
For a.alien=Each alien 
   If ImagesOverlap(laser,l\x,l\y,alien,a\x,a\y)
       Delete a
   EndIf
Next
End Function