3D Movement Keyss

Blitz3D Forums/Blitz3D Userlibs/3D Movement Keyss

AJ00200

(Posted 2009) [#1]

;up arrow
if keydown(200) moveentity camera,0,0,0.2
;down arrow
if keydown(208) moveentity camera,0,0,-0.2
;left arrow
if keydown(203) moveentity camera,0,-0.2,0
;right arrow
if keydown(205) moveentity camera,0,0.2,0

AJ00200

Naughty Alien

(Posted 2009) [#2]

Nate the Great

(Posted 2009) [#3]

ummm... thiking of something sarcastic... I can tell you put quite a lot of work into this! you should sell it instead of making it free... (no hard feelings but I dont see how this is a library???)

I dont think this qualifies as a user library does it?

Knight #51

(Posted 2009) [#4]

..........?

Mortiis

(Posted 2009) [#5]

You should consider selling it man! I mean...wow!

AJ00200

(Posted 2009) [#6]

well, you know. I don't like to brag, but I made 50$ off it 2 days ago.

GfK	(Posted 2009) [#7]

well, you know. I don't like to brag, but I made 50$ off it 2 days ago.

I'd wager a large amount of money that you're lying, since you aren't even selling this..... "user lib". That and the code is wrong. Who would want the left/right arrow keys to move the camera up and down?

There's also a plagiarism question mark since thousands upon thousands of people have written identical code already.

As a "user lib", its ridiculous enough. But please don't embarrass yourself by trying to convince everyone its some magical bit of code that some loony has paid money for.

AJ00200

(Posted 2009) [#8]

well GfK, it was you who gave me the 50$

Naughty Alien

(Posted 2009) [#9]

..this is kind a interesting now..

_PJ_	(Posted 2009) [#10]

Should this be moved to CodeArchives or something?
Despite it being pretty much useless unless you have

A Global camera entity
The entity should move in units of 2 only, irrespective of delta-time
As GfK mentions too, the left/right keys move this entity up and down whilst up/down moves it foorward/backwards

Way too specific to be of much use to anyone I think.

GfK	(Posted 2009) [#11]

well GfK, it was you who gave me the 50$

That's right. I stole your paper round money.

Ross C

(Posted 2009) [#12]

There is a couple of people who spring to mind, who would actually have bought this.

Knight #51

(Posted 2009) [#13]

You're right Naughty Alien. This is getting interesting :D

AJ00200

(Posted 2009) [#14]

Fixed It

;up arrow
If KeyDown(200) MoveEntity camera,0,0,0.2
;down arrow
If KeyDown(208) MoveEntity camera,0,0,-0.2
;left arrow
If KeyDown(203) MoveEntity camera,-0.2,0,0
;right arrow
If KeyDown(205) MoveEntity camera,0.2,0,0

WHO WANTS TO BUY IT?

ervin

(Posted 2009) [#15]

And what are you charging for this fine piece of technology, my good man?

Jasu	(Posted 2009) [#16]

Here: 49$
Now hand it over.

Naughty Alien

(Posted 2009) [#17]

..i'm quite surprised how come mods haven't locked this useless thread so far..

Charrua

(Posted 2009) [#18]

I think he's getting $50 with each of our post's
so, here are mine!

Juan

Knight #51

(Posted 2009) [#19]

I'LL BUY IT!!!!!!!!

_PJ_	(Posted 2009) [#20]

Fixed It

Well.. that's alright then :D

AJ00200

(Posted 2009) [#21]

function 3DmovementKeys(speed, camera)
;up arrow
If KeyDown(200) MoveEntity camera,0,0,speed
;down arrow
If KeyDown(208) MoveEntity camera,0,0,-speed
;left arrow
If KeyDown(203) MoveEntity camera,-speed,0,0
;right arrow
If KeyDown(205) MoveEntity camera,speed,0,0
end function

The new updated version comes with handcuff keys (thats for you Malice)

Guy Fawkes

(Posted 2009) [#22]

try this:

Graphics3D 800, 600, 32, 2

AmbientLight 255, 255, 255

Global cam = CreateCamera()

PositionEntity cam, 0, 1, -4

CameraRange cam, .1, 100000000

Global sky = CreateSphere(50)

EntityColor sky, 68, 207, 252

ScaleEntity sky, 1000000, 1000000, 1000000

FlipMesh sky

Global cube = CreateCube()

EntityAlpha cube, .5

PositionEntity cube, 0, 1, 0

EntityShininess cube, .5

EntityColor cube, 102, 102, 255

Global land = CreatePlane()

EntityColor land, 128, 128, 128

While Not KeyHit(1)

PositionEntity sky, EntityX(cam), EntityY(sky), EntityZ(cam)

movement(cam, 0.1, 1)

UpdateWorld
RenderWorld

Text 0, 0, EntityX(cam)
Text 0, 10, EntityY(cam)
Text 0, 20, EntityZ(cam)
Text 0, 30, EntityYaw(cam)

Flip
Wend

Function movement(camera, mspeed#, tspeed#)

MoveEntity camera, 0, 0, ((KeyDown(200)-KeyDown(208))*mspeed#)
TurnEntity camera, 0, ((KeyDown(203)-KeyDown(205))*tspeed#), 0

End Function

AJ00200

(Posted 2009) [#23]

Cant start function with a number.

function movementKeys(speed, camera)
;up arrow
If KeyDown(200) MoveEntity camera,0,0,speed
;down arrow
If KeyDown(208) MoveEntity camera,0,0,-speed
;left arrow
If KeyDown(203) MoveEntity camera,-speed,0,0
;right arrow
If KeyDown(205) MoveEntity camera,speed,0,0
end function

Sake906

(Posted 2009) [#24]

... Brilliantly retarded.

People come here to look for real code that will aid them out of programming nightmares, the least they want is to have to filter out rubbish like this among the threads. Seriously I don't believe this is a place to place your very unphunneh spam that just downright reeks of fail.

AJ00200

(Posted 2009) [#25]

A little grumpy?
I think its more of a timesaver.

_PJ_	(Posted 2009) [#26]

To be honest, AJ00200, your code is of little use to anyone else. It's extremely specific and limited.

For example, ONLY arrow keys, ONLY 0.2 increments per loop, FIXED movement to forwards/backwards/strafing, no delta-timing to synchronise movement and so on.

Something so variable like movement control is unlikely to be the same in any two projects and the amount of extra coding needing to be introduced to make it useable would mean that any time saved by having your basic function in there would be neglible.

AJ00200

(Posted 2009) [#27]

Actually, it allows for any value to be passed for speed.

jtassinari

(Posted 2009) [#28]

Great AJ00200,
i never had a so nice time reading a tech code and comments...
Please go on like this, send us more codes and libs and anything you can, i'll be back in somedays and hope to laught some more...

BTW, the code is nice, i think i did someting like that some (many) time before, even if all my scripts die in my messy hd... i never thought to get money out of that...
You should ask to patent it

:D

cheers,

jt

ps: apologies for m bad english

Ked	(Posted 2009) [#29]

What is going on here?

Guy Fawkes

(Posted 2009) [#30]

ahaha!

do this :

moveentity camera, 0, 0, (keydown(200)-keydown(208))*1
turnentity camera, 0, (keydown(203)-keydown(205))*1, 0

P4WNT!

AJ00200

(Posted 2009) [#31]

Well, I am working on a Fire lib.
It won't be done for a while though.

_PJ_	(Posted 2009) [#32]

Well, I am working on a Fire lib.

Do you mean a REAL userlib, or just some short useless code again?

It won't be done for a while though.

uhuh.

GIB3D

(Posted 2009) [#33]

I already made fire :D

Ooh yea that's right AJ00200 you just got served.. lolwut?

Graphics3D 800,600,32,2
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global Hertz = CreateTimer(75)

Global Light = CreateLight(2)
	PositionEntity Light,0,1,0
	LightRange Light,1
	
Global Pivot = CreatePivot()
Global Camera = CreateCamera(Pivot)
	PositionEntity Camera,0,7,-10
	RotateEntity Camera,40,0,0
	
	
Local Cylinder = CreateCylinder()
	EntityPickMode Cylinder,2

Local LimitPick = CreateSphere(4)
	EntityPickMode LimitPick,2
	FlipMesh LimitPick
	ScaleEntity LimitPick,50,50,50
	EntityColor LimitPick,0,0,0
	EntityShininess LimitPick,10
	
Local Sphere = CreateSphere(24)
	PositionEntity Sphere,0,-2,0
	ScaleEntity Sphere,4,1,4
	EntityPickMode Sphere,2

Local FPS[1],Time=MilliSecs()+1000

While Not KeyDown(1)
	WaitTimer(Hertz)
	
	
	If KeyDown(57)
		CreateFire(Rnd(-.2,.2),1,Rnd(-.2,.2),20,Rnd(.05,.2),Rnd(-.01,.01))
	EndIf
	
	If MouseDown(1)
		CameraPick Camera,MouseX(),MouseY()
		
		If PickedEntity() <> 0
			CreateFire(PickedX()+Rnd(-.2,.2),PickedY(),PickedZ()+Rnd(-.2,.2),20,Rnd(.05,.2),Rnd(-.01,.01),.5,1)
		EndIf
	EndIf
	
	UpdateFire()
	
	TurnEntity Pivot,0,1,0
	
	UpdateWorld
	RenderWorld
	
	Locate 0,0
	Print "FPS " + FPS[0]
	Print "Left Mouse button or Spacebar to make fire"
	
	Flip
	Delay(5)
	
	FPS[1] = FPS[1] + 1
	
	If MilliSecs() => Time
		Time=MilliSecs()+1000
		FPS[0] = FPS[1]
		FPS[1] = 0
	EndIf
Wend
End

Type Fire
	Field Entity,Light
	Field Life#,LifeStart#
	Field HorizontalSpeed#
	Field RiseSpeed#
	
	Field StartSize#
	Field EndSize#
End Type

;

Function CreateFire.Fire(x#,y#,z#,life#=20,rise_speed#=.1,horizontal_speed#=0,start_size#=.5,end_size#=0)
	Local a.Fire = New Fire
	Local LightRGB# = Rnd(255,128)
	
	a\Entity = CreateSphere()
		PositionEntity a\Entity,x,y,z;Rotate if needed
		EntityColor a\Entity,LightRGB,LightRGB/2,0
		EntityAlpha a\Entity,.5
		
	a\Light = CreateLight(2,a\Entity)
		LightColor a\Light,LightRGB,LightRGB/2,0
		BP_SetLightMaxRange(a\Light,life*.25)
		
	a\Life = life
	a\LifeStart = a\Life
	
	a\HorizontalSpeed = horizontal_speed
	a\RiseSpeed = rise_speed
	
	a\StartSize = start_size
	a\EndSize = end_size
	
	Return a
End Function

Function UpdateFire()
	Local a.Fire
	
	For a.Fire = Each Fire
		Local LifeScale# = ((a\Life/a\LifeStart)*(a\EndSize-a\StartSize))-a\EndSize ; Calculates how big you want it to be and overtime changes to the endsize through multiplication and stuff hehe.
		
		ScaleEntity a\Entity,LifeScale,LifeScale,LifeScale
		MoveEntity a\Entity,a\HorizontalSpeed,a\RiseSpeed,a\HorizontalSpeed
		
		If LifeScale > 0
			LightRange a\Light,LifeScale
			BP_SetLightMaxRange(a\Light,LifeScale*.25)
		EndIf
		
		a\Life = a\Life - 1
		If a\Life < 0
			DeleteFire(a)
		EndIf
	Next
End Function

Function DeleteFire(a.Fire)
	FreeEntity a\Entity
	Delete a
End Function

AJ00200

(Posted 2009) [#34]

Thanks for um serving me, but I'm making my own fire.
And no, its not useless code again.

Blitzplotter

(Posted 2009) [#35]

@GIA_Green_Fire, I just tried warming myself by your fire on my wife's laptop, which I'm pleasantly surprised had B3D on it (I downloaded IDEal on the off chance I'd B3D on here - IDEal is great - I can see why you use it!).

however upon trying to compile I got an unrecognised function - have you got the function thats not in the listing?

_PJ_	(Posted 2009) [#36]

@ Blitzplotter

Oops, I know it's a bit late, but I just happened to see this, in answer to your missing funciton, it would seem to be the "Blitz3D Plus" userlib that is needed for the BP_SetLightMaxRange() function used twice in Greenfire's code:

; Under CreateFire.Fire()
BP_SetLightMaxRange(a\Light,life*.25)

;. . . 

; Under UpdateFire()
BP_SetLightMaxRange(a\Light,LifeScale*.25)

Though it shouldn't be tragic to either replace it with a standard LightRange command

LightRange a\Light,Life*.25

; . . 

LightRange a\Light,LifeScale*.25

Or remove the offending lines entirely.

Hope that helps :)

The B3D+ Userlibs aere detailed with download links etc. here:
http://www.blitzbasic.com/Community/posts.php?topic=75711