1-13-06 Download available
http://www.andimages.com/proofs/pongo/NeonBlast_Teaser.zip

New movie! (1-12-06)
http://www.andimages.com/proofs/pongo/gfx/360shoot9.mpg
Here is a movie of progress so far,... Enemy AI is progressing. Videos are playing a bit slow.
Edit: removed a bunch of stuff here.
See the code archives for the joypad config utility.
http://www.blitzbasic.com/codearcs/codearcs.php?code=1592
edit: this was the original joy axis thing,... now replaced by the one in the code archives.
Here is what I have on my 360 controller.
1. Stick1 X = JoyX() (-1 to 1)
2. Stick1 Y = JoyY() (-1 to 1)
3. Stick2 X = JoyPitch() (-180 to 180)
4. Stick2 Y = JoyYaw() (-180 to 180)
and on one of my logitech controllers
1. Stick1 X = JoyX() (-1 to 1)
2. Stick1 Y = JoyY() (-1 to 1)
3. Stick2 X = JoyRoll() (-180 to 180)
4. Stick2 Y = JoyU() (-1 to 1)
And on the other logitech controller
1. Stick1 X = JoyX() (-1 to 1)
2. Stick1 Y = JoyY() (-1 to 1)
3. Stick2 X = JoyRoll() (-180 to 180)
4. Stick2 Y = JoyZ() (-1 to 1)
Thanks for any feedback
http://www.andimages.com/proofs/pongo/NeonBlast_Teaser.zip

New movie! (1-12-06)
http://www.andimages.com/proofs/pongo/gfx/360shoot9.mpg
Here is a movie of progress so far,... Enemy AI is progressing. Videos are playing a bit slow.
Edit: removed a bunch of stuff here.
See the code archives for the joypad config utility.
http://www.blitzbasic.com/codearcs/codearcs.php?code=1592
edit: this was the original joy axis thing,... now replaced by the one in the code archives.
Graphics 640,480,0,2 SetBuffer BackBuffer() Global controller = 1 While Not KeyHit(1) Cls Color 255,255,255 Text 50,20,"hit space to toggle control method,... current method : " + controller If KeyHit (57) controller = controller + 1 If controller > 4 Then controller =1 EndIf Color 64,64,64 ; draw grey boxes For loop = 50 To 190 Step 20 Rect 180,loop,150,15 Next Color 128,128,128 ; draw boxes showing movement of axis Rect 180,50,FitValueToRange#( JoyX(), -1, 1, 0, 150 ),15 Rect 180,70,FitValueToRange#( JoyY(), -1, 1, 0, 150 ),15 Rect 180,90,FitValueToRange#( JoyZ(), -1, 1, 0, 150 ),15 Rect 180,110,FitValueToRange#( JoyPitch(), -180, 180, 0, 150 ),15 Rect 180,130,FitValueToRange#( JoyRoll(), -180, 180, 0, 150 ),15 Rect 180,150,FitValueToRange#( JoyYaw(), -180, 180, 0, 150 ),15 Rect 180,170,FitValueToRange#( JoyU(), -1, 1, 0, 150 ),15 Rect 180,190,FitValueToRange#( JoyV(), -1, 1, 0, 150 ),15 Color 160,160,160 ; show values of axis Text 50,50, "1. JoyX() : " + JoyX() Text 50,70, "2. JoyY() : " + JoyY() Text 50,90, "3. JoyZ() : " + JoyZ() Text 50,110,"4. JoyPitch() : " + JoyPitch() Text 50,130,"5. JoyRoll() : " + JoyRoll() Text 50,150,"6. JoyYaw() : " + JoyYaw() Text 50,170,"7. JoyU() : " + JoyU() Text 50,190,"8. JoyV() : " + JoyV() Rect 50,275, 100,100,0 ;draw boxes for controllers Rect 200,275, 100,100,0 Select controller Case 1 ;XBox 360 controller x1 = FitValueToRange#( JoyX(), -1, 1, 50, 150 ) y1= FitValueToRange#( JoyY(), -1,1, 275, 375 ) x2 = FitValueToRange#( JoyPitch(), -180, 180, 200, 300 ) y2= FitValueToRange#( JoyYaw(), -180,180, 275, 375 ) Case 2 ;Logitech Dual Action x1 = FitValueToRange#( JoyX(), -1, 1, 50, 150 ) y1= FitValueToRange#( JoyY(), -1,1, 275, 375 ) x2 = FitValueToRange#( JoyZ(), -1, 1, 200, 300 ) y2= FitValueToRange#( JoyRoll(), -180,180, 275, 375 ) Case 3 ; logitech Wingman rumblepad x1 = FitValueToRange#( JoyX(), -1, 1, 50, 150 ) y1= FitValueToRange#( JoyY(), -1,1, 275, 375 ) x2 = FitValueToRange#( JoyRoll(), -180, 180, 200, 300 ) y2= FitValueToRange#( JoyU(), -1,1, 275, 375 ) Case 4 ;Saitek P880 - Dual Analogue: x1 = FitValueToRange#( JoyX(), -1, 1, 50, 150 ) y1= FitValueToRange#( JoyY(), -1,1, 275, 375 ) x2 = FitValueToRange#( JoyRoll(), -180, 180, 200, 300 ) y2= FitValueToRange#( JoyZ(), -1,1, 275, 375 ) End Select ;draw the control dots Color 255,0,0 Oval x1-5,y1-5,10,10 Oval x2-5,y2-5,10,10 Flip Wend Function FitValueToRange#( InValue#, RangeIn_Start#, RangeIn_End#, RangeOut_Start#, RangeOut_End# ) OldRange# = RangeIn_End#-RangeIn_Start# NewRange# = RangeOut_End# - RangeOut_Start# OutValue# = ((InValue#-RangeIn_Start) / OldRange#) * NewRange# + RangeOut_Start Return OutValue# End Function
Here is what I have on my 360 controller.
1. Stick1 X = JoyX() (-1 to 1)
2. Stick1 Y = JoyY() (-1 to 1)
3. Stick2 X = JoyPitch() (-180 to 180)
4. Stick2 Y = JoyYaw() (-180 to 180)
and on one of my logitech controllers
1. Stick1 X = JoyX() (-1 to 1)
2. Stick1 Y = JoyY() (-1 to 1)
3. Stick2 X = JoyRoll() (-180 to 180)
4. Stick2 Y = JoyU() (-1 to 1)
And on the other logitech controller
1. Stick1 X = JoyX() (-1 to 1)
2. Stick1 Y = JoyY() (-1 to 1)
3. Stick2 X = JoyRoll() (-180 to 180)
4. Stick2 Y = JoyZ() (-1 to 1)
Thanks for any feedback