Let's make a B3D game ...

Miscellaneous Forums/General Discussion/Let's make a B3D game ...

Jeremy Alessi
 #1
I'll kick it off ...

;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 32, 2 )
SetBuffer BackBuffer()

Global camera = CreateCamera()

Type sceneMember

	Field eHandle ;Entity Handle

End Type

; What will you add ...

;===========================================================


Qube
 #2
;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 32, 2 )
SetBuffer BackBuffer()

Global camera = CreateCamera()

Type sceneMember

	Field eHandle ;Entity Handle

End Type

; What will you add ...

CLS

;===========================================================


GfK
 #3
;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 32, 2 )
SetBuffer BackBuffer()

Global camera = CreateCamera()

Type sceneMember

	Field eHandle ;Entity Handle

End Type

; What will you add ...

WHILE NOT KEYDOWN(1)
  Cls
WEND

;===========================================================


Andres
 #4
;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 32, 2 )
SetBuffer BackBuffer()
SeedRnd Millisecs()

Global camera = CreateCamera()

Type sceneMember

	Field eHandle ;Entity Handle

End Type

; What will you add ...

WHILE NOT KEYDOWN(1)
  If KeyDown(200) Then MoveEntity camera, 0, 0, 1
  Cls
WEND

;===========================================================


Leiden
 #5
;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 32, 2 )
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global camera = CreateCamera()

Type sceneMember

	Field eHandle ;Entity Handle

End Type

; What will you add ...

While Not KeyDown(1)
  Cls
  
  If KeyDown(200) Then MoveEntity camera, 0, 0, 1

  If KeyDown(017) Then MoveEntity camera, 0, 0, 1
  If KeyDown(031) Then MoveEntity camera, 0, 0,-1

  If KeyDown(030) Then MoveEntity camera,-1, 0, 0
  If KeyDown(032) Then MoveEntity camera, 1, 0, 0

  UpdateWorld
  RenderWorld

  Delay 1
Wend

; Start: Where do you want to go today? errr... Wrong Quote.

;===========================================================


puki
 #6
Interesting - is this some kind of community attempt to mass-together and take on the might of my dominance?

Curtastic
 #7
;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 0, 2 )
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global camera = CreateCamera()

;What does sceneMember mean?
Type sceneMember

	Field eHandle ;Entity Handle

End Type

CreateCube()
MoveEntity camera, 0, 0, -11

;====== MAIN LOOP =========================================

While Not KeyDown(1)
	Cls

	;Control the camera
	If KeyDown(200) Then MoveEntity camera, 0, 0, 1
	If KeyDown(208) Then MoveEntity camera, 0, 0, -1

	If KeyDown(017) Then MoveEntity camera, 0, 1, 0
	If KeyDown(031) Then MoveEntity camera, 0, -1,0

	If KeyDown(030) Then MoveEntity camera,-1, 0, 0
	If KeyDown(032) Then MoveEntity camera, 1, 0, 0

	UpdateWorld
	RenderWorld
	Flip
	
	Delay 1
Wend

; Start: Where do you want to go today? errr... Wrong Quote.

;===========================================================


OverDozing
 #8
I am sorry, I dont know how to add it has a code.


;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 0, 2 )
SetBuffer BackBuffer()
SeedRnd MilliSecs()

;====== GAME INIT ============
TimingLevel = 200
;==================

Global camera = CreateCamera()

;What does sceneMember mean?
Type sceneMember

Field eHandle ;Entity Handle

End Type

Type IProjectile
Field Id
Field Projectile
Field Speed#
;add timelife to auto deletation
End Type

MoveEntity camera, 0, 0, -11

Ship = CreateCube(camera)
MoveEntity Ship, 0, -2, 5

;====== MAIN LOOP =========================================

While Not KeyDown(1)
Cls

;Control the camera
If KeyDown(200) Then MoveEntity camera, 0, 0, 1
If KeyDown(208) Then MoveEntity camera, 0, 0, -1

If KeyDown(017) Then MoveEntity camera, 0, 1, 0
If KeyDown(031) Then MoveEntity camera, 0, -1,0

If KeyDown(030) Then MoveEntity camera,-1, 0, 0
If KeyDown(032) Then MoveEntity camera, 1, 0, 0

;Add a Projectile
If MilliSecs() > DelayShot Then
DelayShot = MilliSecs() + TimingLevel ;compute next delay
TimingLevel = TimingLevel - 5 ; reduce the delay to the next shot.
Projectile_Create()
End If

Projectile_Update()

UpdateWorld
RenderWorld
Flip

Delay 1
Wend

; Start: Where do you want to go today? errr... Wrong Quote.

;===========================================================

Function Projectile_Create()
T.IProjectile = New IProjectile

IdGenIProjectile = IdGenIProjectile + 1
T\ Id = IProjectile

T\ Projectile = CreateCube()
PositionEntity T\ Projectile, 0 ,0 ,20
ScaleEntity T\ Projectile, .1, .1, 4
PointEntity T\ Projectile, camera
TurnEntity T\ Projectile, Rnd(-10,10), Rnd(-10,10), Rnd(-10,10)

T\ Speed# = 0.3
End Function
Function Projectile_Update()
For T.IProjectile = Each IProjectile
MoveEntity T\ Projectile, 0, 0, T\ Speed#
Next
End Function
Function Projectile_Delete( Id )
;Todo
End Function

Hotcakes
 #9
Damnit! He did what I was going to do. Oh oh, I know...

;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 0, 2 )
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global camera = CreateCamera()

;What does sceneMember mean?
Type sceneMember

	Field eHandle ;Entity Handle

End Type

CreateCube()
MoveEntity camera, 0, 0, -11

;====== MAIN LOOP =========================================

While Not KeyDown(1)
	Cls

	;Control the camera
	If KeyDown(200) Then MoveEntity camera, 0, 0, 1
	If KeyDown(208) Then MoveEntity camera, 0, 0, -1

	If KeyDown(017) Then MoveEntity camera, 0, 1, 0
	If KeyDown(031) Then MoveEntity camera, 0, -1,0

	If KeyDown(030) Then MoveEntity camera,-1, 0, 0
	If KeyDown(032) Then MoveEntity camera, 1, 0, 0

	UpdateWorld
	RenderWorld
	Flip
	
	Delay 1
Wend

; Start: Where do you want to go today? errr... Wrong Quote.

;===========================================================

End


stayne
 #10
;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 0, 2 )
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global camera = CreateCamera()

;What does sceneMember mean?
Type sceneMember

	Field eHandle ;Entity Handle

End Type

CreateCube()
MoveEntity camera, 0, 0, -11

;====== MAIN LOOP =========================================

While Not KeyDown(1)
	Cls

        MovePlayer()

	UpdateWorld
	RenderWorld
	Flip
	
	Delay 1
Wend

; Start: Where do you want to go today? errr... Wrong Quote.

;===========================================================

End

Function MovePlayer()
	;Control the camera
	If KeyDown(200) Then MoveEntity camera, 0, 0, 1
	If KeyDown(208) Then MoveEntity camera, 0, 0, -1

	If KeyDown(017) Then MoveEntity camera, 0, 1, 0
	If KeyDown(031) Then MoveEntity camera, 0, -1,0

	If KeyDown(030) Then MoveEntity camera,-1, 0, 0
	If KeyDown(032) Then MoveEntity camera, 1, 0, 0
End Function


Cygnus
 #11
Sorry guys... had to do it!

;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 0, 2 )
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global camera = CreateCamera()

;What does sceneMember mean?
Type sceneMember

	Field eHandle ;Entity Handle

End Type

CreateCube()
MoveEntity camera, 0, 0, -11

;====== MAIN LOOP =========================================

While Not KeyDown(1)
	Cls

        UpdatePlayer()
	UpdateWorld
	RenderWorld
	Flip
	
	Delay 1
Wend

; Start: Where do you want to go today? errr... Wrong Quote.

;===========================================================

End

Function UpdatePlayer() ;Now contains move and other player related updates
	;Control the camera
	If KeyDown(200) Then MoveEntity camera, 0, 0, 1
	If KeyDown(208) Then MoveEntity camera, 0, 0, -1

	If KeyDown(017) Then MoveEntity camera, 0, 1, 0
	If KeyDown(031) Then MoveEntity camera, 0, -1,0

	If KeyDown(030) Then MoveEntity camera,-1, 0, 0
	If KeyDown(032) Then MoveEntity camera, 1, 0, 0


	;Random stuff that happens in the background.
	;I think this could be either very very humerous, or plain stupid.
	;but then, Conker was the funniest game character I've ever played as....

	If Rand(0,1000)>998 then
		Choice=rand(1,4)
		Select Choice
			Case 1
				PlayerFart()
			Case 2
				PlayerBurp()
			Case 3
				PlayerDrink()
			Case 4
				PlayerSaySomething()
		End Select
	EndIf
	
End Function


Function playerFart()
	;Nice toilet humor goes here

End Function

Function playerBurp()
	;More humor goes here

End Function

Function playerDrink()
	;Yet more humor goes here

End Function

Function playerSaySomething()
	;Yet more humor goes here.
	;Make the player say random stuff!

End Function


Jeremy Alessi
 #12
;====== FORUM GAME =========================================
;====== JEREMY ALESSI 9-25-2006 ============================

;====== INITIALIZE =========================================

Graphics3D( 640, 480, 0, 2 )
SetBuffer BackBuffer()
SeedRnd MilliSecs()

Global camera = CreateCamera()
Global localPlayer

;What does sceneMember mean?
Type sceneMember

	Field eHandle ;Entity Handle

End Type

Type player

	Field this.sceneMember ;Does this explain sceneMember a bit ... let's inherit and go simple to complex with our types ... could be better than it is right now

	Field emote, power
	Field weapon$, mount$

End Type

createPlayer()
CreateCube()
MoveEntity camera, 0, 0, -11

;====== MAIN LOOP =========================================

While Not KeyDown(1)
	Cls

        UpdatePlayer()
	UpdateWorld
	RenderWorld
	Flip
	
	Delay 1
Wend

; Start: Where do you want to go today? errr... Wrong Quote.

;===========================================================

End

Function createPlayer()

	p.player = New player
	p\this.sceneMember\eHandle = CreateCube()
	p\emote = 0
	p\power = 10
	p\weapon = "Fists"
	p\mount = "None"
	localPlayer = Handle( p.player )

End Function

Function UpdatePlayer() ;Now contains move and other player related updates
		
	;Control the camera
	If KeyDown(200) Then MoveEntity camera, 0, 0, 1
	If KeyDown(208) Then MoveEntity camera, 0, 0, -1

	If KeyDown(017) Then MoveEntity camera, 0, 1, 0
	If KeyDown(031) Then MoveEntity camera, 0, -1,0

	If KeyDown(030) Then MoveEntity camera,-1, 0, 0
	If KeyDown(032) Then MoveEntity camera, 1, 0, 0


	;Random stuff that happens in the background.
	;I think this could be either very very humerous, or plain stupid.
	;but then, Conker was the funniest game character I've ever played as....

	;Let's exclude some randomness and get this RPG on the road

	p.player = Object.player( localPlayer )
	p\emote = GetKey()

	Select p\emote
		Case 2
			playerFart()
		Case 3
			playerBurp()
		Case 4
			playerDrink()
		Case 5
			playerSaySomething()
		Default
			playerConfused()
	End Select
		
End Function


Function playerFart()
	;Nice toilet humor goes here

End Function

Function playerBurp()
	;More humor goes here

End Function

Function playerDrink()
	;Yet more humor goes here

End Function

Function playerSaySomething()
	;Yet more humor goes here.
	;Make the player say random stuff!

End Function

Function playerConfused()
	;Dumbfoundedness goes here
	
End Function