new zx81 game: Dog Walk

General games-related topics

What should i do for my next game?

Poll ended at Fri Nov 12, 2021 9:42 pm

A: Text adventure based off of war of the worlds
2
100%
B: Shooter
0
No votes
C: something funny?
0
No votes
D: Convert a game from another computer to run on the spectrum? (cannot use machine code)
0
No votes
 
Total votes: 2

Crayon21
Posts: 354
Joined: Sun Nov 04, 2018 2:33 am

new zx81 game: Dog Walk

Post by Crayon21 »

This is NOT for the CGC. this is for others to improve if they wish

I still can't get the scoring to work so your score on completion (correct path) is 4 4 and whatever your previous score was. each square is one point so keep a pad handy

Enjoy.

I'm proud of this little disaster so be thorough with your criticism but not hurtful :D

edit: I fixed it up a bit, should work fine now

one final thing: I tested it on a ts1500, not sure if it will work on a zx81 but i may make a version for zx80
Attachments
dog walk fixed .P
(1.69 KiB) Downloaded 120 times
Last edited by Crayon21 on Wed Nov 10, 2021 3:05 am, edited 2 times in total.
In Heck, there are two options for perpetual torment:

Eat the Puckerberry and suffer for eternity:
drink nothing but a cocktail of The Last Dab and Mexican Cake blended and served with
habanero slices
:twisted:
User avatar
XavSnap
Posts: 1941
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: new zx81 game: Dog Walk

Post by XavSnap »

DogWalk.jpg
DogWalk.jpg (25 KiB) Viewed 2540 times
Use this : (instead of INPUT A$, to wait a key stroke)

*-*
GOSUB 9000
*-*
GOSUB 9000
*-*

9000 FOR A=0 TO 400
9010 IF INKEY$="" THEN NEXT A
9020 RETURN

Don't use complex words IF A$="WANACLEANTHESCREEN" THEN...
Just use one character (or 3), and set the PRINT available character in the reversed character.



10 PRINT "<C>LEAN"
12 INPUT A$
13 IF A$="" THEN GOTO 12
20 IF A$(1)="C" THEN GOTO 100
30 GOTO 10
...
100 REM HELLO

10 PRINT "<CLE>AN"
12 INPUT A$
15 IF LEN A$<3 THEN GOTO 12
25 IF A$(3)="CLE" THEN GOTO 100
30 GOTO 10
...
100 REM HELLO

Line 45 .... OMG, WTF !!! RTFM !!! (*)
VOTE: "(E) O How want a 16k adventure game ?"
[EDIT]
(1) In French:
OMG: Oh, mon Dieu!
WTF: Qu'es que c'est que ce bordel ?
RTFM: Lis ce putain de manuel !
[EDIT]
Last edited by XavSnap on Sat Nov 13, 2021 4:43 am, edited 1 time in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Crayon21
Posts: 354
Joined: Sun Nov 04, 2018 2:33 am

Re: new zx81 game: Dog Walk

Post by Crayon21 »

try it again
In Heck, there are two options for perpetual torment:

Eat the Puckerberry and suffer for eternity:
drink nothing but a cocktail of The Last Dab and Mexican Cake blended and served with
habanero slices
:twisted:
User avatar
XavSnap
Posts: 1941
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: new zx81 game: Dog Walk

Post by XavSnap »

DogWalk2.jpg
DogWalk2.jpg (33.72 KiB) Viewed 2491 times
Thanks Crayon for this update !

But, something's stay wrong on this code.

Have a look to the Zx81 manual, not the Zx80 manual !
:lol:

note: Use SCROLL to avoid to fill the screen and using CONT.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Crayon21
Posts: 354
Joined: Sun Nov 04, 2018 2:33 am

Re: new zx81 game: Dog Walk

Post by Crayon21 »

I have read the zx81 manual. no luck

instead of sarcasm, help me
In Heck, there are two options for perpetual torment:

Eat the Puckerberry and suffer for eternity:
drink nothing but a cocktail of The Last Dab and Mexican Cake blended and served with
habanero slices
:twisted:
User avatar
XavSnap
Posts: 1941
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: new zx81 game: Dog Walk

Post by XavSnap »

Hi Crayon,
The corrected version is ready...


Cap0125.jpg
Cap0126.jpg
Cap0127.jpg
PRN0007.jpg
WALKINGDOG.P
(4.07 KiB) Downloaded 145 times
Have fun.

XavSnap.
Last edited by XavSnap on Sat Nov 13, 2021 3:50 am, edited 2 times in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Crayon21
Posts: 354
Joined: Sun Nov 04, 2018 2:33 am

Re: new zx81 game: Dog Walk

Post by Crayon21 »

how did you do this? :o
In Heck, there are two options for perpetual torment:

Eat the Puckerberry and suffer for eternity:
drink nothing but a cocktail of The Last Dab and Mexican Cake blended and served with
habanero slices
:twisted:
User avatar
mrtinb
Posts: 1910
Joined: Fri Nov 06, 2015 5:44 pm
Location: Denmark
Contact:

Re: new zx81 game: Dog Walk

Post by mrtinb »

It seems line 1 is a small machine code routine, that scrolls horizontally, which is called in line 60. The rest of the program is simple Basic you can study by reading it line by line and compare it with the ZX81 manual https://perfectlynormalsite.com/downloa ... amming.pdf .

Studying other peoples code, is the best way to learn. Even though I've programmed for 35 years, I still learn by looking at other peoples code.
Martin
https://zx.rtin.be
ZX81, Lambda 8300, Commodore 64, Mac G4 Cube
User avatar
XavSnap
Posts: 1941
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: new zx81 game: Dog Walk

Post by XavSnap »

how did you do this?
Just a lucky strike ...
Last edited by XavSnap on Tue Nov 16, 2021 9:04 pm, edited 2 times in total.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
User avatar
XavSnap
Posts: 1941
Joined: Sat May 10, 2008 4:23 pm
Location: 'Zx81 France' Fb group.

Re: new zx81 game: Dog Walk

Post by XavSnap »

Hi,

"PeePoo" , The walking dog ...
Is now updated for more funniest targets.
Cap0128.jpg
WALKINGDOG.P
(4.68 KiB) Downloaded 125 times

Note to Crayon21:
B: Shooter : Done.
C: Something Funny : Done.

:lol:

Note:
You can add many "tags" item in the display process, clouds, house, gates ...
But, all "If" lines will speed downs the ZxBasic...
The GOTO xxx+yyy method had to put a GOTO at each item, and GOSUB a RETURN... and fill the memory...

Just use both method GOSUB/IF to avoid to read all of yours V conditions...

Code: Select all

(...)
85 GOSUB 6000+10*INT(V/5)
(...)

6000 IF V=0 THEN PRINT AT 
6001 IF V=1 THEN PRINT AT 
6002 IF V=2 THEN PRINT AT 
6003 IF V=3 THEN PRINT AT 
6004 IF V=4 THEN PRINT AT 
6005 RETURN

6010 IF V=5 THEN PRINT AT 
6011 IF V=6 THEN PRINT AT 
6012 IF V=7 THEN PRINT AT 
6013 IF V=8 THEN PRINT AT
6014 IF V=9 THEN PRINT AT
6015 RETURN

6020 IF V=10 THEN PRINT AT 
6021 IF V=11 THEN PRINT AT 
6022 IF V=12 THEN PRINT AT 
6023 IF V=13 THEN PRINT AT 
6024 IF V=14 THEN PRINT AT 
6025 RETURN

Keep in mind :
- On an item, you had to use the reversed "H" character on the line 8, if the item is higher than the line 7.
It's used to test the foreground mask before the man... One or several "H" (the man item!)
- The "PEE" switch is the reversed "H" character... too, on the line #13.
- The "POO" switch is the grey/black character on the line #20.
Cap0129.jpg
Gate example (reversed "H" at the top! , Unpee_able and Unpoo_able... you had to add almost one "H" at the gate bottom to be pee_able...it's not french too...):
expample.JPG
...Or keep this line clean... the "X" will be displayed with the first background purpose.

Have fun.
Xavier ...on the Facebook groupe : "Zx81 France"(fr)
Post Reply