DBP-PC33 Dual shock Controller use without drivers.

Author

Message

Silvester

18

Years of Service

User Offline

Joined: 7th Dec 2005

Location: Netherlands

Posted: 29th Jan 2007 17:56

Link

I needed this for my new game im working on.so i try'd something.and it works!

In Analog Mode and normal mode(Normal mode turns VERY fast...as it's turn speed was designed on Analog stick)

well,here is the code!

`Create objects and matrix.
Make Object Cube 1,100
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Do
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.3
If Joystick X()=>600 then turn object right 1,0.7
If Joystick X()=1000 then turn object right 1,1
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.3
If Joystick X()=<-600 then turn object left 1,0.7
If Joystick X()=-1000 then turn object left 1,1
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1

loop

+ Code Snippet

`Create objects and matrix.
Make Object Cube 1,100
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Do
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.3
If Joystick X()=>600 then turn object right 1,0.7
If Joystick X()=1000 then turn object right 1,1
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.3
If Joystick X()=<-600 then turn object left 1,0.7
If Joystick X()=-1000 then turn object left 1,1
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1

loop

NOTE: ONLY TESTED ON A PC33 Dual shock Controller FROM PIRANHA XTREME!!!

Back to top

Profile PM Email

Silvester

18

Years of Service

User Offline

Joined: 7th Dec 2005

Location: Netherlands

Posted: 29th Jan 2007 20:31

Link

New version,now it doesnt let you Spin around if you use the Arrows as fast anymore...

Also added Shooting,on a PC33 Dual Shock Controller it uses Button marked as 1(The triangle on a PS2 controller)

Well.here it is!(Shooting is only if you picked up the tiny little sphere.)

`Create objects and matrix.
Make Object Sphere 2,10
Make Object Cube 1,100
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Fire#=0
Shot#=0
Timer#=0
Do
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.2
If Joystick X()=>600 then turn object right 1,0.4
If Joystick X()=1000 then turn object right 1,0.5
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.2
If Joystick X()=<-600 then turn object left 1,0.4
If Joystick X()=-1000 then turn object left 1,0.5
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1
`If the bullet power-up hasn't bein picked-up
If Fire#=0
Position Object 2,1500,0,1400
If Object Collision(1,2) then Fire#=1
endif
`If the bullet is picked up,position it and rotate it with the cube.
If Fire#=1
Position Object 2,X#,Y#,Z#
Yrotate Object 2,Object Angle Y(1)
`This is on a PS2 controller the Triangle.(On a PC33 Dual shock Controller it is the button with 1 on it.
If Joystick fire a()=1
Shot#=1
Fire#=2
endif
endif
`Determs what to do while shooting.
If Shot#=1
Move Object 2,3
Inc Timer#
If Timer#=>8000
Shot#=0
Fire#=0
Timer#=0
endif
endif

loop

+ Code Snippet

`Create objects and matrix.
Make Object Sphere 2,10
Make Object Cube 1,100
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Fire#=0
Shot#=0
Timer#=0
Do
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.2
If Joystick X()=>600 then turn object right 1,0.4
If Joystick X()=1000 then turn object right 1,0.5
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.2
If Joystick X()=<-600 then turn object left 1,0.4
If Joystick X()=-1000 then turn object left 1,0.5
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1
`If the bullet power-up hasn't bein picked-up
If Fire#=0
Position Object 2,1500,0,1400
If Object Collision(1,2) then Fire#=1
endif
`If the bullet is picked up,position it and rotate it with the cube.
If Fire#=1
Position Object 2,X#,Y#,Z#
Yrotate Object 2,Object Angle Y(1)
`This is on a PS2 controller the Triangle.(On a PC33 Dual shock Controller it is the button with 1 on it.
If Joystick fire a()=1
Shot#=1
Fire#=2
endif
endif
`Determs what to do while shooting.
If Shot#=1
Move Object 2,3
Inc Timer#
If Timer#=>8000
Shot#=0
Fire#=0
Timer#=0
endif
endif

loop

Back to top

Profile PM Email

Silvester

18

Years of Service

User Offline

Joined: 7th Dec 2005

Location: Netherlands

Posted: 29th Jan 2007 21:33 Edited at: 29th Jan 2007 21:37

Link

Here is a little sort of game made with it's core system.

(Has no objective though,and backward moving lets you pass trough the objects.)

`Create Ground Image.
Get Image 1,0,0,640,480
`Create objects and matrix.
Make Object Sphere 2,10
Make Object Cube 1,40
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Fire#=0
Shot#=0
Timer#=0
MakeObjects()
Prepare Matrix Texture 1,1,10,10
Do
Controls()
Camera()
Collision()
loop

Function MakeObjects()
For X=3 to 102
Make Object Cube X,200
X#=rnd(3000)
Z#=rnd(3000)
R#=rnd(255)
G#=rnd(255)
B#=rnd(255)
Y#=rnd(1000)
Color Object X,RGB(R#,G#,B#)
Position Object X,X#,0,Z#
Set Object collision to polygons X
Scale Object X,100,Y#,100
Next X
endfunction

Function Controls()
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.2
If Joystick X()=>600 then turn object right 1,0.4
If Joystick X()=1000 then turn object right 1,0.5
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.2
If Joystick X()=<-600 then turn object left 1,0.4
If Joystick X()=-1000 then turn object left 1,0.5
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1
endfunction

Function Camera()
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
endfunction

Function Collision()
For X=3 to 102
If Object Collision(1,X)
Move Object 1,-4
endif
next X
Endfunction

+ Code Snippet

`Create Ground Image.
Get Image 1,0,0,640,480
`Create objects and matrix.
Make Object Sphere 2,10
Make Object Cube 1,40
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Fire#=0
Shot#=0
Timer#=0
MakeObjects()
Prepare Matrix Texture 1,1,10,10
Do
Controls()
Camera()
Collision()
loop

Function MakeObjects()
For X=3 to 102
Make Object Cube X,200
X#=rnd(3000)
Z#=rnd(3000)
R#=rnd(255)
G#=rnd(255)
B#=rnd(255)
Y#=rnd(1000)
Color Object X,RGB(R#,G#,B#)
Position Object X,X#,0,Z#
Set Object collision to polygons X
Scale Object X,100,Y#,100
Next X
endfunction

Function Controls()
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.2
If Joystick X()=>600 then turn object right 1,0.4
If Joystick X()=1000 then turn object right 1,0.5
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.2
If Joystick X()=<-600 then turn object left 1,0.4
If Joystick X()=-1000 then turn object left 1,0.5
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1
endfunction

Function Camera()
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
endfunction



Function Collision()
For X=3 to 102
If Object Collision(1,X)
Move Object 1,-4
endif
next X
Endfunction

EDIT:

same game,but then bouncy

`Create Ground Image.
Get Image 1,0,0,640,480
`Create objects and matrix.
Make Object Sphere 2,10
Make Object Cube 1,40
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Fire#=0
Shot#=0
Timer#=0
MakeObjects()
Prepare Matrix Texture 1,1,10,10
Do
Controls()
Camera()
Collision()
loop

Function MakeObjects()
For X=3 to 102
Make Object Cube X,200
X#=rnd(3000)
Z#=rnd(3000)
R#=rnd(255)
G#=rnd(255)
B#=rnd(255)
Y#=rnd(1000)
Color Object X,RGB(R#,G#,B#)
Position Object X,X#,0,Z#
Set Object collision to polygons X
Scale Object X,100,Y#,100
Next X
endfunction

Function Controls()
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.2
If Joystick X()=>600 then turn object right 1,0.4
If Joystick X()=1000 then turn object right 1,0.5
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.2
If Joystick X()=<-600 then turn object left 1,0.4
If Joystick X()=-1000 then turn object left 1,0.5
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1
endfunction

Function Camera()
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
endfunction

Function Collision()
For X=3 to 102
If Object Collision(1,X)
R#=RND(180)
turn Object Left 1,R#
endif
next X
Endfunction

+ Code Snippet

`Create Ground Image.
Get Image 1,0,0,640,480
`Create objects and matrix.
Make Object Sphere 2,10
Make Object Cube 1,40
Make Matrix 1,3000,3000,10,10
Position Camera 0,500,0
Fire#=0
Shot#=0
Timer#=0
MakeObjects()
Prepare Matrix Texture 1,1,10,10
Do
Controls()
Camera()
Collision()
loop

Function MakeObjects()
For X=3 to 102
Make Object Cube X,200
X#=rnd(3000)
Z#=rnd(3000)
R#=rnd(255)
G#=rnd(255)
B#=rnd(255)
Y#=rnd(1000)
Color Object X,RGB(R#,G#,B#)
Position Object X,X#,0,Z#
Set Object collision to polygons X
Scale Object X,100,Y#,100
Next X
endfunction

Function Controls()
`Rotate Right when the values are OK.
If Joystick X()=>0 then turn object right 1,0.1
If joystick X()=>200 then turn object right 1,0.2
If Joystick X()=>600 then turn object right 1,0.4
If Joystick X()=1000 then turn object right 1,0.5
`Rotate left if the values are OK.
If Joystick X()=<-30 then Turn Object left 1,0.1
If joystick X()=<-200 then turn object left 1,0.2
If Joystick X()=<-600 then turn object left 1,0.4
If Joystick X()=-1000 then turn object left 1,0.5
`Move Forward if the values are OK.
If Joystick Y()=<-10 then Move Object 1,0.1
If Joystick Y()=<-200 then Move Object 1,0.3
If Joystick Y()=<-600 then Move Object 1,0.7
If Joystick Y()=-1000 then Move Object 1,1
`Move Backward if the values are OK.
If Joystick Y()=>10 then Move Object 1,-0.1
If Joystick Y()=>200 then Move Object 1,-0.3
If Joystick Y()=>600 then Move Object 1,-0.7
If Joystick Y()=1000 then Move Object 1,-1
endfunction

Function Camera()
`Set the camera above the cube.
X#=Object Position X(1)
Y#=Object Position Y(1)
Z#=Object Position Z(1)
Position Camera X#,500,Z#
Point Camera X#,Y#,Z#
endfunction



Function Collision()
For X=3 to 102
If Object Collision(1,X)
R#=RND(180)
turn Object Left 1,R#
endif
next X
Endfunction

Back to top

Profile PM Email

Sorry your browser is not supported!

Code Snippets / DBP-PC33 Dual shock Controller use without drivers.