da grid (MSX) by Dan

da grid, by dan

this is my third program in my life. previous ones were brain breaking balls at https://bunsen.itch.io/brain-breaking-balls-by-dan and virus at https://bunsen.itch.io/virus-by-dan

this is a puzzle game

it is not about balls but squares and grids

do you think you have the eye of a hawk? prove it

the game has 4 stages:

stage 1: simply copy in board 2 the grid of board 3

stage 2: copy the grid by flipping it horizontally

stage 3: copy the grid by flipping it vertically

stage 4: copy the grid by rotating it right 90º

use spacebar and cursor keys to select the boundaries of the square you want to paint in board 2

if necessary, press "m" (lowercase) to flip the grid you are currently using

some explanations:

i'm not a programmer, so please don't blame me

lines 0-2 prepare the data and the boards

line 3 cleans board 2 and 3 at each stage and calls the painting routine

lines 4-5 allow the player to use the pointer and flip the squares in board 1, and call the painting routine

lines 3-7 paint the user and machine boards

line 8 checks if the user grid matches the machine one

line 9 controls the stages and has some data

the code

0definta-z:screen1:deffna(i)=int(rnd(-time)*i):deffno(a$,a)=asc(mid$(a$,a,1)):f=32:b=6209:onstriggosub6:fori=0to3:g=6176
1:p(i)=fno("5<!<",i+1)+g:reada$:a$(i)=a$+" grid":forv=0to5:a=a+1:o(v,i)=fno("ÁÇËÌÑÒÇÁÌËÑÒÇÁÌËÑÒÇÁÌËÒÑ",a):nextv,i:u=10''
2forv=0to7:q(v)=fno("ZXZyyy9X",v+1)-89:s(v)=fno("Y9YZYyYX",v+1)-89:nextv:fori=gto6495:vpokei,219:next:p(2)=6453:s=b+u'''
3printa$(e):forl=cto2:forv=0to7:fori=1to8:vpokeg+f+i+v*f+l*u,0:nexti,v,l:c=1:forz=0to11:y=s+fna(8)*f+fna(8):gosub6:nextz
4y=b:strig(0)on:ifinkey$="m"theno=o*(o=>0)-e*(o<=e):vpokeb,o(d,o)elseq=stick(0):t=s(q):b=b+t:v=(b-g)\f:ifq=0then4'thanks
5ifbmodfmod9=0orvmod9=0thenb=b-t:goto4elsey=b:fori=1to8:z=g+i+v*f:vpokez+t*(qmod4=1),0:vpokez,7:next:vpokeb,o(d,o):goto4
6u(n)=y:r=u(0):vpokey+u,o(d,o):ifn=0thenn=1:returnelsen=0:w=rmodf-ymodf:j=r\f-y\f:form=0toabs(j):forv=0toabs(w):datacopy
7a=u+r-m*f*sgn(j)-v*sgn(w):vpokea,o(d,o):pokea+g*6,o(d,e):nextv,m:d=d+1:ifd<=5thenreturnelseifx=0thenx=1:d=0:n=0:return'
8forv=0to7:fori=0to7:l=&ha915+i+v*f:y=p(e)+i*q(e)+v*q(e+4):vpokey,peek(l):k=k+(vpeek(y)>vpeek(y-u)):pokel,0:nexti,v''dan
9datahflip,vflip,r90ø:locate0,0:ifk=0thend=0:x=0:e=e+1:ife>3thenprint"u hawk eye!":endelseo=0:goto3elseprint"try again?"