Missile Command now runs in QBJS

qbjs.org/?code=J09wdGlvbiBfRXhwbGljaXQgJyAgICBHZXQgaW50byB0aGlzIGhhYml0IGFuZCBzYXZlIHlvdXJzZWxmIGdyaWVmIGZyb20gVHlwb3MgY29tbWVudCBvdXQgZm9yIFFCSlMKCl9UaXRsZSAiTWlzc2lsZSBDb21txE3EHiBFblJpdGNoaWVkIsZ7zAFiKyBtb2QgMjAyMy0wNi0yOCwgbm93IHRyecY9YWRh5QC/CtE60wFJIHByb2JhYmx5IHBpY2tlZCB1cOYA4GdhbWUgYXQgdGhlIEpC5AC6dW0gc29tZSB5ZWFycyBhZ28uCsZk5AEZQ29uc3RhbnRzLCBTaGFyZWQgVmFyaWFibGVz5QElQXJyYXlzKCkgZGVjbMQgLiBUaGVzZSBXaWxsIFN0YXJ0IHdpdGggQ2FwaXRhbCBMZXR0ZXJzLuoAx8RnTWFpbuQA/3VsZSB2zWFhxWHJX8ZNc8RYaW5nIGxvd2VyIGNhc2UgbMZZ5QGMbG9jYWzLYyBU5AD7aXMgd2hhdCDxAgdoZWxwcywgYnnEPWPEWHVzIHRv5AEnbGVhc3TIfuQBNXNlIGJlZm9yZSB1c2XKY1do5AHuxihpbmcsIHRlbGzESlFCNjTEOOQCNmUgd2Ugd2FudMRddXNlLMQQY2FuIGFsc28gZ2l2ZSBi5QJnZGVzY3Jp5QCnLgoKCuUBhSBTY3JlZW5XaWR0aCA9IDgwMCzHE0hlaWdodCA9IDYwMPICWMUB5AEVb3VyIGN1c3RvbSBzxTggZGltZW5zaW9ucwpEaW0gQXMgSW50ZWdlciBib21iWCzFB1nXU8UBaW5jb23kAOfEKshXcG9zaeUBYnRvIHNob290IGRvd27IY1NpbmdsZcUxRMdjRNVkRFjlAgFEWSBtZWFuIGNoYW5nZSBpbiBYymLEIVnJD/AAxm3mA4VYLMgK1WjdAcc50WPnAMbHH+QAycgL32TnAMfmANxZIG9mIOgEK9Bj6ADGaGnkA37EX2Vz3lzUAXNj5AKsxETFcsZH0GNtb3VzZURp5APqY+UBL8wQ6gDR5AJGY2FsY3VsYeQAqXPkAL7oASHkAQNEWSBkaXJlY/MBKWTHTf8Awd8ByQFkaXR0b/AAxnJhZGl1/wEjy0NyYXfkArrlARvlBFZ0YXJnZXQgbGlrZSBjaXJjbPIBKWJvb2zkAo3aZOYC9HJ0ZW7lA/Zjb2RlIGxpbmXGY2EgYnVuY2jkATlPUiB0ZXN0cwoKCuYDxyBfTmV3SW1hZ2Uo6wPr7gPlLCAzMikgJyBzZXRz5AXTYSBncmFwaGljc+gDfcVn5wPn6wPg/wEVzAHkALczMuQFLuQB8F9SR0IzMihyZWQsIGfEYiwgYmx1ZSwgYWxwaGEpIGNvbG/kBPIuCicKJ1/mAKxNb3ZlIDI1MCwgNuQEkewHIuQDAmVu5QWp5wCx5AX5eSBsYXB0b3As5AdwIG1heSBuZWVkIGRpZmZlcuQHZW51bWJlcnMKCuYFaDH/AeXQAXJlc2V05wb75Afa5QaXYSByb3Vu5wZSYeYEwmZh5QW2CsQ1Q2xzxQjEGVggPSBSbmQgKu0Fhv8AhSDGaXPGW+QHZHdoZXJlIGFjcm9zc+UBaOYBBMlnWSA9IPgFw98B03LkB+ZvcOQCbM9nROoAzzYgLSAz33LFAeQIRyBybmQgZHggPesFjXggYmV0d+QByS0z5QFdM8pn5ADPxmczICvVZ8pWec1WeclWxlU2LCAgPiAw5QJH7AGk6AXiID3tAZkvIDL/ANTFAcc+IGLkCEBhdCBtaWRkbOkBoOsBNccp5ADQ7QdzLSA0xWjISWxh5QPecG9pbnTGUcthaXMgbmVhcmx5xBpib3TkA6LuAZzHL+UBn/4CB8hZxFRvdCBtb3bkBMthd2Fp5QkX5QXAIGNs5AFe5AEz6gWWzGf/Am7fAdcB5gWaxgrnBfPfZtVFxzvkBmHrAMx0b+0BUwrFaETGb8QBJ+QJ4CfoA1tvcmU/yRvoC5lDxUnGVXRv5Av5ZXJzZWPkDAPnCMsgIEhpdHM6IiArIFN0ciQo5AYhKSArICLoB4XKG8YQKcplUHJpbnRTdOQFESAoNOQJozU5NCksICJe8wvy0QHkBpPFZOgCMz3tAlLJZ+YFBV9N5ADFSW5wdXQ6IFdlbmTfYtABcG9sbOoBCeQG+nVwZGF0ZclnSWbHZEJ1dHRvbigxKeQL3PIG/eQBbsZId2Fz5gGqZWTlCCnFG2HlCAHlDTrtAb3MQ+4IgSA9x3lYIC3INFjaMOQCyMYwWcowWeYCHcgBJ+sCjijPbl4gMiDkDX3NU14gMikgXiAuNc5HzA3HAXJld3JpdOUMHSBhYuQG++UH8HVz5AIFX0h5cG90KCkgd2hpY2jkA7BoaWRk5Qt8xmrmDYJsYc1nyR09yEH+CaIp7gDt7ARINSAqzi1YIC/JYNU25AFP0TZZ1DZFbmQgSWbKfOsFjskLK8lYWP8CoMkB5gKH8gt7z2fkAKjJC8pn/wuA3AHqBLzEAegH+MYIK+gHOt9e1AHnANHEQfIAzugH+MYIx2f/AMXfAcYB5gDOyWjWUUkgYW3kArZ16A6U5QkK5grl6A+J7ArUYSB2ZXJ5IGxvbmcgSUbqCt/fZ8wByF9pcyBlaXRoZXIgMCBvciAtMSB35ARebmV4dCAy5AjJdGXkEWFzIOQPemV4ZWN1ZWTfZ9cBLTEvxWNUcnVlL0ZhbOYHjWXkAMp0aOQDpnN05BCuaW7nB43qBjboAKzrAtE8IDAgT+kOXFnIEOYCJssNxRrTScgKykRYID7tCL7JTtUXWckX5giFyWNJZslc9QWn3wHJAWRv6Ayu5RIxx1TxBQdyZeQCLshy7AIjbm/lAdblAiTqDQBjaGVja+QBbWnkAKjkCp/nDo/lCMjoAXvNZ8hd6AMd7gD57QFC9wGW9gFizWXwATfnD2nmAfJlcyArIDHNMEV4aXTsCHTwBQXmAXdpZuUGEOkFyegKz+cH3uQA/OUBBTwgMjAgcGl4ZWzlCLbmDjXoARZnb+YTqMQqLCBh5A6rymdJZiAo5QiB5QDgLcUlWOQGs+QGzcgZ5AcRxBlZxRnEBS41xnToAiNzaG935Aw3cuQO9mFz5w8F/wNo/wb1/wb18wb15AhrxjXwANLrEbzGElkp6gDB7gb3Rm/pEAQ9IDEgVG/EJ1N0ZXDnC6bVAeUJdGNvbmNldHJpY+gP+OcC0HfnARnNZ8QBQ8Un7AGB5gW5WCnkDHws6wGAxhhZxRgpLOcAoNFQX0xpbWl0IDbqBDHEAU5leOoBisQB5RCsPcYHK/8PBtkBYWRkxELkAOPFSeULKf4C42zvCa/oAP/rAP406gGpKSzkAQMmSEbFAeQUlCs05w/2IG9uIF7mCtzmAXrnB89s5BZ/bGxvd9Vn7BSOyl0wMDAwRkb/AQTJAcVuxELlEL/wA77ID+cBiDLmAYhMb29wCuQLWgoK

Just slightly modified
'Option _Explicit '    Get into this habit and save yourself grief from Typos comment out for QBJS

_Title "Missile Command QBJS EnRitchied" '                b+ mod 2023-06-28, now try QBJS adaption
'                                   I probably picked up this game at the JB forum some years ago.

'    Get Constants, Shared Variables and Arrays() declared. These Will Start with Capital Letters.
'        Get Main module variables and arrays declared with starting lower case letters for local.
'         This is what Option _Explicit helps, by forcing us to at least declare these before use.
'       While declaring, telling QB64 the Type we want to use, we can also give brief description.


Const ScreenWidth = 800, ScreenHeight = 600 '                     for our custom screen dimensions
Dim As Integer bombX, bombY '                          incoming bomb screen position to shoot down
Dim As Single bombDX, bombDY '                  DX and DY mean change in X position and Y position
Dim As Integer missileX, missileY '                                               missile position
Dim As Single missileDX, missileDY '                            change X and Y of Missile position
Dim As Integer hits, misses '                                                score hits and misses
Dim As Integer mouseDistanceX, mouseDistanceY '       for calculations of missile DX, DY direction
Dim As Single distance '                                                                     ditto
Dim As Integer radius '                                      drawing hits with target like circles
Dim As Integer boolean '                         to shorten the code line with a bunch of OR tests


Screen _NewImage(ScreenWidth, ScreenHeight, 32) ' sets up a graphics screen with custom dimensions
'                                          the 32 is for _RGB32(red, green, blue, alpha) coloring.
'
'_ScreenMove 250, 60 ' out for QBJS   centers screen in my laptop, you may need different numbers

While 1 '                                             reset game and start a round with a bomb falling
   Cls
   bombX = Rnd * ScreenWidth '                                starts bomb somewhere across the screen
   bombY = 0 '                                                           starts bomb at top of screen
   bombDX = Rnd * 6 - 3 '                                  pick rnd dx = change in x between -3 and 3
   bombDY = Rnd * 3 + 3 '                 pick rnd dy = change in y between 3 and 6,  > 0 for falling
   missileX = ScreenWidth / 2 '                                  missile base at middle across screen
   missileY = ScreenHeight - 4 '   missile launch point at missile base is nearly at bottom of screen
   missileDX = 0 '                           missile is not moving awaiting mouse click for direction
   missileDY = 0 '                                                                              ditto
   distance = 0 '                                             distance of mouse click to missile base

   Do
       'what's the score?
       _Title "Click mouse to intersect incoming   Hits:" + Str$(hits) + ", misses:" + Str$(misses)
       _PrintString (400, 594), "^" '                                 draw missle base = launch point
       While _MouseInput: Wend '                                             poll mouse to get update
       If _MouseButton(1) Then '               the mouse was clicked calc the angle from missile base
           mouseDistanceX = _MouseX - missileX
           mouseDistanceY = _MouseY - missileY

           'distance = (mouseDistanceX ^ 2 + mouseDistanceY ^ 2) ^ .5
           '                   rewrite the above line using _Hypot() which is hidden distance forumla
           distance = _Hypot(mouseDistanceX, mouseDistanceY)

           missileDX = 5 * mouseDistanceX / distance
           missileDY = 5 * mouseDistanceY / distance
       End If

       missileX = missileX + missileDX '                                      update missile position
       missileY = missileY + missileDY '                                                        ditto
       bombX = bombX + bombDX '                                                  update bomb position
       bombY = bombY + bombDY '                                                                 ditto

       '                     I am about to use a boolean variable to shorten a very long IF code line
       '                                 boolean is either 0 or -1 when next 2 statements are execued
       '                                            -1/0 or True/False is everything still in screen?
       boolean = missileX < 0 Or missileY < 0 Or bombX < 0 Or bombY < 0
       boolean = boolean Or missileX > ScreenWidth Or bombX > ScreenWidth Or bombY > ScreenHeight
       If boolean Then '                                                       done with this boolean
           '   reuse boolean to shorten another long code line checking if bomb and missile in screen
           boolean = bombY > ScreenHeight Or missileX < 0 Or missileY < 0 Or missileX > ScreenWidth
           If boolean Then misses = misses + 1
           Exit Do
       End If

       '     if the distance between missle and bomb < 20 pixels then the missile got the bomb, a hit
       'If ((missileX - bombX) ^ 2 + (missileY - bombY) ^ 2) ^ .5 < 20 Then '  show  strike as target
       '                       rewrite the above line using _Hypot() which is hidden distance forumla
       If _Hypot(missileX - bombX, missileY - bombY) < 20 Then

           For radius = 1 To 20 Step 4 '                        draw concetric circles to show strike
               Circle ((missileX + bombX) / 2, (missileY + bombY) / 2), radius
               _Limit 60
           Next
           hits = hits + 1 '                                                    add hit to hits score
           Exit Do
       Else
           Circle (missileX + 4, missileY), 2, &HFFFFFF00 '+4 center on ^ base  draw    missle yellow
           Circle (bombX, bombY), 2, &HFF0000FF '                                      draw bomb blue
       End If
       _Limit 20
   Loop
Wend


Remember you can redirect your missile more than once by clicking mouse on screen to (re)aim missle, you can even drag mouse around for "heat seeker" effect!