player initial random positioning completed!
https://git.sr.ht/~vidak/oats-for-my-goats/commit/5fc8143a5c864d0453fc9baaae0c701f69badfb8
9 REM SET UP PLAYFIELD BORDER
10 DIM A(10,20)
20 FOR B = 1 TO 10
30 FOR C = 1 TO 20
40 LET A(B,C) = 0 REM Make every playfield space blank.
50 IF B = 1 THEN A(B,C) = 1 REM Top border is all fences.
60 IF B = 10 THEN A(B,C) = 1 REM Bottom border is all fences.
70 IF C = 1 THEN A(B,C) = 1 REM Left border, all fences.
80 IF C = 20 THEN A(B,C) = 1 REM Right border, all fences.
90 NEXT C
100 NEXT B
499 REM GENERATE PLAYER POSITION
500 B = INT(RND(8)+2)
510 C = INT(RND(18)+2)
520 A(B,C) = 3
999 REM PRINT MAZE PATTERN
1000 FOR B = 1 TO 10
1010 FOR C = 1 TO 20
1020 IF A(B,C) = 0 PRINT ".";
1030 IF A(B,C) = 1 PRINT "X";
1040 IF A(B,C) = 2 PRINT "+";
1050 IF A(B,C) = 3 PRINT "@";
1060 NEXT C
1070 PRINT
1080 NEXT B
- replies
- 0
- announces
- 3
- likes
- 2