[bb] MISSILE COMAND by ANIMAL [ 1+ years ago ]

[BlitzBot]

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.