(04-01-2024, 12:06 AM)1micha.elok Wrote:

(03-30-2024, 08:25 PM)johnno56 Wrote: When you are right, you are right!

But, think how much more challenging a simple game can be... Moo Ha Ha Ha...

Let us try this dance again. Shall we?



J

Do you have any cheat code so that I can land it safely in the first attempt ? ....

(04-01-2024, 11:44 AM)Marcus Wrote: If you define the ground as a couple of connected lines, you can quite easily calculate the height at any x:

Code:

set window "test", 640, 480
set redraw off

' Create an array of connected lines that cover the width of the window.
lines = []
x0 = 0
y0 = 400
while x0 < 640
    x1 = x1 + 16 + rnd(64); y1 = 400 + rnd(80) - 40
    lines[sizeof(lines)] = [x0, y0, x1, y1]
    x0 = x1; y0 = y1
wend

' Loop until excape is pressed.
while not keydown(KEY_ESCAPE, true)
    set color 0, 0, 0
    cls
   
    ' Draw the lines.
    set color 255, 255, 255
    for i = 0 to sizeof(lines) - 1
        draw line lines[i][0], lines[i][1], lines[i][2], lines[i][3]
    next
   
    ' Mark the y coordinate of the ground at mouse x.
    x = mousex()
    y = GetY(lines, x)
    set color 0, 255, 0
    draw line x, y - 16, x, y
   
    redraw
    fwait 60
wend

function GetY(lines, x)
    y = 480
    for i = 0 to sizeof(lines) - 1
        if x >= lines[i][0] and x < lines[i][2]
            k = (x - lines[i][0])/(lines[i][2] - lines[i][0])
            y = lines[i][1] + k*(lines[i][3] - lines[i][1])
            break
        endif
    next
    return y
endfunc

I still haven't read through this thread yet, sorry. Maybe this is similar to what kevin did?

(04-01-2024, 05:11 AM)johnno56 Wrote: ...
Oh, let me see... I think I stored it with my Chrystal Ball and my Wizard's wand... lol ... Now, where did I put that Chrystal Ball?...

Quote:10 PRINT TAB(33);"LUNAR"
20 PRINT TAB(l5);"CREATIVE COMPUTING MORRISTOWN, NEW JERSEY"
25 PRINT: PRINT: PRINT
30 PRINT "THIS IS A COMPUTER SIMULATION OF AN APOLLO LUNAR"
40 PRINT "LANDING CAPSULE.": PRINT: PRINT
50 PRINT "THE ON-BOARD COMPUTER HAS FAILED (IT WAS MADE BY"
60 PRINT "XEROX) SO YOU HAVE TO LAND THE CAPSULE MANUALLY."
70 PRINT: PRINT "SET BURN RATE OF RETRO ROCKETS TO ANY VALUE BETWEEN"
80 PRINT "0 (FREE FALL) AND 200 (MAXIMUM BURN) POUNDS PER SECOND."
90 PRINT "SET NEW BURN RATE EVERY 10 SECONDS.": PRINT
100 PRINT "CAPSULE WEIGHT 32,500 LBS; FUEL WEIGHT 16,500 LBS."
110 PRINT: PRINT: PRINT: PRINT "GOOD LUCK"

(04-02-2024, 09:45 AM)johnno56 Wrote: I know how to make the levels using the Tilemap Editor... I am really struggling with how and when to use the appropriate commands. The document that I have gives a summary of the Editor and a list of all the Library functions but there are no examples... A tutorial for the Editor would be a good idea....

In the meantime, I have used the "old school" method to create the level, using a text file of the "map" layout. Using a simple Axial Aligned Bounding Box function, for collision detection, I have managed to land the ship on the pad successfully and also managed to test the crashing as well... At the moment, the collision detection, is only working for the landing pad... Not much point if I can only land and crash on one tile... lol

The game is still to short and a bit difficult to land... but it does land (and crash) on the red pad just fine... lol



I am slowly going nuts with this one... maybe a nice game of Pong?... *sigh*

(04-02-2024, 11:17 AM)johnno56 Wrote: Thanks Marcus. I will certainly go over the examples again and see what I may be missing... I appreciate any effort that you are willing to do... Thank you...