Jump to content

# 10 Line RXB Entry: Boat Bomber

## Recommended Posts

Joystick or arrow keys move plane up and down and fire launches a missile at the boat. Don't fly off into space, don't fly into the mountains, and avoid the other plane. Although the COINC on the plane collision is pretty average....

```100 U=124 :: CALL CHAR(36,"000307070F3F3F7F008080C0C0F0FCFF",U,"1C1E1F3F3F1F3F000",126,"0030C8FFFE8",33,"3C0C1E7F40407F000",35,"00F088FE0204F8")
110 CALL CLEAR :: X,W,Y,R=64 :: Q=12 :: A\$=RPT\$("\$((%",:: CALL MAGNIFY(3):: CALL CHAR(92,RPT\$("0",48),136,"AA55AA55AA55AA55"):: RANDOMIZE :: DIM E(33),P(33),S\$(33)
120 CALL SCREEN(16):: CALL COLOR(1,3,5,2,3,3,8,Q,Q):: E(6),E(12),E(18)=1 :: FOR I=1 TO 33 :: P(I)=RND*30+5 :: A\$=SEG\$(A\$,2,31)&SEG\$(A\$,1,1):: S\$(I)=A\$ :: NEXT I
130 E(24),E(30)=1 :: CALL SPRITE(#1,U,8,Y,X,#2,32,2,U,W,O,Q):: CALL HCHAR(13,1,40,R,15,1,92,R,22,1,92,96,1,1,136,128)
140 FOR I=1 TO 32 :: CALL HPUT(Q,1,S\$(I)):: CALL JOYST(1,G,H):: CALL MOTION(#1,-H*2,0,#2,0,P(I)):: CALL POSITION(#1,Y,X)
150 CALL KEY(1,D,H):: IF Y<32 THEN Z\$="ARE LOST IN SPACE" ELSE IF Y>83 THEN Z\$="CRASHED" ELSE IF E(I)=1 THEN CALL SPRITE(#3,U,7,RND*49+36,1,0,21)
160 IF Z\$="" THEN 170 :: CALL DELSPRITE(ALL):: PRINT "GAME OVER YOU ";Z\$;"WITH A SCORE OF "&STR\$(L)&".": :"TYPE RUN TO PLAY AGAIN." :: STOP
170 IF D=18 THEN CALL POSITION(#1,Y,X):: CALL SPRITE(#4,92,16,Y,X,100,25):: CALL MOTION(#4,0,0):: CALL LOCATE(#4,120,69+(100-Y))
180 CALL COINC(#4,#2,13,Q1,#1,#3,9,Q2):: IF Q2=-1 THEN Z\$="COLLIDED" ELSE IF Q1=-1 THEN L=L+1 :: DISPLAY AT(2,27)SIZE(LEN(STR\$(L)))BEEP:(STR\$(L)):: CALL LOCATE(#2,U,1)
190 CALL DELSPRITE(#4):: CALL JOYST(1,G,H):: CALL MOTION(#1,-H*2,0,#2,0,P(I)):: CALL SOUND(-800,-6,20):: NEXT I :: GOTO 140
```
Edited by Bones-69

#### Share this post

##### Share on other sites

seems to require RXB for those like me that can't read the subject

#### Share this post

##### Share on other sites

You can run it from Classic99 and use Keyboard keys instead of joystick but works much better using a PC Gamepad.

So far very tough game.

#### Share this post

##### Share on other sites

Joystick or arrow keys move plane up and down and fire launches a missile at the boat. Don't fly off into space, don't fly into the mountains, and avoid the other plane. Although the COINC on the plane collision is pretty average....

```100 U=124 :: CALL CHAR(36,"000307070F3F3F7F008080C0C0F0FCFF",U,"1C1E1F3F3F1F3F000",126,"0030C8FFFE8",33,"3C0C1E7F40407F000",35,"00F088FE0204F8")
110 CALL CLEAR :: X,W,Y,R=64 :: Q=12 :: A\$=RPT\$("\$((%",:: CALL MAGNIFY(3):: CALL CHAR(92,RPT\$("0",48),136,"AA55AA55AA55AA55"):: RANDOMIZE :: DIM E(33),P(33),S\$(33)
120 CALL SCREEN(16):: CALL COLOR(1,3,5,2,3,3,8,Q,Q):: E(6),E(12),E(18)=1 :: FOR I=1 TO 33 :: P(I)=RND*30+5 :: A\$=SEG\$(A\$,2,31)&SEG\$(A\$,1,1):: S\$(I)=A\$ :: NEXT I
130 E(24),E(30)=1 :: CALL SPRITE(#1,U,8,Y,X,#2,32,2,U,W,O,Q):: CALL HCHAR(13,1,40,R,15,1,92,R,22,1,92,96,1,1,136,128)
140 FOR I=1 TO 32 :: CALL HPUT(Q,1,S\$(I)):: CALL JOYST(1,G,H):: CALL MOTION(#1,-H*2,0,#2,0,P(I)):: CALL POSITION(#1,Y,X)
150 CALL KEY(1,D,H):: IF Y<32 THEN Z\$="ARE LOST IN SPACE" ELSE IF Y>83 THEN Z\$="CRASHED" ELSE IF E(I)=1 THEN CALL SPRITE(#3,U,7,RND*49+36,1,0,21)
160 IF Z\$="" THEN 170 :: CALL DELSPRITE(ALL):: PRINT "GAME OVER YOU ";Z\$;"WITH A SCORE OF "&STR\$(L)&".": :"TYPE RUN TO PLAY AGAIN." :: STOP
170 IF D=18 THEN CALL POSITION(#1,Y,X):: CALL SPRITE(#4,92,16,Y,X,100,25):: CALL MOTION(#4,0,0):: CALL LOCATE(#4,120,69+(100-Y))
180 CALL COINC(#4,#2,13,Q1,#1,#3,9,Q2):: IF Q2=-1 THEN Z\$="COLLIDED" ELSE IF Q1=-1 THEN L=L+1 :: DISPLAY AT(2,27)SIZE(LEN(STR\$(L)))BEEP:(STR\$(L)):: CALL LOCATE(#2,U,1)
190 CALL DELSPRITE(#4):: CALL JOYST(1,G,H):: CALL MOTION(#1,-H*2,0,#2,0,P(I)):: CALL SOUND(-800,-6,20):: NEXT I :: GOTO 140
```

Thanks for this entry!

## Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...

• ### Recently Browsing   0 members

No registered users viewing this page.

×
×
• Create New...