RickyDean Posted July 30, 2019 Share Posted July 30, 2019 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 ? Quote Link to comment Share on other sites More sharing options...
senior_falcon Posted July 30, 2019 Share Posted July 30, 2019 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. 1 Quote Link to comment Share on other sites More sharing options...
jrhodes Posted July 30, 2019 Share Posted July 30, 2019 I read it as : the split-second between July 31st and August 1st. 1 Quote Link to comment Share on other sites More sharing options...
kl99 Posted July 31, 2019 Share Posted July 31, 2019 It is time for a visual teaser .... 6 Quote Link to comment Share on other sites More sharing options...
senior_falcon Posted July 31, 2019 Share Posted July 31, 2019 Just over 12 hours to go!! 1 Quote Link to comment Share on other sites More sharing options...
+Vorticon Posted July 31, 2019 Author Share Posted July 31, 2019 Actually the deadline in midnight GMT, so really 6pm Central Time in the US. 1 Quote Link to comment Share on other sites More sharing options...
+Vorticon Posted July 31, 2019 Author Share Posted July 31, 2019 8 hours ago, kl99 said: It is time for a visual teaser .... You've got 4 hrs to go! Quote Link to comment Share on other sites More sharing options...
senior_falcon Posted July 31, 2019 Share Posted July 31, 2019 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. Quote Link to comment Share on other sites More sharing options...
+Vorticon Posted July 31, 2019 Author Share Posted July 31, 2019 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! Quote Link to comment Share on other sites More sharing options...
+FarmerPotato Posted July 31, 2019 Share Posted July 31, 2019 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 8 Quote Link to comment Share on other sites More sharing options...
twoodland Posted March 23, 2020 Share Posted March 23, 2020 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). 3 Quote Link to comment Share on other sites More sharing options...
unhuman Posted March 24, 2020 Share Posted March 24, 2020 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". 5 1 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
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.