Holy shit, QBASIC for the 13-year-old-boy-in-me win.

[Ecrofirt]

OK, so I *just* found out about FreeBasic today, and I've been using it to compile some of my really old QBASIC programs.

I'm now going to post a few EXEs as welll as their source. I guarantee you WILL shudder at the spaghetti code and vague variable names i came up with as a 13 year old boy.

Blast from the past incoming!

[Greatness Gone]

I got a little too excited reading the title for the thread. I expected you to have captured a 13 year old boy or something.

[Ecrofirt]

I'm pretty sure this was my first full-fledged program. It was a really simple turn-based battle simulator. You're able to set your own HP and then choose your enemy. From there, the battle begins!

RPG.BAS:

Code: [Select]

ospllft = 2
omaglft = 3
maglft = 3
spllft = 2

startprog:
CLS
INPUT "Enter your HP: ", hp

IF hp > 999 THEN
CLS : PRINT "Please Enter a HP between 1 and 999"
DO UNTIL INKEY$ <> ""
LOOP
GOTO startprog
ELSEIF hp < 1 THEN
CLS : PRINT "Please Enter a HP between 1 and 999"
DO UNTIL INKEY$ <> ""
LOOP
GOTO startprog
END IF

CLS
oc:  PRINT "Select your opponent"
PRINT "   Name:       HP:"
PRINT "1) Julian      250"
PRINT "2) Belger      400"
PRINT "3) Faust       725"
PRINT "4) Septimis    999"
PRINT "5) Random Select"
PRINT
PRINT "Type the number of the opponent you wish to fight."
INPUT "what have you chosen? ", z

SELECT CASE z

CASE 1
c1: INPUT "are you sure [y/n]? ", yn$
IF yn$ = "y" THEN
op1$ = "Julian"
hp2 = 250
GOTO fight
ELSEIF yn$ = "n" THEN
CLS
GOTO oc
ELSE
PRINT "please choose again"
GOTO c1
END IF

CASE 2
c2: INPUT "are you sure [y/n]? ", yn$
IF yn$ = "y" THEN
op1$ = "Belgar"
hp2 = 400
GOTO fight
ELSEIF yn$ = "n" THEN
CLS
GOTO oc
ELSE
PRINT "please choose again"
GOTO c2
END IF

CASE 3
c3: INPUT "are you sure [y/n]? ", yn$
IF yn$ = "y" THEN
op1$ = "Faust"
hp2 = 725
GOTO fight
ELSEIF yn$ = "n" THEN
CLS
GOTO oc
ELSE
PRINT "please choose again"
GOTO c3
END IF

CASE 4
c4: INPUT "are you sure [y/n]? ", yn$
IF yn$ = "y" THEN
op1$ = "Septimis"
hp2 = 999
GOTO fight
ELSEIF yn$ = "n" THEN
CLS
GOTO oc
ELSE
PRINT "please choose again"
GOTO c4
END IF

CASE 5
c5: INPUT "are you sure you want to Randomly choose [y/n]? ", yn$
IF yn$ = "y" THEN
GOTO Rop
ELSEIF yn$ = "Y" THEN
GOTO Rop
ELSEIF yn$ = "n" THEN
CLS
GOTO oc
ELSEIF yn$ = "N" THEN
CLS
GOTO oc
ELSE
PRINT "please choose again"
GOTO c5
END IF

CASE ELSE
CLS
PRINT "Please choose a valid name."
GOTO oc
END SELECT







Rop:
RANDOMIZE TIMER
q% = INT(RND * 4) + 1
e% = INT(RND * 10)
IF q% = 1 THEN
op1$ = "Julian"
hp2 = 200
PRINT
PRINT "Your opponent is "; op1$
GOTO fight
ELSEIF q% = 2 THEN
op1$ = "Belgar"
hp2 = 350
PRINT
PRINT "Your opponent is "; op1$
GOTO fight
ELSEIF q% = 3 THEN
op1$ = "Faust"
hp2 = 675
PRINT
PRINT "Your opponent is "; op1$
GOTO fight
ELSEIF q% = 4 THEN
op1$ = "Septimis"
hp2 = 900
PRINT
PRINT "Your opponent is "; op1$
GOTO fight
END IF





fight:

INPUT "Now pick either 1 or 2 to see who goes first: ", n1



number: IF n1 = 1 THEN
GOTO dr
ELSEIF n1 = 2 THEN
GOTO dr
ELSE
PRINT "Please select either 1 or 2."
INPUT n1
GOTO number
END IF



dr: RANDOMIZE TIMER
f% = INT(RND * 2) + 1
e% = INT(RND * 2) + 1

IF f% = n1 THEN
CLS
PRINT "you win! you go get to go first."
DO UNTIL INKEY$ <> ""
LOOP
GOTO mm
ELSE
CLS
PRINT "you lost. The opponent goes first."
DO UNTIL INKEY$ <> ""
LOOP
GOTO om
END IF

mm:
CLS
PRINT
PRINT "Your attack choices:"
PRINT "1) Normal Attack"
PRINT "2) Magic Attack"
PRINT "3) Special Attack"
PRINT "4) Final Attack"
INPUT "Please only enter the number of the attack: ", a$

SELECT CASE a$
CASE "1"
RANDOMIZE TIMER
a% = INT(RND * 50)
e% = INT(RND * 1)
hp2 = hp2 - a%
IF hp2 > 0 THEN
CLS
PRINT
PRINT "You did a normal attack! You took "
PRINT a%; "HP off of "; op1$; "'s total HP. "
PRINT op1$; "'s total HP is now"; hp2; "."
DO UNTIL INKEY$ <> ""
LOOP
ELSE
CLS
LOCATE 1, 1
CLS
PRINT "You defeated "; op1$
END
END IF

CASE "2"
RANDOMIZE TIMER
a% = INT(RND * 75)
e% = INT(RND * 1)
maglft = maglft - 1
IF maglft < 0 THEN
GOTO nomoreatk
ELSE
END IF
hp2 = hp2 - a%
IF hp2 > 0 THEN
CLS
PRINT
PRINT "You did a magic attack! You took "
PRINT a%; "HP off of "; op1$; "'s total HP. "
PRINT op1$; "'s total HP is now"; hp2; "."
DO UNTIL INKEY$ <> ""
LOOP
ELSE
CLS
LOCATE 1, 1
CLS
PRINT "You defeated "; op1$
END
END IF

CASE "3"
RANDOMIZE TIMER
a% = INT(RND * 100)
e% = INT(RND * 1)
spllft = spllft - 1
IF spllft < 0 THEN
GOTO nomoreatk
ELSE
END IF
hp2 = hp2 - a%
IF hp2 > 0 THEN
CLS
PRINT
PRINT "You did a special attack! You took "
PRINT a%; "HP off of "; op1$; "'s total HP. "
PRINT op1$; "'s total HP is now"; hp2; "."
DO UNTIL INKEY$ <> ""
LOOP
ELSE
CLS
LOCATE 1, 1
CLS
PRINT "You defeated "; op1$
END
END IF

CASE "4"
RANDOMIZE TIMER
a% = INT(RND * 400) + 50
e% = INT(RND * 1)
hp2 = hp2 - a%
IF hp2 > 0 THEN
CLS
PRINT
PRINT "You did your final attack! You took "
PRINT a%; "HP off of "; op1$; "'s total HP. "
PRINT op1$; "'s total HP is now"; hp2; "."
PRINT
COLOR 4
PRINT "You were not powerful enough to defeat your opponent."
PRINT "You have lost."
END
ELSE
CLS
LOCATE 1, 1
CLS
PRINT "You defeated "; op1$
END
END IF

CASE ELSE
CLS
GOTO mm
END SELECT

om:
RANDOMIZE TIMER
z% = INT(RND * 3) + 1
e% = INT(RND * 1)

IF z% = 1 THEN
GOTO omn
ELSEIF z% = 2 THEN
GOTO omm
ELSE
GOTO oms
END IF


omn:
RANDOMIZE TIMER
x% = INT(RND * 50)
e% = INT(RND * 1)
hp = hp - x%

IF hp > 0 THEN
CLS
PRINT
PRINT op1$; " did a normal attack. He reduced your HP by"; x%; "."
PRINT "Your total HP is"; hp; "."
DO UNTIL INKEY$ <> ""
LOOP
ELSEIF hp < 1 THEN
CLS
COLOR 4
PRINT "You have died."
END
END IF
WHILE hp > 0
GOTO mm
WEND

omm:
RANDOMIZE TIMER
x% = INT(RND * 75)
e% = INT(RND * 1)
hp = hp - x%
omaglft = omaglft - 1
IF omaglft < 0 THEN
GOTO om
ELSE
END IF

IF hp > 0 THEN
CLS
PRINT
PRINT op1$; " did a magic attack. He reduced your HP by"; x%; "."
PRINT "Your total HP is"; hp; "."
DO UNTIL INKEY$ <> ""
LOOP
ELSEIF hp < 1 THEN
CLS
COLOR 4
PRINT "You have died."
END
END IF
WHILE hp > 0
GOTO mm
WEND

oms:
RANDOMIZE TIMER
x% = INT(RND * 100)
e% = INT(RND * 1)
ospllft = ospllft - 1
IF ospllft < 0 THEN
GOTO om
ELSE
END IF
hp = hp - x%
IF hp > 0 THEN
CLS
PRINT
PRINT op1$; " did a special attack. He reduced your HP by"; x%; "."
PRINT "Your total HP is"; hp; "."
DO UNTIL INKEY$ <> ""
LOOP
ELSEIF hp < 1 THEN
CLS
COLOR 4
PRINT "You have died."
END
END IF
WHILE hp > 0
GOTO mm
WEND

nomoreatk:
CLS
PRINT "You have used the maximum number of this attack."
DO UNTIL INKEY$ <> ""
LOOP
GOTO mm

Here it is, compiled to EXE:
http://www.mediafire.com/?sharekey=7114d29ba17f48e5d2db6fb9a8902bda

[Madrun Badrun]

 

Amazing game.  I typed 700, 1, y, and got the reply that I lost.   

[Ecrofirt]

I think it probably just told you that you lost and the opponent would attack first

[Madrun Badrun]

pawned by 13 yearold Ecro


though now when I tried to do my final attack it just killed command prompt. 

[Ecrofirt]

Here's one from a bit further into my QBASIC programming.

It's a BREAKOUT clone. Not incredibly good, but it certainly works!
BREAKOUT.BAS:

Code: [Select]

DIM Row1x(10), Row1y(10), Row2x(10), Row2y(10), Row3x(10), Row3y(10), Row4x(10), Row4y(10)
DIM Row1hit(10), Row2hit(10), Row3hit(10), Row4hit(10)
SCREEN 12

LINE (0, 0)-(640, 480), 0, BF ' Clears the background

RANDOMIZE TIMER             '
Ballx = INT(RND * 600) + 10  ' Randomizes the X location and angle
xAng = INT(RND * 2)           '

BallyAng = 1 ' Sets the Y angle
Bally = 165 'Sets ball location on Y axis
Padx = 280 'Sets Pad Location on X axis
Pady = 420 ' Sets Pad location on Y axis

IF xAng = 0 THEN '
BallxAng = -1    'This decides if the ball will move left or
ELSE             'right based on the randomized xAng value.
BallxAng = 1     '
END IF           '

x = 10 'Sets the initial X value for the blocks


FOR i = 1 TO 10  'Begis a FOR loop for the X and Y values of the blocks

 Row1x(i) = x 'Sets the X value of the blocks.
 Row2x(i) = x 'this changes with each block, so
 Row3x(i) = x 'it goes by a changing X value
 Row4x(i) = x '

  Row1y(i) = 80  ' Sets the Y value for the blocks.
  Row2y(i) = 97  ' Since it will be the same each time,
  Row3y(i) = 114 ' it equals a constant number.
  Row4y(i) = 131 '

   Row1hit(i) = 0
   Row2hit(i) = 0
   Row3hit(i) = 0
   Row4hit(i) = 0

    x = x + 62 ' Adds 62 to the X value

NEXT i ' Continues the loop


LINE (Ballx, Bally)-(Ballx + 15, Bally + 15), 1, BF 'Initally draws the ball
LINE (Padx, Pady)-(Padx + 60, Pady + 15), 4, BF 'Initally draws the paddle


FOR i = 1 TO 10 'Begin the FOR loop to draw the blocks

 LINE (Row1x(i), Row1y(i))-(Row1x(i) + 60, Row1y(i) + 15), 10, BF ' This
 LINE (Row2x(i), Row2y(i))-(Row2x(i) + 60, Row2y(i) + 15), 1, BF  ' draws
 LINE (Row3x(i), Row3y(i))-(Row3x(i) + 60, Row3y(i) + 15), 4, BF  ' the
 LINE (Row4x(i), Row4y(i))-(Row4x(i) + 60, Row4y(i) + 15), 8, BF  ' boxes

NEXT i 'Continues the loop



DO  'Begins the DO LOOP for the heart of the program.

press$ = INKEY$ 'This sets the key pressed to INKEY$. It's Faster than INKEY$

LINE (Ballx, Bally)-(Ballx + 15, Bally + 15), 1, BF 'Draws the Ball

WAIT &H3DA, 8 'Suspends the program a bit.

LINE (Ballx, Bally)-(Ballx + 15, Bally + 15), 0, BF ' Draws a black area where the ball used to be

Ballx = Ballx + BallxAng 'Sets the new values for the
Bally = Bally + BallyAng 'X and Y location of the ball.

LINE (Ballx, Bally)-(Ballx + 15, Bally + 15), 1, BF 'Draws the ball at the new location


IF press$ = CHR$(0) + CHR$(75) AND Padx > 0 THEN '  Moves the paddle left if
 LINE (Padx, Pady)-(Padx + 60, Pady + 15), 0, BF  ' the left arrow is pressed
  Padx = Padx - 10                                 ' and stops the movement
   LINE (Padx, Pady)-(Padx + 60, Pady + 15), 4, BF  'at the screen border.

ELSEIF press$ = CHR$(0) + CHR$(77) AND Padx < 580 THEN 'Moves the paddle
 LINE (Padx, Pady)-(Padx + 60, Pady + 15), 0, BF       'right if right arrow
  Padx = Padx + 10                                     'is pressed, and stops
   LINE (Padx, Pady)-(Padx + 60, Pady + 15), 4, BF     'movement at the border

ELSEIF press$ = CHR$(13) THEN
 END

END IF ' Ends the IF block


IF Ballx >= Padx - 15 AND Ballx <= Padx + 60 AND Bally = Pady - 16 THEN
 BallyAng = -1
ELSEIF Ballx = 625 THEN
 BallxAng = BallxAng - 1
ELSEIF Ballx = 0 THEN
 BallxAng = BallxAng + 1
END IF

FOR i = 1 TO 10
IF Ballx >= Row1x(i) - 15 AND Ballx < Row1x(i) + 60 AND Bally = Row1y(i) + 15 AND Row1hit(i) < 1 THEN
 Row1hit(i) = Row1hit(i) + 1
  BallyAng = 1

ELSEIF Ballx >= Row2x(i) - 15 AND Ballx < Row2x(i) + 60 AND Bally = Row2y(i) + 15 AND Row2hit(i) < 1 THEN
  Row2hit(i) = 1
   LINE (Row2x(i), Row2y(i))-(Row2x(i) + 60, Row2y(i) + 15), 0, BF
    BallyAng = 1

ELSEIF Ballx >= Row3x(i) - 15 AND Ballx < Row3x(i) + 60 AND Bally = Row3y(i) + 15 AND Row3hit(i) < 1 THEN
  Row3hit(i) = 1
   LINE (Row3x(i), Row3y(i))-(Row3x(i) + 60, Row3y(i) + 15), 0, BF
    BallyAng = 1

ELSEIF Ballx >= Row4x(i) - 15 AND Ballx < Row4x(i) + 60 AND Bally = Row4y(i) + 15 AND Row4hit(i) < 1 THEN
  Row4hit(i) = 1
   LINE (Row4x(i), Row4y(i))-(Row4x(i) + 60, Row4y(i) + 15), 0, BF
    BallyAng = 1

ELSEIF Ballx >= Row1x(i) - 15 AND Ballx < Row1x(i) + 60 AND Bally = Row1y(i) + 15 AND Row1hit(i) = 1 THEN
  Row1hit(i) = 2
   LINE (Row1x(i), Row1y(i))-(Row1x(i) + 60, Row1y(i) + 15), 0, BF
    BallyAng = 1
END IF
NEXT i


LOOP

http://www.mediafire.com/file/znmzmeznkxg/breakout.zip

Note: Apparently you have to press ENTER to quit this program!

[Ecrofirt]

Here's a better breakout clone that I made. It differing bounce angles based on where the ball hits the paddle, and it correctly exits the game if you lose.

Unfortunately, it doesn't know to quit or reset when you win.

BRKOUT2.BAS:

Code: [Select]



DECLARE SUB EndGame (score)
DECLARE SUB BeginningMoves (BeginTime#, Padx, Pady)


COMMON SHARED BeginTime#, Padx, Pady, score


DIM Row1x(10), Row1y(10), Row2x(10), Row2y(10), Row3x(10), Row3y(10), Row4x(10), Row4y(10)
DIM Row1hit(10), Row2hit(10), Row3hit(10), Row4hit(10)
SCREEN 7, 0, 1, 0


LINE (0, 0)-(320, 200), 0, BF ' Clears the background
LINE (0, 18)-(319, 199), 5, B


RANDOMIZE TIMER             '
Ballx = INT(RND * 300) + 10  ' Randomizes the X location and angle
xAng = INT(RND * 2)           '


BallyAng = 2 ' Sets the Y angle
Bally = 60 'Sets ball location on Y axis
Padx = 140 'Sets Pad Location on X axis
Pady = 190 ' Sets Pad location on Y axis
BeginTime# = TIMER


IF xAng = 0 THEN '
 BallxAng = -2    'This decides if the ball will move left or

ELSE             'right based on the randomized xAng value.
 BallxAng = 2     '
END IF           '



x = 5 'Sets the initial X value for the blocks


FOR i = 1 TO 10  'Begins a FOR loop for the X and Y values of the blocks

 Row1x(i) = x 'Sets the X value of the blocks.
 Row2x(i) = x 'this changes with each block, so
 Row3x(i) = x 'it goes by a changing X value
 Row4x(i) = x '

  Row1y(i) = 20  ' Sets the Y value for the blocks.
  Row2y(i) = 28  ' Since it will be the same each time,
  Row3y(i) = 36 ' it equals a constant number.
  Row4y(i) = 44 '

   Row1hit(i) = 0
   Row2hit(i) = 0
   Row3hit(i) = 0
   Row4hit(i) = 0

    x = x + 31 ' Adds 32 to the X value

NEXT i ' Continues the loop


LINE (Ballx, Bally)-(Ballx + 8, Bally + 6), 1, BF 'Initally draws the ball
LINE (Padx, Pady)-(Padx + 30, Pady + 6), 4, BF 'Initally draws the paddle


FOR i = 1 TO 10 'Begin the FOR loop to draw the blocks

 LINE (Row1x(i), Row1y(i))-(Row1x(i) + 29, Row1y(i) + 6), 10, BF ' This
 LINE (Row2x(i), Row2y(i))-(Row2x(i) + 29, Row2y(i) + 6), 1, BF  ' draws
 LINE (Row3x(i), Row3y(i))-(Row3x(i) + 29, Row3y(i) + 6), 4, BF  ' the
 LINE (Row4x(i), Row4y(i))-(Row4x(i) + 29, Row4y(i) + 6), 8, BF  ' boxes

NEXT i 'Continues the loop






CALL BeginningMoves(BeginTime#, Padx, Pady)


PCOPY 1, 0


DO  'Begins the DO LOOP for the heart of the program.



 press$ = INKEY$ 'This sets the key pressed to INKEY$. It's Faster than INKEY$


 LINE (Ballx, Bally)-(Ballx + 8, Bally + 6), 1, BF 'Draws the Ball
 LINE (0, 18)-(319, 199), 5, B



WAIT &H3DA, 8



 LINE (Ballx, Bally)-(Ballx + 8, Bally + 6), 0, BF ' Draws a black area where the ball used to be


 Ballx = Ballx + BallxAng    'Sets the new values for the
 Bally = Bally + BallyAng    'X and Y location of the ball.
 

 IF press$ = CHR$(0) + CHR$(75) AND Padx >= 2 THEN      'Moves the paddle left if
     LINE (Padx, Pady)-(Padx + 30, Pady + 6), 0, BF     'the left arrow is pressed
     Padx = Padx - 10                                   'and stops the movement
     IF Padx < 2 THEN Padx = 2                          'at the screen border.

 ELSEIF press$ = CHR$(0) + CHR$(77) AND Padx < 287 THEN 'Moves the paddle
     LINE (Padx, Pady)-(Padx + 30, Pady + 6), 0, BF     'right if right arrow
     Padx = Padx + 10                                   'is pressed, and stops
     IF Padx > 286 THEN Padx = 287                      'movement at the border

 ELSEIF press$ = "q" THEN                               'Quickly quits the program
  END                                                   'if the user presses q

 END IF ' Ends the IF block
 


'This is all for paddle collision

IF Ballx >= Padx - 8 AND Ballx <= Padx + 30 AND Bally >= Pady - 9 THEN
 Bally = Pady - 9

 SELECT CASE Ballx               '
                                 '
  CASE Padx - 8 TO Padx - 2      ' this sets a new rebound angle
     BallxAng = -3               ' based on where the ball hit
     BallyAng = -1               ' the paddle
                                 '
                                 '
                                 '
   CASE Padx - 2 TO Padx + 4     '
     BallxAng = -2               '
     BallyAng = -2               '
                                 '
                                 '
                                 '
   CASE Padx + 4 TO Padx + 11    '
     BallxAng = -1               '
     BallyAng = -2               '
                                 '
                                 '
                                 '
   CASE Padx + 11 TO Padx + 18   '
     BallxAng = 1                '
     BallyAng = -2               '
                                 '
                                 '
                                 '
   CASE Padx + 18 TO Padx + 24   '
     BallxAng = 2                '
     BallyAng = -2               '
                                 '
                                 '
                                 '
   CASE Padx + 24 TO Padx + 30   '
     BallxAng = 3                '
     BallyAng = -1               '
                                 '
 END SELECT                      '



ELSEIF Ballx >= 310 AND BallxAng > 0 THEN         '
 Ballx = 310                                      '
 BallxAng = -BallxAng                             '
  LINE (0, 18)-(319, 199), 5, B                   '
   PCOPY 1, 0                                     '
                                                  '
ELSEIF Ballx <= 2 AND BallxAng < 0 THEN           '
 Ballx = 2                                        'Routine for checking if the
 BallxAng = -BallxAng                             'ball has hit any border.
  LINE (0, 18)-(319, 199), 5, B                   '
   PCOPY 1, 0                                     '
                                                  '
ELSEIF Bally > 200 THEN                           '
 CALL EndGame(score)                              '
                                                  '
ELSEIF Bally <= 20 THEN                           '
 BallyAng = BallyAng + 2                          '
                                                  '
END IF                                            '


 




FOR i = 1 TO 10





'Highest block events



IF Ballx >= Row1x(i) - 8 AND Ballx < Row1x(i) + 31 AND Bally = Row1y(i) + 8 AND Row1hit(i) < 1 THEN 'If the ball hits the bottom of the block
    IF BallxAng > 0 THEN
      BallxAng = 2
     ELSE
      BallxAng = -2
     END IF
 Row1hit(i) = Row1hit(i) + 1
  BallyAng = 2

ELSEIF Ballx + 9 >= Row1x(i) AND Ballx <= Row1x(i) + 31 AND Bally >= Row1y(i) - 7 AND Bally <= Row1y(i) + 8 AND Row1hit(i) < 1 THEN
 Row1hit(i) = Row1hit(i) + 1
  BallyAng = 2
   BallxAng = -BallxAng

ELSEIF Ballx >= Row1x(i) - 8 AND Ballx < Row1x(i) + 31 AND Bally = Row1y(i) + 8 AND Row1hit(i) = 1 THEN
    IF BallxAng > 0 THEN
      BallxAng = 2
     ELSE
      BallxAng = -2
     END IF
  Row1hit(i) = 2
   LINE (Row1x(i), Row1y(i))-(Row1x(i) + 30, Row1y(i) + 6), 0, BF
    BallyAng = 2
     score = score + 8
      LOCATE 1
       PRINT "Score:"; score

ELSEIF Ballx + 9 >= Row1x(i) AND Ballx <= Row1x(i) + 31 AND Bally >= Row1y(i) - 7 AND Bally <= Row1y(i) + 8 AND Row1hit(i) = 1 THEN
  Row1hit(i) = 2
   LINE (Row1x(i), Row1y(i))-(Row1x(i) + 30, Row1y(i) + 6), 0, BF
    BallyAng = 2
     BallxAng = -BallxAng
      score = score + 8
       LOCATE 1
        PRINT "Score:"; score


'Second Highest block events


ELSEIF Ballx >= Row2x(i) - 8 AND Ballx < Row2x(i) + 31 AND Bally = Row2y(i) + 8 AND Row2hit(i) < 1 THEN
    IF BallxAng > 0 THEN
      BallxAng = 2
     ELSE
      BallxAng = -2
     END IF
  Row2hit(i) = 1
   LINE (Row2x(i), Row2y(i))-(Row2x(i) + 30, Row2y(i) + 6), 0, BF
    BallyAng = 2
     score = score + 4
      LOCATE 1
       PRINT "Score:"; score

ELSEIF Ballx + 9 >= Row2x(i) AND Ballx <= Row2x(i) + 31 AND Bally >= Row2y(i) - 7 AND Bally <= Row2y(i) + 8 AND Row2hit(i) < 1 THEN
  Row2hit(i) = 1
   LINE (Row2x(i), Row2y(i))-(Row2x(i) + 30, Row2y(i) + 6), 0, BF
    BallyAng = 2
     BallxAng = -BallxAng
      score = score + 4
       LOCATE 1
        PRINT "Score:"; score

'Second lowest block events


ELSEIF Ballx >= Row3x(i) - 8 AND Ballx < Row3x(i) + 31 AND Bally = Row3y(i) + 8 AND Row3hit(i) < 1 THEN
    IF BallxAng > 0 THEN
      BallxAng = 2
     ELSE
      BallxAng = -2
     END IF
  Row3hit(i) = 1
   LINE (Row3x(i), Row3y(i))-(Row3x(i) + 30, Row3y(i) + 6), 0, BF
    BallyAng = 2
     score = score + 2
      LOCATE 1
       PRINT "Score:"; score

ELSEIF Ballx + 9 >= Row3x(i) AND Ballx <= Row3x(i) + 31 AND Bally >= Row3y(i) - 7 AND Bally <= Row3y(i) + 8 AND Row3hit(i) < 1 THEN
  Row3hit(i) = 1
   LINE (Row3x(i), Row3y(i))-(Row3x(i) + 30, Row3y(i) + 6), 0, BF
    BallyAng = 2
     BallxAng = -BallxAng
      score = score + 2
       LOCATE 1
        PRINT "Score:"; score


' Bottom block events



ELSEIF Ballx >= Row4x(i) - 8 AND Ballx < Row4x(i) + 31 AND Bally = Row4y(i) + 8 AND Row4hit(i) < 1 THEN
    IF BallxAng > 0 THEN
      BallxAng = 2
     ELSE
      BallxAng = -2
     END IF
  Row4hit(i) = 1
   LINE (Row4x(i), Row4y(i))-(Row4x(i) + 30, Row4y(i) + 6), 0, BF
    BallyAng = 2
     score = score + 1
      LOCATE 1
       PRINT "Score:"; score


ELSEIF Ballx + 9 >= Row4x(i) AND Ballx <= Row4x(i) + 31 AND Bally >= Row4y(i) - 7 AND Bally <= Row4y(i) + 8 AND Row4hit(i) < 1 THEN
  Row4hit(i) = 1
   LINE (Row4x(i), Row4y(i))-(Row4x(i) + 30, Row4y(i) + 6), 0, BF
    BallyAng = 2
     BallxAng = -BallxAng
      score = score + 1
       LOCATE 1
        PRINT "Score:"; score



END IF
NEXT i


 LINE (Ballx, Bally)-(Ballx + 8, Bally + 6), 1, BF 'Draws the ball at the new location
 LINE (Padx, Pady)-(Padx + 30, Pady + 6), 4, BF    'Draws the paddle at the new location

WAIT &H3DA, 8

PCOPY 1, 0

LOOP

SUB BeginningMoves (BeginTime#, Padx, Pady)


BeginTime# = TIMER
x = 5
DO
press$ = INKEY$
CurTime# = TIMER


IF CurTime# >= BeginTime + 0 AND CurTime# < BeginTime# + 1 THEN
LOCATE 10, 15
PRINT "Get Ready!"
LOCATE 11, 19
PRINT "0" + "5"
x = 4
ELSEIF CurTime# >= BeginTime + 1 AND CurTime# < BeginTime# + 2 THEN
LOCATE 10, 15
PRINT "Get Ready!"
LOCATE 11, 19
PRINT "0" + "4"
x = 3
ELSEIF CurTime# >= BeginTime + 2 AND CurTime# < BeginTime# + 3 THEN
LOCATE 10, 15
PRINT "Get Ready!"
LOCATE 11, 19
PRINT "0" + "3"
x = 2
ELSEIF CurTime# >= BeginTime + 3 AND CurTime# < BeginTime# + 4 THEN
LOCATE 10, 15
PRINT "Get Ready!"
LOCATE 11, 19
PRINT "0" + "2"
x = 1
ELSEIF CurTime# >= BeginTime + 4 AND CurTime# < BeginTime# + 5 THEN
LOCATE 10, 15
PRINT "Get Ready!"
LOCATE 11, 19
PRINT "0" + "1"
x = 0
ELSEIF CurTime# >= BeginTime + 5 AND CurTime# < BeginTime# + 6 THEN
LOCATE 10, 15
PRINT "Get Ready!"
LOCATE 11, 19
PRINT "0" + "0"
x = -1

ELSEIF CurTime# >= BeginTime + 6 AND CurTime# < BeginTime# + 7 THEN
LINE (100, 70)-(200, 100), 0, BF
x = -2
ELSE
END IF

 IF press$ = CHR$(0) + CHR$(75) AND Padx >= 5 THEN '  Moves the paddle left if
  LINE (Padx, Pady)-(Padx + 30, Pady + 6), 0, BF  ' the left arrow is pressed
   Padx = Padx - 10                                 ' and stops the movement
    LINE (Padx, Pady)-(Padx + 30, Pady + 6), 4, BF  'at the screen border.
     LINE (0, 18)-(319, 199), 5, B

 ELSEIF press$ = CHR$(0) + CHR$(77) AND Padx < 290 THEN 'Moves the paddle
  LINE (Padx, Pady)-(Padx + 30, Pady + 6), 0, BF        'right if right arrow
   Padx = Padx + 10                                     'is pressed, and stops
    LINE (Padx, Pady)-(Padx + 30, Pady + 6), 4, BF      'movement at the border
     LINE (0, 18)-(319, 199), 5, B

 ELSEIF press$ = "q" THEN
  END

 END IF

PCOPY 1, 0
LOOP UNTIL x = -2


END SUB

SUB EndGame (score)
CLS
PRINT "YOU SUCK."
PCOPY 1, 0
DO WHILE INKEY$ = ""
LOOP
END
END SUB

http://www.mediafire.com/file/mjkjkowwoez/brkout2.zip

You can see I'm getting a *little* bit better at this point.

[Ecrofirt]

Code: [Select]

Here's a cute program I made for Nikki when I was 16 or so.

It's a rather simple approximation of an Etch-a-Sketch. I had a blast with this as a kid.

COLORS.BAS:
[code]

'********************
'IF YOU DECIDE TO PRESS 7, 3, 1, OR 9 TO MOVE
'THE PIXEL DIAGONALLY, YOU MUST HAVE NUMBER LOCK ON!
'********************




start:           '***START OF PROGRAM***

'***SET VARIABLES FOR COLOR, X VALUE, AND Y VALUE

SCREEN 13      'Sets Screen Mode to 13  (320 x 200 pixels)
x = 160          'Pixel location on the X axis
y = 90         'Pixel location on the Y axis
colour = 0       'COLOR value (black).

'***SCREEN LAYOUT

LINE (0, 0)-(320, 200), 4, BF         'Colors the entire screen Red
LINE (20, 20)-(300, 160), 7, BF     'Colors an inside portion of the screen White (appears gray)
LINE (19, 19)-(301, 161), 0, B        'Sets a black line around the White
CIRCLE (60, 180), 16, 0             'Puts a Black circle on the bottom of the screen (left side).
PAINT (60, 180), 15, 0                'Fills the circle with Bright White
CIRCLE (260, 180), 16, 0            'Puts a Black circle on the bottom of the screen (right side).
PAINT (260, 180), 15, 0               'Fills the circle with Bright White



'***KEYPRESS LOOP!



DO    'BEGIN LOOP
z$ = INKEY$      'Sets z$ to equal INKEY$. On a key pass, z$ is picked up easier



'!!!***CLIPPING STOPS THE PIXEL FROM MOVING ANY FURTHER IN A GIVEN DIRECTION
'
' "IF x < 300 THEN" = IF THE X PIXEL LOCATION IS LESS THAN 300 THEN... - CLIPPING
' "IF x > 20 THEN" = IF THE X PIXEL LOCATION IS GREATER THAN 20 THEN... - CLIPPING
' "IF y > 20 THEN" = IF THE Y PIXEL LOCATION IS GREATER THAN 20 THEN... - CLIPPING
' "IF y < 160 THEN" = IF THE Y PIXEL LOCATION IS LESS THAN 160 THEN... - CLIPPING



IF z$ = CHR$(0) + CHR$(77) THEN IF x < 300 THEN x = x + 1    'Do ... if the right arrow key (keypad or number pad) is pressed
IF z$ = CHR$(0) + CHR$(75) THEN IF x > 20 THEN x = x - 1   'Do ... if the left arrow key (keypad or number pad) is pressed
IF z$ = CHR$(0) + CHR$(72) THEN IF y > 20 THEN y = y - 1     ' Do ... if the up arrow key (keypad or number pad) is pressed
IF z$ = CHR$(0) + CHR$(80) THEN IF y < 160 THEN y = y + 1  'Do ... if the down arrow key (keypad or number pad) is pressed


'IF 7,3,1, OR 9 IS TO BE PRESSED, NUMBER LOCK ***MUST*** BE ON!


IF z$ = "9" THEN IF x < 300 THEN IF y > 20 THEN x = x + 1: y = y - 1    'Do ... if 9 (number pad) is pressed
IF z$ = "7" THEN IF x > 20 THEN IF y > 20 THEN x = x - 1: y = y - 1       'Do ... if 7 (number pad) is pressed
IF z$ = "3" THEN IF x < 300 THEN IF y < 160 THEN x = x + 1: y = y + 1   'Do ... if 3 (number pad) is pressed
IF z$ = "1" THEN IF x > 20 THEN IF y < 160 THEN x = x - 1: y = y + 1      'Do ... if 1 (number pad) is pressed
IF z$ = "6" THEN IF x < 300 THEN z = x: z1 = y:  x = x + 1              'Do ... if 6 (number pad) is pressed
IF z$ = "4" THEN IF x > 20 THEN z = x: z1 = y:  x = x - 1                 'Do ... if 4 (number pad) is pressed
IF z$ = "8" THEN IF y > 20 THEN z = x: z1 = y: y = y - 1                'Do ... if 8 (number pad) is pressed
IF z$ = "2" THEN IF y < 160 THEN z = x: z1 = y: y = y + 1                 'Do ... if 2 (number pad) is pressed

PSET (x, y), 0   'Puts a Black pixel on the screen at the x,y location
LOOP UNTIL z$ = CHR$(27) OR z$ = CHR$(13)  'Continue loop until Escape or Enter are pressed




WHILE z$ = CHR$(13) 'If enter is pressed, go back to the start (clears the screen)
GOTO start          '  ^     ^     ^
WEND                ' ^ ^   ^ ^   ^ ^

'IF ESCAPE WAS PRESSED, THE PROGRAM ENDS!

[code[/code]

http://www.mediafire.com/file/jmtmdkozyze/colors.zip

If you turn NUMLOCK on you can use the keypad to move in 8 directions. Otherwise, use the arrow keys to move up, down, left, and right.

[Ecrofirt]

These next two programs are some of my favorites.

The first one here is an underwater screensaver thing that I would have loved to set up as an actual screensaver on my PC back in the day.

BUBBLES2.BAS:

Code: [Select]

COMMON SHARED t, WeedRight, WeedPos, xbg(), ybg(), xbgang(), ybgang()  'Here are the
                             'variables to be shared among the SUBs







DECLARE SUB PaintBG () ' This is a SUB program
DECLARE SUB BubsBG (t, xbg(), ybg(), xbgang(), ybgang()) 'This is too.
DECLARE SUB MidBubs (s, xmid(), ymid(), xmidang(), ymidang()) 'This is too.



DIM SHARED x(100), y(100), xang(100), yang(100), xbg(500), ybg(500), xbgang(500), ybgang(500), xmid(50), ymid(50), xmidang(50), ymidang(50)' The Shared arrays

SCREEN 7, 0, 1, 0 'Sets the screen mode:
'(Things are drawn on page 1, but page 0 is visible)



FOR i = 1 TO 100           '  This stores the X, and Y values for the
x(i) = INT(RND * 320) + 1   '  big bubbles. It also stores the angles
y(i) = 200                   '  that bubbles move on the X and Y axis.
xang(i) = INT(RND * -9) + 5   '  (xang and yang)
yang(i) = INT(RND * -200) + 1  '
NEXT                            '


FOR q = 1 TO 500              '  This stores the X and Y values for the
xbg(q) = INT(RND * 320 + 1)    '  smallest bubbles. Is also stores the
ybg(q) = 160                    '  angles that the bubbles move on the X
xbgang(q) = INT(RND * -3) + 2    '  and Y axis. (xbgang and ybgang)
ybgang(q) = INT(RND * -200) + 1   '
NEXT

FOR q = 1 TO 50              '  This stores the X and Y values for the
xmid(q) = INT(RND * 320 + 1)    '  mid-sized bubbles. Is also stores the
ymid(q) = 180                    '  angles that the bubbles move on the X
xmidang(q) = INT(RND * -3) + 2    '  and Y axis. (xmidang and ymidang)
ymidang(q) = INT(RND * -200) + 1   '
NEXT



BigBubbles = 100  'The number of big bubbles
SmallBubbles = 500 'the number of small bubbles
MidBubbles = 50 'the number of mid-sized bubbles
WeedRight = 1


DO             'Starts the Loop for moving the bubbles.
WAIT &H3DA, 8
CALL PaintBG   'Calls the SUB that makes the background look pretty.

FOR z = 1 TO BigBubbles  'Begins the FOR NEXT loop for the Big bubbles


IF x(z) > 320 THEN x(z) = INT(RND * 320) + 1: xang(z) = INT(RND * -3) + 2  ' These move the bubbles
IF x(z) < 0 THEN x(z) = INT(RND * 320) + 1: xang(z) = INT(RND * -3) + 2    ' to the bottom of the screen
IF y(z) > 200 THEN y(z) = 200: yang(z) = INT(RND * -8) + 1                 ' if they reach the top.
IF y(z) < 0 THEN y(z) = 200: yang(z) = INT(RND * -8) + 1                   '


x(z) = x(z) + xang(z) 'This sets the new X and Y values
y(z) = y(z) + yang(z) '

xang(z) = INT(RND * -9) + 5 'Randomizes the angle at which
yang(z) = INT(RND * -8) + 1 'the bubbles will move.


CIRCLE (x(z), y(z)), 7, 15  'Draws the big circle for the bubble
CIRCLE (x(z) - 2, y(z) - 2), 1, 15 'Draws the little graphic for the bubble



NEXT 'Ends the FOR NEXT loop for the big bubbles



FOR t = 1 TO SmallBubbles 'Begins the For Next loop for the Small bubbles

CALL BubsBG(t, xbg(), ybg(), xbgang(), ybgang())  'Calls the SUB with the small bubble content.

NEXT 'Ends the For Next Loop



FOR s = 1 TO MidBubbles' Begins the For Next loop for the Mid-size bubbles

CALL MidBubs(s, xmid(), ymid(), xmidang(), ymidang())

NEXT


PCOPY 1, 0 'Puts everything onscreen.

LOOP UNTIL INKEY$ <> ""  ' Loops the program until a key is pressed



SUB BubsBG (t, xbg(), ybg(), xbgang(), ybgang())


IF xbg(t) > 320 THEN xbg(t) = INT(RND * 320) + 1: xbgang(t) = INT(RND * -3) + 2  ' Puts the bubbles back at
IF xbg(t) < 0 THEN xbg(t) = INT(RND * 320) + 1: xbgang(t) = INT(RND * -3) + 2    ' the bottom of the screen if
'IF ybg(t) > 200 THEN ybg(t) = 200:ybgang(t) = INT(RND * -8) + 1                  ' they reach the top/bottom/
IF ybg(t) < 0 THEN ybg(t) = 160: ybgang(t) = INT(RND * -8) + 1                   ' left/right


xbg(t) = xbg(t) + xbgang(t) ' Sets the new bubble locations
ybg(t) = ybg(t) + ybgang(t) '           "        "

xbgang(t) = INT(RND * -3) + 2 ' Sets the new angles
ybgang(t) = INT(RND * -8) + 1 '   "         "

CIRCLE (xbg(t), ybg(t)), 0, 15  'draws the bubbles



END SUB

SUB MidBubs (s, xmid(), ymid(), xmidang(), ymidang())

IF xmid(s) > 320 THEN xmid(s) = INT(RND * 320) + 1: xmidang(s) = INT(RND * -3) + 2  '  This puts the bubbles
IF xmid(s) < 0 THEN xmid(s) = INT(RND * 320) + 1: xmidang(s) = INT(RND * -3) + 2    '  back at the bottom if
IF ymid(s) < 0 THEN ymid(s) = 180: ymidang(s) = INT(RND * -3) + 1                   '  they reach and side



xmid(s) = xmid(s) + xmidang(s) 'sets the new location of the bubbles
ymid(s) = ymid(s) + ymidang(s) '             "       "

xmidang(s) = INT(RND * -3) + 2 ' Sets the angles at which the bubbles rise
ymidang(s) = INT(RND * -3) + 1 '            "          "

CIRCLE (xmid(s), ymid(s)), 2, 15  ' Draws a mid-size bubble




END SUB

SUB PaintBG

IF WeedRight = 1 THEN
 IF WeedPos > 2 THEN
   WeedRight = 0
   WeedPos = 2
 ELSE
   
   WeedPos = WeedPos + .6
 END IF


ELSEIF WeedRight = 0 THEN
 IF WeedPos < -2 THEN
   WeedRight = 1
   WeedPos = -2
 ELSE
   WeedPos = WeedPos - .6
 END IF


END IF

'This draws the blue BG / Brown land

LINE (0, 0)-(320, 200), 1, BF


'This draws the hills


CIRCLE (5, 185), 30, 6
PAINT (5, 167), 6, 6
CIRCLE (54, 190), 32, 6
PAINT (54, 167), 6, 6
CIRCLE (90, 199), 40, 6
PAINT (90, 167), 6, 6
CIRCLE (132, 199), 40, 6
PAINT (132, 167), 6, 6
CIRCLE (175, 190), 35, 6
PAINT (175, 167), 6, 6
CIRCLE (215, 195), 35, 6
PAINT (215, 167), 6, 6
CIRCLE (255, 190), 35, 6
PAINT (255, 167), 6, 6
CIRCLE (298, 195), 35, 6
PAINT (298, 167), 6, 6


'this draws the seaweed


LINE (35, 175)-(35 + WeedPos, 155), 10
LINE (35, 175)-(30 + WeedPos, 160), 10
LINE (35, 175)-(40 + WeedPos, 158), 10

LINE (85, 175)-(85 + WeedPos, 155), 10
LINE (85, 175)-(80 + WeedPos, 158), 10
LINE (85, 175)-(90 + WeedPos, 156), 10

LINE (145, 175)-(145 + WeedPos, 160), 10
LINE (145, 175)-(140 + WeedPos, 158), 10
LINE (145, 175)-(150 + WeedPos, 162), 10

LINE (205, 175)-(205 + WeedPos, 150), 10
LINE (205, 175)-(200 + WeedPos, 153), 10
LINE (205, 175)-(210 + WeedPos, 155), 10

LINE (265, 175)-(265 + WeedPos, 155), 10
LINE (265, 175)-(260 + WeedPos, 160), 10
LINE (265, 175)-(270 + WeedPos, 157), 10

LINE (310, 175)-(310 + WeedPos, 160), 10
LINE (310, 175)-(305 + WeedPos, 165), 10
LINE (310, 175)-(315 + WeedPos, 168), 10

END SUB

http://www.mediafire.com/file/mtnocmj2zmz/bubbles2.zip

[recursivelyenumerable]

Here's a cute program I made for Nikki when I was 16 or so.

awww, that's sweet 

[Ecrofirt]

This was like my biggest accomplishment as a QBASIC coder, I'd wager. It's my own version of the mystify your mind screensaver.

If nothing else, check this out, because it's fucking awesome.

SCRENSV3.BAS:

Code: [Select]

DIM x1(4), x2(4), x3(4), y1(4), y2(4), y3(4), y4(4)
DIM x1b(4), x2b(4), x3b(4), y1b(4), y2b(4), y3b(4), y4b(4)
DIM x1change(4), x2change(4), x3change(4), y1change(4), y2change(4), y3change(4), y4change(4)
DIM x1changeb(4), x2changeb(4), x3changeb(4), y1changeb(4), y2changeb(4), y3changeb(4), y4changeb(4)
SCREEN 7, 0, 1, 0
RANDOMIZE TIMER

'this randomizes the starting points
x1start = INT(RND * 290 + 15)
x2start = INT(RND * 290 + 15)
x3start = INT(RND * 320 + 1)
x1startb = INT(RND * 290 + 15)
x2startb = INT(RND * 290 + 15)
x3startb = INT(RND * 320 + 1)
y1start = INT(RND * 190 + 5)
y2start = INT(RND * 190 + 5)
y1startb = INT(RND * 190 + 5)
y2startb = INT(RND * 190 + 5)
y3start = INT(RND * 160 + 20)
y4start = INT(RND * 160 + 20)
y3startb = INT(RND * 160 + 20)
y4startb = INT(RND * 160 + 20)





'this makes the starting point for all 3 lines
FOR a = 1 TO 4
x1(a) = x1start + b
x2(a) = x2start + b
x3(a) = x3start + b
y1(a) = y1start + b
y2(a) = y2start + b
y3(a) = y3start + b
y4(a) = y4start + b

x1b(a) = x1startb + b
x2b(a) = x2startb + b
x3b(a) = x3startb + b
y1b(a) = y1startb + b
y2b(a) = y2startb + b
y3b(a) = y3startb + b
y4b(a) = y4startb + b

count = count + 1
IF count = 1 THEN b = -2
IF count = 2 THEN b = 2
IF count = 3 THEN b = 4
NEXT a





'this is the number of pixels each line moves in each direction
FOR b = 1 TO 4
x1change(b) = 1
x2change(b) = 1
x3change(b) = 1
y1change(b) = 1
y2change(b) = 1
y3change(b) = 1
y4change(b) = 1

x1changeb(b) = 1
x2changeb(b) = 1
x3changeb(b) = 1
y1changeb(b) = 1
y2changeb(b) = 1
y3changeb(b) = 1
y4changeb(b) = 1
NEXT b


'this is the color
clr = INT(RND * 12 + 4)
clrb = INT(RND * 12 + 4)

count = 0
DO
FOR b = 1 TO 4
'for the first object
IF x1(b) < 15 OR x1(b) > 305 THEN : x1change(b) = -x1change(b)
IF x2(b) < 15 OR x2(b) > 305 THEN : x2change(b) = -x2change(b)
IF y1(b) < 5 OR y1(b) > 195 THEN y1change(b) = -y1change(b)
IF y2(b) < 5 OR y2(b) > 195 THEN y2change(b) = -y2change(b)
IF y3(b) < 20 OR y3(b) > 180 THEN y3change(b) = -y3change(b)
IF y4(b) < 20 OR y4(b) > 180 THEN y4change(b) = -y4change(b)
IF x3(b) < 0 OR x3(b) > 320 THEN x3change(b) = -x3change(b)


'for the second object
IF x1b(b) < 15 OR x1b(b) > 305 THEN : x1changeb(b) = -x1changeb(b)
IF x2b(b) < 15 OR x2b(b) > 305 THEN : x2changeb(b) = -x2changeb(b)
IF y1b(b) < 5 OR y1b(b) > 195 THEN y1changeb(b) = -y1changeb(b)
IF y2b(b) < 5 OR y2b(b) > 195 THEN y2changeb(b) = -y2changeb(b)
IF y3b(b) < 20 OR y3b(b) > 180 THEN y3changeb(b) = -y3changeb(b)
IF y4b(b1) < 20 OR y4b(b) > 180 THEN y4changeb(b) = -y4changeb(b)
IF x3b(b) < 0 OR x3b(b) > 320 THEN x3changeb(b) = -x3changeb(b)
NEXT b

'makes a new color
count = count + 1
IF count = 200 THEN
 count = 0
 clr = INT(RND * 12 + 4)
 clrb = INT(RND * 12 + 4)
  IF clr = 16 THEN clr = 4
  IF clrb = 16 THEN clrb = 4
END IF

WAIT &H3DA, 8
LINE (0, 0)-(320, 200), 0, BF
FOR b = 1 TO 4
'the first object
LINE (x1(b), y3(b))-(x2(b), y4(b)), clr - 3'Upper Left to lower Right
LINE (x2(b), y3(b))-(x1(b), y4(b)), clr - 2'Upper Right to lover Left
LINE (x1(b), y3(b))-(x3(b), y1(b)), clr - 3'top left-to-center line
LINE (x1(b), y4(b))-(x3(b), y2(b)), clr - 2'bottom left-to-center line
LINE (x2(b), y3(b))-(x3(b), y1(b)), clr - 3'top right-to-center line
LINE (x2(b), y4(b))-(x3(b), y2(b)), clr - 2'bottom right-to-center line
LINE (x1(b), y3(b))-(x3(b), y2(b)), clr - 1
LINE (x2(b), y3(b))-(x3(b), y2(b)), clr - 1
LINE (x1(b), y4(b))-(x3(b), y1(b)), clr
LINE (x2(b), y4(b))-(x3(b), y1(b)), clr

'the second object
LINE (x1b(b), y3b(b))-(x2b(b), y4b(b)), clrb - 3'Upper Left to lower Right
LINE (x2b(b), y3b(b))-(x1b(b), y4b(b)), clrb - 2'Upper Right to lover Left
LINE (x1b(b), y3b(b))-(x3b(b), y1b(b)), clrb - 3'top left-to-center line
LINE (x1b(b), y4b(b))-(x3b(b), y2b(b)), clrb - 2'bottom left-to-center line
LINE (x2b(b), y3b(b))-(x3b(b), y1b(b)), clrb - 3'top right-to-center line
LINE (x2b(b), y4b(b))-(x3b(b), y2b(b)), clrb - 2'bottom right-to-center line

LINE (x1b(b), y3b(b))-(x3b(b), y2b(b)), clrb - 1
LINE (x2b(b), y3b(b))-(x3b(b), y2b(b)), clrb - 1
LINE (x1b(b), y4b(b))-(x3b(b), y1b(b)), clrb
LINE (x2b(b), y4b(b))-(x3b(b), y1b(b)), clrb




NEXT b



FOR b = 1 TO 4
'for the first obj
x1(b) = x1(b) + x1change(b)
x2(b) = x2(b) + -x2change(b)
x3(b) = x3(b) + -x3change(b)
y1(b) = y1(b) + y1change(b)
y2(b) = y2(b) + -y2change(b)
y3(b) = y3(b) + y3change(b)
y4(b) = y4(b) + -y4change(b)

'for the second obj
x1b(b) = x1b(b) + x1changeb(b)
x2b(b) = x2b(b) + -x2changeb(b)
x3b(b) = x3b(b) + -x3changeb(b)
y1b(b) = y1b(b) + y1changeb(b)
y2b(b) = y2b(b) + -y2changeb(b)
y3b(b) = y3b(b) + y3changeb(b)
y4b(b) = y4b(b) + -y4changeb(b)

NEXT b

PCOPY 1, 0
LOOP WHILE INKEY$ = ""

http://www.mediafire.com/file/ywzlhbmkhom/scrensv3.zip

[Madrun Badrun]

[xnikki118x]

Aw, I loved that Etch-a-Sketch program!

I also used to play that Breakout game all the time. When you break all the blocks, nothing happens, lol.