- DBPro Coding Challenges - - GameCreators Forum

Author

Message

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 10th Jan 2006 07:44

Link

what exactly are you trying to do there? It looks like you've got some kind of circular linking problem... Object one has limb two and you want to link then using object 3?!

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 10th Jan 2006 07:53 Edited at: 10th Jan 2006 07:55

Link

If anyone wants a robot for their shooter, here's one I made a long time ago.

Function Make_Robot(ObjectID)
If Object Exist (ObjectID) Then Delete Object ObjectID
Make Object Cube ObjectID,5
If Object Exist(2) Then Delete Object 2
If Mesh Exist(2) Then Delete Mesh 2
Make Object Sphere 2,5
Make Mesh From Object 2,2
Add Limb ObjectID,1,2
Offset Limb ObjectID,1,0,4,0
Delete Mesh 2
Delete Object 2
Make Object Cylinder 2,4
Scale Object 2,30,100,30
Offset Limb 2,0,0,2,0
Roll Object Right 2,100
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,2,2
Add Limb ObjectID,3,2
Offset Limb ObjectID,2,0,1,-3
Offset Limb ObjectID,3,0,1,3
Color Limb ObjectID,2,RGB(128,128,128)
Color Limb ObjectID,3,RGB(128,128,128)
Delete Mesh 2
Delete Object 2
Make Object Cylinder 2,10
Scale Object 2,100,20,20
Pitch Object Down 2,90
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,4,2
Add Limb ObjectID,5,2
Offset Limb ObjectID,4,0,-3,-3
Offset Limb ObjectID,5,0,-3,3
Delete Object 2
Delete Mesh 2
Make Object Sphere 2,10
Scale Object 2,100,20,1
Make Mesh from Object 2,2
Add Limb ObjectID,6,2
Add Limb ObjectID,7,2
Offset Limb ObjectID,6,0,-3,-3.9
Offset Limb ObjectID,7,0,-3,3.9
Delete Object 2
Delete Mesh 2
Set Object Cull ObjectID,0
Turn Object Left ObjectID,90
Fix Object Pivot ObjectID
Color Object ObjectID, RGB(255, 255, 0) `Robot.Color
If Bitmap Exist(1) Then Delete Bitmap 1
Create Bitmap 1,100,20
Set Current Bitmap 1
Ink RGB(210,210,210),0
Box 0,0,99,19
Ink Rgb(40,40,40),0
For i = 0 to 90 step 10
   Box i,0,i+1,19
Next i
Get Image 1,0,0,99,19
Delete Bitmap 1
Texture Limb ObjectID,4,1
Texture Limb ObjectID,5,1
Set Object Collision Off ObjectID
Set Object Collision to Boxes ObjectID
EndFunction R

+ Code Snippet

Function Make_Robot(ObjectID)
If Object Exist (ObjectID) Then Delete Object ObjectID
Make Object Cube ObjectID,5
If Object Exist(2) Then Delete Object 2
If Mesh Exist(2) Then Delete Mesh 2
Make Object Sphere 2,5
Make Mesh From Object 2,2
Add Limb ObjectID,1,2
Offset Limb ObjectID,1,0,4,0
Delete Mesh 2
Delete Object 2
Make Object Cylinder 2,4
Scale Object 2,30,100,30
Offset Limb 2,0,0,2,0
Roll Object Right 2,100
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,2,2
Add Limb ObjectID,3,2
Offset Limb ObjectID,2,0,1,-3
Offset Limb ObjectID,3,0,1,3
Color Limb ObjectID,2,RGB(128,128,128)
Color Limb ObjectID,3,RGB(128,128,128)
Delete Mesh 2
Delete Object 2
Make Object Cylinder 2,10
Scale Object 2,100,20,20
Pitch Object Down 2,90
Fix Object Pivot 2
Make Mesh From Object 2,2
Add Limb ObjectID,4,2
Add Limb ObjectID,5,2
Offset Limb ObjectID,4,0,-3,-3
Offset Limb ObjectID,5,0,-3,3
Delete Object 2
Delete Mesh 2
Make Object Sphere 2,10
Scale Object 2,100,20,1
Make Mesh from Object 2,2
Add Limb ObjectID,6,2
Add Limb ObjectID,7,2
Offset Limb ObjectID,6,0,-3,-3.9
Offset Limb ObjectID,7,0,-3,3.9
Delete Object 2
Delete Mesh 2
Set Object Cull ObjectID,0
Turn Object Left ObjectID,90
Fix Object Pivot ObjectID
Color Object ObjectID, RGB(255, 255, 0) `Robot.Color
If Bitmap Exist(1) Then Delete Bitmap 1
Create Bitmap 1,100,20
Set Current Bitmap 1
Ink RGB(210,210,210),0
Box 0,0,99,19
Ink Rgb(40,40,40),0
For i = 0 to 90 step 10
   Box i,0,i+1,19
Next i
Get Image 1,0,0,99,19
Delete Bitmap 1
Texture Limb ObjectID,4,1
Texture Limb ObjectID,5,1
Set Object Collision Off ObjectID
Set Object Collision to Boxes ObjectID
EndFunction R

Edit: Though I admit that I like Sven B 's running man better.

Open MMORPG: It's your game!

Back to top

Profile PM Email

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 10th Jan 2006 08:01 Edited at: 10th Jan 2006 09:02

Link

I got a lil demo of the HUD and stuff... Not much to do here except move around a bit; no collision detection either =P

If you were a big PC gamer back in the mid 90's you'll remember this...

D=Forward
E=Backward
LShift=Strafe Left
F=Strafe Right

<- And -> =Turn

Edit: added nice smooth ship wiggling =D

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET IMAGE COLORKEY 0,0,0

INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE 1,1,1,34,18 : CLS

MAKE OBJECT CUBE 1,10
COLOR OBJECT 1,RGB(0,0,200)
SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,40,1,40
POSITION OBJECT 2,0,-5.5,0
COLOR OBJECT 2,RGB(200,0,0)
SET OBJECT COLLISION ON 2

PLR=3 : PLRX#=0.0 : PLRY#=0.0 : PLRZ#=-30.0 : PLRA#=0.0 : VIRTA#=0.0
MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

GLOBAL XLOCKSTATE=0
GLOBAL ZLOCKSTATE=0
GLOBAL WALL=0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF
   IF LEFTKEY()=1 THEN DEC PLRA#,0.6
   IF RIGHTKEY()=1 THEN INC PLRA#,0.6
   PLRA#=WRAPVALUE(PLRA#)

INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=SIN(VIRTA#)/2.33

POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

PASTE IMAGE 1,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

SYNC
LOOP

+ Code Snippet

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET IMAGE COLORKEY 0,0,0

INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE 1,1,1,34,18 : CLS

MAKE OBJECT CUBE 1,10
COLOR OBJECT 1,RGB(0,0,200)
SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,40,1,40
POSITION OBJECT 2,0,-5.5,0
COLOR OBJECT 2,RGB(200,0,0)
SET OBJECT COLLISION ON 2

PLR=3 : PLRX#=0.0 : PLRY#=0.0 : PLRZ#=-30.0 : PLRA#=0.0 : VIRTA#=0.0
MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

GLOBAL XLOCKSTATE=0
GLOBAL ZLOCKSTATE=0
GLOBAL WALL=0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF
   IF LEFTKEY()=1 THEN DEC PLRA#,0.6
   IF RIGHTKEY()=1 THEN INC PLRA#,0.6
   PLRA#=WRAPVALUE(PLRA#)

   INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=SIN(VIRTA#)/2.33

   POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

   SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

   PASTE IMAGE 1,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

   SYNC
LOOP

No stealing!

@RiiDii: When I try running your code it just ends

(U5.9 and i think I have correctly installed the extras)

Drat...Just figured out that the code I posted won't help me with developing the rest of this FPS =P I need to use vectors...
Dangit, 6DOF is hard to prepare for

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 10th Jan 2006 10:02

Link

@ImageAll: Those are interesting controls...

That code Riidii did is just a function, you'd need to embed it in some already working code.

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

Thebeely

19

Years of Service

User Offline

Joined: 4th May 2005

Location: Croatia

Posted: 10th Jan 2006 11:18

Link

I'm working on my entry, I have made gun, terrain, water, health boxes, sky, shooting and bad looking explosions for now.

Za dom - spremni!

Back to top

Profile PM

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 10th Jan 2006 20:07

Link

@Nicholas

Well, that was actually just the current crap that I had copied. I was trying to make another limb(child) onto the first limb and offset it so it would be off in the distance... you know what I mean?

Thanks,
Nicholas H.

P.S. I've tried e-mailing you but you don't reply, did you get a new e-mail?

My Website:

Back to top

Profile PM Email Website

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 10th Jan 2006 20:32

Link

@Nicholas Thompson: that's because the arrowkeys weren't made for banking and pitching

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 10th Jan 2006 21:43 Edited at: 10th Jan 2006 21:43

Link

I'll join, but as usual I wouldn't hold your breathe waiting for my entry. Perfect time to try out my polygon fps collision.

Deadly Night Assassins

Back to top

Profile PM Email Website

Ric

20

Years of Service

User Offline

Joined: 11th Jul 2004

Location: object position x

Posted: 10th Jan 2006 22:16

Link

'bout time you won one of these challenges isn't it, Phaelax?!

Back to top

Profile PM Email Website

Segan

19

Years of Service

User Offline

Joined: 28th Aug 2005

Location: Canada

Posted: 11th Jan 2006 03:18

Link

Well, I actually DID get some time, albeit small amount, to do a bit of coding this week. No time has been spend of the bare bone FPS stuff, but I have made a dungeon experience!

sync on: sync rate 60
autocam off	:Position Camera 15,5,15
Set ambient light 75

Type Object
	X As Integer: Y As Integer: Z As Integer
	num As Integer
	Tile As Integer
endtype

Global MapWidth As Integer: MapWidth = 10
Global MapHeight As Integer: MapHeight = 10
Global Cubesize As Integer: CubeSize = 10

Dim Cube(MapWidth,MapHeight) As Object

BrickImage = Get_Free_Image_Number()
BrickTexture(BrickImage)

For z = 1 To MapHeight
	For x = 1 To MapWidth
		Read Cube(x,z).Tile
		Cube(x,z).X = (x-1)*10+5
		Cube(x,z).Y = 5
		Cube(x,z).Z = (z-1)*10+5
		Cube(x,z).num = Get_Free_Object_Number()
		Make Object Cube Cube(x,z).num,Cubesize
		Texture Object Cube(x,z).num,BrickImage
		Position Object Cube(x,z).num, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z
		If Cube(x,z).Tile = 0 Then Hide Object Cube(x,z).num
	next x
next z

FloorObject = Get_Free_Object_Number()
FloorImage = Get_Free_Image_Number()
FloorTexture(FloorImage)

Make Object Plain FloorObject, MapWidth*Cubesize, MapHeight*CubeSize
xrotate object FloorObject,90
Position Object FloorObject, (MapWidth*Cubesize)/2,0,(MapHeight*CubeSize)/2
Texture Object FloorObject, FloorImage

CeilingObject = Get_Free_Object_Number()
CeilingImage = Get_Free_Image_Number()
FloorTexture(CeilingImage)

Make Object Plain CeilingObject, MapWidth*Cubesize, MapHeight*CubeSize
xrotate object CeilingObject,90
Position Object CeilingObject, (MapWidth*Cubesize)/2,10,(MapHeight*CubeSize)/2
Texture Object CeilingObject,CeilingImage

Do
	
	Control Camera Using Arrowkeys 0,.5,1
	Sync
loop

Function Get_Free_Object_Number()
	Remstart
	This function just finds a free object, and then returns its number.
	This is so that objects can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend	
	
	Do
		inc ObjectNumber
	 	If Object Exist(ObjectNumber) = 0 Then Exit
	Loop
EndFunction ObjectNumber

Function Get_Free_Image_Number()
	Remstart
	This function just finds a free image, and then returns its number.
	This is so that images can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend

Do
		inc ImageNumber
		If Image Exist(ImageNumber) = 0 Then Exit
	loop
endfunction ImageNumber

Function BrickTexture(ImageNumber)

Ink Rgb(128,64,0),0
Box 0,0,64,64

Ink Rgb(0,0,0),0
For a = 0 To 7
	Line 0,(a*8),64,(a*8)
next a

For x = 0 To 7
	For y = 0 To 7
		If (x+y) mod 2 = 0 Then Line (x*8),(y*8),(x*8),((y+1)*8)		
	next y
next x

Get Image Imagenumber, 0, 0, 64, 64

EndFunction

Function FloorTexture(ImageNumber)
	Ink RGB(50,50,50),0
	box 0,0,64,64
	
	Get Image Imagenumber, 0, 0, 64, 64
endfunction

`Main Level (Current)

Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 0, 0, 0, 1, 0, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 0, 0, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 0, 0, 1, 1, 0, 1
Data 1, 0, 1, 1, 1, 1, 1, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 0, 0, 0, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

+ Code Snippet

sync on: sync rate 60
autocam off	:Position Camera 15,5,15
Set ambient light 75

Type Object
	X As Integer: Y As Integer: Z As Integer
	num As Integer
	Tile As Integer
endtype

Global MapWidth As Integer: MapWidth = 10
Global MapHeight As Integer: MapHeight = 10
Global Cubesize As Integer: CubeSize = 10

Dim Cube(MapWidth,MapHeight) As Object


BrickImage = Get_Free_Image_Number()
BrickTexture(BrickImage)

For z = 1 To MapHeight
	For x = 1 To MapWidth
		Read Cube(x,z).Tile
		Cube(x,z).X = (x-1)*10+5
		Cube(x,z).Y = 5
		Cube(x,z).Z = (z-1)*10+5
		Cube(x,z).num = Get_Free_Object_Number()
		Make Object Cube Cube(x,z).num,Cubesize
		Texture Object Cube(x,z).num,BrickImage
		Position Object Cube(x,z).num, Cube(x,z).X, Cube(x,z).Y, Cube(x,z).Z
		If Cube(x,z).Tile = 0 Then Hide Object Cube(x,z).num
	next x
next z

FloorObject = Get_Free_Object_Number()
FloorImage = Get_Free_Image_Number()
FloorTexture(FloorImage)

Make Object Plain FloorObject, MapWidth*Cubesize, MapHeight*CubeSize
xrotate object FloorObject,90
Position Object FloorObject, (MapWidth*Cubesize)/2,0,(MapHeight*CubeSize)/2
Texture Object FloorObject, FloorImage

CeilingObject = Get_Free_Object_Number()
CeilingImage = Get_Free_Image_Number()
FloorTexture(CeilingImage)

Make Object Plain CeilingObject, MapWidth*Cubesize, MapHeight*CubeSize
xrotate object CeilingObject,90
Position Object CeilingObject, (MapWidth*Cubesize)/2,10,(MapHeight*CubeSize)/2
Texture Object CeilingObject,CeilingImage

Do
	
	Control Camera Using Arrowkeys 0,.5,1
	Sync
loop
 

Function Get_Free_Object_Number()
	Remstart
	This function just finds a free object, and then returns its number.
	This is so that objects can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend	
	
	Do
		inc ObjectNumber
	 	If Object Exist(ObjectNumber) = 0 Then Exit
	Loop
EndFunction ObjectNumber


Function Get_Free_Image_Number()
	Remstart
	This function just finds a free image, and then returns its number.
	This is so that images can be given variable names rather than numbers!
	
	***Special Thanks to Ric in the Darkbasic Pro forums who I stole this 
	function from.***
	Remend

	Do
		inc ImageNumber
		If Image Exist(ImageNumber) = 0 Then Exit
	loop
endfunction ImageNumber



Function BrickTexture(ImageNumber)

Ink Rgb(128,64,0),0
Box 0,0,64,64

Ink Rgb(0,0,0),0
For a = 0 To 7
	Line 0,(a*8),64,(a*8)
next a

For x = 0 To 7
	For y = 0 To 7
		If (x+y) mod 2 = 0 Then Line (x*8),(y*8),(x*8),((y+1)*8)		
	next y
next x

Get Image Imagenumber, 0, 0, 64, 64

EndFunction

Function FloorTexture(ImageNumber)
	Ink RGB(50,50,50),0
	box 0,0,64,64
	
	Get Image Imagenumber, 0, 0, 64, 64
endfunction
 

`Main Level (Current)

Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1
Data 1, 0, 0, 0, 1, 0, 0, 0, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 0, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 1, 0, 0, 0, 0, 1
Data 1, 0, 1, 0, 1, 0, 1, 1, 0, 1
Data 1, 0, 1, 0, 0, 0, 1, 1, 0, 1
Data 1, 0, 1, 1, 1, 1, 1, 1, 0, 1
Data 1, 0, 0, 0, 0, 0, 0, 0, 0, 1
Data 1, 1, 1, 1, 1, 1, 1, 1, 1, 1

No comments, collision, good textures, AI, shooting, used yet, but I have tried to make the code as portable and expandable as possible (for a first draft). If anyone wants to use it, feel free (just give me a mention in your credits)!

Oh, and before anyone comes out accusing that this is mostly copied from the "huge dungeons" tutorial, it's not. While I have ran that tutorial and some ideas are from it, not one peice of code is copied!

Back to top

Profile PM Email

Nicholas Thompson

20

Years of Service

User Offline

Joined: 6th Sep 2004

Location: Bognor Regis, UK

Posted: 11th Jan 2006 03:33

Link

@Segan: Dont know if its of any interest to you - but:
http://www.thingy-ma-jig.co.uk/new/index.php?page=project&id=14

http://forum.antiblog.com, http://thingy-ma-jig.co.uk/new/

Back to top

Profile PM Email Website

Segan

19

Years of Service

User Offline

Joined: 28th Aug 2005

Location: Canada

Posted: 11th Jan 2006 03:55

Link

@Nick: Cool! I don't have much time to look at it in action right now, but I will definately check it out later!

Back to top

Profile PM Email

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 11th Jan 2006 04:09

Link

Well guys, I realize that almost everyone that enters this challenge knows what there doing, but I don't lol

. I know something but I usually scrape up other code look at it, and go off of that. So here is what I have come up with so far, but it doesn't work out as planned sooo... Could someone please tell me how to fix, and explain - why the camera is not placed correctly for the Y position and how to add another limb to the "gun" but offset it so I can hide that object and point object at it (bullets) and move them.

Here it is:

SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,32
HIDE MOUSE

`Make the grass
CREATE BITMAP 1,128,128
SET CURRENT BITMAP 1
FOR I=1 TO 16
   FOR J=1 TO 16
      IF RND(1)=1
         INK RGB(255,0,0),0
      ELSE
         INK RGB(255,255,0),0
      ENDIF
      BOX ((J*8)-8),((I*8)-8),(J*8),(I*8)
   NEXT J
NEXT I
BLUR BITMAP 1,6
GET IMAGE 1,1,1,128,128
SET CURRENT BITMAP 0
DELETE BITMAP 1

`Set gun holding-limb position
gunOffsetX AS FLOAT = 15.0
gunOffsetY AS FLOAT = -20.0
gunOffsetZ AS FLOAT = 20.0

`Make main player object and hide it
MAKE OBJECT CUBE 1,10
HIDE OBJECT 1
`Attach a limb and delete the mesh
MAKE MESH FROM OBJECT 1,1
ADD LIMB 1,1,1
DELETE MESH 1

`Make a weapon and attach it to the limb
MAKE OBJECT BOX 2,10,10,100
`MAKE OBJECT BOX 3,10,10,100
GLUE OBJECT TO LIMB 2,1,1
`LINK LIMB 3,1,2

CREATE BITMAP 1,128,128
SET CURRENT BITMAP 1
FOR I=1 TO 16
   FOR J=1 TO 16
      IF RND(1)=1
         INK RGB(0,200,0),0
      ELSE
         INK RGB(0,100,0),0
      ENDIF
      BOX ((J*8)-8),((I*8)-8),(J*8),(I*8)
   NEXT J
NEXT I
GET IMAGE 1,1,1,128,128
SET CURRENT BITMAP 0
DELETE BITMAP 1

MAKE MATRIX 1,10000,10000,100,100
PREPARE MATRIX TEXTURE 1,1,100,100
SET MATRIX TEXTURE 1,1,1
RANDOMIZE MATRIX 1,200:UPDATE MATRIX 1

`Variables
xPos AS FLOAT
zPos AS FLOAT
speed AS FLOAT = 10.0

xLook AS FLOAT
yAng AS FLOAT
lookSpeed AS FLOAT = 0.2

`The gun bobbing values
gunBobSpeed AS FLOAT = 6.0
gunBobMove AS FLOAT = 3.0
gunBobHeight AS FLOAT = 1.5

gunBobAng AS FLOAT
gunTurnAng AS FLOAT
gunLookAng AS FLOAT

mouseMovementX AS FLOAT
mouseMovementY AS FLOAT

GOSUB camera_height

DO
   GOSUB gun_sway
   SYNC
LOOP

gun_sway:
`Store mouse movement
mouseMovementX = MOUSEMOVEX()
mouseMovementY = MOUSEMOVEY()

`Control movement using trig
IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY() > 0
   IF UPKEY() = 1
      INC xPos,SIN(yAng)*speed
      INC zPos,COS(yAng)*speed
   ENDIF

IF DOWNKEY() = 1
      DEC xPos,SIN(yAng)*speed
      DEC zPos,COS(yAng)*speed
   ENDIF

IF RIGHTKEY() = 1
      INC xPos,COS(yAng)*speed
      INC zPos,-SIN(yAng)*speed
   ENDIF

IF LEFTKEY() = 1
      DEC xPos,COS(yAng)*speed
      DEC zPos,-SIN(yAng)*speed
   ENDIF

`Increase gun-bobbing angle   to get gun bobbing
   gunBobAng = WRAPVALUE(gunBobAng+gunBobSpeed)
ELSE
   `Otherwise slowly change the value to nothing to bring the gun to the centre again
   gunBobAng = CURVEANGLE(0,gunBobAng,10)
ENDIF

`Control the gun swaying according to how much the player is turning
gunTurnAng = CURVEANGLE(WRAPVALUE(mouseMovementX),gunTurnAng,10)
gunLookAng = CURVEANGLE(WRAPVALUE(mouseMovementY),gunLookAng,10)

`Position the gun-holding limb and rotate it to give swaying effect
OFFSET LIMB 1,1,gunOffsetX+SIN(gunBobAng)*gunBobMove,gunOffsetY+ABS(COS(gunBobAng))*gunBobHeight,gunOffsetZ
ROTATE LIMB 1,1,gunLookAng,gunTurnAng,0

`Turn player
yAng = WRAPVALUE(yAng + mouseMovementX*lookSpeed)
xLook = WRAPVALUE(xLook + mouseMovementY*lookSpeed)

`Position player object and camera
POSITION OBJECT 1,xPos,cy#+100,zPos
ROTATE OBJECT 1,0,yAng,0
PITCH OBJECT DOWN 1,xLook
POSITION CAMERA xPos,cy#+100,zPos
ROTATE CAMERA xLook,yAng,0

camera_height:
  IF UPKEY()=1
    cx#=NEWXVALUE(cx#,a#,speed)
    cz#=NEWZVALUE(cz#,a#,speed)
  ENDIF
  IF DOWNKEY()=1
    cx#=NEWXVALUE(cx#,a#,-speed)
    cz#=NEWZVALUE(cz#,a#,-speed)
  ENDIF
  IF LEFTKEY()=1
    cx#=NEWXVALUE(cx#,WRAPVALUE(a#-90.0),speed)
    cz#=NEWZVALUE(cz#,WRAPVALUE(a#-90.0),speed)
  ENDIF
  IF RIGHTKEY()=1
    cx#=NEWXVALUE(cx#,WRAPVALUE(a#+90.0),speed)
    cz#=NEWZVALUE(cz#,WRAPVALUE(a#+90.0),speed)
  ENDIF

cy# = GET GROUND HEIGHT(1,cx#,cz#)
RETURN

+ Code Snippet

SYNC ON
SYNC RATE 60
SET DISPLAY MODE 800,600,32
HIDE MOUSE

`Make the grass
CREATE BITMAP 1,128,128
SET CURRENT BITMAP 1
FOR I=1 TO 16
   FOR J=1 TO 16
      IF RND(1)=1
         INK RGB(255,0,0),0
      ELSE
         INK RGB(255,255,0),0
      ENDIF
      BOX ((J*8)-8),((I*8)-8),(J*8),(I*8)
   NEXT J
NEXT I
BLUR BITMAP 1,6
GET IMAGE 1,1,1,128,128
SET CURRENT BITMAP 0
DELETE BITMAP 1

`Set gun holding-limb position
gunOffsetX AS FLOAT = 15.0
gunOffsetY AS FLOAT = -20.0
gunOffsetZ AS FLOAT = 20.0

`Make main player object and hide it
MAKE OBJECT CUBE 1,10
HIDE OBJECT 1
`Attach a limb and delete the mesh
MAKE MESH FROM OBJECT 1,1
ADD LIMB 1,1,1
DELETE MESH 1

`Make a weapon and attach it to the limb
MAKE OBJECT BOX 2,10,10,100
`MAKE OBJECT BOX 3,10,10,100
GLUE OBJECT TO LIMB 2,1,1
`LINK LIMB 3,1,2

CREATE BITMAP 1,128,128
SET CURRENT BITMAP 1
FOR I=1 TO 16
   FOR J=1 TO 16
      IF RND(1)=1
         INK RGB(0,200,0),0
      ELSE
         INK RGB(0,100,0),0
      ENDIF
      BOX ((J*8)-8),((I*8)-8),(J*8),(I*8)
   NEXT J
NEXT I
GET IMAGE 1,1,1,128,128
SET CURRENT BITMAP 0
DELETE BITMAP 1

MAKE MATRIX 1,10000,10000,100,100
PREPARE MATRIX TEXTURE 1,1,100,100
SET MATRIX TEXTURE 1,1,1
RANDOMIZE MATRIX 1,200:UPDATE MATRIX 1

`Variables
xPos AS FLOAT
zPos AS FLOAT
speed AS FLOAT = 10.0

xLook AS FLOAT
yAng AS FLOAT
lookSpeed AS FLOAT = 0.2

`The gun bobbing values
gunBobSpeed AS FLOAT = 6.0
gunBobMove AS FLOAT = 3.0
gunBobHeight AS FLOAT = 1.5

gunBobAng AS FLOAT
gunTurnAng AS FLOAT
gunLookAng AS FLOAT

mouseMovementX AS FLOAT
mouseMovementY AS FLOAT

GOSUB camera_height

DO
   GOSUB gun_sway
   SYNC
LOOP

gun_sway:
`Store mouse movement
mouseMovementX = MOUSEMOVEX()
mouseMovementY = MOUSEMOVEY()

`Control movement using trig
IF UPKEY()+DOWNKEY()+LEFTKEY()+RIGHTKEY() > 0
   IF UPKEY() = 1
      INC xPos,SIN(yAng)*speed
      INC zPos,COS(yAng)*speed
   ENDIF

   IF DOWNKEY() = 1
      DEC xPos,SIN(yAng)*speed
      DEC zPos,COS(yAng)*speed
   ENDIF

   IF RIGHTKEY() = 1
      INC xPos,COS(yAng)*speed
      INC zPos,-SIN(yAng)*speed
   ENDIF

   IF LEFTKEY() = 1
      DEC xPos,COS(yAng)*speed
      DEC zPos,-SIN(yAng)*speed
   ENDIF

   `Increase gun-bobbing angle   to get gun bobbing
   gunBobAng = WRAPVALUE(gunBobAng+gunBobSpeed)
ELSE
   `Otherwise slowly change the value to nothing to bring the gun to the centre again
   gunBobAng = CURVEANGLE(0,gunBobAng,10)
ENDIF

`Control the gun swaying according to how much the player is turning
gunTurnAng = CURVEANGLE(WRAPVALUE(mouseMovementX),gunTurnAng,10)
gunLookAng = CURVEANGLE(WRAPVALUE(mouseMovementY),gunLookAng,10)

`Position the gun-holding limb and rotate it to give swaying effect
OFFSET LIMB 1,1,gunOffsetX+SIN(gunBobAng)*gunBobMove,gunOffsetY+ABS(COS(gunBobAng))*gunBobHeight,gunOffsetZ
ROTATE LIMB 1,1,gunLookAng,gunTurnAng,0

`Turn player
yAng = WRAPVALUE(yAng + mouseMovementX*lookSpeed)
xLook = WRAPVALUE(xLook + mouseMovementY*lookSpeed)

`Position player object and camera
POSITION OBJECT 1,xPos,cy#+100,zPos
ROTATE OBJECT 1,0,yAng,0
PITCH OBJECT DOWN 1,xLook
POSITION CAMERA xPos,cy#+100,zPos
ROTATE CAMERA xLook,yAng,0

camera_height:
  IF UPKEY()=1
    cx#=NEWXVALUE(cx#,a#,speed)
    cz#=NEWZVALUE(cz#,a#,speed)
  ENDIF
  IF DOWNKEY()=1
    cx#=NEWXVALUE(cx#,a#,-speed)
    cz#=NEWZVALUE(cz#,a#,-speed)
  ENDIF
  IF LEFTKEY()=1
    cx#=NEWXVALUE(cx#,WRAPVALUE(a#-90.0),speed)
    cz#=NEWZVALUE(cz#,WRAPVALUE(a#-90.0),speed)
  ENDIF
  IF RIGHTKEY()=1
    cx#=NEWXVALUE(cx#,WRAPVALUE(a#+90.0),speed)
    cz#=NEWZVALUE(cz#,WRAPVALUE(a#+90.0),speed)
  ENDIF

  cy# = GET GROUND HEIGHT(1,cx#,cz#)
RETURN

Thanks,
Nicholas H.

My Website:

Back to top

Profile PM Email Website

DarkBasic Pro Guy

20

Years of Service

User Offline

Joined: 4th Jun 2004

Location: Broomfield, Colorado

Posted: 11th Jan 2006 05:34

Link

Image All has the feel I am trying to get, not the rough ground but the little gun and mouse control

Back to top

Profile PM Email

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 11th Jan 2006 08:04

Link

...Wha? o.O

Made some updates

I know it's futile to persue this version of the code, but now the mouse controls the Y rotation of the ship and now the player is in something... Bad graphics, I know =P

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET IMAGE COLORKEY 0,0,0

INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE 1,1,1,34,18 : CLS

MAKE OBJECT CUBE 1,10
COLOR OBJECT 1,RGB(0,0,200)
SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,60,10,60
COLOR OBJECT 2,RGB(200,0,0)
SET OBJECT CULL 2,0

PLR=3 : PLRX#=0.0 : PLRY#=0.0 : PLRZ#=-30.0 : PLRA#=0.0 : VIRTA#=0.0
MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

GLOBAL XLOCKSTATE=0
GLOBAL ZLOCKSTATE=0
GLOBAL WALL=0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF

PLRA#=WRAPVALUE(PLRA#+(MOUSEMOVEX()*0.2))

INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=PLRY#+(SIN(VIRTA#)/33)

POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

IF PLRZ#<=-28 THEN PLRZ#=-27.999
   IF PLRX#<=-28 THEN PLRX#=-27.999
   IF PLRZ#>=28 THEN PLRZ#=27.999
   IF PLRX#>=28 THEN PLRX#=27.999

SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

PASTE IMAGE 1,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

SYNC
LOOP

+ Code Snippet

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET IMAGE COLORKEY 0,0,0

INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE 1,1,1,34,18 : CLS

MAKE OBJECT CUBE 1,10
COLOR OBJECT 1,RGB(0,0,200)
SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,60,10,60
COLOR OBJECT 2,RGB(200,0,0)
SET OBJECT CULL 2,0

PLR=3 : PLRX#=0.0 : PLRY#=0.0 : PLRZ#=-30.0 : PLRA#=0.0 : VIRTA#=0.0
MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

GLOBAL XLOCKSTATE=0
GLOBAL ZLOCKSTATE=0
GLOBAL WALL=0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF

   PLRA#=WRAPVALUE(PLRA#+(MOUSEMOVEX()*0.2))

   INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=PLRY#+(SIN(VIRTA#)/33)

   POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

   IF PLRZ#<=-28 THEN PLRZ#=-27.999
   IF PLRX#<=-28 THEN PLRX#=-27.999
   IF PLRZ#>=28 THEN PLRZ#=27.999
   IF PLRX#>=28 THEN PLRX#=27.999

   SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

   PASTE IMAGE 1,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

   SYNC
LOOP

Back to top

Profile PM Email

Phaelax

DBPro Master

21

Years of Service

User Offline

Joined: 16th Apr 2003

Location: Metropia

Posted: 11th Jan 2006 08:27 Edited at: 11th Jan 2006 08:27

Link

Quote: "'bout time you won one of these challenges isn't it, Phaelax?! "

i think you're right! i been with some of the earliest challenges in this thread, and have yet to win. I got a bday in about a week, so it'd be a nice present.

Deadly Night Assassins

Back to top

Profile PM Email Website

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 11th Jan 2006 08:41 Edited at: 11th Jan 2006 08:42

Link

Winning for a Birthday Present? That's cheap!!

Well I got my sliding collisions all figured out o.0 Pretty short function too

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET IMAGE COLORKEY 0,0,0

INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE 1,1,1,34,18 : CLS

MAKE OBJECT CYLINDER 1,10
COLOR OBJECT 1,RGB(0,0,200)
SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,80,10,80
COLOR OBJECT 2,RGB(200,0,0)
SET OBJECT COLLISION OFF 2
SET OBJECT CULL 2,0

GLOBAL PLR=3
GLOBAL PLRX#=0.0
GLOBAL PLRY#=0.0
GLOBAL PLRZ#=-30.0
GLOBAL PLRA#=0.0
GLOBAL VIRTA#=0.0

MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

GLOBAL XLOCKSTATE=0
GLOBAL ZLOCKSTATE=0
GLOBAL WALL=0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF

PLRA#=WRAPVALUE(PLRA#+(MOUSEMOVEX()*0.2))

INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=PLRY#+(SIN(VIRTA#)/33)

POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

IF PLRZ#<=-38 THEN PLRZ#=-37.999
   IF PLRX#<=-38 THEN PLRX#=-37.999
   IF PLRZ#>=38 THEN PLRZ#=37.999
   IF PLRX#>=38 THEN PLRX#=37.999

SlidingCollision()

SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

PASTE IMAGE 1,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

SYNC
LOOP

FUNCTION SlidingCollision()
   W=OBJECT COLLISION(PLR,0)
   IF W>0
      IF ABS(PLRX#-OBJECT POSITION X(W))<OBJECT SIZE X(W)/2
         IF PLRZ#<OBJECT POSITION Z(W) THEN DEC PLRZ#,0.201
         IF PLRZ#>OBJECT POSITION Z(W) THEN INC PLRZ#,0.201
      ENDIF
      IF ABS(PLRZ#-OBJECT POSITION Z(W))<OBJECT SIZE Z(W)/2
         IF PLRX#<OBJECT POSITION X(W) THEN DEC PLRX#,0.201
         IF PLRX#>OBJECT POSITION X(W) THEN INC PLRX#,0.201
      ENDIF
   ENDIF
ENDFUNCTION

+ Code Snippet

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET IMAGE COLORKEY 0,0,0

INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE 1,1,1,34,18 : CLS

MAKE OBJECT CYLINDER 1,10
COLOR OBJECT 1,RGB(0,0,200)
SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,80,10,80
COLOR OBJECT 2,RGB(200,0,0)
SET OBJECT COLLISION OFF 2
SET OBJECT CULL 2,0

GLOBAL PLR=3
GLOBAL PLRX#=0.0
GLOBAL PLRY#=0.0
GLOBAL PLRZ#=-30.0
GLOBAL PLRA#=0.0
GLOBAL VIRTA#=0.0

MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

GLOBAL XLOCKSTATE=0
GLOBAL ZLOCKSTATE=0
GLOBAL WALL=0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF

   PLRA#=WRAPVALUE(PLRA#+(MOUSEMOVEX()*0.2))

   INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=PLRY#+(SIN(VIRTA#)/33)

   POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

   IF PLRZ#<=-38 THEN PLRZ#=-37.999
   IF PLRX#<=-38 THEN PLRX#=-37.999
   IF PLRZ#>=38 THEN PLRZ#=37.999
   IF PLRX#>=38 THEN PLRX#=37.999

   SlidingCollision()

   SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

   PASTE IMAGE 1,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

   SYNC
LOOP

FUNCTION SlidingCollision()
   W=OBJECT COLLISION(PLR,0)
   IF W>0
      IF ABS(PLRX#-OBJECT POSITION X(W))<OBJECT SIZE X(W)/2
         IF PLRZ#<OBJECT POSITION Z(W) THEN DEC PLRZ#,0.201
         IF PLRZ#>OBJECT POSITION Z(W) THEN INC PLRZ#,0.201
      ENDIF
      IF ABS(PLRZ#-OBJECT POSITION Z(W))<OBJECT SIZE Z(W)/2
         IF PLRX#<OBJECT POSITION X(W) THEN DEC PLRX#,0.201
         IF PLRX#>OBJECT POSITION X(W) THEN INC PLRX#,0.201
      ENDIF
   ENDIF
ENDFUNCTION

Back to top

Profile PM Email

BillR

21

Years of Service

User Offline

Joined: 19th Mar 2003

Location: United States

Posted: 11th Jan 2006 09:12 Edited at: 11th Jan 2006 16:19

Link

I entered the first few challenges, and had a great time!
Then got insanely busy with a new business.
I really missed programming in DBPro.

Ric, Kimo, RiiDii, Nicholas, everyone else, good to be back.

I just posted in the codebase, 'Scrolling Text with Animation' code, to kind of dust the cobwebs off, it came out kind of cool.

Anyway, I will try to enter this one with a 1st person shooter.
See you all at the finish line!

Back to top

Profile PM Email

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 11th Jan 2006 10:06 Edited at: 11th Jan 2006 10:07

Link

I wonder if I should just start editing my posts... O.o

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET TEXT SIZE 12 : SET TEXT FONT "MT Extra"
SYNC : CENTER TEXT 160,120,"Loading..." : SYNC

RANDOMIZE TIMER()
SET IMAGE COLORKEY 0,0,0

RETICLE=1
INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE RETICLE,1,1,34,18

WALLS=2
INK RGB(200,200,200),0
BOX 1,1,64,64
INK RGB(180,180,180),0
FOR I=1 TO 50
   LINEX=RND(64)
   LINEY1=RND(32)
   LINEY2=RND(32)+LINEY1
   LINE LINEX,LINEY1,LINEX,LINEY2
NEXT I
INK RGB(130,130,130),0
ELLIPSE 32,32,24,24
ELLIPSE 32,32,23,23
INK RGB(255,255,255),0
CIRCLE 32,32,22
GET IMAGE WALLS,1,1,64,64

PILLAR=3
FOR I=1 TO 64
   FOR J=1 TO 64
      COLR=RND(80)+175
      INK RGB(COLR,COLR,COLR),0
      DOT J,I
   NEXT J
NEXT I
GET IMAGE PILLAR,1,1,64,64

FLOOR=4
INK RGB(25,40,20),0
BOX 1,1,64,64
FOR I=1 TO 20
   IF RND(1)=1 : INK RGB(60,60,20),0 : ELSE : INK RGB(20,20,60),0 : ENDIF
   DOT RND(64),RND(64)
NEXT I
INK RGB(15,30,15),0
LINE 1,1,1,64 : LINE 22,1,22,64
LINE 44,1,44,64 : LINE 1,20,64,20
LINE 1,42,64,42 : LINE 1,64,64,64
GET IMAGE FLOOR,1,1,64,64

MAKE OBJECT CYLINDER 1,10 : TEXTURE OBJECT 1,PILLAR : SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,80,1,80 : TEXTURE OBJECT 2,FLOOR : POSITION OBJECT 2,0,5.5,0
SET OBJECT COLLISION ON 2

MAKE OBJECT BOX 3,1,10,80 : TEXTURE OBJECT 3,WALLS : POSITION OBJECT 3,-40.5,0,0
SET OBJECT COLLISION ON 3

MAKE OBJECT BOX 4,1,10,80 : TEXTURE OBJECT 4,WALLS : POSITION OBJECT 4,40.5,0,0
SET OBJECT COLLISION ON 4

MAKE OBJECT BOX 5,80,10,1 : TEXTURE OBJECT 5,WALLS : POSITION OBJECT 5,0,0,40.5
SET OBJECT COLLISION ON 5

MAKE OBJECT BOX 6,80,10,1 : TEXTURE OBJECT 6,WALLS : POSITION OBJECT 6,0,0,-40.5
SET OBJECT COLLISION ON 6

MAKE OBJECT BOX 7,80,1,80 : TEXTURE OBJECT 7,FLOOR : POSITION OBJECT 7,0,-5.5,0
SET OBJECT COLLISION ON 7

GLOBAL PLR=8 : GLOBAL PLRX#=0.0 : GLOBAL PLRY#=0.0
GLOBAL PLRZ#=-30.0 : GLOBAL PLRA#=0.0 : GLOBAL VIRTA#=0.0
GLOBAL SCORE=0 : GLOBAL SHIELDS=100 : GLOBAL ENERGY=100
GLOBAL CONCS=8 : THEIGHT=TEXT HEIGHT("ANYTHING")

MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

INK RGB(0,180,0),0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF

IF MOUSECLICK()=1 THEN Shooting(1)
   IF MOUSECLICK()=2 THEN Shooting(2)
   IF MOUSECLICK()=3 THEN Shooting(1) : Shooting(2)

PLRA#=WRAPVALUE(PLRA#+(MOUSEMOVEX()*0.2))

INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=PLRY#+(SIN(VIRTA#)/33)

POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

SlidingCollision()

SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

TEXT SCREEN WIDTH()-(TEXT WIDTH("SCORE: "+STR$(SCORE))+5),5,"SCORE: "+STR$(SCORE)
   TEXT 5,SCREEN HEIGHT()-(TEXT HEIGHT("ANYTHING")*2),"SHIELDS: "+STR$(SHIELDS)
   TEXT 5,SCREEN HEIGHT()-TEXT HEIGHT("ANYTHING"),"ENERGY: "+STR$(ENERGY)
   TEXT SCREEN WIDTH()-(TEXT WIDTH("LASER LEVEL 1")+5),SCREEN HEIGHT()-(THEIGHT*2),"LASER LEVEL 1"
   TEXT SCREEN WIDTH()-(TEXT WIDTH("0 CONCSN MISSLES")+5),SCREEN HEIGHT()-THEIGHT,STR$(CONCS)+" CONCSN MISSLES"

PASTE IMAGE RETICLE,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

SYNC
LOOP

FUNCTION SlidingCollision()
   W=OBJECT COLLISION(PLR,0)
   IF W>0
      IF ABS(PLRX#-OBJECT POSITION X(W))<OBJECT SIZE X(W)/2
         IF PLRZ#<OBJECT POSITION Z(W) THEN DEC PLRZ#,0.20000000000000000000000001
         IF PLRZ#>OBJECT POSITION Z(W) THEN INC PLRZ#,0.20000000000000000000000001
      ENDIF
      IF ABS(PLRZ#-OBJECT POSITION Z(W))<OBJECT SIZE Z(W)/2
         IF PLRX#<OBJECT POSITION X(W) THEN DEC PLRX#,0.20000000000000000000000001
         IF PLRX#>OBJECT POSITION X(W) THEN INC PLRX#,0.20000000000000000000000001
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION Shooting(m)
   IF m=1
      IF ENERGY>0
         DEC ENERGY
      ELSE
         PostMessage("ENERGY DEPLETED")
      ENDIF
   ENDIF
   IF m=2
      IF CONCS>0
         DEC CONCS
      ELSE
         PostMessage("CONCUSSION MISSLES DEPLETED")
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION PostMessage(m$)
   CENTER TEXT SCREEN WIDTH()/2,5,m$
ENDFUNCTION

+ Code Snippet

SYNC ON : SYNC RATE 0 : HIDE MOUSE
SET DISPLAY MODE 320,240,32

SET TEXT SIZE 12 : SET TEXT FONT "MT Extra"
SYNC : CENTER TEXT 160,120,"Loading..." : SYNC

RANDOMIZE TIMER()
SET IMAGE COLORKEY 0,0,0

RETICLE=1
INK 0,0 : BOX 1,1,34,18
INK RGB(0,255,0),0
LINE 12,1,15,4 : LINE 13,1,16,4
LINE 22,1,19,4 : LINE 23,1,20,4
LINE 15,8,13,10 : LINE 16,8,14,10
LINE 19,8,21,10 : LINE 20,8,22,10
DOT 7,4 : DOT 8,4 : DOT 9,4
DOT 10,5 : DOT 10,6 : DOT 10,7
DOT 9,8 : DOT 8,8 : DOT 7,8
DOT 6,7 : DOT 6,6 : DOT 6,5
DOT 26,4 : DOT 27,4 : DOT 28,4
DOT 29,5 : DOT 29,6 : DOT 29,7
DOT 28,8 : DOT 27,8 : DOT 26,8
DOT 25,7 : DOT 25,6 : DOT 25,5
DOT 7,12 : DOT 8,12 : DOT 7,13 : DOT 8,13
DOT 27,12 : DOT 28,12 : DOT 27,13 : DOT 28,13
DOT 6,14 : DOT 4,15 : DOT 29,14 : DOT 31,15
DOT 2,16 : DOT 3,16 : DOT 2,17 : DOT 3,17
DOT 32,16 : DOT 33,16 : DOT 32,17 : DOT 33,17
DOT 15,4 : DOT 16,4 : DOT 19,4 : DOT 20,4
DOT 13,10 : DOT 14,10 : DOT 21,10 : DOT 22,10
INK RGB(0,165,0),0
DOT 6,12 : DOT 6,13 : DOT 5,14 : DOT 5,15
DOT 29,12 : DOT 29,13 : DOT 30,14 : DOT 30,15
DOT 2,15 : DOT 3,15 : DOT 4,16 : DOT 4,17
DOT 3,18 : DOT 2,18 : DOT 1,17 : DOT 1,16
DOT 32,15 : DOT 33,15 : DOT 34,16 : DOT 34,17
DOT 33,18 : DOT 32,18 : DOT 31,17 : DOT 31,16
DOT 7,11 : DOT 8,11 : DOT 9,11
DOT 7,14 : DOT 8,14 : DOT 9,14
DOT 9,12 : DOT 10,12 : DOT 10,13 : DOT 9,13
DOT 26,11 : DOT 27,11 : DOT 28,11
DOT 26,14 : DOT 27,14 : DOT 28,14
DOT 25,12 : DOT 26,12 : DOT 26,13 : DOT 25,13
GET IMAGE RETICLE,1,1,34,18

WALLS=2
INK RGB(200,200,200),0
BOX 1,1,64,64
INK RGB(180,180,180),0
FOR I=1 TO 50
   LINEX=RND(64)
   LINEY1=RND(32)
   LINEY2=RND(32)+LINEY1
   LINE LINEX,LINEY1,LINEX,LINEY2
NEXT I
INK RGB(130,130,130),0
ELLIPSE 32,32,24,24
ELLIPSE 32,32,23,23
INK RGB(255,255,255),0
CIRCLE 32,32,22
GET IMAGE WALLS,1,1,64,64

PILLAR=3
FOR I=1 TO 64
   FOR J=1 TO 64
      COLR=RND(80)+175
      INK RGB(COLR,COLR,COLR),0
      DOT J,I
   NEXT J
NEXT I
GET IMAGE PILLAR,1,1,64,64

FLOOR=4
INK RGB(25,40,20),0
BOX 1,1,64,64
FOR I=1 TO 20
   IF RND(1)=1 : INK RGB(60,60,20),0 : ELSE : INK RGB(20,20,60),0 : ENDIF
   DOT RND(64),RND(64)
NEXT I
INK RGB(15,30,15),0
LINE 1,1,1,64 : LINE 22,1,22,64
LINE 44,1,44,64 : LINE 1,20,64,20
LINE 1,42,64,42 : LINE 1,64,64,64
GET IMAGE FLOOR,1,1,64,64

MAKE OBJECT CYLINDER 1,10 : TEXTURE OBJECT 1,PILLAR : SET OBJECT COLLISION ON 1

MAKE OBJECT BOX 2,80,1,80 : TEXTURE OBJECT 2,FLOOR : POSITION OBJECT 2,0,5.5,0
SET OBJECT COLLISION ON 2

MAKE OBJECT BOX 3,1,10,80 : TEXTURE OBJECT 3,WALLS : POSITION OBJECT 3,-40.5,0,0
SET OBJECT COLLISION ON 3

MAKE OBJECT BOX 4,1,10,80 : TEXTURE OBJECT 4,WALLS : POSITION OBJECT 4,40.5,0,0
SET OBJECT COLLISION ON 4

MAKE OBJECT BOX 5,80,10,1 : TEXTURE OBJECT 5,WALLS : POSITION OBJECT 5,0,0,40.5
SET OBJECT COLLISION ON 5

MAKE OBJECT BOX 6,80,10,1 : TEXTURE OBJECT 6,WALLS : POSITION OBJECT 6,0,0,-40.5
SET OBJECT COLLISION ON 6

MAKE OBJECT BOX 7,80,1,80 : TEXTURE OBJECT 7,FLOOR : POSITION OBJECT 7,0,-5.5,0
SET OBJECT COLLISION ON 7

GLOBAL PLR=8 : GLOBAL PLRX#=0.0 : GLOBAL PLRY#=0.0
GLOBAL PLRZ#=-30.0 : GLOBAL PLRA#=0.0 : GLOBAL VIRTA#=0.0
GLOBAL SCORE=0 : GLOBAL SHIELDS=100 : GLOBAL ENERGY=100
GLOBAL CONCS=8 : THEIGHT=TEXT HEIGHT("ANYTHING")

MAKE OBJECT CUBE PLR,5
SET OBJECT COLLISION ON PLR
SET OBJECT CULL PLR,1
POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#

INK RGB(0,180,0),0

DO
   IF KEYSTATE(32)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,0.2)
   ENDIF
   IF KEYSTATE(18)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,PLRA#,-0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,PLRA#,-0.2)
   ENDIF
   IF KEYSTATE(42)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#-90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#-90),0.2)
   ENDIF
   IF KEYSTATE(33)=1
      IF XLOCKSTATE=0 THEN PLRX#=NEWXVALUE(PLRX#,WRAPVALUE(PLRA#+90),0.2)
      IF ZLOCKSTATE=0 THEN PLRZ#=NEWZVALUE(PLRZ#,WRAPVALUE(PLRA#+90),0.2)
   ENDIF

   IF MOUSECLICK()=1 THEN Shooting(1)
   IF MOUSECLICK()=2 THEN Shooting(2)
   IF MOUSECLICK()=3 THEN Shooting(1) : Shooting(2)

   PLRA#=WRAPVALUE(PLRA#+(MOUSEMOVEX()*0.2))

   INC VIRTA#,2.5
   VIRTA#=WRAPVALUE(VIRTA#)
   PLRY#=PLRY#+(SIN(VIRTA#)/33)

   POSITION OBJECT PLR,PLRX#,PLRY#,PLRZ#
   YROTATE OBJECT PLR,PLRA#

   SlidingCollision()

   SET CAMERA TO OBJECT ORIENTATION PLR
   POSITION CAMERA PLRX#,PLRY#,PLRZ#

   TEXT SCREEN WIDTH()-(TEXT WIDTH("SCORE: "+STR$(SCORE))+5),5,"SCORE: "+STR$(SCORE)
   TEXT 5,SCREEN HEIGHT()-(TEXT HEIGHT("ANYTHING")*2),"SHIELDS: "+STR$(SHIELDS)
   TEXT 5,SCREEN HEIGHT()-TEXT HEIGHT("ANYTHING"),"ENERGY: "+STR$(ENERGY)
   TEXT SCREEN WIDTH()-(TEXT WIDTH("LASER LEVEL 1")+5),SCREEN HEIGHT()-(THEIGHT*2),"LASER LEVEL 1"
   TEXT SCREEN WIDTH()-(TEXT WIDTH("0 CONCSN MISSLES")+5),SCREEN HEIGHT()-THEIGHT,STR$(CONCS)+" CONCSN MISSLES"

   PASTE IMAGE RETICLE,(SCREEN WIDTH()/2)-17,(SCREEN HEIGHT()/2)-9,1

   SYNC
LOOP

FUNCTION SlidingCollision()
   W=OBJECT COLLISION(PLR,0)
   IF W>0
      IF ABS(PLRX#-OBJECT POSITION X(W))<OBJECT SIZE X(W)/2
         IF PLRZ#<OBJECT POSITION Z(W) THEN DEC PLRZ#,0.20000000000000000000000001
         IF PLRZ#>OBJECT POSITION Z(W) THEN INC PLRZ#,0.20000000000000000000000001
      ENDIF
      IF ABS(PLRZ#-OBJECT POSITION Z(W))<OBJECT SIZE Z(W)/2
         IF PLRX#<OBJECT POSITION X(W) THEN DEC PLRX#,0.20000000000000000000000001
         IF PLRX#>OBJECT POSITION X(W) THEN INC PLRX#,0.20000000000000000000000001
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION Shooting(m)
   IF m=1
      IF ENERGY>0
         DEC ENERGY
      ELSE
         PostMessage("ENERGY DEPLETED")
      ENDIF
   ENDIF
   IF m=2
      IF CONCS>0
         DEC CONCS
      ELSE
         PostMessage("CONCUSSION MISSLES DEPLETED")
      ENDIF
   ENDIF
ENDFUNCTION

FUNCTION PostMessage(m$)
   CENTER TEXT SCREEN WIDTH()/2,5,m$
ENDFUNCTION

Shooting works, atleast, theoretically. The energy and concussion missles go down, that's about it

But I can't get it to have a set amount of time for reasonably spaced-out shots 0_o;

Back to top

Profile PM Email

RiiDii

19

Years of Service

User Offline

Joined: 20th Jan 2005

Location: Inatincan

Posted: 11th Jan 2006 16:49

Link

Welcome back BillR. You are in time for a pretty nifty compo; an FPS shooter. Will you be giving it a shot?

+ Code Snippet

Yes, pun intended :)

Open MMORPG: It's your game!

Back to top

Profile PM Email

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 11th Jan 2006 17:10

Link

Added a world: water + sky.

I know the enemies aren't pretty challenging, but I had to test if the animation function also worked with different enemies.
It works, so that's a good sign

I have to add AI. And if I have some time left, add some animation when the enemy dies.

The code:

`*********************************
`Shooter
`*********************************

`Setup
sync on : sync rate 80
hide mouse
set camera range 0.1,10000

`Create player
gosub CreatePlayer

`Create World
gosub CreateWorld

`vars
type Plr
   id as integer
   health as integer
   power as integer
   aph as integer
   `animation phase(used for getting the point of animation)
   Move as float
   Run as float
   WeaponDrawed as integer
   maxdelay as integer
   delay as integer
endtype
dim Player(6) as Plr
Player(1).id = 1
Player(1).power = 1
Player(1).aph = 0
Player(1).Move = 0.4
Player(1).Run = 0.5
Player(1).maxdelay = 25
Player(1).WeaponDrawed = 1
Player(1).Health = 10

`create enemis
global Enemies as integer
Enemies = 5

type enemyInfo
   AngX# as float
   AngY# as float
   move as integer
   left as integer
   right as integer
   stat as integer
endtype
dim Enemy(Enemies) as enemyInfo

for i = 1 to Enemies
   clone object 1 + i,1
   Player(1 + i).id = 1 + i
   Player(1 + i).aph = 0
   Player(1 + i).Move = 0.2
   Player(1 + i).Run = 0.2
   Player(1 + i).WeaponDrawed = 0
   Player(1 + i).Health = 1
   position object Player(1 + i).id,400,0,400
   Enemy(i).move = 1
next i

`reset variables
angx# = 0.0
angy# = 0.0
id = 1

`Create a vector for checking distances
r = make vector3(1)

`position player
position object 1,500,0,500

do

`Control player
   angx# = wrapvalue(angx# + (mousemovey()*0.2))
   if wrapvalue(angx#-180) > 260.0
      angx# = 80.0
   else
      if wrapvalue(angx#-180) < 150 then angx# = 330
   endif
   angy# = wrapvalue(angy# + (mousemovex()*0.2))
   if upkey() = 1 then move = 1 else move = 0
   if downkey() = 1 then back = 1 else back = 0
   if leftkey() = 1 then left = 1 else left = 0
   if rightkey() = 1 then right = 1 else right = 0
   if controlkey() = 1 and hold = 0
      hold = 1
      Player(1).WeaponDrawed = abs(Player(1).WeaponDrawed-1)
   endif
   if mouseclick() = 1 then shoot = 1 else shoot = 0

ControlPlayer(1, angx#, angy#, move, back, left, right, shoot)

`Camera
   CamBehind(1, 10.0, angx#, angy#)

`control all bullets
   for b = 1 to bulletQuant
      if Bullet(b) > 0
         move object bulletStart + b, 1
         dec Bullet(b)
         if object position y(bulletStart + b) < get ground height(1, object position x(bulletStart + b), object position z(bulletStart + b)) then Bullet(b) = 0
         col = object collision(bulletStart + b, 0)
         if col > 0
            Bullet(b) = 0
            if col > 1 and col <= 1 + Enemies
               dec Player(col).Health, Player(1).power
            endif
         endif
         if Bullet(b) = 0 then hide object bulletStart + b : position object bulletStart + b, 0,-50,0
      endif
   next b

`control water
   waterAng# = wrapvalue(waterAng#+0.2)
   position object 10000, 500, -2.5 + sin(waterAng#)*0.5, 500

`Control enemies
   gosub EnemiesAI

if controlkey() = 0 then hold = 0

sync
loop

`*** Create player ***
CreatePlayer:

`create player
   make object box 1,2,3,1
   make object sphere 2,1.5
   make mesh from object 1,2
   delete object 2
   add limb 1,1,1
   link limb 1,0,1
   offset limb 1,1,0,2.5,0
   delete mesh 1

`make arms
   make object box 2,0.5,1.5,0.5
   offset limb 2,0,0,-0.75,0
   make mesh from object 1,2

`left arm
   add limb 1,2,1
   add limb 1,3,1
   link limb 1,2,3
   offset limb 1,3,0,-1.5,0
   offset limb 1,2,1.25,1.5,0

`right arm
   add limb 1,4,1
   add limb 1,5,1
   link limb 1,4,5
   offset limb 1,5,0,-1.5,0
   offset limb 1,4,-1.25,1.5,0

`make legs

`left leg
   add limb 1,6,1
   add limb 1,7,1
   link limb 1,6,7
   offset limb 1,7,0,-1.5,0
   offset limb 1,6,-0.5,-1,0

`right leg
   add limb 1,8,1
   add limb 1,9,1
   link limb 1,8,9
   offset limb 1,9,0,-1.5,0
   offset limb 1,8,0.5,-1,0

`clean up
   delete object 2
   delete mesh 1

return

CreateWorld:

`Create world
   make matrix 1,1000,1000,50,50
   CreateGrassTex(1,256,256)
   prepare matrix texture 1,1,1,1

`prepare heights
   for y = 1 to 50
      for x = 1 to 50
         set matrix height 1, x, y, sin(x*y)*5
      next x
   next y
   update matrix 1

`make water
   make object plain 10000,1000,1000
   rotate object 10000,-90,0,0
   position object 10000,500,-2.5,500
   set object light 10000,1
   set reflection shading on 10000
   set object collision off 10000

`make sky
   make object plain 10001,10000,10000
   CreateSkyTex(2,512,512)
   position object 10001,500,500,500
   xrotate object 10001,90
   texture object 10001,2
   set object cull 10001,0
   set object light 10001,1
   scale object texture 10001,5,5

for i = 0 to 3
      make object plain 10002 + i, 10000, 1000
      position object 10002 + i, 500 + cos(90*i)*5000, 0, 500 + sin(90*i)*5000
      color object 10002 + i, rgb(0,0,50)
      point object 10002 + i, 500, 0, 500
   next i

`fog
   fog on
   fog color rgb(0,0,50)
   fog distance 5000
   backdrop on
   color backdrop rgb(0,0,50)

`make bullets
   #constant bulletStart = 1000
   #constant bulletQuant = 500
   global currentBullet
   dim Bullet(bulletQuant)
   for i = 1 to bulletQuant
      make object cylinder bulletStart + i, 30
      xrotate object bulletStart + i, 90 : fix object pivot bulletStart + i
      scale object bulletStart + i, 0.2, 30, 0.2
      color object bulletStart + i, rgb(255,0,0)
      hide object bulletStart + i
   next i

return

EnemiesAI:

for e = 1 to Enemies
      inc Enemy(e).stat
      if Enemy(e).stat > 50 then Enemy(e).stat = 0 : Enemy(e).AngY# = wrapvalue(Enemy(e).AngY# - 45 + rnd(90))
      ControlPlayer(1 + e, Enemy(e).AngX#, Enemy(e).AngY#, Enemy(e).move, 0, Enemy(e).left, Enemy(e).right,0)
      if Player(1 + e).Health <= 0
         hide object Player(1 + e).id
         position object Player(1 + e).id, 0, -50, 0
      endif
   next e

return

`************************************
`Function
`************************************

function ControlPlayer(id, angx#, angy#, move, back, left, right, shoot)

`Extract data
   obj = Player(id).id
   posx# = object position x(obj)
   posy# = object position y(obj)
   posz# = object position z(obj)
   Weapon = Player(id).WeaponDrawed

`animate character
   animate(obj)

`Control player

`move the player
   if Weapon = 1
      move# = Player(id).Move
      rotate limb obj,2,wrapvalue(angx#-90),0,0
      rotate limb obj,3, 0, 0, 0
   else
      move# = Player(id).Run
   endif
   if move = 1 and left+right = 0
      posx# = newxvalue(posx#, angy#, move#)
      posz# = newzvalue(posz#, angy#, move#)
   endif
   if back = 1 and left+right = 0
      posx# = newxvalue(posx#, angy#, -move#)
      posz# = newzvalue(posz#, angy#, -move#)
   endif
   if left = 1
      yrotate object obj, wrapvalue(angy# - 90)
      if Weapon > 0
         rotate limb obj,2, wrapvalue(angx#-90), 90, 0
         rotate limb obj,3, 0, 0, 0
      endif
      posx# = newxvalue(posx#, wrapvalue(angy# - 90), move#)
      posz# = newzvalue(posz#, wrapvalue(angy# - 90), move#)
   endif
   if right = 1
      yrotate object obj, wrapvalue(angy# + 90)
      if Weapon > 0
         rotate limb obj,2, -90,0,-10
         rotate limb obj,3, wrapvalue(angx#), 0, -90
      endif
      posx# = newxvalue(posx#, wrapvalue(angy# + 90), move#)
      posz# = newzvalue(posz#, wrapvalue(angy# + 90), move#)
   endif

`animate
   if left + right + move + back > 0
      if Player(id).aph <= 2 then Player(id).aph = 3
   else
      if Player(id).aph > 2 then Player(id).aph = 0
   endif

`Shooting
   if Weapon > 0
      if Player(id).delay > 0 then dec Player(id).delay
      if shoot > 0 and Player(id).delay = 0
         Player(id).delay = Player(id).maxdelay
         inc currentBullet
         if currentBullet > bulletQuant then currentBullet = 1
         position object bulletStart + currentBullet, limb position x(obj,2), limb position y(obj,2), limb position z(obj,2)
         rotate object bulletStart + currentBullet, angx#, angy#, 0
         if right > 0 then move object right bulletStart + currentBullet, 2.0
         move object bulletStart + currentBullet, 6
         show object bulletStart + currentBullet
         Bullet(currentBullet) = 150
      endif
   endif

`calculate height
   posy# = get ground height(1, posx#, posz#) + 4

`update player
   position object obj, posx#, posy#, posz#
   if left + right = 0
      yrotate object obj, angy#
   endif

endfunction

function animate(id)

obj = Player(id).id
   Phase = Player(id).aph

`Animate character
   if Phase <= 2
      select Phase
         case 0
            `reset body
            for i = 1 to 8
               rotate limb obj,i,0,0,0
            next i
            Player(id).aph = 1
         endcase
         case 1
            pass = 0
            if wrapvalue(limb angle x(obj,6)+180)>150
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)-0.1),0,0
               rotate limb obj,7,wrapvalue(360-limb angle x(obj,6)),0,0
            else
               pass=1
            endif
            if wrapvalue(limb angle x(obj,8)+180)>150
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)-0.1),0,0
               rotate limb obj,9,wrapvalue(360-limb angle x(obj,8)),0,0
            else
               pass=1
            endif
            if pass = 1 then Player(id).aph = 2
         endcase
         case 2
            pass = 0
            if wrapvalue(limb angle x(obj,6)+180)<180
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)+0.1),0,0
               rotate limb obj,7,wrapvalue(360-limb angle x(obj,6)),0,0
            else
               pass=1
            endif
            if wrapvalue(limb angle x(obj,8)+180)<180
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)+0.1),0,0
               rotate limb obj,9,wrapvalue(360-limb angle x(obj,8)),0,0
            else
               pass=1
            endif
            if pass = 1 then Player(id).aph = 1
         endcase
      endselect
      rotate limb obj,2,0,0,0 : rotate limb obj,3,0,0,0
      rotate limb obj,4,0,0,0 : rotate limb obj,5,0,0,0
   endif
   if Phase>2 and Phase<=5
      select Phase
         case 3
            `reset body
            for i = 1 to 8
               rotate limb obj,i,0,0,0
            next i
            Player(id).aph = 4
         endcase
         case 4
            pass = 0
            if wrapvalue(limb angle x(obj, 6)-180) < 210
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)+2),0,0
               rotate limb obj,7,wrapvalue(30 - limb angle x(obj,6)),0,0
            else
               pass = 1
            endif
            if wrapvalue(limb angle x(obj, 8)-180) > 150
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)-2),0,0
               rotate limb obj,9,wrapvalue(30-limb angle x(obj,8)),0,0
            else
               pass = 1
            endif
            if pass = 1 then Player(id).aph = 5
         endcase
         case 5
            pass = 0
            if wrapvalue(limb angle x(obj,6)-180) > 150
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)-2),0,0
               rotate limb obj,7,wrapvalue(30-limb angle x(obj,6)),0,0
            else
               pass = 1
            endif
            if wrapvalue(limb angle x(obj,8)-180) < 210
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)+2),0,0
               rotate limb obj,9,wrapvalue(30-limb angle x(obj,8)),0,0
            else
               pass = 1
            endif
            if pass = 1 then Player(id).aph = 4
         endcase
      endselect
      rotate limb obj,2, limb angle x(obj,8),0,0
      rotate limb obj,4, limb angle x(obj,6),0,0
      rotate limb obj,3, -100,0,0
      rotate limb obj,5, -100,0,0
   endif

endfunction

function CamBehind(obj, Dist#, angx#, angy#)

`get position data
   posx# = object position x(obj)
   posy# = object position y(obj) + 3.5
   posz# = object position z(obj)
   angy# = wrapvalue(angy#-180)

`work out the camera position
   camx# = newxvalue(posx#, angy#, cos(angx#)*Dist#)
   camz# = newzvalue(posz#, angy#, cos(angx#)*Dist#)
   camy# = posy# + (sin(angx#)*Dist#)

`smoothen up
   camx# = curvevalue(camx#, camera position x(), 15)
   camy# = curvevalue(camy#, camera position y(), 15)
   camz# = curvevalue(camz#, camera position z(), 15)

`collision with ground
   if camy# < get ground height(1, camx#, camz#)+1
      distance# = sqrt(Dist#^2 - (posy#-get ground height(1,posx#,posz#))^2)
      camx# = newxvalue(posx#, angy#, distance#)
      camz# = newzvalue(posz#, angy#, distance#)
      camy# = get ground height(1, camx#, camz#)+1
   endif

`update camera
   position camera camx#,camy#,camz#
   point camera posx#,posy#,posz#

endfunction

function CreateGrassTex(nr, Width, Height)

`create a memblock
   make memblock nr, 12 + (Width*Height*4)

`write header
   write memblock DWORD nr,0, Width
   write memblock DWORD nr,4, Height
   write memblock DWORD nr,8, 32

`write data
   for i = 1 to (Width*Height)
      green = 50 + rnd(55)
      write memblock byte nr, 12 + ((i-1)*4), 0
      write memblock byte nr, 13 + ((i-1)*4), green
      write memblock byte nr, 14 + ((i-1)*4), 0
      write memblock byte nr, 15 + ((i-1)*4), 255
   next i

`create an image from the memblock and delete memblock
   make image from memblock nr,nr
   delete memblock nr

endfunction

function CreateSkyTex(nr, width, height)
   make memblock nr, 12 + (width*height*4)
   write memblock dword nr, 0, width
   write memblock dword nr, 4, height
   write memblock dword nr, 8, 32
   for y = 1 to height
      for x = 1 to width
         pos = 12 + ((y-1)*width*4) + ((x-1)*4)
         BW = rnd(10)
         if BW > 0
            blue = 255
            green = rnd(255)
            red = green
         else
            blue = 255
            green = blue
            red = green
         endif
         write memblock byte nr, pos, blue
         write memblock byte nr, pos+1, green
         write memblock byte nr, pos+2, red
         write memblock byte nr, pos+3, 255
      next x
   next y
   make image from memblock nr, nr
   create bitmap nr, width, height
   set current bitmap nr
   paste image nr, 0, 0
   blur bitmap nr, 2
   blur bitmap nr, 2
   get image nr, 0,0, width, height
   delete bitmap nr
   set current bitmap 0
endfunction

+ Code Snippet

`*********************************
`Shooter
`*********************************

`Setup
sync on : sync rate 80
hide mouse
set camera range 0.1,10000

`Create player
gosub CreatePlayer

`Create World
gosub CreateWorld

`vars
type Plr
   id as integer
   health as integer
   power as integer
   aph as integer
   `animation phase(used for getting the point of animation)
   Move as float
   Run as float
   WeaponDrawed as integer
   maxdelay as integer
   delay as integer
endtype
dim Player(6) as Plr
Player(1).id = 1
Player(1).power = 1
Player(1).aph = 0
Player(1).Move = 0.4
Player(1).Run = 0.5
Player(1).maxdelay = 25
Player(1).WeaponDrawed = 1
Player(1).Health = 10


`create enemis
global Enemies as integer
Enemies = 5

type enemyInfo
   AngX# as float
   AngY# as float
   move as integer
   left as integer
   right as integer
   stat as integer
endtype
dim Enemy(Enemies) as enemyInfo

for i = 1 to Enemies
   clone object 1 + i,1
   Player(1 + i).id = 1 + i
   Player(1 + i).aph = 0
   Player(1 + i).Move = 0.2
   Player(1 + i).Run = 0.2
   Player(1 + i).WeaponDrawed = 0
   Player(1 + i).Health = 1
   position object Player(1 + i).id,400,0,400
   Enemy(i).move = 1
next i

`reset variables
angx# = 0.0
angy# = 0.0
id = 1

`Create a vector for checking distances
r = make vector3(1)

`position player
position object 1,500,0,500

do

   `Control player
   angx# = wrapvalue(angx# + (mousemovey()*0.2))
   if wrapvalue(angx#-180) > 260.0
      angx# = 80.0
   else
      if wrapvalue(angx#-180) < 150 then angx# = 330
   endif
   angy# = wrapvalue(angy# + (mousemovex()*0.2))
   if upkey() = 1 then move = 1 else move = 0
   if downkey() = 1 then back = 1 else back = 0
   if leftkey() = 1 then left = 1 else left = 0
   if rightkey() = 1 then right = 1 else right = 0
   if controlkey() = 1 and hold = 0
      hold = 1
      Player(1).WeaponDrawed = abs(Player(1).WeaponDrawed-1)
   endif
   if mouseclick() = 1 then shoot = 1 else shoot = 0

   ControlPlayer(1, angx#, angy#, move, back, left, right, shoot)

   `Camera
   CamBehind(1, 10.0, angx#, angy#)

   `control all bullets
   for b = 1 to bulletQuant
      if Bullet(b) > 0
         move object bulletStart + b, 1
         dec Bullet(b)
         if object position y(bulletStart + b) < get ground height(1, object position x(bulletStart + b), object position z(bulletStart + b)) then Bullet(b) = 0
         col = object collision(bulletStart + b, 0)
         if col > 0
            Bullet(b) = 0
            if col > 1 and col <= 1 + Enemies
               dec Player(col).Health, Player(1).power
            endif
         endif
         if Bullet(b) = 0 then hide object bulletStart + b : position object bulletStart + b, 0,-50,0
      endif
   next b

   `control water
   waterAng# = wrapvalue(waterAng#+0.2)
   position object 10000, 500, -2.5 + sin(waterAng#)*0.5, 500

   `Control enemies
   gosub EnemiesAI

   if controlkey() = 0 then hold = 0

   sync
loop

`*** Create player ***
CreatePlayer:

   `create player
   make object box 1,2,3,1
   make object sphere 2,1.5
   make mesh from object 1,2
   delete object 2
   add limb 1,1,1
   link limb 1,0,1
   offset limb 1,1,0,2.5,0
   delete mesh 1

   `make arms
   make object box 2,0.5,1.5,0.5
   offset limb 2,0,0,-0.75,0
   make mesh from object 1,2

   `left arm
   add limb 1,2,1
   add limb 1,3,1
   link limb 1,2,3
   offset limb 1,3,0,-1.5,0
   offset limb 1,2,1.25,1.5,0

   `right arm
   add limb 1,4,1
   add limb 1,5,1
   link limb 1,4,5
   offset limb 1,5,0,-1.5,0
   offset limb 1,4,-1.25,1.5,0

   `make legs

   `left leg
   add limb 1,6,1
   add limb 1,7,1
   link limb 1,6,7
   offset limb 1,7,0,-1.5,0
   offset limb 1,6,-0.5,-1,0

   `right leg
   add limb 1,8,1
   add limb 1,9,1
   link limb 1,8,9
   offset limb 1,9,0,-1.5,0
   offset limb 1,8,0.5,-1,0

   `clean up
   delete object 2
   delete mesh 1

return

CreateWorld:

   `Create world
   make matrix 1,1000,1000,50,50
   CreateGrassTex(1,256,256)
   prepare matrix texture 1,1,1,1

   `prepare heights
   for y = 1 to 50
      for x = 1 to 50
         set matrix height 1, x, y, sin(x*y)*5
      next x
   next y
   update matrix 1

   `make water
   make object plain 10000,1000,1000
   rotate object 10000,-90,0,0
   position object 10000,500,-2.5,500
   set object light 10000,1
   set reflection shading on 10000
   set object collision off 10000

   `make sky
   make object plain 10001,10000,10000
   CreateSkyTex(2,512,512)
   position object 10001,500,500,500
   xrotate object 10001,90
   texture object 10001,2
   set object cull 10001,0
   set object light 10001,1
   scale object texture 10001,5,5

   for i = 0 to 3
      make object plain 10002 + i, 10000, 1000
      position object 10002 + i, 500 + cos(90*i)*5000, 0, 500 + sin(90*i)*5000
      color object 10002 + i, rgb(0,0,50)
      point object 10002 + i, 500, 0, 500
   next i

   `fog
   fog on
   fog color rgb(0,0,50)
   fog distance 5000
   backdrop on
   color backdrop rgb(0,0,50)

   `make bullets
   #constant bulletStart = 1000
   #constant bulletQuant = 500
   global currentBullet
   dim Bullet(bulletQuant)
   for i = 1 to bulletQuant
      make object cylinder bulletStart + i, 30
      xrotate object bulletStart + i, 90 : fix object pivot bulletStart + i
      scale object bulletStart + i, 0.2, 30, 0.2
      color object bulletStart + i, rgb(255,0,0)
      hide object bulletStart + i
   next i

return

EnemiesAI:

   for e = 1 to Enemies
      inc Enemy(e).stat
      if Enemy(e).stat > 50 then Enemy(e).stat = 0 : Enemy(e).AngY# = wrapvalue(Enemy(e).AngY# - 45 + rnd(90))
      ControlPlayer(1 + e, Enemy(e).AngX#, Enemy(e).AngY#, Enemy(e).move, 0, Enemy(e).left, Enemy(e).right,0)
      if Player(1 + e).Health <= 0
         hide object Player(1 + e).id
         position object Player(1 + e).id, 0, -50, 0
      endif
   next e

return

`************************************
`Function
`************************************

function ControlPlayer(id, angx#, angy#, move, back, left, right, shoot)

   `Extract data
   obj = Player(id).id
   posx# = object position x(obj)
   posy# = object position y(obj)
   posz# = object position z(obj)
   Weapon = Player(id).WeaponDrawed

   `animate character
   animate(obj)

   `Control player

   `move the player
   if Weapon = 1
      move# = Player(id).Move
      rotate limb obj,2,wrapvalue(angx#-90),0,0
      rotate limb obj,3, 0, 0, 0
   else
      move# = Player(id).Run
   endif
   if move = 1 and left+right = 0
      posx# = newxvalue(posx#, angy#, move#)
      posz# = newzvalue(posz#, angy#, move#)
   endif
   if back = 1 and left+right = 0
      posx# = newxvalue(posx#, angy#, -move#)
      posz# = newzvalue(posz#, angy#, -move#)
   endif
   if left = 1
      yrotate object obj, wrapvalue(angy# - 90)
      if Weapon > 0
         rotate limb obj,2, wrapvalue(angx#-90), 90, 0
         rotate limb obj,3, 0, 0, 0
      endif
      posx# = newxvalue(posx#, wrapvalue(angy# - 90), move#)
      posz# = newzvalue(posz#, wrapvalue(angy# - 90), move#)
   endif
   if right = 1
      yrotate object obj, wrapvalue(angy# + 90)
      if Weapon > 0
         rotate limb obj,2, -90,0,-10
         rotate limb obj,3, wrapvalue(angx#), 0, -90
      endif
      posx# = newxvalue(posx#, wrapvalue(angy# + 90), move#)
      posz# = newzvalue(posz#, wrapvalue(angy# + 90), move#)
   endif

   `animate
   if left + right + move + back > 0
      if Player(id).aph <= 2 then Player(id).aph = 3
   else
      if Player(id).aph > 2 then Player(id).aph = 0
   endif

   `Shooting
   if Weapon > 0
      if Player(id).delay > 0 then dec Player(id).delay
      if shoot > 0 and Player(id).delay = 0
         Player(id).delay = Player(id).maxdelay
         inc currentBullet
         if currentBullet > bulletQuant then currentBullet = 1
         position object bulletStart + currentBullet, limb position x(obj,2), limb position y(obj,2), limb position z(obj,2)
         rotate object bulletStart + currentBullet, angx#, angy#, 0
         if right > 0 then move object right bulletStart + currentBullet, 2.0
         move object bulletStart + currentBullet, 6
         show object bulletStart + currentBullet
         Bullet(currentBullet) = 150
      endif
   endif

   `calculate height
   posy# = get ground height(1, posx#, posz#) + 4

   `update player
   position object obj, posx#, posy#, posz#
   if left + right = 0
      yrotate object obj, angy#
   endif

endfunction

function animate(id)

   obj = Player(id).id
   Phase = Player(id).aph

   `Animate character
   if Phase <= 2
      select Phase
         case 0
            `reset body
            for i = 1 to 8
               rotate limb obj,i,0,0,0
            next i
            Player(id).aph = 1
         endcase
         case 1
            pass = 0
            if wrapvalue(limb angle x(obj,6)+180)>150
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)-0.1),0,0
               rotate limb obj,7,wrapvalue(360-limb angle x(obj,6)),0,0
            else
               pass=1
            endif
            if wrapvalue(limb angle x(obj,8)+180)>150
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)-0.1),0,0
               rotate limb obj,9,wrapvalue(360-limb angle x(obj,8)),0,0
            else
               pass=1
            endif
            if pass = 1 then Player(id).aph = 2
         endcase
         case 2
            pass = 0
            if wrapvalue(limb angle x(obj,6)+180)<180
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)+0.1),0,0
               rotate limb obj,7,wrapvalue(360-limb angle x(obj,6)),0,0
            else
               pass=1
            endif
            if wrapvalue(limb angle x(obj,8)+180)<180
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)+0.1),0,0
               rotate limb obj,9,wrapvalue(360-limb angle x(obj,8)),0,0
            else
               pass=1
            endif
            if pass = 1 then Player(id).aph = 1
         endcase
      endselect
      rotate limb obj,2,0,0,0 : rotate limb obj,3,0,0,0
      rotate limb obj,4,0,0,0 : rotate limb obj,5,0,0,0
   endif
   if Phase>2 and Phase<=5
      select Phase
         case 3
            `reset body
            for i = 1 to 8
               rotate limb obj,i,0,0,0
            next i
            Player(id).aph = 4
         endcase
         case 4
            pass = 0
            if wrapvalue(limb angle x(obj, 6)-180) < 210
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)+2),0,0
               rotate limb obj,7,wrapvalue(30 - limb angle x(obj,6)),0,0
            else
               pass = 1
            endif
            if wrapvalue(limb angle x(obj, 8)-180) > 150
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)-2),0,0
               rotate limb obj,9,wrapvalue(30-limb angle x(obj,8)),0,0
            else
               pass = 1
            endif
            if pass = 1 then Player(id).aph = 5
         endcase
         case 5
            pass = 0
            if wrapvalue(limb angle x(obj,6)-180) > 150
               rotate limb obj,6,wrapvalue(limb angle x(obj,6)-2),0,0
               rotate limb obj,7,wrapvalue(30-limb angle x(obj,6)),0,0
            else
               pass = 1
            endif
            if wrapvalue(limb angle x(obj,8)-180) < 210
               rotate limb obj,8,wrapvalue(limb angle x(obj,8)+2),0,0
               rotate limb obj,9,wrapvalue(30-limb angle x(obj,8)),0,0
            else
               pass = 1
            endif
            if pass = 1 then Player(id).aph = 4
         endcase
      endselect
      rotate limb obj,2, limb angle x(obj,8),0,0
      rotate limb obj,4, limb angle x(obj,6),0,0
      rotate limb obj,3, -100,0,0
      rotate limb obj,5, -100,0,0
   endif

endfunction

function CamBehind(obj, Dist#, angx#, angy#)

   `get position data
   posx# = object position x(obj)
   posy# = object position y(obj) + 3.5
   posz# = object position z(obj)
   angy# = wrapvalue(angy#-180)

   `work out the camera position
   camx# = newxvalue(posx#, angy#, cos(angx#)*Dist#)
   camz# = newzvalue(posz#, angy#, cos(angx#)*Dist#)
   camy# = posy# + (sin(angx#)*Dist#)

   `smoothen up
   camx# = curvevalue(camx#, camera position x(), 15)
   camy# = curvevalue(camy#, camera position y(), 15)
   camz# = curvevalue(camz#, camera position z(), 15)

   `collision with ground
   if camy# < get ground height(1, camx#, camz#)+1
      distance# = sqrt(Dist#^2 - (posy#-get ground height(1,posx#,posz#))^2)
      camx# = newxvalue(posx#, angy#, distance#)
      camz# = newzvalue(posz#, angy#, distance#)
      camy# = get ground height(1, camx#, camz#)+1
   endif

   `update camera
   position camera camx#,camy#,camz#
   point camera posx#,posy#,posz#

endfunction

function CreateGrassTex(nr, Width, Height)


   `create a memblock
   make memblock nr, 12 + (Width*Height*4)

   `write header
   write memblock DWORD nr,0, Width
   write memblock DWORD nr,4, Height
   write memblock DWORD nr,8, 32

   `write data
   for i = 1 to (Width*Height)
      green = 50 + rnd(55)
      write memblock byte nr, 12 + ((i-1)*4), 0
      write memblock byte nr, 13 + ((i-1)*4), green
      write memblock byte nr, 14 + ((i-1)*4), 0
      write memblock byte nr, 15 + ((i-1)*4), 255
   next i

   `create an image from the memblock and delete memblock
   make image from memblock nr,nr
   delete memblock nr

endfunction

function CreateSkyTex(nr, width, height)
   make memblock nr, 12 + (width*height*4)
   write memblock dword nr, 0, width
   write memblock dword nr, 4, height
   write memblock dword nr, 8, 32
   for y = 1 to height
      for x = 1 to width
         pos = 12 + ((y-1)*width*4) + ((x-1)*4)
         BW = rnd(10)
         if BW > 0
            blue = 255
            green = rnd(255)
            red = green
         else
            blue = 255
            green = blue
            red = green
         endif
         write memblock byte nr, pos, blue
         write memblock byte nr, pos+1, green
         write memblock byte nr, pos+2, red
         write memblock byte nr, pos+3, 255
      next x
   next y
   make image from memblock nr, nr
   create bitmap nr, width, height
   set current bitmap nr
   paste image nr, 0, 0
   blur bitmap nr, 2
   blur bitmap nr, 2
   get image nr, 0,0, width, height
   delete bitmap nr
   set current bitmap 0
endfunction

The controls stay:
ctrl: draw weapon or put it away. (Faster running when weapon is not drawed)
arrow keys: move/strafe
mouse: rotate
mouseclick: shoot when you're using your weapon.

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

KimoSabi

19

Years of Service

User Offline

Joined: 18th Jan 2005

Location:

Posted: 11th Jan 2006 17:11

Link

Ahhh...

Look up ^please help me out^ im sure it's a simple solution but I was screwing around with it for a long time.

Thanks,
Nicholas H. (KimoSabi)

My Website:

Back to top

Profile PM Email Website

Sven B

19

Years of Service

User Offline

Joined: 5th Jan 2005

Location: Belgium

Posted: 11th Jan 2006 17:18 Edited at: 11th Jan 2006 17:20

Link

KimoSabi,

I don't really get what's wrong with the camera's Y position...

For adding a limb and offsetting it:
turn it into a mesh(make mesh from object mesh, objnr), add limb obj, limb, and offset it (offset limb obj, limb, x, y, z) or angle it (rotate limb obj,limb,x,y,z)

You can define a parent limb too, which makes all offseting and rotation depending on the parent limb's rotation and offset.
link limb obj,parent,child

It's the programmer's life:
Have a problem, solve the problem, and have a new problem to solve.

Back to top

Profile PM Email

Image All

18

Years of Service

User Offline

Joined: 30th Dec 2005

Location: Home

Posted: 11th Jan 2006 19:34

Link

Added "enemies"... They don't move any

But atleast it's a start.

I can't figure out why lines 225-226 aren't causing the energy to drop at a controlled rate.. it seems logical to me! =P