OK ..
here is my code :
I Have not finished it yet , the Shooting system needs further dditions .
SET DISPLAY MODE 1280,800,32
GLOBAL WIDTH = SCREEN WIDTH
GLOBAL HEIGHT = SCREEN HEIGHT
GLOBAL BULET_TIMER = TIMER()
SYNC ON
SYNC RATE 0
AUTOCAM OFF
MAKE OBJECT CUBE 1,10
HIDE MOUSE
POSITION OBJECT 1,0,0,0
POSITION CAMERA 0,100,50
POINT CAMERA 0,0,0
MAKE OBJECT CUBE 2,100
POSITION OBJECT 2,0,0,100
MAKE MATRIX 1,500,500,10,10
POSITION MATRIX 1,-250,0,250
UPDATE MATRIX 1
BULET = 100
DO
INK RGB(255,255,255),0
X# = OBJECT POSITION X(1)
Y# = OBJECT POSITION Y(1)
Z# = OBJECT POSITION Z(1)
ANGLE# = 0
SET CAMERA TO FOLLOW X#,Y#,Z#,ANGLE#,60,200,15,1
OBJANGLE# = WRAPVALUE(ATANFULL(OBJECT SCREEN X(1) - MOUSEX(),OBJECT SCREEN Y(1) - MOUSEY()))
YROTATE OBJECT 1,-OBJANGLE#
IF RIGHTKEY() THEN YROTATE OBJECT 1,ANGLE#+0.5
IF LEFTKEY() THEN YROTATE OBJECT 1,ANGLE#-0.5
IF UPKEY()= 1 THEN SPEED = 1 ELSE SPEED = 0
IF DOWNKEY() = 1 THEN SPEED = -1 ELSE IF SPEED <> 1 THEN SPEED = 0
MOVE OBJECT 1,SPEED
LINE MOUSEX(),MOUSEY(),OBJECT SCREEN X(1),OBJECT SCREEN Y(1)
INK RGB(255,0,0),0
CIRCLE MOUSEX(),MOUSEY(),10
IF MOUSECLICK() = 1
IF OBJECT EXIST(BULET) = 0
MAKE OBJECT PLANE BULET,3,3
POSITION OBJECT BULET,X#,Y#,Z#
YROTATE OBJECT BULET , OBJECT ANGLE Y(1)
INC BULET
ELSE
INC BULET
ENDIF
ENDIF
FOR O = 100 TO BULET
IF OBJECT EXIST (O)
IF OBJECT COLLISION(O,0) = 0 OR OBJECT COLLISION(O,1) = 1 THEN MOVE OBJECT O,5
IF OBJECT COLLISION(O,0) > 0 AND OBJECT COLLISION(O,1) = 0
DELETE OBJECT O
ENDIF
endif
NEXT O
SYNC SLEEP 1
FASTSYNC
INK RGB(255,255,255),0
SET TEXT SIZE 15
TEXT 10,10,"SPEED :"+STR$(SPEED)
TEXT 10,30,"Angle :"+STR$(ANGLE#)
TEXT 10,50,"ObjAngle :"+STR$(OBJANGLE#)
TEXT 10,70,"X :"+STR$(X#)
TEXT 10,90,"Y :"+STR$(Y#)
TEXT 10,110,"Z :"+STR$(Z#)
TEXT 10,130,"MOUSE X :"+STR$(MOUSEX())
TEXT 10,150,"MOUSE Y :"+STR$(MOUSEY())
TEXT 10,170,"OBJ X :"+STR$(OBJECT SCREEN X(1))
TEXT 10,190,"OBJ Y :"+STR$(OBJECT SCREEN Y(1))
TEXT 10,210,"FPS :" + STR$(SCREEN FPS())
TEXT 10,239,"OBJECTS :"+STR$(BULET-100)
LOOP
I know that I have to delete bullet objects , but also I want to know why is the fps rate goes down after 300 plane ??
And thank you mobiius for replaying .