Mintoris Forum

Author Topic: MULTI FIRE TECHNIC  (Read 1665 times)

rendomizer

  • Full Member
  • ***
  • Posts: 87
MULTI FIRE TECHNIC
« on: Dec 16, 2015, 03:49 PM »
I whant to share u my technic to have multi fire in space invader game ‼


 graphics on
xxx=200
z=900
f=14
dim fx(f)
f=0
pic=CreateBitmap (76,76)
pic2=CreateBitmap (76,76)
pic3=CreateBitmap (76,76)
SetDrawingSurface  pic
color 0,0,0
cls
color 0,100,0
Circle 37,37,37
Circle 20,20,10
SetDrawingSurface off
SetDrawingSurface  pic2
Triangle 0,75,37,0,75,75
SetDrawingSurface off
SetDrawingSurface  pic3
color 0,100,0
Line 37,0,37,20
SetDrawingSurface off
color 0,0,0
cls
do
 
x=rnd(400)
for y=0 to 800 step 4
i=i+20
DrawBitmap pic, x,y,i
DrawBitmap pic2,xxx,700

DrawBitmap pic3,fx(1),z
DrawBitmap pic3,fx(3),z2
DrawBitmap pic3,fx(5),z3
DrawBitmap pic3,fx(7),z4
DrawBitmap pic3,fx(9),z5
DrawBitmap pic3,fx(11),z6
DrawBitmap pic3,fx(13),z7


DrawText "f1 = " + str$(f1) +"  f2 = " + str$(f2),0,30,1
DrawText "f3 = " + str$(f3) +"  f4 = " + str$(f4),0,60,1

DrawText "f = " + str$(f),0,90,1

TouchEvent action,index,xx,yy,1
if action=2 then xxx=xx
 
if action=0 then

f=f+1
fx(f)=xxx



endif
if f>13 then f=0
if f=1 then
f=2
 f1=1
endif
if f1=1 then z=z-16
if  z<=0 then
z=850
f1=0
endif


if f=3 then
f=4
f2=1
endif
if f2=1 then z2=z2-16
if z2<=0 then
z2=850
f2=0
endif



endif
if f=5 then
f=6
f3=1
endif
if f3=1 then z3=z3-16
if z3<=0 then
z3=850
f3=0
endif


if f=7 then
f=8
 f4=1
endif
if f4=1 then z4=z4-16
if z4<=0 then
z4=850
f4=0
endif



if f=9 then
f=10
 f5=1
endif
if f5=1 then z5=z5-16
if z5<=0 then
z5=850
f5=0
endif


if f=11 then
f=12
 f6=1
endif
if f6=1 then z6=z6-16
if z6<=0 then
z6=850
f6=0
endif


if f=13 then
f=14
 f7=1
endif
if f7=1 then z7=z7-16
if z7<=0 then
z7=850
f7=0
endif

Color 0,0,0
cls

next y
loop

« Last Edit: Dec 16, 2015, 04:14 PM by rendomizer »