Code to determine what day Christmas of 2024 is on:

I was playing around with the paddle that you can angle with Mouse Wheel and thought it might be fun to do a Pongy style game with it like Ken's, so here it is!

Use mouse wheel to angle paddle either to bounce ball into Spaceship Or keep ball away from the Death Star.
You score a point when ball hits towards center of ship and lose a ball if Death Star runs into ball. You get 5 balls per game.

Using code from my Pongy game, I removed the mouse use and added pinball flippers. It still has the evil red ball that destroys your ball and to get points, you make it go into the moving goalie up above, like Pongy. I widened the goalie to make it easier and shrank the red ball in half. I do need some help on getting the flippers to detect the ball every time. They detect it maybe 90% of the time but they also bounce the ball down instead of up about half the time. For now, it's a goofy little game. Use both Ctrl keys to used the flippers. 

'Pin-Pongy - by SierraKen

'November 28, 2024



'This is a little goofy game I made using my Pongy code and adding flippers instead of a mouse ball.

'Sometimes the flippers work, sometimes they don't. That's what makes it's goofy. lol



'Thanks to the QB64 Phoenix Forum for the inspiration and past help.

'Thanks also to Chat GPT for the math code.







Do

    Dim score As Single

    Dim ball As Single

    Dim boxRight As Single

    Dim boxLeft As Single

    Dim BoxTop As Single

    Dim BoxBottom As Single

    Dim a As String

    Dim ag As String

    score = 0

    ball = 15



    ' Set box boundaries

    boxLeft = 200

    boxRight = 600

    BoxTop = 25

    BoxBottom = 575

    seconds = 26

    seconds2 = 35



    Cls

    Screen _NewImage(800, 600, 32)

    ' Ball properties

    Dim As Integer ballX, ballY, ballx2, bally2

    Dim As Single angle, angle2

    Dim As Integer speedX, speedY, speedx2, speedy2

    ballX = (boxRight + boxLeft) / 2 ' Start in the center

    ballY = (BoxTop + BoxBottom) / 2

    angle = 45 ' Starting angle in degrees



    ballx2 = (boxRight + boxLeft) / 2 ' Start in the center

    bally2 = (BoxTop + BoxBottom) / 2 + 100

    angle2 = 45 ' Starting angle in degrees





    ' Convert angle to radians

    Dim As Single radAngle

    radAngle = angle * 3.14159265 / 180



    Dim As Single radAngle2

    radAngle2 = angle2 * 3.14159265 / 180



    Dim goalx As Single

    Dim goaly As Single

    Dim goaldir As Single

    Dim redballout As Single

    Dim starx As Single

    Dim stary As Single





    ' Set speed based on angle

    speedX = Cos(radAngle) * 5

    speedY = Sin(radAngle) * 5



    speedx2 = Cos(radAngle2) * 5

    speedy2 = Sin(radAngle2) * 5



    goalx = 200: goaly = 25

    goaldir = 1

    redballout = 5





    _Title "Pin-Pongy - by SierraKen - Use Both Ctrl Keys"



    Randomize Timer



    Do

        Cls

        a = InKey$

        If a = Chr$(27) Then End

        If _KeyDown(100306) Then

            flip1 = 1: ' left side ctrl

        Else

            flip1 = 0

            flip1stop = 0

        End If

        If _KeyDown(100305) Then

            flip2 = 1: ' right side ctrl

        Else

            flip2 = 0

            flip2stop = 0

        End If

        ' Draw box boundaries

        Line (boxLeft, BoxTop)-(boxRight, BoxBottom), _RGB32(255, 255, 255), B



        ' Draw Flippers

        If flip1 = 0 Or flip1stop = 1 Then

            Line (boxLeft, BoxBottom - 180)-(boxLeft + 180, BoxBottom - 30), _RGB32(253, 253, 253)

            seconds = 26

        End If



        If flip2 = 0 Or flip2stop = 1 Then

            Line (boxRight, BoxBottom - 180)-(boxRight - 180, BoxBottom - 30), _RGB32(253, 253, 253)

            seconds2 = 35

        End If



        'Left Flipper

        If flip1 = 1 And flip1stop = 0 Then

            If seconds > 25 Then flip1up = 1

            If seconds < 5 Then flip1up = 2

            If flip1up = 1 Then seconds = seconds - .75

            If flip1up = 2 And _KeyDown(100306) = 0 Then seconds = seconds + .75

            If flip1up = 2 And seconds > 25 Then

                flip1 = 0: flip1up = 0: flip1stop = 1:

                Line (boxLeft, BoxBottom - 180)-(boxLeft + 180, BoxBottom - 30), _RGB32(253, 253, 253)

                GoTo skip1:

            End If



            s = (60 - seconds) * 6 + 180

            x = Int(Sin(s / 180 * 3.141592) * 200) + boxLeft

            y = Int(Cos(s / 180 * 3.141592) * 200) + BoxBottom - 180

            skip1:

            For f3 = .1 To 5 Step .1

                Line (boxLeft + f3, BoxBottom - 180 + f3)-(x + f3, y + f3), _RGB32(253, 253, 253)

            Next f3

        End If



        'Right Flipper

        If flip2 = 1 And flip2stop = 0 Then

            If seconds2 < 36 Then flip2up = 1

            If seconds2 > 55 Then flip2up = 2

            If flip2up = 1 Then seconds2 = seconds2 + .75

            If flip2up = 2 And _KeyDown(100305) = 0 Then seconds2 = seconds2 - .75

            If flip2up = 2 And seconds2 < 36 Then

                flip2 = 0: flip2up = 0: flip2stop = 1:

                Line (boxRight, BoxBottom - 180)-(boxRight - 180, BoxBottom - 30), _RGB32(253, 253, 253)

                GoTo skip2:

            End If

            s2 = (60 - seconds2) * 6 + 180

            x2 = Int(Sin(s2 / 180 * 3.141592) * 200) + boxRight

            y2 = Int(Cos(s2 / 180 * 3.141592) * 200) + BoxBottom - 180

            skip2:

            For f4 = .1 To 5 Step .1

                Line (boxRight + f4, BoxBottom - 180 + f4)-(x2 + f4, y2 + f4), _RGB32(253, 253, 253)

            Next f4

        End If



        For check = -4 To 4 Step .5

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(254, 254, 254) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(253, 253, 253) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(252, 252, 252) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(251, 251, 251) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(250, 250, 250) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(253, 252, 252) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(253, 251, 251) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(252, 251, 251) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(252, 253, 253) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(251, 252, 252) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(251, 251, 252) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(252, 252, 253) Then GoTo collision:

            If Point(Int(ballX + check), Int(ballY + check)) = _RGB32(253, 252, 251) Then GoTo collision:

        Next check

        flipper:



        Line (goalx, goaly)-(goalx + 200, goaly), _RGB32(1, 1, 1)

        goalx = goalx + goaldir

        If goalx = 680 And goaldir = 1 Then goaldir = -1

        If goalx = 20 And goaldir = -1 Then goaldir = 1

        ' Draw the ball

        fillCircle ballX, ballY, 10, _RGB32(255, 255, 255)

        If redballout = 0 Then fillCircle ballx2, bally2, 10, _RGB32(255, 0, 0)



        ' Update ball position

        ballX = ballX + speedX

        ballY = ballY + speedY

        If redballout = 0 Then

            ballx2 = ballx2 + speedx2

            bally2 = bally2 + speedy2

        End If

        If ballX > goalx And ballX < goalx + 200 And ballY < 26 Then

            score = score + 1: ballX = 375: ballY = 275: speedY = -speedY

            For snd = 300 To 900 Step 50

                Sound snd, .5

            Next snd

        End If



        Locate 1, 20: Print "Score: "; score

        Locate 1, 70: Print "Balls: "; ball



        ' Check for collision with box boundaries

        If ballX <= boxLeft Or ballX >= boxRight Then

            speedX = -speedX ' Reflect on the X axis

            If redballout > 0 Then redballout = redballout - 1

            Sound 600, .5

        End If

        If ballY <= BoxTop Or ballY >= BoxBottom Then

            speedY = -speedY ' Reflect on the Y axis

            If redballout > 0 Then redballout = redballout - 1

            Sound 600, .5

        End If

        If ballY > BoxBottom + .4 Then ballY = BoxBottom - 7

        If ballY < BoxTop - .4 Then ballY = BoxTop + 7

        If ballX > boxRight + .4 Then ballX = boxRight - 7

        If ballX < boxLeft - .4 Then ballX = boxLeft + 7

        'If redballout > 0 Then GoTo skip:

        If (ballx2 <= boxLeft Or ballx2 >= boxRight) And redballout = 0 Then

            speedx2 = -speedx2 ' Reflect on the X axis

            Sound 600, .5

        End If

        If (bally2 <= BoxTop Or bally2 >= BoxBottom) And redballout = 0 Then

            speedy2 = -speedy2 ' Reflect on the Y axis

            Sound 600, .5

        End If

        If bally2 > BoxBottom + .4 And redballout = 0 Then bally2 = BoxBottom - 7

        If bally2 < BoxTop - .4 And redballout = 0 Then bally2 = BoxTop + 7

        If ballx2 > boxRight + .4 And redballout = 0 Then ballx2 = boxRight - 7

        If ballx2 < boxLeft - .4 And redballout = 0 Then ballx2 = boxLeft + 7

        'skip:



        ' Check for collision between red ball and white ball.

        'If redballout > 0 Then GoTo skip2:

        If Sqr((ballx2 - ballX) ^ 2 + (bally2 - ballY) ^ 2) < 25 And redballout = 0 Then

            fillCircle ballX, ballY, 10, _RGB32(0, 0, 0)

            snd = 300

            _AutoDisplay

            starx = ballX: stary = ballY

            For t = 1 To 25

                fillCircle starx, stary, t * 5, _RGB32(255, 255, 255)

                Sound snd - t, .5

            Next t

            redballout = 5

            Locate 1, 70: ball = ball - 1: Print "Balls: "; ball

            If ball = 0 Then

                _AutoDisplay

                Locate 20, 50: Print "G A M E  O V E R":

                Locate 25, 50

                Print "Again (Y/N)?"

                Do

                    ag = InKey$

                    If ag = "y" Or ag = "Y" Then Exit Do

                    If ag = "n" Or ag = "N" Then End

                Loop

                Exit Do

            End If

            Sound 600, .5

        End If

        'skip2:



        _Display

        _Limit 60 ' Limit the speed of the loop to 60 FPS

    Loop

Loop



collision:

' Calculate deflection angle

radAngle = _Atan2(ballY, ballX) * 180 / 3.14159265

'radAngle = angle * 3.14159265 / 180

speedX = Cos(radAngle) * 5

speedY = Sin(radAngle) * 5



ballX = ballX + speedX

ballY = ballY + speedY

Sound 100, 1

skip3:

GoTo flipper:



'from Steve Gold standard

Sub fillCircle (CX As Integer, CY As Integer, R As Integer, C As _Unsigned Long)

    Dim Radius As Integer, RadiusError As Integer

    Dim X As Integer, Y As Integer

    Radius = Abs(R): RadiusError = -Radius: X = Radius: Y = 0

    If Radius = 0 Then PSet (CX, CY), C: Exit Sub

    Line (CX - X, CY)-(CX + X, CY), C, BF

    While X > Y

        RadiusError = RadiusError + Y * 2 + 1

        If RadiusError >= 0 Then

            If X <> Y + 1 Then

                Line (CX - Y, CY - X)-(CX + Y, CY - X), C, BF

                Line (CX - Y, CY + X)-(CX + Y, CY + X), C, BF

            End If

            X = X - 1

            RadiusError = RadiusError - X * 2

        End If

        Y = Y + 1

        Line (CX - X, CY - Y)-(CX + X, CY - Y), C, BF

        Line (CX - X, CY + Y)-(CX + X, CY + Y), C, BF

    Wend

End Sub

I get the strangest ideas now and then.  By the experts here everyone might get ideas about my thought.  - OR - I will be shot down in flames.

Normally I would use binary open to read in a text file.  Much faster than "open" using input mode.  My thoughts on the matter, I would like to use a mix mode of getting the data.  I would normally open with binary mode start reading using "line input #1,d$".  But switch to "input #1,n1,n2,n3,n4" at some point.  Such as content of my file:


#   Comments
#   Comments
#   Comments
#   Comments
#
#eoc
1,2,3,4
5,6,7,8
9,10,11,12
999999,0,0,0
# more comments
#   Comments
#   Comments
#   Comments
#   Comments
#
#eoc
13,14,15,16
17,18,19,20

Note the line "#eoc".  This would be my trigger point to switch to "input #1,n1,n2,n3,n4" to get the remaining data.  An after thought at this point and I changed my file now as I am typing this out.  If I can switch mix input modes.  Can I go back to "line input" and again go back to "input" modes ?  The other trigger point is the 999999 value in first position.

I can see this as a possibility since binary input has a pointer to the file opened.  To where the next read of file takes place.  The input request only specifics how much input happens and where to stop.

Thanks for any answers.
BTW, if you are a United States member.  Why are you reading my comments.  GO GET STUFFED!!!.
By Turkey.

Seeing few members playing with scroll, here comes one small toy suitable to test old laptops ability to scroll fast.
In my case I put to the test my slowest ThinkPad using single-channeled RAM paired with an old HD (not UHD series) shared memory integrated video controller. Old 1366x768 resolutions are targeted as well.

The CPU-driven putimage speed is not good at all, 180 FPS:

   

The GPU-driven putimage speed is superb, 1080++ FPS:

   

The source is attached.

I think the support for hardware rendering is a-must despite CPU renderer already achieving usually more FPS than most modern monitors offer, meaning 165Hz as a bare minimum, and targeting 480Hz. Will add this to my TriMasakari smooth scroller while retaining software rendering as an option. By the way, this summer I got frustrated of tearing (the lag) despite the speed, this hate resulted in writing the best smooth scroller known to me - SSSS, I wrote it in pure C. The V-sync feature is what made it really smooth, with no lag at all. The old SSSS was featured in this video at 9:50 mark:

Attached Files

  CPU-vs-GPU.bas (Size: 6.43 KB / Downloads: 21)

Got a complete version up and running nice.

My highest score so far:
   

The souce and 3 .wav files:

Attached Files

  Pinball Molly v1.0.zip (Size: 95.06 KB / Downloads: 27)

Hi friends

here I discovered again hot water!!!
here the experience about PRINT in SCREEN 0 (standard 80 columns and 25 rows of text)

Be calm QB64pe duplicates QB4.5 and Qbasic in this behaviour , so the issue comes from the far past of Qbasic.

run the code and enjoy the experience:

_Title "Incongruence of behaviour of  25th line of text in SCREEN 0 using PRINT;"

While s$ <> "Q"

    Locate 1, 1

    Print "Please choose 1 to test PRINT; mode " + Chr$(13) + "and 2 to test LOCATE & PRINT; mode" + Chr$(13) + "press q to quit program demonstration"

    s$ = UCase$(InKey$)

    If s$ = "1" Then

        GoSub PrintMode1

    ElseIf s$ = "2" Then

        GoSub PrintMode2

    End If

Wend

End



PrintMode1:

Cls

For a% = 1 To 25

    If a% = 25 Then Print a%; Else Print a%

    _Delay .2

Next a%

Sleep 2

Cls

Return



PrintMode2:

Cls

For a% = 1 To 25

    Locate a%, 1

    Print a%;

    _Delay .2

Next a%

Sleep 2

Cls

Return

I see in the forum calendar that today is Petr’s birthday.  Have a happy one!  Thanks for sharing your programming talents here with us all.

- Dav

You might need to be a certain age to appreciate this, but I made a "driver" for emulating old QB games that use DS4QB2 for sound in the V86 PC emulator. Behold, no one has heard these sounds in 20 years!

Some tests:

• Squealer TNT
  
• TerraScape: Breakdown Velocity 
  
• Secret of Cooey 3
  
• QTanks 
  
• Capture the Flag
  
• Cai 3
  
  

• Super Sumo Wrestling - gets to the menu screen and plays music, but hangs
  
• Zeta (B2) - (game from the library author. Gets to the production logo and hangs before playing anything)
  

• Client writes parameters to a file called DS4QB2.DAT
  
• Client sets I/O port 0 (DMA) to a value to indicate the function
  
• Host polls port 0 and responds when the value is non-zero
  
• Host reads parameters from DS4QB2.DAT and calls an audio function
  
• Host clears port 0
  
• Guest polls port 0 and resume executing
  

• Automatically extract ZIP files into a FAT image
  
• Code to open AUTOEXEC.BAT and add a game's EXE, the mouse driver, or EMS Magic.
  

Here is a pretty basic flying simulator I made back in 2020. It has no ground map, just random hills, water, and line grid. And it doesn't show any part of the plane, just the outside. It shows the altitude and speed. I made this as an example, or a possible framework to make it better later on, or into a game. Instructions are in the title bar. There's no actual "flying simulation" to it, just basic turning, speed, and higher and lower. Start out by adding some speed with the + key (to decrease use the - key). Then use the down arrow key to go up and up arrow key to go down. The left and right arrow keys turn. And that's about it. It reminds me of 1980's games a little bit. 

'Flying - By SierraKen

'Made on May 26, 2020.

'V. 0.9 - Fixed airspeed and made hills look better.



Dim waterx(500), watery(500), shape(500), watersz(500)

Dim hillx(500), hilly(500), hshape(500), hillsz(500), hcolor(500)

Dim cloudx(500), cloudy(500), shapecl(500), cloudsz(500)

Screen _NewImage(800, 600, 32)

xs = 10

c = 0

e = 100

d = 0

For g = 1 To 20

    GoSub grid:

Next g



_Title "Down arrow goes up. Up arrow goes down. + and - number pad keys are the accelerator. Left and Right keys turn."

Do

    _Limit 2000

    a$ = InKey$



    If a$ = Chr$(0) + Chr$(72) Then d = 6: e = e + .5: b = 0 'Up arrow key flies down.

    If a$ = Chr$(0) + Chr$(80) Then d = 5: e = e - .5: b = 0 'Down arrow key flies up.

    If a$ = "+" Then d = 1: speed2 = speed2 + 10

    If a$ = "-" Then

        speed2 = speed2 - 10

    End If

    If speed2 <= 0 Then speed = 0: b = 1: d = 0

    If a$ = Chr$(0) + Chr$(77) Then d = 3: speed2 = speed2 + .2 'Right

    If a$ = Chr$(0) + Chr$(75) Then d = 4: speed2 = speed2 + .2 'Left

    If a$ = Chr$(27) Then End

    If d = 1 Then speed = speed + 2: b = 0

    If d = 3 And speed > 0 Then

        v = v - 1

        vv = vv - 2

        tilt = tilt - 2

    End If

    If d = 4 And speed > 0 Then

        v = v + 1

        vv = vv + 2

        tilt = tilt + 2

    End If

    If d = 3 And speed <= 0 Then

        v = v - 1

        vv = vv - 2

        tilt = tilt - 2

        speed = speed + 4

    End If

    If d = 4 And speed <= 0 Then

        v = v + 1

        vv = vv + 2

        tilt = tilt + 2

        speed = speed + 4

    End If

    If d = 5 Or speed2 > 0 Then speed = speed + 1: b = 0

    If d = 6 Or speed2 > 0 Then speed = speed + 1: b = 0



    If tilt > 200 Then tilt = 200

    If tilt < -200 Then tilt = -200

    If (d = 3 Or d = 4 Or d = 5 Or d = 6) And b = 0 Then speed = speed + 1

    If (d = 3 Or d = 4) And b = 1 Then speed = speed - 1

    If e > 100 Then e = 100

    If e < 0 Then e = 0

    elevation = e - 100

    elevation = -elevation

    elevation = elevation * 100

    If d <> 0 Then GoSub grid:

    If speed2 < 0 Then speed2 = 0

    If speed2 > 500 Then speed2 = 500

    delay = 2 / speed2

    If delay < .002 Then delay = .002

    If delay > .02 Then delay = .02

    _Delay delay

Loop



grid:

Cls

For bsky = 0 To 600

    Line (0, bsky)-(800, bsky), _RGB32(0, 0, bsky)

Next bsky



Line (0, 300 - e - tilt)-(800, 300 - e + tilt), _RGB32(0, 155, 0)

Paint (400, 599), _RGB32(0, 155, 0)



'Calculate Compass

tilt2 = tilt

If tilt2 < 0 Then tilt2 = -tilt2



If tilt < 0 Then c = c - tilt2 / 314

If tilt > 0 Then c = c + tilt2 / 314

If c > 359 Then c = 0

If c < 0 Then c = 359

cc = Int(c)

If cc >= 340 Or cc < 25 Then comp$ = "North"

If cc >= 25 And cc < 65 Then comp$ = "Northeast"

If cc >= 65 And cc < 115 Then comp$ = "East"

If cc >= 115 And cc < 160 Then comp$ = "Southeast"

If cc >= 160 And cc < 205 Then comp$ = "South"

If cc >= 205 And cc < 250 Then comp$ = "Southwest"

If cc >= 250 And cc < 295 Then comp$ = "West"

If cc >= 295 And cc < 340 Then comp$ = "Northwest"

_PrintMode _KeepBackground

_PrintString (390, 550), comp$

cc$ = Str$(cc)

_PrintString (395, 570), cc$



'Sun

If cc < 225 Or cc > 315 Then til = 0: GoTo nosun:

tilt3 = tilt / 50

If cc = 315 Then sunx = 800

If cc = 225 Then sunx = 0

If cc < 315 And tilt < 0 And tilt3 = oldtilt3 Then sunx = sunx - 10: til = til - tilt3

If cc > 225 And tilt > 0 And tilt3 = oldtilt3 Then sunx = sunx + 10: til = til + tilt3

oldtilt3 = tilt3

For sz = .25 To 10 Step .25

    Circle (sunx, til), sz, _RGB32(255, 255, 127)

Next sz

nosun:



'Clouds

Randomize Timer

clouds = Int(Rnd * 200) + 1

If clouds > 190 Then

    cl = cl + 1

    If cl > 100 Then cl = 1

    Randomize Timer

    cloudx(cl) = Int(Rnd * 799) + 1

    cloudy(cl) = 180

    Randomize Timer

    cloudsz(cl) = Int(Rnd * 5) + 1 + e / 1.5

    If cloudsz(cl) < 10 Then cloudsz(cl) = 10

    Randomize Timer

    shapecl(cl) = (Rnd - .4)

    If shapecl(cl) < .4 Then shapecl(cl) = .4

End If

If cl = 0 Then GoTo skipclouds2:

For cl2 = 1 To cl

    cloudy(cl2) = cloudy(cl2) - speed2 / 125

    tilt6 = tilt / 5

    If tilt6 < 0 Then tilt6 = -tilt6

    cloudy(cl2) = cloudy(cl2) + tilt6 / 10

    If cloudy(cl2) < -50 Then GoTo skipclouds:

    ttttilt = tilt / 10

    If ttttilt > 6 Then ttttilt = 6

    If ttttilt < -6 Then ttttilt = -6

    cloudx(cl2) = cloudx(cl2) + ttttilt

    If cloudx(cl2) < -50 Or cloudx(cl2) > 850 Then GoTo skipclouds:

    If cloudy(cl2) >= 175 Then ccl = 100

    If cloudy(cl2) < 175 And cloudy(cl2) >= 150 Then ccl = 125

    If cloudy(cl2) < 150 And cloudy(cl2) >= 125 Then ccl = 150

    If cloudy(cl2) < 125 And cloudy(cl2) >= 100 Then ccl = 175

    If cloudy(cl2) < 100 And cloudy(cl2) >= 75 Then ccl = 200

    If cloudy(cl2) < 75 And cloudy(cl2) >= 50 Then ccl = 225

    If cloudy(cl2) < 50 Then ccl = 255

    For sz = .25 To cloudsz(cl2) Step .25

        Circle (cloudx(cl2), cloudy(cl2)), sz, _RGB32(ccl, ccl, ccl), , , shapecl(cl2)

    Next sz

    skipclouds:

Next cl2

skipclouds2:







'Water

Randomize Timer

water = Int(Rnd * 200) + 1

If water > 197 Then

    w = w + 1

    If w > 100 Then w = 1

    Randomize Timer

    waterx(w) = Int(Rnd * 799) + 1

    watery(w) = 310

    Randomize Timer

    watersz(w) = Int(Rnd * 5) + 1 + e / 1.5

    Randomize Timer

    shape(w) = (Rnd - .35)

End If

If w = 0 Then GoTo skipwater2:

For ww = 1 To w

    watery(ww) = watery(ww) + speed2 / 125

    tilt4 = tilt / 5

    If tilt4 < 0 Then tilt4 = -tilt4

    watery(ww) = watery(ww) + tilt4 / 10

    If watery(ww) > 650 Then GoTo skipwater:

    ttilt = tilt / 10

    If ttilt > 6 Then ttilt = 6

    If ttilt < -6 Then ttilt = -6

    waterx(ww) = waterx(ww) + ttilt

    If waterx(ww) < -50 Or waterx(ww) > 850 Then GoTo skipwater:

    If Point(waterx(ww), watery(ww)) = _RGB32(0, 0, 150) Then GoTo skipwater:

    For sz = .25 To watersz(ww) Step .25

        Circle (waterx(ww), watery(ww)), sz, _RGB32(100, 100, 255), , , shape(ww)

    Next sz

    skipwater:

Next ww

skipwater2:



'Hills

Randomize Timer

hills = Int(Rnd * 200) + 1

If hills > 150 Then

    h = h + 1

    If h > 300 Then h = 1

    Randomize Timer

    hillx(h) = Int(Rnd * 799) + 1

    hilly(h) = 310

    Randomize Timer

    hillsz(h) = Int(Rnd * 5) + 1 + e / 1.5

    Randomize Timer

    hshape(h) = (Rnd - .35)

    hcolor(h) = Int(Rnd * 100) + 100

End If

If h = 0 Then GoTo skiphill2:

l = l + 1

For hh = 1 To h

    If speed2 > 0 Then hilly(hh) = hilly(hh) + speed2 / 125

    tilt5 = tilt / 5

    If tilt5 < 0 Then tilt5 = -tilt5

    hilly(hh) = hilly(hh) + tilt5 / 10

    If hilly(hh) > 650 Then GoTo skiphill:

    tttilt = tilt / 10

    If tttilt > 6 Then tttilt = 6

    If tttilt < -6 Then tttilt = -6

    hillx(hh) = hillx(hh) + tttilt

    If hillx(hh) < -50 Or hillx(hh) > 850 Then GoTo skiphill:

    If Point(hillx(hh), hilly(hh)) = _RGB32(0, 0, 150) Then GoTo skiphill:

    For sz = .25 To hillsz(hh) Step .25

        Circle (hillx(hh), hilly(hh)), sz, _RGB32(hcolor(hh), hcolor(hh) + 44, 0), 2 * _Pi, _Pi, hshape(hh)

    Next sz

    skiphill:

Next hh

skiphill2:



'Left vertical lines.

For x = 395 - e To -300 Step -xs - xx - e

    xx = xx + 55

    If v > 7 + e Then v = -7

    If v < -7 Then v = 7 + e

    If vv > 300 Then vv = 300

    If vv < -300 Then vv = -300

    For findy = 0 To 600

        If Point(x + v - vv, findy) = _RGB32(0, 155, 0) Then yy = findy: GoTo nex:

    Next findy

    nex:

    If Point(x - xx + v + vv, 600) = _RGB32(0, 0, 150) Or Point(x + v - vv, yy) = _RGB32(0, 0, 150) Then GoTo skip:

    Line (x + v - vv, yy)-(x - xx + v + vv, 600), _RGB32(255, 255, 255)

    skip:

Next x



'Right vertical lines.

For x = 405 + e To 1100 Step xs + xx2 + e

    xx2 = xx2 + 55

    If v > 7 + e Then v = -7

    If v < -7 Then v = 7 + e

    If vv > 300 Then vv = 300

    If vv < -300 Then vv = -300

    For findy = 0 To 600

        If Point(x + v - vv, findy) = _RGB32(0, 155, 0) Then yy2 = findy: GoTo nex2:

    Next findy

    nex2:

    If Point(x - xx2 + v + vv, 600) = _RGB32(0, 0, 150) Or Point(x + v - vv, yy2) = _RGB32(0, 0, 150) Then GoTo skip2:

    Line (x + v - vv, yy2)-(x + xx2 + v + vv, 600), _RGB32(255, 255, 255)

    skip2:

Next x



'Horizontal lines.

For hy = 0 To 600 Step xs + xx3 + e

    xx3 = xx3 + 5

    If speed > 7 + e Then speed = -7

    If speed < -7 Then speed = 7 + e

    For findx = 0 To 800

        If Point(findx, hy + xx3 + speed) = _RGB32(0, 155, 0) Then

            xx4 = findx

        End If

    Next findx

    For findx2 = 0 To 800

        If Point(findx2, hy + xx3 + speed) = _RGB32(0, 155, 0) Then

            xx5 = findx2

            Line (xx4, hy + xx3 + speed)-(xx5, hy + xx3 + speed), _RGB32(255, 255, 255)

            GoTo nex3:

        End If

    Next findx2

    nex3:

Next hy

_PrintMode _KeepBackground

_PrintString (250, 550), "Altitude"

elevation$ = Str$(elevation)

_PrintString (255, 570), elevation$



_PrintString (530, 550), "Airspeed"

speed2 = Int(speed2)

speed2$ = Str$(speed2)

_PrintString (535, 570), speed2$



_Display

xx = 0: xx2 = 0: xx3 = 0



Return