social.solarpunk.au

social.solarpunk.au

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