Jump to content
IGNORED

BASIC Ten-Liners - Contest 2014


Bunsen

Recommended Posts

24th game registered :jango:

 

Jumpsheep by fdingler

Paddleship by Bill Kendrick

Sijmen by me

Squirrel by fdingler

Shmup by Bill Kendrick

Colfusion by Irgendwer

Planets by Bill Kendrick

Slice by Bill Kendrick

GozMind by gozar Retracted

Carrera by Daniel Serpell

Minijong by Bill Kendrick

Jump! by Xuel

Count1ing Zoo by 1NG

Hanged Man by Jakub Husak

Gwobby Micro by Jason Kendall

Minidash by Bill Kendrick

Puzzler 2014 by Sleepy

Drunk Pistol by mgr inz. Rafal

Crack My Luggage by gozar

Roguelike by ilmenit

Nimx by Cliff Hatch

Catch by Chris Read

Grue Killer by Reaperman

Joyas by Daniel Serpell

Dodge Racer by Reaperman

Link to comment
Share on other sites

This morning I've put Dodge Racer into an uncompiled autobooting ATR for ease of use. For some reason, it slipped my mind that I could do that last night. I'd gotten so used to the compiled autorun disks that I forgot I had the option.

 

I woke up with another small game idea, but it's my last day of Mardi Gras vacation, and I almost think I'd rather spend it actually 'playing' games.

 

Dodge Racer.atr

 

 

 

You should mention here that this is in Turbo-BASIC (I know you did in your video description), just for clarity. Also, I wouldn't call it "Atari BASIC" at the same time, it's a little confusing.

 

Interesting little game. Not bad for your first time programming.

You're right, I've changed it as far back as I can. I hadn't previously been drawing much of a distinction. Jumping to TB means I'm learning both at once--well not really, but TB documentation never seems to cover the AB stuff so it feels that way. The confusion is largely on my end.

Edited by Reaperman
  • Like 1
Link to comment
Share on other sites

Here are the conditions of the competition:

- Call of machine language programs is not permitted ( X = USR ( 1536) )

- POKing is allowed (eg change the DL, PM graphics)

 

If poke is ok, how about DPOKE 10,ADR("ML-in-a-String"):DOS

 

Yeah, I know... Just joking :)

  • Like 1
Link to comment
Share on other sites

You're right, I've changed it as far back as I can. I hadn't previously been drawing much of a distinction. Jumping to TB means I'm learning both at once--well not really, but TB documentation never seems to cover the AB stuff so it feels that way. The confusion is largely on my end.

 

That's it actually. TBXL is Atari BASIC plus the additional commands and changes, syntactically. Any TBXL documentation is only going to talk about the additions, because all Atari BASIC commands are valid in TBXL.

Link to comment
Share on other sites

http://www.youtube.com/watch?v=zHoHSNyUqEk

 

I've learned a lot about scoring today, and I'd like to update Dodge Racer if I could.

 

Short of it is that I needed the 'high score' feature to feel more like it means something in this game. It really bothered me that players could just run back and forth in small (safe) spaces, racking up huge points, so I started out today by devising creative ways to kill them off for it. I tested a few--they worked 'okay'... But wait--that's not what they would have done in the 80's. In the 80's they would have thrown so many points at players for moving forward, that snatching points by being cheap would be a complete waste of time. Huge points motivate people to take huge risks. So I went that way instead.

 

There's now a lap system which increases a points multiplier. An audible/visible finish line granting these points/bonuses (it bugged me that I had an extra unused color), and perhaps most importantly a live score display. First lap obstacles are worth 1pt each, while completing the lap is worth 100, second lap 2 & 200, etc. (no wonder so many classic games use that scoring, it's hugely motivating and really easy to fit in tight spots). Somehow Level 2 is still squeezed in there. It takes 1000 points to see it--I haven't gotten there yet, but I'm close.

 

 

DODGER.BAS

Dodge Racer.atr

 

Code:

 

 

Nearly out of space, needs poke 82,0 to type in.

0D=1:W=0:F=1:P=0:H=0:DIM G$(44),J$(7),Q$(7),U$(18):G$="DODGE RACER   (PRESS FIRE)":J$="SCORE: ":Q$=" HIGH: "
1GR.7:C=80:V=66:X=80:Y=66:CO.1:PL.3,70:DR.155,70:DR.155,33:DR.112,33:DR.112,4:DR.3,4:DR.3,70:PL.18,55:DR.140,55
2DR.140,48:DR.97,48:DR.97,19:DR.18,19:DR.18,55:CO.2:PAI.0,0:SO.:POKE 752,1:? G$ J$;P:?Q$;H:PAI.19,20:GOTO4
3V=40:CI.45,36,20:CI.45,36,35:CI.113,36,20:CI.113,36,35:CO.0:PL.79,29:DR.79,43:SO.:CO.2:PAI.0,0:PAI.45,35:PAI.113,35
4T=STRIG(0):IF T=0:SO.0,60,2,2:POKE 77,0:I=0:N=1:GOTO 5:ENDIF:U$="WELCOME TO LEVEL 2":CO.3:PL.1,41:PL.2,41:GOTO4
5S=STICK(0):IF S=7:D=1:ENDIF:IF S=11:D=2:ENDIF:IF S=14:D=3:ENDIF:IF S=13:D=4:ENDIF:IF D=1:X=X+1:ENDIF:IF D=2:X=X-1:ENDIF
6IF D=3:Y=Y-1:ENDIF:IF D=4:Y=Y+1:ENDIF:LOCATE X,Y,W:A=RAND(155):B=RAND(70):IF Y=41 AND X<40 AND I=1:I=0:P=P+(100*N)
7N=N+1:SO.1,0,2,5:ENDIF:IF Y=33 AND X>97:I=1:ENDIF:LOCATEA,B,L:IF L=0 AND F>10:CO.1:PLOTA,B:SO.1,50,4,4:F=1:P=P+N:CLS:?P
8IF P>=H:H=P:ENDIF:SO.1,0,0,0:ENDIF:IF W=1:GOTO 9:ENDIF:IF F=0:P=0:ENDIF:CO.2:PL.X,Y:CO.0:PL.C,V:C=X:V=Y:F=F+1:GOTO5
9SO.0,20,0,6:F=0:D=1:W=0:G$="GAME OVER":CO.1:IF P>999:GR.7:POKE 752,1:?U$:?J$;P:?Q$;H:X=68:C=68:Y=40:GOTO 3:ENDIF:GOTO1
Variables Key:

X  = X POSITION
Y  = Y POSITION
C  = 'OLD' X POSITION
V  = 'OLD' Y POSITION
D  = DIRECTION (1=RIGHT, 2=LEFT, 3=UP, 4=DOWN)
W  = COLOR VARIABLE FOR CRASH LOCATOR
L  = COLOR VARIABLE FOR JUNK PLACEMENT
S  = STICK 0
T  = TRIG 0
P  = POINTS
H  = HIGH SCORE
F  = FRAME DELAY 
A  = RANDOM X VALUE
B  = RANDOM Y VALUE
N  = NUMBER LAPS COMPLETED
I  = LAP CHECKPOINT
G$ = "DODGE RACER"/"GAME OVER"
J$ = "SCORE: "
Q$ = " HIGH: "
U$ = "WELCOME TO LEVEL 2"

 

 

Edited by Reaperman
  • Like 3
Link to comment
Share on other sites

My second game for this contest.

 

"Abyss" - space trading game by Jakub Debski

Your father used to say: "The end of the world is not a reason to stop doing business!".
Now is the time to prove it! Armageddon has come in form of black holes that appear in the galaxy.

I have tried to put as much content into this game as possible. The game takes place in dynamic universe with economic price system that depend on supply and demand.
This means that with high supply the price is low and with high demand the price is high.

There are different ways to earn money in the game:
- Trade on colonized planets (A-J)
- Mine ore on unoccupied planets (o). This fills your cargo space with ore.
- Fulfill missions - get to the destination planet before time runs out (Planet-Day-$Reward)

Try to earn as much $ as you can before universe explodes (day 1000).
The game also ends when you are out of fuel. When fuel is low (less than 5) screen gets red as a warning and you can't mine planets.

Unloading of goods is possible only on planets that demand them. Do not get too many goods that nobody wants.
You can increase your cargo hold, but it's expensive. Warning: technicans are not able to attach new cargo hold modules when your ship is full (when you have no free cargo hold).

Beware of black holes (clubes signs). They destroy your cargo hold and it takes a lot of fuel to get out of them.

post-22831-0-66331400-1394192472_thumb.pngpost-22831-0-42983600-1394192473_thumb.pngpost-22831-0-17359300-1394192474_thumb.png

 

Code

 

 


0 DIM M$(800),N$(11),P(10,10),E(10),F(10):GR.0:TE.0,6,"ABYSS":POK.755,0:L=150:E(0)=10:E(9)=10:AM=ADR(M$):SM=DPEEK(88):G=SM+420:FO.I=0TO9
1 POK.AM+(I*240+RAND(39)+400)MOD800,33+I:POK.AM+RAND(39)+I*80+40,84:FO.J=0TO9:P(I,J)=RAND(200)-100:NEXT J:NEXT I:POS.6,15:?"Jakub 'Ilmenit' Debski 2014":WHILE STRIG(0):WEND
2 M.AM,SM,800:R=PEEK(G):POK.G,94:POK.710,32*(E(0)<5)+128*(R=80):E(0)=E(0)-(R=80):IF R=84 AND E(0)>4:POK.AM+G-SM,111:E(3)=E(3)+E(9):E(9)=0:T=0
3 END.:IF T:D=D+1:IF NOT D MOD5:E(0)=E(0)-1:E(9)=E(9)+1:R=RAND(800):IF PEEK(AM+R)=0:POK.AM+R,80:END.:END.:END.:IF D>=K:R=RAND(20)+20:K=D+R:Q=(10+D)*10+RAND(D*20):Z=RAND(10):END.
4 POS.2,20:?"FUEL:";E(0);" DAY:";D;" MIS:";CHR$(Z+65);"-";K;"-$";Q;"  ":IF E(0)<1 OR D>999:?"GAME OVER":WHILE STRIG(0):WEND:RUN:END.:S=STICK(0):S=(S=7)-(S=11)+40*((S=13)-(S=14)):IF S:T=S:END.
5 H=G+T:IF H MOD40<>31 AND H>=SM AND H<SM+800:C=PEEK(H):IF C<59 AND C:C=C-33:CLS:POS.13,0:?"PRICE  PLANET  SHIP":IF C=Z:L=L+Q:K=0:END.:G.6:END.:G=G+T:END.:PA.8:G.2
6 RES.:Y=Y+((S=13)-(S=14)):Y=ABS(Y)MOD10:X=(S=7)-(S=11):FO.I=0TO9:READ N$:J=I*2+1:POS.33,J:?CHR$(32+(I=Y)):IF I=Y OR T OR I=9:IF T: A=P(C,I)+RAND(D-B)-RAND(D-B):IF ABS(A)>99:A=99*SGN(A):END.
7 IF I=0 OR I=9:A=ABS(A):END.(C,I)=A:F(I)=1.7^I*10:F(I)=INT(F(I)-F(I)*A/200):POS.0,J:?N$:POS.13,J:?F(I):END.:POS.20,J:?P(C,I);" ":POS.28,J:?E(I);" " :IF I=Y AND X AND T=0:A=SGN(P(C,I))
8 IF E( I*(A<0)+9*(A>0) ) AND L>A*F(I):L=L-A*F(I)(C,I)=P(C,I)-A:E(I)=E(I)+A:IF I<9:E(9)=E(9)-A:END.:END.:END.:END.:NEXT I:T=0:S=STICK(0)?"$";L;" ":IF NOT STRIG(0):B=D:G.2:END.:G.6
9 DATA FUEL,FOOD,ANIMALS,ORE,MACHINES,ROBOTS,MEDICINES,WEAPONS,GEMS,CARGO HOLD

 

 

 

abyss.atr

  • Like 5
Link to comment
Share on other sites

Abyss v1.1 - fixed bugs:

- GAME OVER text doesn't cover your money at the end of game.

- Fixed bug in internal game economy - goods on planets are properly modified.

 

 

0 DIM M$(800),N$(11),P(10,10),E(10),F(10),B(10):GR.0:TE.0,6,"ABYSS":POK.755,0:L=150:E(0)=10:E(9)=10:AM=ADR(M$):SM=DPEEK(88):G=SM+420:FO.I=0TO9
1 POK.AM+(I*240+RAND(39)+400)MOD800,33+I:POK.AM+RAND(39)+I*80+40,84:FO.J=0TO9:P(I,J)=RAND(200)-100:NEXT J:NEXT I:POS.6,15:?"Jakub 'Ilmenit' Debski 2014":WHILE STRIG(0):WEND
2 M.AM,SM,800:R=PEEK(G):POK.G,94:POK.710,32*(E(0)<5)+128*(R=80):E(0)=E(0)-(R=80):IF R=84 AND E(0)>4:POK.AM+G-SM,111:E(3)=E(3)+E(9):E(9)=0:T=0
3 END.:IF T:D=D+1:IF NOT D MOD5:E(0)=E(0)-1:E(9)=E(9)+1:R=RAND(800):IF PEEK(AM+R)=0:POK.AM+R,80:END.:END.:END.:IF D>=K:R=RAND(20)+20:K=D+R:Q=(10+D)*10+RAND(D*20):Z=RAND(10):END.
4 POS.2,20:?"FUEL:";E(0);" DAY:";D;" MIS:";CHR$(Z+65);"-";K;"-$";Q;"  ":IF E(0)<1 OR D>999:?:?"GAME OVER":WHILE STRIG(0):WEND:RUN:END.:S=STICK(0):S=(S=7)-(S=11)+40*((S=13)-(S=14)):IF S:T=S:END.
5 H=G+T:IF H MOD40<>31 AND H>=SM AND H<SM+800:C=PEEK(H):IF C<59 AND C:C=C-33:CLS:POS.13,0:?"PRICE  PLANET  SHIP":IF C=Z:L=L+Q:K=0:END.:G.6:END.:G=G+T:END.:PA.8:G.2
6 RES.:Y=Y+((S=13)-(S=14)):Y=ABS(Y)MOD10:X=(S=7)-(S=11):FO.I=0TO9:READ N$:J=I*2+1:POS.33,J:?CHR$(32+(I=Y)):IF I=Y OR T OR I=9:IF T:R=D-B(C):IF R>50:R=50
7 END.:A=P(C,I)+RAND(R)-RAND(R):IF ABS(A)>99:A=99*SGN(A):END.:IF I=0 OR I=9:A=ABS(A):END.(C,I)=A:F(I)=1.7^I*10:F(I)=INT(F(I)-F(I)*A/200):POS.0,J:?N$:POS.13,J:?F(I):END.:POS.20,J:?P(C,I);" ":POS.28,J:?E(I);" "
8 IF I=Y AND X AND T=0:A=SGN(P(C,I)):IF E( I*(A<0)+9*(A>0) ) AND L>A*F(I):L=L-A*F(I)(C,I)=P(C,I)-A:E(I)=E(I)+A:IF I<9:E(9)=E(9)-A:END.:END.:END.:END.:NEXT I:T=0
9 S=STICK(0)?"$";L;" ":IF NOT STRIG(0):B(C)=D:G.2:END.:G.6:DATA FUEL,FOOD,ANIMALS,ORE,MACHINES,ROBOTS,MEDICINES,WEAPONS,GEMS,CARGO HOLD




 

 

abyss11.atr

Edited by ilmenit
  • Like 4
Link to comment
Share on other sites

25th game registered :music:

 

Jumpsheep by fdingler

Paddleship by Bill Kendrick

Sijmen by Gunnar Kanold

Squirrel by fdingler

Shmup by Bill Kendrick

Colfusion by Irgendwer

Planets by Bill Kendrick

Slice by Bill Kendrick

GozMind by gozar Retracted

Carrera by Daniel Serpell

Minijong by Bill Kendrick

Jump! by Xuel

Count1ing Zoo by 1NG

Hanged Man by Jakub Husak

Gwobby Micro by Jason Kendall

Minidash by Bill Kendrick

Puzzler 2014 by Sleepy

Drunk Pistol by mgr inz. Rafal

Crack My Luggage by gozar

Roguelike by Jakub Debski

Nimx by Cliff Hatch

Catch by Chris Read

Grue Killer by Reaperman

Joyas by Daniel Serpell

Dodge Racer by Reaperman

Abyss by Jakub Debski

Link to comment
Share on other sites

My second game for this contest.

 

"Abyss" - space trading game by Jakub Debski

 

 

 

 

I have used your real name instead of your nick in the list.

 

@Other: do you want that I replace your nickname with your real name in the list, too?

Link to comment
Share on other sites

Another day, another game

 

26th game registered icon_lol.gif

 

Jumpsheep by fdingler

Paddleship by Bill Kendrick

Sijmen by Gunnar Kanold

Squirrel by fdingler

Shmup by Bill Kendrick

Colfusion by Irgendwer

Planets by Bill Kendrick

Slice by Bill Kendrick

GozMind by gozar Retracted

Carrera by Daniel Serpell

Minijong by Bill Kendrick

Jump! by Xuel

Count1ing Zoo by 1NG

Hanged Man by Jakub Husak

Gwobby Micro by Jason Kendall

Minidash by Bill Kendrick

Puzzler 2014 by Sleepy

Drunk Pistol by mgr inz. Rafal

Crack My Luggage by gozar

Roguelike by Jakub Debski

Nimx by Cliff Hatch

Catch by Chris Read

Grue Killer by Reaperman

Joyas by Daniel Serpell

Dodge Racer by Reaperman

Abyss by Jakub Debski

Fuky Bird by 1NG

Link to comment
Share on other sites

Another hour, another game

 

27th game registered ico_bounce.gif

 

Jumpsheep by fdingler

Paddleship by Bill Kendrick

Sijmen by Gunnar Kanold

Squirrel by fdingler

Shmup by Bill Kendrick

Colfusion by Irgendwer

Planets by Bill Kendrick

Slice by Bill Kendrick

GozMind by gozar Retracted

Carrera by Daniel Serpell

Minijong by Bill Kendrick

Jump! by Xuel

Count1ing Zoo by 1NG

Hanged Man by Jakub Husak

Gwobby Micro by Jason Kendall

Minidash by Bill Kendrick

Puzzler 2014 by Sleepy

Drunk Pistol by mgr inz. Rafal

Crack My Luggage by gozar

Roguelike by Jakub Debski

Nimx by Cliff Hatch

Catch by Chris Read

Grue Killer by Reaperman

Joyas by Daniel Serpell

Dodge Racer by Reaperman

Abyss by Jakub Debski

Fuky Bird by 1NG

Puzzler Duell by Sleepy

Edited by Bunsen
  • Like 1
Link to comment
Share on other sites

Abyss v1.2. Changes:

- Balanced gameplay. Missions are harder and less rewarding so player has to focus on trading to get the highest score.

- Fixed title screen

 

 

0 DIM M$(800),N$(11),P(10,10),E(10),F(10),B(10):GR.0:C.149:TE.0,6,"ABYSS":POK.755,0:L=150:E(0)=10:E(9)=10:AM=ADR(M$):SM=DPEEK(88):G=SM+420
1 FO.I=0TO9:POK.AM+(I*240+RAND(39)+400)MOD800,33+I:POK.AM+RAND(39)+I*80+40,84:FO.J=0TO9:P(I,J)=RAND(200)-100:NEXT J:NEXT I:POS.7,15:?"v1.2 by Jakub Debski '2014":WHILE STRIG(0):WEND
2 M.AM,SM,800:R=PEEK(G):POK.G,94:POK.710,32*(E(0)<5)+128*(R=80):E(0)=E(0)-(R=80):IF(R=84)&(E(0)>4):POK.AM+G-SM,111:E(3)=E(3)+E(9):E(9)=0:T=0:END.
3 IF T:D=D+1:IF NOT D MOD5:E(0)=E(0)-1:E(9)=E(9)+1:R=RAND(800):IF PEEK(AM+R)=0:POK.AM+R,80:END.:END.:END.:IF D>=K:R=RAND(20):K=D+R+15:Q=(20+D)*5+RAND(D*15):Z=(Z+8)MOD10:END.
4 POS.2,20:?"FUEL:";E(0);" DAY:";D;" MIS:";CHR$(Z+65);"-";K;"-$";Q;"  ":IF E(0)<1 OR D>999:?:?"GAME OVER":WHILE STRIG(0):WEND:RUN:END.:S=STICK(0):S=(S=7)-(S=11)+40*((S=13)-(S=14)):IF S:T=S:END.
5 H=G+T:IF H MOD40<>31 AND H>=SM AND H<SM+800:C=PEEK(H):IF C<59 AND C:C=C-33:CLS:POS.13,0:?"PRICE  PLANET  SHIP":IF C=Z:L=L+Q:K=0:END.:G.6:END.:G=G+T:END.:PA.8:G.2
6 RES.:Y=Y+((S=13)-(S=14)):Y=ABS(Y)MOD10:X=(S=7)-(S=11):FO.I=0TO9:READ N$:J=I*2+1:POS.33,J:?CHR$(32+(I=Y)):IF I=Y OR T OR I=9:IF T:R=D-B(C):IF R>50:R=50
7 END.:A=P(C,I)+RAND(R)-RAND(R):IF ABS(A)>99:A=99*SGN(A):END.:IF I=0 OR I=9:A=ABS(A):END.(C,I)=A:F(I)=1.7^I*10:F(I)=INT(F(I)-F(I)*A/200):POS.0,J:?N$:POS.13,J:?F(I):END.:POS.20,J:?P(C,I);" ":POS.28,J:?E(I);" "
8 IF I=Y AND X AND T=0:A=SGN(P(C,I)):IF E( I*(A<0)+9*(A>0) ) AND L>A*F(I):L=L-A*F(I)(C,I)=P(C,I)-A:E(I)=E(I)+A:IF I<9:E(9)=E(9)-A:END.:END.:END.:END.:NEXT I:T=0
9 S=STICK(0)?"$";L;" ":IF NOT STRIG(0):B(C)=D:G.2:END.:G.6:DATA FUEL,FOOD,ANIMALS,ORE,MACHINES,ROBOTS,MEDICINES,WEAPONS,GEMS,CARGO HOLD

 

 

 

abyss12.atr

  • Like 2
Link to comment
Share on other sites

ABYSS...

Any reason why the color cycle starts to roll every 6 or so seconds after the game's been running a while? (I'm using v1.2 btw)

Is this based on some existing game other than DOS Drug Wars?

 

this title is great. I've been playing the shit out of it, even though I find the ship has a lag with the steering, i'm sure it's my setup.

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
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...