Missile Command

[bplus]

A simple little game (I just learned about at LB):

Code: QB64: [Select]

1. W = 800: H = 600
2. Screen _NewImage(800, 600, 32)
3. a:
4. Cls
5. a = Rnd * W: b = 0: c = Rnd * 6 - 3: d = Rnd * 3 + 3: u = 0: v = 0: x = 400: y = H
6. Do
7.     _Title "MC hits:" + Str$(t) + ", misses:" + Str$(m)
8.     While _MouseInput: Wend
9.     If _MouseButton(1) Then e = _MouseX - 400: f = _MouseY - H: z = (e ^ 2 + f ^ 2) ^ .5: u = 5 * e / z: v = 5 * f / z
10.     x = x + u: y = y + v: a = a + c: b = b + d
11.     If x < 0 Or y < 0 Or a < 0 Or b < 0 Or x > W Or a > W Or b > H Then
12.         If b > H Or x < 0 Or y < 0 Or x > W Then m = m + 1
13.         GoTo a:
14.     End If
15.     If ((x - a) ^ 2 + (y - b) ^ 2) ^ .5 < 20 Then
16.         For r = 1 To 20 Step 4
17.             Circle ((x + a) / 2, (y + b) / 2), r
18.             _Limit 60
19.         Next
20.         t = t + 1: GoTo a:
21.     Else
22.         PSet (x, y): PSet (a, b)
23.     End If
24.     _Limit 20
25. Loop
26.  

Your missile base is at bottom, middle of screen. When you click mouse you want your missile to strike the incoming one before it reaches the bottom of screen. If incoming is not going to reach bottom don't worry about it unless you can hit it for sure (not likely).

[Dav]

Nice compact code.  My first try of 20 was horrible.  4 hits and 16 misses.  No wonder my grand-dad never took me hunting. 

By LB do you mean Liberty Basic?

- Dav

[bplus]

Nice compact code.  My first try of 20 was horrible.  4 hits and 16 misses.  No wonder my grand-dad never took me hunting. 

By LB do you mean Liberty Basic?

- Dav

Yes Liberty but actually I am too cheap to spring for Liberty so I use Just Basic the trainer for Liberty which is pretty standard Basic until you get into the Windows part then it is very idiosyncratic.

I am planning heat seeking missile code next so we hopeless human shooters have a better shot at survival.

Can you believe 25 lines of code could offer such an intriguing challenge? :)

[bplus]

BTW you can click again and change course, usually it's too late but sometimes it helps.

PS compact code because the challenge was 1K bytes.

[bplus]

QB64 version comes in at 842 bytes because IDE formats with spaces, Steve could probably get down to 500 :)
JB version was 757 bytes but different commands for their Windows (what we call Screens over here).

[bplus]

AIM - AI Missiles Defense AKA War and Peace

Code: QB64: [Select]

1. W = 800: H = 600
2. Screen _NewImage(800, 600, 32)
3. Randomize Timer
4. Color &HFFFFFFFF, &HFF6666DD
5. Cls
6. a:
7. a = Rnd * W: b = 0: c = Rnd * 6 - 3: d = Rnd * 3 + 3: x = 400: y = H: lastx = x: lasty = y: lasta = a: lastb = b: l = 5
8. l = l * 10
9. Do
10.     _Title "AIM-AI Missile Defense - Hits:" + Str$(t) + ", Misses:" + Str$(m)
11.     a = a + c: b = b + d: ang = _Atan2(b - y, a - x)
12.     x = x + 7 * Cos(ang): y = y + 7 * Sin(ang)
13.     If x < 0 Or y < 0 Or a < 0 Or b < 0 Or x > W Or a > W Or b > H Then
14.         If b > H Or x < 0 Or y < 0 Or x > W Then m = m + 1
15.         GoTo a:
16.     End If
17.     If ((x - a) ^ 2 + (y - b) ^ 2) ^ .5 < 10 Then
18.         For r = 1 To 20 Step 4
19.             Circle ((x + a) / 2, (y + b) / 2), r, &HFFFF0000
20.             _Limit 10
21.         Next
22.         t = t + 1: GoTo a:
23.     Else
24.         Line (x, y)-(lastx, lasty), &HFF006600: Line (a, b)-(lasta, lastb), &HFFDDDDFF
25.         lastx = x: lasty = y: lasta = a: lastb = b
26.     End If
27.     _Limit l
28. Loop Until t = 50
29. Sleep
30.  
31.  

It stops after 50 hits, note the number of misses.

[johnno56]

I let it run "as is" for all 50 "shots". Impressive. If this program does not develop into a full game, the program as it stands, makes a pretty good version of a digital flower arranger... lol

Nah seriously... It would be cool to develop a "basic" based MC game...  I like the "heat seekers"... Perhaps can be added as a bonus for reaching either a higher score or "hitting" specific "power ups"... Too much too soon? I am intrigued in this program. Time to research other "basic" versions for ideas... or are you trying to produce a militaristic (as is file size) game?

[bplus]

the program as it stands, makes a pretty good version of a digital flower arranger... lol

Yes, that was the Peace part of War and Peace :)