Ooops
November 30, 2020, 02:06:31 AM

Author Topic: [bb] MISSLE COMMAND by ANIMAL [ 1+ years ago ]  (Read 563 times)

Offline BlitzBot

  • Jr. Member
  • **
  • Posts: 1
[bb] MISSLE COMMAND by ANIMAL [ 1+ years ago ]
« on: June 29, 2017, 12:28:42 AM »
Title : MISSLE COMMAND
Author : ANIMAL
Posted : 1+ years ago

Description : PARTICALS MADE EASY ( RIP ) THIS ROTINE APART
TO MAKE PARICALS MUTI EXPLOTIONS
AND MACHINEGUNS OR SPACE INVADERS

THIS ONES EASY TO UNDER STAND AND EASY TO USE


Code :
Code: BlitzBasic
  1. ; THIS SHOULD RUN IN VERSIONS OF BLITZ 2D PLUS 3D MAX
  2.  
  3. ; MY FRENDS SAY MY CODE IS SCRUFFY I THINK THERE RIGHT
  4. ; BUT IT WORKS AND THATS THE MAIN THING
  5. ; I DIDT GO TO COLLOAGE I LERNT ME SELF
  6. ; THIS IS A SMALL MISSILE COMMAND ROTINE
  7. ; IT HELPS YOU LEARN TYPES THE QUIK WAY
  8.  
  9. ;                                                                TYPES And NOT ARRAYS
  10.  
  11. ;
  12.  
  13.  
  14. ;                                                PARTICLES MAD EASY WITH MISSILE COMMAND
  15.  
  16.  
  17. ;       TYPES AND ARRAYS
  18. ; THAY ARE BOTH  VERY COOL TO USE ; A BEGINNER SHOULD LERN THEM BOTH
  19. ; BEFOR ATTEMPTING 3D SUPPER COOL GRAPHICS
  20. ; PS I HOPE MY CODE ISNT TO SCRUFFY LOL
  21. ; EASY AS  A.B.C  ( AKA ANIMAL ) WELL HERE ANY WAY
  22.  
  23.  
  24.  
  25.         ; THIS IS NOT IN 3D BUT WILL CONVERT VERY EASY
  26.  
  27.         Graphics 800,600,16,1           ; SORRY NO GRAPHICS TEST O WELL FULL SCREEN
  28.         ;Graphics 800,600,16,2          ; SORRY NO GRAPHICS TEST O WELL WINDOW MODE
  29.  
  30.         SetBuffer BackBuffer()
  31.         HidePointer    ;    use this  in full screen mode       HIDES THE MOUSE U KNOW
  32.        
  33.         Global ant,GROUND,CITY ;ONLY FREE NEEDED
  34.                
  35.         Const miss=10   ; HOW MANY MISSILES                    
  36.         ;Const colr=9437584 ; window mode  COLOUR TEST
  37.         Const colr=9437328  ; fullscreen mode COLOUR TEST
  38.                        
  39.                        
  40.          ;      A CUSTOM TYPE FOR THERE WEPONS         
  41.         Type missiles
  42.         Field   ox
  43.         Field   oy
  44.         Field   ny
  45.         Field   nx
  46.         End Type
  47.        
  48.         ; ANOTHER CUSTOM TYPE FOR YOUR WEPON
  49.        
  50.        
  51.         Type WEP
  52.         Field X#
  53.         Field Y#
  54.         Field R#
  55.         Field V#
  56.         Field DX
  57.         Field flag
  58.         End Type
  59.        
  60.  
  61.                        
  62.                
  63.         For t=1 To miss
  64.                 m.missiles = New missiles
  65.                 mOx=400
  66.                 mOx=Rnd(800)
  67.                 mNy=0
  68.                 mNX=Rnd(800)
  69.         Next
  70.                
  71.                 makecircles() ; GO MAKE SOME CIRCLES
  72.        
  73.  
  74.                  ClsColor 400,000,400  ; THE COLOUR OF THE BACKGROUND
  75.                
  76.                
  77.         m.missiles = First missiles    
  78.         W.WEP = First WEP              
  79.         Color 255,170,0
  80.                
  81.                
  82.                 ; PLEASE DELETE THE REM STATMENTS TO MAKE PROGRAM EASY TO READ FROM HERE
  83.                
  84.                
  85.                 ; BUT READ THEM FIRST
  86.                
  87.         While Not KeyDown(1)
  88.                 mx=MouseX()
  89.                 my=MouseY()
  90.                 Cls
  91.                
  92.                 ; draw a cross
  93.                 Line MX,MY,MX+6,MY
  94.                 Line MX+3,MY-3,MX+3,MY+3       
  95.        
  96.         ; THIS IS IT A CONSTANT NEW WEPONS ROTINE
  97.         ; ALLSO USED FOR PATICAL EXPLOSIONS IN 3D MODE WITH A LITTLE WORK
  98.         ; AND 3D WEPONDS ROKETS AND MACHINE GUNS QUICK AND SIMPLE
  99.         ; UNLIKE THE OTHERS IV DOWNLOLDED ALL VERY LONG WINDED  
  100.         ; BUT I MUST SAY A LOT MORE ADVANCED THAN MINE
  101.         ;                                                                                            ILL HAVE TO LEARN A ?
  102.         ; DO  REMEBER TO DELETE THE TYPE VAR= AFTER U HAVE FINSHED WITH IT ( SAVE YOUR MEMORY )
  103.         ; PS  GOT LOTS OF MEMORY LOL  SO I DIDENT BOTHER
  104.                
  105.                 If MouseDown (1)  ; NEW EXPLOTION ON MOUSE CLICK TADA ( OR ENTITY )
  106.                                                         ;       IF U WISH TO USE AN ENTITY USE THE Z VECTOR
  107.                                                         ;                LEAVE THE FLASHY STUFF TO THE EXSPERTS
  108.                                                         ;
  109.                                                         ;               IE ( MOVEENTITY BLA,0,0,W ) IN BLTZ3D AND MAX
  110.                                                        
  111.                                                         ;                                  ( DONT FORGET IN MAX TO INT ALL VARS FIRST)
  112.                                                        
  113.  
  114.                                 w.WEP = New WEP
  115.                                 wX#=0
  116.                                 wY#=0
  117.                                 wR#=0
  118.                                 wV#=0
  119.                                 wDX=0
  120.                                 wflag=0
  121.                                
  122.                                 Wflag=1
  123.                                 Wx#=mx
  124.                                 Wy#=my
  125.                                
  126.                                
  127.                                
  128.                                 Wv#=-0.5
  129.                                 ; WV#=-0.5  IS AN OFFSET BECUSE OVAL DOSENT DRAW CIRCLES FROM THE MIDDLE EM
  130.                                 ;
  131.                                 ;  DRAW A REAL CIRCLE FROM THE MIDDLE And ANY X,Y Origin U CHOSE
  132.                                 ;
  133.                                 ; X=300:Y=300:R=50      ; R BEING THE RADIUS X AND Y POINT OF ORIGIN
  134.                                 ;
  135.                                 ; For ANGLE=0 To 359
  136.                                 ;      
  137.                                 ;       NX=X+R*Sin(ANGLE):NY=Y+R*Cos(ANGLE)
  138.                                 ;      
  139.                                 ;               Line X,Y,NX,NY
  140.                                 ;                       X=NX:Y=NY
  141.                                 ; NEXT
  142.                                 ;
  143.                                 ; FROM THE MIDDLE
  144.                                 ; ALSO GOOD FOR SENDING 3D ENTITYS AROUND IN CIRCLES LWITH POSITION ENTITY
  145.                                
  146.                                 Line 400,600,mx,my ; DRAW A LINE TO YOUR EXPLOSION
  147.                                 wDX=1 ; WDX IS THE AMOUST IM MOVEING MY OFFSET BY 1
  148.                 EndIf
  149.                
  150.                
  151.                 ; HERE IT IS WEPONS GO BANG
  152.                
  153.     For W.WEP = Each WEP
  154.                
  155.                 If Wflag>0
  156.                         W
  157. =W
  158. +Wdx ;THIS IS WHERE U MOVE GO BANG OR LUNCH MISSILE BULLET BOME SPACEINVADER
  159.                        
  160.                         ; ANT IS THE NAME OF MY  CIRCLES IMAGE 
  161.                          DrawImage ant,Wx#,Wy#,W
  162.  ; WEPON BANG MISILE BOME EXPLODE WHAT EVERR U LIKE
  163.                                                                                 ; WR IS USED FOR MY IMAGE FRAME  AT THE MOMENT
  164.                                                                                 ; BUT YOU CAN USE IT FOR SAY AN ENTITY >??????         
  165.                          Wx#=Wx#+WV# ; THIS BIT PUTS ME CIRCLES CENTRE
  166.                          Wy#=Wy#+WV# ; THIS BIT PUTS ME CIRCLES CENTRE
  167.                
  168.                          If W
  169. >50  ; THIS BIT SWITCS MODE FROM OUT TO IN
  170.                         Wflag=2
  171.                         WDX=-1 ; NOW DX SETS -1 TO GOT BACK TO ORIGINAL POS
  172.                         Wv#=1
  173.                         EndIf
  174.                        
  175.                                         If W
  176. <1 ; THIS BIT KILLS THE EXPLOTION
  177.                                                 W
  178. =0      ; R IS MY LIFE TIMMER R=0 END OF EXPLOSION OR DISTANCE TRAVALED
  179.                                                 Wflag=0   ; SET FLAG TO 0 SO IT DOSENT APEAR AGAIN
  180.                                                
  181.                                                 Wx#=0           ; QUICK CLEANUP
  182.                                                 Wy#=0           ;
  183.                                                 WDX=0           ; CLEAN UP END
  184.                                         EndIf
  185.                        
  186.                   EndIf
  187.                
  188.         Next
  189.                
  190. ; AND THATS THAT CONSTANT WEPONS THE EASY WAY IN 32 LINES OF CODE ( IF U DOUBLE THEM UP LESS )
  191.  
  192.  
  193.                
  194.                
  195.         For m.missiles = Each missiles
  196.                
  197.                 m
  198. y=m
  199. y+3 ; MOVE THE MISSILE
  200.                
  201. ; GET THE COLOUR OFF THE SCREEN IN FROUNT OF YOU MISSILE               
  202. u=ReadPixelFast (m
  203. x,m
  204. y) And $FFFFFF ; JUST SOMETIMES THIS IS EASYER THAN COLLISION TESTING EM
  205.                
  206.                 If m
  207. y>600 Or U<>colr ; DO SOME TESTS
  208.                         mox=Rnd(800)
  209.                         If mox<400  Then m
  210. x=mox-(Rnd(50))
  211.                         If mox>400 Then m
  212. x=mox+(Rnd(50))
  213.                         If mox=400 Then m
  214. x=400
  215.                                 moy=0
  216.                                 m
  217. y=0
  218.                 EndIf
  219.                         Line mox,moy,m
  220. x,m
  221. y
  222.         Next           
  223.                
  224.                 Text 100,100,U
  225.                 DrawImage CITY,100,500,0
  226.                 DrawImage CITY,350,500,0
  227.                 DrawImage CITY,650,500,0
  228.                 DrawImage GROUND,0,500,0  
  229.                
  230.                
  231.                
  232.                 Delay 10 ; TO SLOW THINGS DOWN
  233.        
  234.        
  235.         Flip ; SOMETHING ABOUT DOUBLE BUFFERING
  236. Wend ;           END OFF THE LOOP
  237.                
  238.                
  239.                
  240.                 Function makecircles()
  241.                 ; THIS IS THE ONLY FUNCTION IM USING CUZ THE THING WILL RUN TO FAST TRY IT AND SEE
  242.                
  243. ant=CreateImage (100,100,60)
  244. ql=1:xl#=100:yl#=100
  245. For tl=0 To 100 Step 2
  246. ql=ql+1
  247. xl#=xl#+0.1:yl#=yl#+0.1
  248. Color 200+Rnd(40),Rnd(50),0
  249. Oval xl#,yl#,tl,tl
  250.  
  251. GrabImage ant,100,100,ql
  252. Cls
  253. ;Flip
  254. Next
  255. Cls
  256.  
  257. Color 255,0,0 ; RED
  258. GROUND=CreateImage (800,100)
  259. Rect 0,50,800,50,1
  260. GrabImage GROUND,0,0
  261.  
  262.  
  263.  
  264. Cls
  265.  
  266. CITY=CreateImage (100,50)
  267. Color 255,255,0 ; YELLOW
  268.  
  269. Rect 10,30,50,50,1
  270.  
  271. Rect 20,20,30,20,1
  272. Color 0,255,0 ; GREEN
  273. Rect 0,40,70,20,1
  274. GrabImage CITY,0,0
  275.  
  276.  
  277. End Function


Comments : none...

 

SimplePortal 2.3.6 © 2008-2014, SimplePortal