sergieto28

Buenas noches a todos he seguido el hilo desde el principio y me gusta el trabajo que estais haciendo me gustaria aprender sobre blitz ya que algo no mucho ni siquiera el 1 por ciento se de este programa,3d studio aunque tengo la version 5 y el adobe photoshop se usarlo medio medio pero bueno.Una pregunta o un parde ellas es :como abro imágenes en bliz, ejem: he hecho un radar le he puesto fondo negro y lo he guardado como bmp,la pregunta es ¿como lo cargo? ¿en que carpeta específica del blitz tengo que ponerlo? y como lo redimenziono en la pantalla y como hago para que no se vea el fondo negro sino transparente, si me decis como poner imágenes pues os pongo
aqui una pero de todas maneras este me parece un buen foro. muchas gracias

Cibertronic

Hola Sergieto28

Para la pantalla tienes la orden Graphic ancho, alto,color,modo

Guarda de preferencia las imagenes en la misma carpeta donde guardas el programa, para asi llamarlo solo por su nombre.

x ejm

fondo=LoadImage("fondo.jpg")

pero si deseas tamiben puedes gurdarlo en una carpeta dentro de la carpeta donde esta tu programa:

fondo=LoadImage("imagenes\fondo.jpg")

y por ultimo si deseas lo guardas en cualquier carpeta, pero esto no es recomendable....

fondo=LoadImage("d:\mi trabajo\imagenes\fondo.jpg")


una ves cargada la imagen en memoria debes dibujarla en la pantalla(antes de flip con

drawimage fondo,x,y

donde x,y son las coordenadas donde quieres que salga la imagen

para hacer un color invisible por ejemplo el negro, despues de la sentencia load debes usar Maskimage imagen,r,g,b

maskimage fondo,0,0,0


aqui dejo una sencilla demo para ilstrarte como cargar las imagenes....
tambien utilizo loadanimimage...........

ve primero el ejecutable y luego analisas el codigo.

Miniatura de Adjuntos

 

Descargar Directa de Archivos ...

2d tutor.rar (1.04 MB, 35 visitas)

__________________
Para Jessi

sergieto28

Gracias cibertronic por la rrespuesta lo probare dentro de un rato y luego te comento
es que ahora estoy ocupadillo.

sergieto28

he podido probarlo esta muy bien he seguido lo que pones y he cogido el radar que te dije y lo he puesto asi c:\archivos de programa\Blitz3D\radar.bmp pero a la la hora de darle al f5 me sale este error runtime error image does not exist y en el descompilador me aparece marcado la linea maskimage radar 0,0,0 de verdad que me hago un lio con estas cosas y perdona si soy un coñazo pero es que uno quiere aprender y nada mas que se da tortazos.Bueno te dejo y gracias

NeCRoManCeR

Les dejo esto que hice hace unos años, tiene implementado el plugin blitzmovie, quizás sirva a alguien, a mi ya no me sirve.
Es un ejemplo de menu con imagenes y video incluidos.




Global BotonOpcionesMenuprincipal
Global BotonConectarMenuPrincipal
Global BotonCreditosMenuPrincipal
Global BotonSalirMenuPrincipal
Global fondoinicio
Global boton640x480
Global boton800x600
Global boton1024x768
Graphics3D 320,450,16,2
AppTitle "Tellus"
SetBuffer BackBuffer()

fondoinicio=LoadImage("Media\Imagenes\fondoinicio. jpg")
boton640x480=LoadImage("Media\Imagenes\BotonResolu cion640x480.jpg")
boton800x600=LoadImage("Media\Imagenes\BotonResolu cion800x600.jpg")
boton1024x768=LoadImage("Media\Imagenes\BotonResol ucion1024x768.jpg")

While resolucion=0
resolucion=MainMenu()
Wend
If resolucion=2 Then modo800x600()
If resolucion=3 Then modo1024x768()
If resolucion=1 Then modo640x480()
End

Function MainMenu()


Cls

DrawImage fondoinicio,0,0
DrawImage boton640x480,100,300
DrawImage boton800x600,100,200
DrawImage boton1024x768,100,100
Flip
resolucion=0
While resolucion=0
mx=MouseX():my=MouseY()

If MouseHit(1) Then

If ImageRectOverlap(boton640x480,100,300,mx,my,1,1) Then resolucion = 1
If ImageRectOverlap(boton800x600,100,200,mx,my,1,1) Then resolucion = 2
If ImageRectOverlap(boton1024x768,100,100,mx,my,1,1) Then resolucion = 3
End If

Wend

Return resolucion
End Function
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;Iniciamos el menu principal en resolucion 640x480 px;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function modo640x480()
AppTitle "Tellus"
Graphics3D 640,480,0,2
; create an image that we'll be decoding the movie to
LoadFont("Fonts\VIKING-N.ttf",18,1,0)
image = CreateImage(640, 480)

; Open the movie in decode to Blitz3D dx7 surface mode
looping = 1

movieHandle = BLITZMOVIE_OpenDecodeToImage("Media\Videos\FondoPr incipal640x480.avi", image, looping0)
If Not movieHandle
BLITZMOVIE_Close(movieHandle)
RuntimeError "Error loading movie! Quitting..."
EndIf

; play the movie
result = BLITZMOVIE_Play(movieHandle)
If Not result
BLITZMOVIE_Close(movieHandle)
FreeTexture(texture)
RuntimeError "Error playing movie! Quitting..."
EndIf
width = BLITZMOVIE_GetWidth(movieHandle)
height = BLITZMOVIE_GetHeight(movieHandle)
x = (640 / 2) - (width / 2)
y = (480 / 2) - (height / 2)
info$ = "Tellus v1.0"
info2$ = "www.Augusto3D.com.ar"


paused = 0
keyUpperCaseAsciiP = 80
keyLowerCaseAsciiP = 112

While (BLITZMOVIE_IsPlaying(movieHandle) > 0) And (Not KeyDown(1))

key = GetKey()
If (key = keyUpperCaseAsciiP Or key = keyLowerCaseAsciiP)
If (paused)
BLITZMOVIE_Play(movieHandle)
Else
BLITZMOVIE_Pause(movieHandle)
EndIf
paused = Not paused
End If

DrawImage(image, x, y)
Color 0, 255, 255
Text 330, 0, info$, True
Color 0, 255, 0
Text 330, FontHeight(), info2$, True
Flip 0
Wend

BLITZMOVIE_Stop(movieHandle)
BLITZMOVIE_Close(movieHandle)
FreeImage(image)

While ClickMenuPrincipal=0
ClickMenuPrincipal=ClicksMenuPrincipal()
Wend
If ClickMenuPrincipal=1 Then ConectarMenuPrincipal()
If ClickMenuPrincipal=2 Then OpcionesMenuPrincipal()
If ClickMenuPrincipal=3 Then CreditosMenuPrincipal()
If ClickMenuPrincipal=4 Then Salir()
End
WaitKey()
End

End Function
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;Iniciamos el menu principal en 800x600 px;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Function modo800x600()
Cls
Graphics3D 800,600,0,2
AppTitle "Tellus"
; create an image that we'll be decoding the movie to
image = CreateImage(640, 480)

; Open the movie in decode to Blitz3D dx7 surface mode
looping = 1

movieHandle = BLITZMOVIE_OpenDecodeToImage("Media\Videos\FondoPr incipal640x480.avi", image, looping0)
If Not movieHandle
BLITZMOVIE_Close(movieHandle)
RuntimeError "Error loading movie! Quitting..."
EndIf

; play the movie
result = BLITZMOVIE_Play(movieHandle)
If Not result
BLITZMOVIE_Close(movieHandle)
FreeTexture(texture)
RuntimeError "Error playing movie! Quitting..."
EndIf
width = BLITZMOVIE_GetWidth(movieHandle)
height = BLITZMOVIE_GetHeight(movieHandle)
x = (800 / 2) - (width / 2)
y = (600 / 2) - (height / 2)
info$ = "Tellus v1.0"
info2$ = "www.Augusto3D.com.ar"


paused = 0
keyUpperCaseAsciiP = 80
keyLowerCaseAsciiP = 112

While (BLITZMOVIE_IsPlaying(movieHandle) > 0) And (Not KeyDown(1))

key = GetKey()
If (key = keyUpperCaseAsciiP Or key = keyLowerCaseAsciiP)
If (paused)
BLITZMOVIE_Play(movieHandle)
Else
BLITZMOVIE_Pause(movieHandle)
EndIf
paused = Not paused
End If

DrawImage(image, x, y)
Color 0, 255, 255
Text 400, 0, info$, True
Color 0, 255, 0
Text 400, FontHeight(), info2$, True
Flip 0
Wend

BLITZMOVIE_Stop(movieHandle)
BLITZMOVIE_Close(movieHandle)
FreeImage(image)
WaitKey()
End

End Function

Function modo1024x768()
Cls
Graphics3D 1024,768,0,2
AppTitle "Tellus"
End Function

Function ClicksMenuPrincipal()
SetBuffer BackBuffer()
BotonConectarMenuPrincipal=LoadImage("Media\Imagen es\BotonMenuPrincipalConectar.jpg")
BotonOpcionesMenuprincipal=LoadImage("Media\Imagen es\BotonMenuPrincipalOpciones.jpg")
BotonCreditosMenuPrincipal=LoadImage("Media\Imagen es\BotonMenuPrincipalCreditos.jpg")
BotonSalirMenuPrincipal=LoadImage("Media\Imagenes\ BotonMenuPrincipalSalir.jpg")

DrawImage BotonConectarMenuPrincipal,20,100
DrawImage BotonOpcionesMenuPrincipal,20,200
DrawImage BotonCreditosMenuPrincipal,20,300
DrawImage BotonSalirMenuPrincipal,20,400
Flip
ClickMenuPrincipal=0
While ClickMenuPrincipal=0
mx=MouseX():my=MouseY()

If MouseHit(1) Then

If ImageRectOverlap(BotonConectarMenuPrincipal,20,100 ,mx,my,1,1) Then ClickMenuPrincipal = 1
If ImageRectOverlap(BotonOpcionesMenuPrincipal,20,200 ,mx,my,1,1) Then ClickMenuPrincipal = 2
If ImageRectOverlap(BotonCreditosMenuPrincipal,20,300 ,mx,my,1,1) Then ClickMenuPrincipal = 3
If ImageRectOverlap(BotonSalirMenuPrincipal,20,400,mx ,my,1,1) Then ClickMenuPrincipal = 4

End If

Wend

Return ClickMenuPrincipal

WaitKey()
End Function

Function ConectarMenuPrincipal()
Cls
Print "Conectando[?]"
WaitKey()
End Function

Function OpcionesMenuPrincipal()
Cls
Print "opciones[?]"
WaitKey()
End Function


Function CreditosMenuPrincipal()
Cls
Print "Augusto se lleva todos los créditos!"
WaitKey()
End Function

Function Salir()
Cls
Print "bye bye"
WaitKey()
End Function

__________________

ngamer

Quizas me pueda ayudar. Excelente foro y sobre todo excelente Hilo dado que hace tiempo que estoy luchando con esto del Blitz. Lei que mediados de octubre, fin de octubre esta saliendo un manual de programacion en 3D para Blitz3D. Alguien sabe donde lo puedo ubicar? se llama Programacion juegos 3D Volumen 1. Tengo entendido que existe una direccion donde se puede preordenar, pero no la puedo encontrar. Se que esta en español y de echo esta escrito por un escritor español. Alguno sabe algo? hice la pregunta en varios foros pero todavia sin respuesta.

Saludos y gracias.

ESTOPA

Bueno, pues ahora soy yo el q se apunta por aqui. Llevo 6 años sin programar pero ahora me ha entrado el gusanillo al ver, de forma sencilla, como podia plasmar mis creaciones de max en un jueguecillo.

De momento estoy viendo como funciona el Blitz y espero poder ir poniendo lo q vaya haciendo.

Desde el primer ejemplo q habeis puesto hasta el ultimo me han servido de mucha ayuda, sin ellos nunca me habria puesto a hacer algo, son una inspiracion... Gracias a todos los q habeis contribuido

Cibertronic

Hola a todos y una bienvenida a todos los que empiezan,que bueno saber que estamos creciendo y que entre todos podremos seguir haciendolo....

Les escribo un "out topic", saben estoy dandole al blender, .....haber si es mas sencillo para hacer nuestros modelos y animaciones, pero no paro de darme de lleno contra la pared.

Aquí les dejo un poco de mi avance con blender, cuando este un poco mas maduro abrimos un nuevo hilo, para no parar hasta llegar al game engine del blender.

Un saludote a todos y sigamosle dandole duro al blitz.

Miniatura de Adjuntos

 

Descargar Directa de Archivos ...

blender.rar (2.64 MB, 28 visitas)

__________________
Para Jessi

porni

Tengo una pregunta, alguien hizo un terreno en Bryce y lo exporto a Blitz? Porque a mi me queda el terreno dado vuelta y demas!!! Gracias

ESTOPA

Alguien sabe como exportar modelos q esten animados desde max 2008 a un formato valido apra Blitz?

El b3d pipeline no me funciona en max 2008.

krateos_29

cibertronic, veo que todos los avances que haces en blitz son sobre un plano.

Es decir, no hay irregularidades en el terreno por donde se mueve el objeto que se controla.

a que es debido esto?

creo que sabiendo mover un objeto por 3 dimensiones de verdad sería un muy buen avance para este hilo.

__________________

murdokiler

Hola a todos!

Ya estoy de vuelta de mis merecidas vacaciones, muy buenos tus ejemplos cibertronic como siempre, y muy buena idea lo de recopilar toda la informacion en tu pagina.

ESTOPA el b3d pipeline, si que funciona en el max 2008, ahi un parche que es para el 9, pero que tambien funciona con el max 2008, comprobado por mi.

krateos_29 hay un ejemplo al principio del post, que mueve el coche por terrenos montañosos y ondulados, el cual esta muy bien.

Sobre el tema de la coleccion, subirlo y publicarlo seria ilegal, porque tienen copyright, pero si algun moderador me da su permiso, no me importaria subirlo, aunque como ya digo, pienso que no se puede. De todas formas no es dificil conseguirlo.

Cambiando de tema, y como ya veo que varios de nosotros hemos empezado a dominar minimamente el blitz y hacer algunos juegos basicos, podriamos juntarnos todos, y empezar un proyecto mas ambicioso, con lo que tambien aprenderiamos mucho con las dificultades que fueran saliendo. Es una idea, a ver que piensan.

Un saludo, y perdon por la tardanza al contestar, pero he estado de vaciones

murdokiler

Lo siento, doble post.

Cibertronic

Hola a todos

Yo aui peleandome con el codigo tratando de crear una IA para los autos , sumandome a la iniciativa tambien creo que deberiamos de empesar ha poner ideas sobre un juego....... haber si se nos ocurre algo y lo ponemos.

ya vieron esta pagina:

BASIC Programming Tutorial

esta excelente(para los que conocen el ingles )

de ahi le copio el codigo:

Miniatura de Adjuntos

 

Descargar Directa de Archivos ...

shoot.zip (609.6 KB, 26 visitas)

__________________
Para Jessi

Cibertronic

Otra excelente pagina

Blitz3D Tutorial

Miniatura de Adjuntos

 

__________________
Para Jessi