Jump to content

Photo

programs


33 replies to this topic

#26 Retrospect OFFLINE  

Retrospect

    Dragonstomper

  • 779 posts
  • Location:Wakefield, England

Posted Mon Jan 11, 2016 1:16 PM

Thanks to Craig Miller for the main code on this "follow" program .... it needs Extended Basic :)

 

10 CALL CHAR(77,"3C7EDBDBFFDB663C"):: CALL CHAR(71,"3C7EDBDBFFDB663C")

20 FOR L=1 TO 14 :: CALL COLOR(L,16,2):: NEXT L

30 CALL CLEAR :: CALL SCREEN(2):: CALL MAGNIFY(2):: CALL SPRITE(#1,77,16,100,100,#2,71,12,30,30)

40 CALL JOYST(1,X,Y):: CALL MOTION(#1,4*-Y,4*X):: CALL POSITION(#2,R,C,#1,Y,X):: CALL MOTION(#2,(Y-R)*.25,(X-C)*.25)

50 DISPLAY AT(24,1):" " :: CALL COINC(ALL,A)

60 IF A=-1 THEN DISPLAY AT(24,1):"HELLO FRIEND!" :: GOTO 40

70 GOTO 40
 



#27 DavidC OFFLINE  

DavidC

    Space Invader

  • 36 posts

Posted Mon Jan 11, 2016 8:31 PM

On the topic of programs, can you gurus share some extended basic sprite examples? I know the basics of call sprite, but just what I've read from Compute! books and various articles in the old magazines. Nothing like what I know you guys can do...

Edit: and apparently, I didn't see Retrospects post above...

Edited by DavidC, Mon Jan 11, 2016 8:35 PM.


#28 RXB OFFLINE  

RXB

    River Patroller

  • 2,266 posts
  • Location:Vancouver, Washington, USA

Posted Mon Jan 11, 2016 9:11 PM

Wish I could demo some of my RXB Sprite routines.

 



#29 DavidC OFFLINE  

DavidC

    Space Invader

  • 36 posts

Posted Mon Jan 11, 2016 9:55 PM

Very cool stuff RXB! Wow!

#30 --- Ω --- OFFLINE  

--- Ω ---

    --- Ω ---

  • 9,232 posts

Posted Mon Jan 11, 2016 10:12 PM

You know something Rich, some of your stuff is pretty freaking slick.  What would be real cool is to see you start a thread that focuses on ALL the goodies of RXB... AND ALL THE PROGRAMS WRITTEN SPECIFICALLY TO EXPLOIT IT

 

A thread with a combination of your videos, programs in downloadable or text listing format would be great.  With your explanations and the library you must have amassed over the decades, I can see such a thread getting quite popular, especially now that RXB can be easily obtained and used in cartridge form.



#31 Opry99er OFFLINE  

Opry99er

    Quadrunner

  • 7,600 posts
  • Location:Cookeville, TN

Posted Mon Jan 11, 2016 11:22 PM

Damn, Rich... That's some legit sh** right there....

#32 unhuman OFFLINE  

unhuman

    Stargunner

  • 1,120 posts
  • Location:Vienna, VA

Posted Wed Jan 13, 2016 8:48 AM

Yeah, all we need is a contest to see who can make the best game using your stuff...

 

I'm sort of torn always since whatever I do next I want to be compiled, but...  I'm a sucker for a contest.



#33 Retrospect OFFLINE  

Retrospect

    Dragonstomper

  • 779 posts
  • Location:Wakefield, England

Posted Wed Jan 13, 2016 3:07 PM

"Chase" by Vince Apps

 

100 REM
110 REM    CHASE BY VINCE APPS
120 REM
130 CALL CLEAR
150 CALL CHAR(130,"3844386CAA3844C6")
160 CALL COLOR(13,7,1)
170 CALL CHAR(140,"387CBAFE82FE3838")
180 CALL COLOR(14,3,1)
190 R=23
200 RO=23
210 C=16
220 CO=16
230 CALL HCHAR(R,C,130)
240 MR=2
250 MRO=2
260 MC=16
270 MCO=16
280 GOTO 700

290 REM MOVE MAN
300 CALL KEY(0,K,S)
310 IF K<>69 THEN 330
320 R=R-1
330 IF K<>88 THEN 350
340 R=R+1
350 IF K<>68 THEN 370
360 C=C+1
370 IF K<>83 THEN 390
380 C=C-1
390 IF (R=RO)*(C=CO) THEN 490
400 IF (R<2)+(R>23)+(C>31)+(C<3) THEN 410 ELSE 440
410 R=RO
420 C=CO
430 GOTO 490
440 CALL SOUND(100,330,2)
450 CALL HCHAR(RO,CO,32)
460 CALL HCHAR(R,C,130)
470 RO=R
480 CO=C
490 RETURN

500 REM MOVE MONSTER
510 IF MR>=R THEN 530
520 MR=MR+1
530 IF MR<=R THEN 550
540 MR=MR-1
550 IF MC>=C THEN 570
560 MC=MC+1
570 IF MC<=C THEN 590
580 MC=MC-1
590 CALL SOUND(100,220,2)
600 CALL HCHAR(MRO,MCO,32)
610 CALL HCHAR(MR,MC,140)
620 IF (MR=R)*(MC=C) THEN 660
630 MRO=MR
640 MCO=MC
650 RETURN
660 CALL SOUND(200,200,2)
670 PRINT "        CAUGHT YOU!"::::
680 END

690 REM MAIN LOOP
700 GOSUB 300
710 GOSUB 510
720 CALL CHAR(130,"3844386CAA38286C")
730 GOSUB 300
740 CALL CHAR(130,"3844386CAA3844C6")
750 CALL CHAR(140,"387CBAFEFEFE3838")
760 GOSUB 300
770 GOSUB 510
780 CALL CHAR(140,"387CBAFE82FE3838")
790 GOTO 700
 


Edited by Retrospect, Wed Jan 13, 2016 3:07 PM.


#34 RXB OFFLINE  

RXB

    River Patroller

  • 2,266 posts
  • Location:Vancouver, Washington, USA

Posted Thu Feb 9, 2017 4:19 AM

LOL for the hell of it I converted it to RXB for some changes:


100 REM
110 REM    CHASE BY VINCE APPS
120 REM    Modified for RXB
130 CALL CLEAR
150 CALL CHAR(130,"3844386CAA3844C6",140,"387CBAFE82FE3838")
160 CALL COLOR(13,7,1,14,3,1)
190 R=23
200 R0=23
210 C=16
220 C0=16
230 CALL HCHAR(R,C,130)
240 MR=2
250 MR0=2
260 MC=16
270 MC0=16
280 GOTO 700

290 REM MOVE MAN
300 cALL ONKEY("EXDS",0,K,S) GOTO 320,340,360,380
320 R=R-1
330 GOTO 390
340 R=R+1
350 GOTO 390
360 C=C+1
370 GOTO 390
380 C=C-1
390 IF (R=R0)*(C=C0) THEN 490
400 IF (R<2)+(R>23)+(C>31)+(C<3) THEN 410 ELSE 440
410 R=R0
420 C=C0
430 RETURN
440 CALL SOUND(100,330,2)
450 CALL HCHAR(R0,C0,32,1,R,C,130)
470 R0=R
480 C0=C
490 RETURN

500 REM MOVE MONSTER
510 IF MR>=R THEN 530
520 MR=MR+1
530 IF MR<=R THEN 550
540 MR=MR-1
550 IF MC>=C THEN 570
560 MC=MC+1
570 IF MC<=C THEN 590
580 MC=MC-1
590 CALL SOUND(100,220,2)
600 CALL HCHAR(MR0,MC0,32,1,MR,MC,140)
620 IF (MR=R)*(MC=C) THEN 660
630 MRO=MR
640 MC0=MC
650 RETURN
660 CALL SOUND(200,200,2)
670 PRINT "        CAUGHT YOU!"::::
680 END

690 REM MAIN LOOP
700 GOSUB 300
710 GOSUB 510
720 CALL CHAR(130,"3844386CAA38286C")
730 GOSUB 300
740 CALL CHAR(130,"3844386CAA3844C6",140,"387CBAFEFEFE3838")
760 GOSUB 300
770 GOSUB 510
780 CALL CHAR(140,"387CBAFE82FE3838")
790 GOTO 700





0 user(s) are browsing this forum

0 members, 0 guests, 0 anonymous users