Extended Basic 10 liner contest

[RickyDean]

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 ?

[senior_falcon]

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.

[jrhodes]

I read it as : the split-second between July 31st and August 1st.

[kl99]

It is time for a visual teaser ....

 

 

[senior_falcon]

Just over 12 hours to go!!

[+Vorticon]

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

[+Vorticon]

8 hours ago, kl99 said:

It is time for a visual teaser ....

 

 

You've got 4 hrs to go!

[senior_falcon]

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.

[+Vorticon]

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!

[+FarmerPotato]

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)
 

 

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

 

[twoodland]

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

 

[unhuman]

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