Collection of all my old, mostly rubbish QB games. Not TG

[Jocke The Beast]

Its not as simple as just right clicking and saving. You have to open the link and then type the file name. Like this:

www.geocities.com/jocke/downloads

and then to download the file test.zip.

www.geocities.com/jocke/downloads/test.zip

Not for me 8) I just right-click and Save As... works for me :roll:

[barok]

i drag the address to the address bar. works for me.

[SCM]

I tried your biplane game. It wouldn't run because the interpreter couldn't handle the multiline DRAW strings. I broke the strings into one line DRAW statements, and it ran and compiled without problems.

In the process I noticed that the majority of the string is the same each time. Instead of writing out the whole string for each IF condition, you should only put the part that changes there, and write the rest after the end of the IF block. I did this for the red plane. I also moved the PSET statement ahead of the IF block so it only had to be written once. Compare the code for the red plane with the code for the black plane.

Code:

'--Draw routines for black plane--
IF U$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA0BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U15L10U5R10E3R4L8BR5"
DRAW "C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R2U13L10BU7BR11E3BD30R20L40D1R40"
DRAW "D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2"
DRAW "F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40R28U15R12L12D1R10DL10C11D18R13L41"
DRAW "D1R40D1L40U3F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF UR$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA45BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U15L10U5R10E3R4L8BR5"
DRAW "C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R2U13L10BU7BR11E3BD30R20L40D1R40"
DRAW "D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2"
DRAW "F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40R28U15R12L12D1R10DL10C11D18R13L41"
DRAW "D1R40D1L40U3F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF R$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA90BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U15L10U5R10E3R4L8BR5"
DRAW "C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R2U13L10BU7BR11E3BD30R20L40D1R40"
DRAW "D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14"
DRAW "G2F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40R28U15R12L12D1R10DL10C11D18"
DRAW "R13L41D1R40D1L40U3F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF DR$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA135BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U15L10U5R10E3R4L8"
DRAW "BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R2U13L10BU7BR11E3BD30R20L40"
DRAW "D1R40D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12"
DRAW "C14G2F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40R28U15R12L12D1R10DL10C11"
DRAW "D18R13L41D1R40D1L40U3F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF D$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA180BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U15L10U5R10E3R4L8BR5"
DRAW "C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R2U13L10BU7BR11E3BD30R20L40D1R40"
DRAW "D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2"
DRAW "F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40R28U15R12L12D1R10DL10C11D18R13L41"
DRAW "D1R40D1L40U3F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF DL$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA225BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U15L10U5R10E3R4L8BR5"
DRAW "C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R2U13L10BU7BR11E3BD30R20L40D1R40"
DRAW "D1L40BU21R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1BL12C14G2"
DRAW "F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40R28U15R12L12D1R10DL10C11D18R13L41"
DRAW "D1R40D1L40U3F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF L$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA270BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2"
DRAW "U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4"
DRAW "U2L4U4R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21"
DRAW "R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24"
DRAW "D1BL12C14G2F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40"
DRAW "R28U15R12L12D1R10DL10C11D18R13L41D1R40D1L40U3F2"
DRAW "E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

ELSEIF UL$ = "N" THEN
PSET (H, J)    'H= ACROSS J = UP DOWN
DRAW "C0TA315BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2"
DRAW "U15L10U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2"
DRAW "L4U2L4U4R2U13L10BU7BR11E3BD30R20L40D1R40D1L40BU21"
DRAW "R15D1L10D1R10BR9U2R10D1L10D1R10BU8BL2C0L24D1R24D1"
DRAW "BL12C14G2F2E2H2F2BD3C0L4R4BF16C11L40R40D1L40R28U15"
DRAW "R10L12D1R10DL10C11D18R13L41D1R40D1L40U3F2E2F2E2F2"
DRAW "E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

END IF

'--Draw routines for red plane--

PSET (E, EJ)          'H= ACROSS J = UP DOWN

IF EU$ = "N" THEN
  DRAW "C4TA0"
ELSEIF EUR$ = "N" THEN
  DRAW "C4TA45"
ELSEIF ER$ = "N" THEN
  DRAW "C4TA90"
ELSEIF EDR$ = "N" THEN
  DRAW "C4TA135"
ELSEIF ED$ = "N" THEN
  DRAW "C4TA180"
ELSEIF EDL$ = "N" THEN
  DRAW "C4TA225"
ELSEIF EL$ = "N" THEN
  DRAW "C4TA270"
ELSEIF EUL$ = "N" THEN
  DRAW "C4TA315"
END IF

DRAW "BU10BL3E3F3R10D5L10D15R2D2L4D2L2U2L4U2R2U15L10"
DRAW "U5R10E3R4L8BR5C11F2BR11BD7L10D13R2D4L4D2L4U2L4U4R2U13"
DRAW "L10BU7BR11E3BD30R20L40D1R40D1L40BU21R15D1L10D1R10BR9U2"
DRAW "R10D1L10D1R10BU8BL2C4L24D1R24D1BL12C0G2F2E2H2F2BD3C4L4"
DRAW "R4BF16C11L40R40D1L40R28U15R12L12D1R10DL10C11D18R13L41D1"
DRAW "R40D1L40U3F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2F2E2"

You could also improve things by switching from having 8 direction strings for each plane to one direction variable for each. In this example BlackDirection is an integer that ranges from 0 to 7 (eachnumber represent one direction):

Code:

If LeftArrowWasPressed then
  BlackDirection = BlackDirection + 1
ELSEIF RightArrowWasPressed then
  BlackDirection = BlackDirection + 7
END IF
BlackDirection = BlackDirection MOD 8    'remainder after dividing by 8

If you did this, you would save a lot of code secifying the value of each variable for each possible case. You could also replace the IF block for DRAWing a plane with a SELECT CASE BlackDirection block or with DRAW BlackInitialDraw$(BlackDirection), where BlackInitialDraw$() is a string array holding the initial DRAW strings for each of the 8 directions.

You have an enjoyable program it could be worth the effort to do some rewriting.

[relsoft]

OMG!!! This guy has *patience*

:o

[otaku84]

bi=plane game was possibly my 4th or 5th game ever.

Anyway, Im much better with draw now, and would now only have 1 draw statement for each, except Id have a variable for its angle of rotation.

My sprite program shows something like this.

I was young, new, naive, and didnt realise what i was doing.

Still, I learned some valuable lessons from that.

Thanks for taking the time to understand it, but over time, I realsied all my mistakes, I look back on it, and cringe, I know much better now, some of what i used their was so, well to be honest, stupid.

Thankfully, Im hopefully more refined now.

still, thanks for looking through it.
glad you liked it, but I doubt Ill go through it again. Im busing working on TG.