Posted: Fri Sep 05, 2014 7:37 pm Post subject: RE:More than just 1 appear, and not all dispear after maxy
Pic.Draw (bullet, bulletX (i), bulletY (i), picCopy)
It loads game but...
still no bullet appear, it always did apear before when only 1 bullet shot xD
Sponsor Sponsor
Zren
Posted: Fri Sep 05, 2014 7:56 pm Post subject: RE:More than just 1 appear, and not all dispear after maxy
You've got a lot of other code in there (that you copy pasted) so I don't think you fully understand what they do.
So let's start from scratch, and only get the bullets working.
Posted: Fri Sep 05, 2014 8:32 pm Post subject: Re: More than just 1 appear, and not all dispear after maxy
ok, i will be back in like 2 days with my homework complete xD
amz_best
Posted: Sun Sep 07, 2014 12:18 pm Post subject: Re: More than just 1 appear, and not all dispear after maxy
HOMEWORK COMPLETE! but now, we have a glitch :s everytime a shoot from what looks like
y=0..50
the bullet just stays there, on the bottom of the screen... and not move.... wat do i do?
Turing:
%sey.mo.raz << neccesary to open file DO NOT DELETE!
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % ARRAYS, CONSTANTS, BOOLEAN AND INT VAR'S % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% %----------------------------------------------% %----------------------------------------------% var b_KeyUp :boolean:=false% var b_notMoving :boolean:=false% % var i_rightTurnCoolDown :int:=6% var i_leftTurnCoolDown :int:=6% % var b_leftKeyDown :boolean:=false% var b_rightKeyDown :boolean:=false% % var shipReset: boolean:=false% % var shipX: int:=(maxxdiv2)% var shipY: int:=(maxydiv8)% var shipSpeedX: int:=20% var shipSpeedY: int:=10% % var speed :int:=1% var size :int:=10% % var fire :boolean:=false% var firey :int:= size % var firespeed :int:=1% var firesize :int:=3% var firerate :real:=1% % var control :arraycharofboolean% % var bulletX :array0.. 300ofint% var bulletY :array0.. 300ofint% var pos_array_size :int:= -1% % var time_after_shot :real:=0% % const c_NumberOfStars :=400% var starX :array1.. c_NumberOfStars ofint% var starY :array1.. c_NumberOfStars ofint% var controls :arraycharofboolean% % %----------------------------------------------% %----------------------------------------------% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%% % PICTURES TO UPLOAD % %%%%%%%%%%%%%%%%%%%%%%
%------------------------------------------------- var ShipC :int:=Pic.FileNew("ShipC.jpg")% var ShipL3 :int:=Pic.FileNew("ShipL3.jpg")% var ShipR3 :int:=Pic.FileNew("ShipR3.jpg")% var ShipL2 :int:=Pic.FileNew("ShipL2.jpg")% var ShipR2 :int:=Pic.FileNew("ShipR2.jpg")% var ShipL1 :int:=Pic.FileNew("ShipL1.jpg")% var ShipR1 :int:=Pic.FileNew("ShipR1.jpg")% % var bullet :int:=Pic.FileNew("bullet.jpg")% %-------------------------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % THE FOR STATEMENTS FOR THEM BULLETS AND THEM STARS% %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%------------------------------------------------- for i :0..30
bulletY(i):=0
bulletX(i):=0 endfor
for star :1.. c_NumberOfStars %
starX (star):= Rand.Int (0, maxx)%
starY (star):= Rand.Int (0, maxy)% endfor %-------------------------------------------------
%MOVE SHIP UP %-------------------------------------------------- if controls (KEY_UP_ARROW)then
shipY += shipSpeedY
endif %--------------------------------------------------
%MOVE SHIP LEFT %-------------------------------------------------- if controls (KEY_LEFT_ARROW)then
b_leftKeyDown :=true if i_rightTurnCoolDown =6then
shipX -= shipSpeedX
i_leftTurnCoolDown -=1
b_KeyUp :=true else
b_KeyUp :=false endif endif %--------------------------------------------------
%MOVE SHIP RIGHT %-------------------------------------------------- if controls (KEY_RIGHT_ARROW)then
b_rightKeyDown :=true if i_leftTurnCoolDown =6then
shipX += shipSpeedX
i_rightTurnCoolDown -=1
b_KeyUp :=true else
b_KeyUp :=false endif endif %--------------------------------------------------
%STOP HOLD LEFT AND RIGHT GLITCH %-------------------------------------------------- if b_rightKeyDown =trueand b_leftKeyDown =truethen
shipReset :=true
shipSpeedX :=0 else
shipSpeedX :=20 endif %--------------------------------------------------
%MOVE SHIP DOWN %-------------------------------------------------- if controls (KEY_DOWN_ARROW)then
shipY -= shipSpeedY
endif %--------------------------------------------------
%SHOOT BULLET %-------------------------------------------------- if controls (chr(32))and fire =falsethen
fire :=true
pos_array_size +=1
bulletX(pos_array_size):= shipX + 30
bulletY(pos_array_size):= shipY
endif %--------------------------------------------------
%MAKE SURE SHIP DOESNT LEAVE THE SCREEN %------------------------------------------- if shipX > maxx - 85then
shipX :=maxx - 85 endif if shipX < -10then
shipX := -10 endif
if shipY > maxy - 100then
shipY :=maxy - 100 endif if shipY < -10then
shipY := -10 endif %-------------------------------------------
%MAKE SURE CHANGING PICTURE OF SHIP REMAINS SMOOTH AND NOT GLITCHED... %----------------------------------------- if b_KeyUp =falsethen
i_rightTurnCoolDown :=6
i_leftTurnCoolDown :=6 endif
if b_KeyUp =truethen
b_KeyUp :=false endif
if b_rightKeyDown =truethen
b_rightKeyDown :=false endif
if b_leftKeyDown =truethen
b_leftKeyDown :=false endif
if i_rightTurnCoolDown < 0then
i_rightTurnCoolDown :=0 endif
if i_leftTurnCoolDown < 0then
i_leftTurnCoolDown :=0 endif %--------------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % D R A W E N T I T T E S % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%entities cannot be made before cls otherways they will not appear, LEARNED DIS DA HARD WAY!!!
%------------------------------------------------------------------------------ %RANDOMELY GENERATE STARS % for star :1.. c_NumberOfStars %
starY (star) -= Rand.Int (1, 5)% if starY (star) < 0then%
starY (star):=maxy%
starY (star):= Rand.Int (100, maxx)% endif% Draw.FillOval(starX (star), starY (star) + starY (star),1, 1, white)% endfor% %------------------------------------------------------------------------------
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % MAKE THEM BULLETS!!! MY BEUTIFUL BULLET MAKING CODE! % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
for i :0..pos_array_size
Pic.Draw(bullet, bulletX(i)+firesize, bulletY(i)+firesize, picCopy) if bulletY(i) >= 1then
bulletY(i) +=10 endif endfor
for i :0..pos_array_size
if bulletY(i) > maxythen for a :0.. pos_array_size - i
bulletY(i+a):= bulletY(i+a+1)
bulletX(i+a):= bulletX(i+a+1) endfor
pos_array_size -=1 endif endfor
if fire =truethen
time_after_shot +=0.08 endif
if time_after_shot >= firerate then
fire :=false
time_after_shot :=0 endif %----------------------------------------------------------------------------------------------------------------------------------------------- %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% % SHIP CREATE/ SHIP TURN LEFT OR RIGHT CREATE ASWELL... % %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Posted: Sun Sep 07, 2014 12:28 pm Post subject: RE:More than just 1 appear, and not all dispear after maxy
for a temp fix, i simply added
%SHOOT BULLET
%--------------------------------------------------
if controls (chr (32)) and fire = false then
fire := true
pos_array_size += 1
bulletX(pos_array_size) := shipX + 30
bulletY(pos_array_size) := shipY
end if
%--------------------------------------------------
tooo:
%SHOOT BULLET
%--------------------------------------------------
if controls (chr (32)) and fire = false then
fire := true
pos_array_size += 1
bulletX(pos_array_size) := shipX + 30
bulletY(pos_array_size) := shipY + 50
end if
%--------------------------------------------------