+CyranoJ Posted December 3, 2014 Share Posted December 3, 2014 <24 hours of time taken to interface RAPTOR to EhBASIC by two people (ggn and myself) Feelers have been sent out to some people to be invited to the test team. 6 Quote Link to comment Share on other sites More sharing options...
ggn Posted December 3, 2014 Share Posted December 3, 2014 (edited) For the hipsters out there... Note: this source works only on ST which was the debugging testbed. Better tools there and all. Not that there's a LOT of work to get it running with raptor if you like but it's not like you can do much atm except calculate and print crap . Edited December 3, 2014 by ggn 3 Quote Link to comment Share on other sites More sharing options...
TXG/MNX Posted December 3, 2014 Share Posted December 3, 2014 There was already jagbasic another ehbasic port by Matthias. Quote Link to comment Share on other sites More sharing options...
TXG/MNX Posted December 3, 2014 Share Posted December 3, 2014 Maybe a way to get bcx working with raptor :-) Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 3, 2014 Author Share Posted December 3, 2014 Maybe a way to get bcx working with raptor :-) No thanks. Plus I think we've got more working in <24 hours than a certain someone managed all last year Talking about things doesn't get things done. Doing something gets things done. 5 Quote Link to comment Share on other sites More sharing options...
ggn Posted December 3, 2014 Share Posted December 3, 2014 What CJ meant to say is, of course, "patches welcome". Although we won't hold our breaths... Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 3, 2014 Author Share Posted December 3, 2014 What CJ meant to say is, of course, "patches welcome". Although we won't hold our breaths... No, what CJ meant to say couldn't possible be displayed on a family friendly forum. Quote Link to comment Share on other sites More sharing options...
ggn Posted December 3, 2014 Share Posted December 3, 2014 No, what CJ meant to say couldn't possible be displayed on a family friendly forum. Hmm, "patches welcome" is a no-no on a family friendly forum? Tough moderation . Quote Link to comment Share on other sites More sharing options...
TXG/MNX Posted December 4, 2014 Share Posted December 4, 2014 No, what CJ meant to say couldn't possible be displayed on a family friendly forum. Ok BYE BYE Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 4, 2014 Author Share Posted December 4, 2014 First new command added: RPRINT "<text>",x,y,size,index Directly mapping to the RAPTOR function It's all downhill from here, mapping them 1:1..... BRING ON THE BASIC CODERS! Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 4, 2014 Author Share Posted December 4, 2014 OK, first things first... JOYPAD input is working 10 X=U235PAD1 15 PRINT X 20 GOTO 10 Such sweet, delicious irony. And now I'm off to work. 1 Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 5, 2014 Author Share Posted December 5, 2014 OK.... 48 hours.... 100 REM SPRITE TEST 110 REM 120 SPRX=8: SPRY=12 130 OFFD=PI*2/3 140 FOR POS=0 TO (PI*2) STEP (PI*2) / 200 150 FOR OBJ=1 TO 3 160 RSETOBJ OBJ,SPRX,(160+(SIN(POS+OFFS)*120))<<16 170 RSETOBJ OBJ,SPRY,(120+(COS(POS+OFFS)*90))<<16 180 OFFS=OFFS+OFFD 190 NEXT OBJ 200 RUPDALL 210 NEXT POS 220 GOTO 130 rbasic-sprites.zip RRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRRaptor! 3 Quote Link to comment Share on other sites More sharing options...
TXG/MNX Posted December 5, 2014 Share Posted December 5, 2014 Whats next a compiler or will you embed the basic code in the maincode to have a final .o code ? Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 5, 2014 Author Share Posted December 5, 2014 (edited) Whats next a compiler or will you embed the basic code in the maincode to have a final .o code ? Dunno, thought I'd talk about it for a year or so first... maybe start a Hero port, or a Klax port, or dream of joypad input .. oh wait, it's already got that. Maybe I could talk about magnitudes of somethings more or less than something else unrelated. Or maybe, just maybe, I'll finish this and release it for everyone to play with Because, you know... all mouth and no trousers isn't much fun. Edited December 5, 2014 by CyranoJ 3 Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 5, 2014 Author Share Posted December 5, 2014 RAPTOR List management is in Here's your very simple title screen code: 111 RSETLIST 1: RUPDALL 112 IF U235PAD1=0 GOTO 112 113 RSETLIST 0: RUPDALL Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 6, 2014 Author Share Posted December 6, 2014 I've cleaned up the syntax - all parameters are now passed in parenthesis* (much nicer to read) - I also changed U235PAD1 to U235PAD(x) so both pads can be read. *added advantage, RPRINT can now take a string variable value instead of a direct string in "" New commands added are U235MOD(x) and U235SND(x,y) to play a module, or a sound effect on a channel. So, with that we now have code that looks like: 100 REM SPRITE TEST 101 REM 110 U235MOD(0) 120 RSETLIST(1): RUPDALL 130 IF U235PAD(1)=0 GOTO 130 140 RSETLIST(0): RUPDALL 150 PX=100 160 PY=100 170 SPRX=8: SPRY=12 180 OFFD=PI*2/3 190 FOR POS=0 TO (PI*2) STEP (PI*2) / 200 200 FOR OBJ=1 TO 3 210 RSETOBJ(OBJ,SPRX,(160+(SIN(POS+OFFS)*120))<<16) 220 RSETOBJ(OBJ,SPRY,(120+(COS(POS+OFFS)*90))<<16) 230 OFFS=OFFS+OFFD 240 NEXT OBJ 250 HIT=RHIT(1,3,4,4) 260 IF HIT<>-1 THEN RPRINT("COLLISION!",0,0,2,1): U235SND(0,4) 270 IF HIT=-1 THEN RPRINT(" ",0,0,2,1) 280 PAD=U235PAD(1) 290 IF PAD=1 THEN PY=PY-1 300 IF PAD=2 THEN PY=PY+1 310 IF PAD=4 THEN PX=PX-1 320 IF PAD=8 THEN PX=PX+1 330 RSETOBJ(4,SPRX,PX<<16): RSETOBJ(4,SPRY,PY<<16) 340 RUPDALL 350 NEXT POS 360 GOTO 190 and here is the sample binary..... rbasic-example2.zip If all goes well, we'll open this to the public sometime this weekend. 4 Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 6, 2014 Author Share Posted December 6, 2014 Here's a small sample game that I put together to show how easy and quickly things can be built - it's a simple dodge game. And the code: 100 REM SIMPLE DODGE GAME 101 REM 110 U235MOD(0) 120 SPRX=8: SPRY=12: SPRACT=4: SPRXADD=16: SPRWHIT=112: SPRHITS=132 130 FRCOUNT=0: CURRENT=0 140 PY=100 300 REM MAIN LOOP 310 FRCOUNT=FRCOUNT+1 320 IF FRCOUNT=10 THEN GOSUB 800: REM ADD NEW ENEMY 330 STICK=U235PAD(1) 340 IF (STICK=1 AND PY>20) THEN PY=PY-2 350 IF (STICK=2 AND PY<200) THEN PY=PY+2 360 RSETOBJ(1,SPRY,PY<<16) 370 IF RHIT(1,1,2,22)<>-1 THEN U235SND(0,4) 380 RUPDALL 390 GOTO 300 800 REM NEW ENEMY 810 RSETOBJ(2+CURRENT,SPRX,352<<16) 820 RSETOBJ(2+CURRENT,SPRY,INT(RND(0)*200)<<16) 830 RSETOBJ(2+CURRENT,SPRWHIT,-1) 840 RSETOBJ(2+CURRENT,SPRHITS,1) 850 RSETOBJ(2+CURRENT,SPRXADD,-2<<16) 860 RSETOBJ(2+CURRENT,SPRACT,1) 870 CURRENT=CURRENT+1: IF CURRENT=20 THEN CURRENT=0 880 FRCOUNT=0 890 RETURN rbasic1.zip 1 Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 6, 2014 Author Share Posted December 6, 2014 Added three more commands: CLS - clear the screen SETCUR(x,y) - set the cursor to x,y LOCATE(x,y) - returns the character (as a string) from location x,y on screen Quote Link to comment Share on other sites More sharing options...
+CyranoJ Posted December 6, 2014 Author Share Posted December 6, 2014 This discussion can continue here: http://atariage.com/forums/forum/161-raptor-basic/ Thanks to Albert for creating the subforums. Note: RBASIC is now available for download! 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.