My Logoscreen Quad transition thread

Blitz3D Forums/Blitz3D Beginners Area/My Logoscreen Quad transition thread

Guy Fawkes

(Posted 2012) [#1]

Hi all. Ok, I have worked on for probably the past 5+ hours or so, a Quad Logo Transitioner. What it's SUPPOSED to do, is transition between x amount of logo images that get textured to a "quad" or a cube that is made to look like a quad. What it should do is slowly decrease the alpha value of the quad to 0, then it's supposed to start a transition timer, then when it reaches completely invisible, it changes its texture, re-scales, and re-positions the quad to the right size / position, then makes it so it wait 5 seconds before switching to the 2nd texture, then the 3rd texture, etc... it transitions through them. Once done, it clears the entire world, and that is the end of the code, because it will then go to the title screen...

For some reason, it is not transitioning right... I even labeled everything I did so I wouldnt mess up, but to no avail ><

Anyways, you will need 3 images for this. for now, the logo sizes should be 1171x122 or as close to that as possible.

SO... Without further adieu, here is the code:

;________________________________________________________________

;================================
;  Code Created By: ShadowIce~  ;
;================================

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

;-----------------------
;Multiple Image Transitioner - V.1.0 (Beta)
;-----------------------

;-----------------------
;This code, created on March 19th, 2012 | 2:26 PM (CST) - is copyright
;This means you **MUST** keep this copyright notice intact
;This also means if you wish to use it in a commercial game, you must email the creator at: ColloseusShadow_18 at hotmail dot com
;I do not ask for credit, but a credit would be nice! :)
;-----------------------

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

;________________________________________________________________

Global title$ = "Multiple Image Transitioner - V.1.0 (Beta)"

AppTitle title$

Const winwidth%  =800
Const winheight% =600
Const windepth%  =32
Const winmode%   =2

Graphics3D winwidth%,winheight%,windepth%,winmode%

Global campiv=CreatePivot()

Global cam=CreateCamera(campiv)
PositionEntity cam,0,1,0

Global cube=CreateCube()
EntityAlpha cube,0

Global light=CreateLight(1,cube)
ScaleEntity cube,(GraphicsWidth()*.014),(GraphicsHeight()*.004),.01
PositionEntity cube,0,1.5,15
EntityParent cube,cam

Global maxlogos=2

Dim logo(maxlogos)

logo(0)=LoadTexture("GameLogo.jpg",1+256+512)
logo(1)=LoadTexture("GameLogo2.jpg",1+256+512)
logo(2)=LoadTexture("GameLogo3.jpg",1+256+512)
;logo(x)... etc...

EntityTexture cube,logo(0)

Global a1#

Global count

Global ncount

Global finished

Global transition

Global debug=1

While Not KeyHit(1)

	Cls

		Update_Logo()
	
		MoveEntity cam,0,0,(KeyDown(17)-KeyDown(31) Or KeyDown(200)-KeyDown(208))*0.01
		TurnEntity cam,0,(KeyDown(30)-KeyDown(32) Or KeyDown(203)-KeyDown(205))*0.05,0
		
		FlushKeys()
		FlushMouse()
	
		UpdateWorld()
		RenderWorld()
	
		Main_Text()
	
		If KeyDown(29) Or KeyDown(157)
		
			If KeyHit(32)<>0
			
				debug=1-debug
				
			EndIf
			
		EndIf
		
		If debug Then Debug_Text()

	Flip 0

Wend

End

Function Update_Logo()

	If finished=0
	
		maxcount=5000
		minalpha#=0.0
		maxalpha#=1.0
		
		;If the alpha is less than the minimum allowed alpha, then reset the alpha to the minimum allowed alpha
		If a1#<minalpha# Then a1#=minalpha#
	
		;If the alpha is greater than the maximum alpha then cap the current alpha to the maximum alpha
		If a1#>maxalpha# Then a1#=maxalpha#
	
		;If the alpha is less than the maximum alpha and the transition isn't complete, then increase alpha
		If a1#<maxalpha# And transition=0 Then a1#=a1#+.0002
	
		;If the alpha is equal to the minimum alpha and the transition is complete, then increase the alpha
		If a1#=minalpha# And transition=1 Then a1#=a1#+.0002
				
		;If the alpha is equal to the maximum alpha and the transition isn't complete, then start the fadeout timer
		If a1#=maxalpha# And transition=0 Then count=count+1
		
		;Set Alpha
		EntityAlpha cube,a1#
		
		;If the transition timer is greater than the maximum transition timer, then reset the transition timer to 1
		If count>maxcount Then count=1
		
		;If the transition timer is equal to the maximum transition time, then increase the logo id by 1
		If count=maxcount Then count=1 : transition=1 : ncount=ncount+1
		
		;If the transition is complete and the transition timer is less than or equal to the maximum transition timer amount, then decrease the current alpha
		If transition=1 And count<=maxcount Then a1#=a1#-.0002
		
		;If the logo id is greater than the maximum allowed amount of logos, then do not allow the logo id counter to go any further
		If ncount>maxlogos Then ncount=maxlogos
		
		;If the logo id is the 2nd logo
		If ncount = 1 Then
					
		EndIf
			
		;If the logo id is the 3rd logo
		If ncount = 2 Then
					
		EndIf
			
	EndIf

End Function

Function Main_Text()

	Text 10,10,"Hold control and press D to turn on and off debug mode"

End Function

Function Debug_Text()

	Text GraphicsWidth()/2,GraphicsHeight()/2,"a1#:"+a1#,1,1
	Text GraphicsWidth()/2,GraphicsHeight()/2+20,"count:"+count,1,1
	Text GraphicsWidth()/2,GraphicsHeight()/2+40,"EntityYaw#(cube):"+EntityYaw#(cube),1,1
	Text GraphicsWidth()/2,GraphicsHeight()/2+60,"ncount:"+ncount,1,1
	Text GraphicsWidth()/2,GraphicsHeight()/2+80,"finished:"+finished,1,1
	Text GraphicsWidth()/2,GraphicsHeight()/2+100,"transition:"+transition,1,1
	Color 255,255,255

End Function

Any help is greatly appreciated! :)

Last edited 2012

Ross C

(Posted 2012) [#2]

;-----------------------
;This code, created on March 19th, 2012 | 2:26 PM (CST) - is copyright
;This means you **MUST** keep this copyright notice intact
;This also means if you wish to use it in a commercial game, you must email the creator at: ColloseusShadow_18 at hotmail dot com
;I do not ask for credit, but a credit would be nice! :)
;-----------------------

Your having a laugh, right?

Guy Fawkes

(Posted 2012) [#3]

Why not. It's my 1st. SORTA working code snippet. Now if u came here to make fun of my thread, and that goes for ALL of u, then get out and go somewhere else. Otherwise, if ur gonna help, then help. I will be ignoring rude ppl.

GfK	(Posted 2012) [#4]

Why not. It's my 1st. SORTA working code snippet.

Nobody wants SORTA working code. If it doesn't work or SORTA works there's not much point in nicking it.

Guy Fawkes

(Posted 2012) [#5]

Well, if I could just figure out why it's not working right, then it WOULD be a code snippet...

GfK	(Posted 2012) [#6]

Well, if I could just figure out why it's not working right, then it WOULD be a code snippet...

...a code snippet with a copyright warning on it? Monsieur, with these code snippets you are really spoiling us.

Guy Fawkes

(Posted 2012) [#7]

Look. can u help or not? If so, then please, feel free to tell the rest of us what went wrong in the code. Otherwise, please leave.

GfK	(Posted 2012) [#8]

Look. can u help or not?

I could, but I'm not going to. This is coding 101 and if it WERE a beginner asking I'd be glad to help. But you've been haunting the beginner's forum for over three bloody years and practically EVERY post is in the beginner's area - you should be able to do this stuff by yourself by now yet you don't seem willing/able (delete as applicable) to tackle anything by yourself.

If this really is taxing you after all this time, then programming is not for you.

Guy Fawkes

(Posted 2012) [#9]

Please leave this thread. and don't come back. Thank You :)

Last edited 2012

RifRaf

(Posted 2012) [#10]

Please leave this thread. and don't come back

seems you can tell people where to go if you dont like what they have to say.

if everyone behaved that way you might be asked to leave the forum and never come back on a regular basis.

If this really is taxing you after all this time, then programming is not for you.

he's right

H&K	(Posted 2012) [#11]

.

Last edited 2012