Jump to content
Vorticon

Extended Basic 10 liner contest

Recommended Posts

32 minutes ago, kl99 said:

> Submission  deadline: July 31st, 2019 midnight GMT

 

This is a bit unclear to me. Midnight before 31st July starts or midnight after 31st July ended in GMT?

 

Best regards, Klaus

Funny, I'm taking a pluralsight class on date and time stuff in .NET 😄

Share this post


Link to post
Share on other sites
2 hours ago, kl99 said:

> Submission  deadline: July 31st, 2019 midnight GMT

 

This is a bit unclear to me. Midnight before 31st July starts or midnight after 31st July ended in GMT?

 

Best regards, Klaus

My understanding is that this means midnight in London when July 31st ends and August 1st begins.

  • Thanks 1

Share this post


Link to post
Share on other sites
41 minutes ago, Vorticon said:

Actually the deadline in midnight GMT, so really 6pm Central Time in the US.

You're forgetting daylight savings time. The deadline is 7pm Central daylight time or 8pm Eastern daylight time.

Share this post


Link to post
Share on other sites
1 hour ago, senior_falcon said:

You're forgetting daylight savings time. The deadline is 7pm Central daylight time or 8pm Eastern daylight time.

Ah yes. Thanks for the correction!

Share this post


Link to post
Share on other sites

GLADIATOR.dsk

 


Submission: Gladiator

Platform: Extended BASIC

Written by: Erik Olson

 

Controls/Instructions: Use joystick to move left or right, and raise shield up or down. Press fire, along with up or down, to ready your sword; release fire to make an attack. 

 

If you get past your opponent's defenses, you defeat them. If your opponent's trident blocks your sword, or your shield blocks their trident, you both live another round. Otherwise you will die, nameless Gladiator.

 

Inspired by 'Gladiator' (arcade) and 'Swashbuckler' (Apple II) and Video Brain Gladiator (oh god)
 

gallery_38950_2333_1054.png

 

10 CALL CLEAR::CALL SCREEN(8)::CALL MAGNIFY(2)::S=2::T=1::R=80::C=128::Q=160::E=2
20 CALL CHAR(113,"003030300000000000000030303000000000000000303030",116,"2556360A06060A0A090F661F66060A0A00090606076E1665")
30 CALL CHAR( 97,"606848706070506860604078606050D86060406070686070",100,"1819121C101814641818101E1030484C30302030303E186C")
40 CALL CHAR( 105,"102040000000000000000000007000000000000000000070", 108,"020408000000000000000000000E0000000000000000000E")
50 CALL SPRITE(#1,104+S,12,R-4,C+6,#2,112+T,7,R-1,C-1,#3,96+S,2,R,C,#4,115+E,16,R,Q)
60 L=K::CALL JOYST(1,X,Y)::CALL KEY(1,K,Z)::Y=2-Y/4::IF K=18 THEN S=Y ELSE IF L=18 THEN F=4::S=Y+3 ELSE T=Y::IF X THEN C=C+X ELSE IF S>3 THEN S=S-3::F=0
70 E=INT(RND*3+1):: Q=Q-1::CALL PATTERN(#1,104+S,#2,112+T,#3,96+S,#4,115+E)::CALL LOCATE(#1,R-4,C+6,#2,R-1,C-1,#3,R,C,#4,R,Q) 
80 IF C+8+F<Q THEN 60 ELSE IF F AND S<>E+3 THEN 100 ELSE IF T=E OR S-3=E THEN C=C-8::Q=Q+8::GOTO 70
90 CALL COLOR(#4,9)::FOR I=1 TO 7::CALL SOUND(-100,999,2)::CALL SOUND(-100,880,2)::NEXT I::C=C-8::Q=Q+16::GOTO 50
100 CALL COLOR(#3,9)::FOR I=1 TO 7::CALL SOUND(-100,999-I*100,2)::NEXT I::C=C-16::Q=Q+8::GOTO 50

 

  • Like 7

Share this post


Link to post
Share on other sites
On 6/3/2019 at 10:59 PM, Bones-69 said:

Here is a silly little XB slot machine 10 liner I threw together.... Let me know if anyone pulls off the jackpot (space invader, man, pacman & ghost - in this order).

100 RANDOMIZE :: DIM B(13):: CALL MAGNIFY(2):: FOR I=1 TO 4 :: READ A(I):: B(I)=A(I)::B(I+4)=A(I)::B(I+=A(I):: NEXT I :: READ W$ :: X=1000::S=1::CALL CLEAR::PRINT "YOU START WITH $1,000." : :
105 CALL CHAR(97,"00003C5A7E2442000018003C5A18242400003E6C787C3E0000003C5A7E7E5A"):: INPUT "WHAT IS YOUR MAXIMUM BET PERGAME? $":C :: IF C<=1000 THEN 110 ELSE PRINT "TRY AGAIN"::GOTO 105 
110 GOSUB 900::IF X-C>=0 THEN 130 ! WIN *MEGA JACKPOT* BY SPINNING SPACE INVADER, MAN, PACMAN & GHOST - IN THIS ORDER.
120 PRINT "INSUFFICIENT FUNDS TO       CONTINUE." : : "         GAME OVER     ": :"STARTING BALANCE WAS $1,000":"YOU LOST ALL YOUR CASH":"IN "&STR$(S)&" SPINS.   LOSER."::STOP
130 X=X-C :: GOSUB 900 :: s=s+1::DISPLAY AT(14,10)BEEP:"GOOD LUCK!" :: FOR D=1 TO 4 :: CALL COLOR(#D,2):: FOR I=1 TO 12 :: CALL PATTERN(#D,B(I)):: CALL SOUND(30,110+I*30,I):: NEXT I
140 I=INT((RND*4)+1):: CALL PATTERN(#D,A(I)):: A$=A$&CHR$(A(I)):: Z$(D)="-"&A$&RPT$("!",4-D):: NEXT D :: FOR D=1 TO 4 :: WI(D)=POS(W$,Z$(D),1):: NEXT D :: FOR D=4 TO 1 STEP -1 :: IF WI(D)<>0 THEN 170
160 NEXT D :: DISPLAY AT(14,10):"* NO WIN *" :: FOR I=1 TO 100 :: NEXT I :: GOTO 110
170 E=VAL(SEG$(W$,WI(D)+5,4))*C :: DISPLAY AT(14,4):"CONGRATS! YOU WIN $"&STR$(E)&"." :: FOR I=1 TO 10 STEP .5 :: CALL SOUND(-500,I*110,0):: NEXT I :: X=X+E :: FOR I=1 TO 500 :: NEXT I :: GOTO 110
900 CALL CLEAR :: DISPLAY AT(1,1):"AVAILABLE FUNDS $"&STR$(X):"BETTING AMOUNT $"&STR$(C)&"    " :: FOR I=1 TO 4 :: CALL SPRITE(#I,45,2,80,70+I*20):: NEXT I :: A$="" :: DISPLAY AT(24,1):S::RETURN
1000 DATA 97,98,99,100,-aa!!0001-bb!!0001-cc!!0001-dd!!0001-aaa!0010-bbb!0010-ccc!0010-ddd!0010-aaaa0100-bbbb0100-cccc0100-dddd0100-abcd1000

FYI: Bones-69 provided the correction to line 100.  B(I+=A(I) should be B(I+8)=A(I).

 

  • Like 3

Share this post


Link to post
Share on other sites

I've been so sedentary for the past 2 weeks.  Force myself to take a walk every day, but the rest of it is working.  I need to carve out some time and finish up my project.  I have a working game without polish nor progression.  Been sitting there like that for probably 2 years.

 

I think we need a "compiled game competition".

  • Like 5
  • Haha 1

Share this post


Link to post
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.

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