January 15, 2021, 05:10:31 PM

Author Topic: [bb] MISSILE COMAND by ANIMAL [ 1+ years ago ]  (Read 400 times)

Offline BlitzBot

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

Description : THIS LITTLE DITO HELP THE APPSOLUTE BEGINNER
FIND THE DIFRENCE AND USEES OF ARRAYS
AND CUSTOM TYPE

THE EASY WAY


Code :
Code: BlitzBasic
  1. ; MY FREANDS SAY MY CODE IS SCRUFFY I THINK THERE RIGHT
  2. ; BUT IT WORKS AND THATS THE MAIN THING
  3. ; I DIDT GO TO COLLOAGE I LERNT ME SELF
  4. ; THIS IS A SMALL MISSILE COMMAND ROTINE
  5. ; IT HELPS TELL THE DIFRENCE BETWEEN
  6.  
  7. ;                                                                TYPES And ARRAYS
  8.  
  9. ; IT ALL SO RESOLVES THE QUESTION WITCH IS FASTER WELL THAY ARE  BOTH FAST
  10. ; JUST DEPENDS WHAT U USE THEM FOR TYPE  IS SO MUCH BETTER
  11. ; BUT THE  ARRAY U DOWNT HAVE TO FINE WHAT YOUR LOOK CUZE ITS GOT IN INDEX NUMBER IE  A(1) A(2)
  12.  
  13. ; THAY BOTH HAVE VERY COOL TO USE ; A BEGINNER SHOULD LERN THEM BOTH
  14. ; BEFOR ATTEMPTING 3D SUPPER COOL GRAPHICS
  15. ; PS I HOPE MY CODE ISNT TO SCRUFFY LOL
  16. ; YOURS A.B COX ( AKA ANIMAL ) WELL HERE ANY WAY
  17.  
  18.  
  19.         Graphics 800,600,16,1           ; SORRY NO GRAPHICS TEST O WELL
  20.         SetBuffer BackBuffer()
  21.         HidePointer    ;    use this  in full screen mode      
  22.        
  23.         Global ant,CITY
  24.        
  25.         miss=3   ; HOW MANY MISSILES           
  26.         h=1  ; holds the misile flag you are firing            
  27.         Const LUNCH=50  
  28.         ;Const colr=9437584 ; window mode
  29.         Const colr=9437328  ; fullscreen mode
  30.                        
  31.                        
  32.          ;      A CUSTOM TYPE THE NEW WAY              
  33.         Type missiles
  34.         Field   ox
  35.         Field   oy
  36.         Field   ny
  37.         Field   nx
  38.         End Type
  39.        
  40.        
  41.        
  42.         ;        AN ARRAY THE OLD WAY   WHITCH ONE IS FASTER THE OLD OR THE NEW
  43.         Dim x#(200)
  44.         Dim y#(300)
  45.         Dim r(200)
  46.         Dim flag(200)
  47.         Dim v#(200)
  48.         Dim dx(200)
  49.         Dim flag(200)
  50.                
  51.                
  52.         For t=1 To miss
  53.                 m.missiles = New missiles
  54.                 mOx=400
  55.                 mOx=Rnd(800)
  56.                 mNy=0
  57.                 mNX=Rnd(800)
  58.         Next
  59.                
  60.                 makecircles() ; GO MAKE SOME CIRCLES
  61.        
  62.  
  63.                
  64.                  ClsColor 400,000,400  ; THE COLOUR OF THE BACK GROUND
  65.                
  66.                
  67.         m.missiles = First missiles                    
  68.         Color 255,255,255
  69.                
  70.         While Not KeyDown(1)
  71.                 mx=MouseX()
  72.                 my=MouseY()
  73.                 Cls
  74.                
  75.                 ; draw a cross in full screen mode
  76.                 Line MX,MY,MX+6,MY
  77.                 Line MX+3,MY-3,MX+3,MY+3       
  78.                
  79.                 If MouseDown(1)
  80.                  H=H+1 ; I SED IT WAS A FLAG OF SOME SORT
  81.                
  82.                 If H>LUNCH Then H=1
  83.                          If flag(H)=0 And MouseDown (1)
  84.                        
  85.                                 flag(H)=1
  86.                                 x#(H)=mx
  87.                                 y#(H)=my
  88.                                 v#(h)=-0.5
  89.                                
  90.                                 Line 400,600,mx,my:DX(H)=1
  91.                         EndIf
  92.                
  93.                 EndIf
  94.        
  95.        
  96.     For T=1 To LUNCH
  97.                
  98.                 If flag(T)>0
  99.                         r(T)=r(T)+dx(t)
  100.                                                
  101.                          DrawImage ant,x#(t),y#(t),r(t)
  102.                        
  103.                          x#(T)=x#(T)+V#(T)
  104.                          y#(T)=y#(T)+V#(T)
  105.                
  106.                          If r(T)>50 Then flag(T)=2:DX(T)=-1:v#(t)=1
  107.                        
  108.                                         If r(T)<1
  109.                                                 r(T)=0
  110.                                                 flag(T)=0
  111.                                                 x(T)=0
  112.                                                 y(T)=0
  113.                                                 DX(T)=0
  114.                                         EndIf
  115.                        
  116.                   EndIf
  117.                
  118.         Next
  119.                
  120.                
  121.                
  122.         For m.missiles = Each missiles
  123.                
  124.                 m
  125. y=m
  126. y+3
  127.                
  128. u=ReadPixelFast (m
  129. x,m
  130. y) And $FFFFFF ; JUST SOMETIMES THIS IS EASYER THAN COLLISION TESTING EM
  131.                
  132.                 If m
  133. y>600 Or U<>colr
  134.                         mox=Rnd(800)
  135.                         If mox<400  Then m
  136. x=mox-(Rnd(50))
  137.                         If mox>400 Then m
  138. x=mox+(Rnd(50))
  139.                         If mox=400 Then m
  140. x=400
  141.                                 moy=0
  142.                                 m
  143. y=0
  144.                 EndIf
  145.                         Line mox,moy,m
  146. x,m
  147. y
  148.         Next           
  149.                
  150.                 Text 100,100,U
  151.                 DrawImage city,0,500,0  
  152.                
  153.                 Delay 10 ; TO SLOW THINGS DOWN FOR ME P4 3.0GIG HP
  154.         Flip ; SOMETHING ABOUT DOUBLE BUFFERING
  155. Wend ;           END OFF THE LOOP
  156.                
  157.                
  158.                
  159.                 Function makecircles()
  160.                 ; THIS IS THE ONLY FUNCTION IM USING CUZ THE THING WILL RUN TO FAST TRY IT AND SEE
  161.                
  162. ant=CreateImage (100,100,60)
  163. ql=1:xl#=100:yl#=100
  164. For tl=0 To 100 Step 2
  165. ql=ql+1
  166. xl#=xl#+0.1:yl#=yl#+0.1
  167. Color 200+Rnd(40),Rnd(50),0
  168. Oval xl#,yl#,tl,tl
  169.  
  170. GrabImage ant,100,100,ql
  171. Cls
  172. ;Flip
  173. Next
  174. Cls
  175.  
  176. Color 255,0,0
  177. CITY=CreateImage (800,100)
  178. Rect 0,50,800,50,1
  179. Rect 100,30,50,50,1
  180. Rect 110,20,30,20,1
  181. Rect 90,40,70,20,1
  182. GrabImage CITY,0,0
  183. End Function


Comments :


Yo! Wazzup?(Posted 1+ years ago)

 I click twice and get an Illegal Memory Adress error.And please don't type in all caps.


 

SimplePortal 2.3.6 © 2008-2014, SimplePortal