social.solarpunk.au

social.solarpunk.au

I have finished writing a simple random item generator for the shop component of the game.

I originally wanted to have a much more complex process.

You will be able to see much of my noodling on this in the git repo:

https://git.sr.ht/~vidak/oats-for-my-goats

5   CLS
10  PRINT "WELCOME TO THE RANDOM ITEM NAME GENERATOR."
20  PRINT "BY VIDAK."
30  PRINT "PUBLIC DOMAIN LICENCE."
40  PRINT:PRINT:PRINT
50  PRINT "HOW MANY RANDOM ITEM NAMES WOULD YOU LIKE? (0=QUIT)"
60  INPUT "> ";N
70  IF N=0 THEN END
80  FOR I = 1 TO N
90      PRINT I;TAB(5);
100     R=INT(RND(50))+1
110     RESTORE R
120     READ J$
130     PRINT J$;" ";
140     R=INT(RND(75))+50
150     RESTORE R
160     READ J$
170     PRINT J$
180     PRINT
190 NEXT I
200 PRINT
210 PRINT "DONE"
    
    REM Adjectives
    REM 50 tokens
    
1000 DATA "good","bad","great","horrible","perfect","beautiful","simple","handsome","gorgeous","plain","cute","messy","fancy","pretty","cheerful","generous","serious","brave","funny","nice","friendly","kind","mean","grumpy","happy","sad"     
1010 DATA "big","small","heavy","short","tall","light","wide","narrow","enormous","tiny","miniature","soft","hard","smooth","sticky","thick","crisp","dry","wet","firm","crunchy","old","antique","new"
     
     REM Cryptic nouns
     REM 75 tokens
    
2000 DATA "occasion","regime","cosmos","spirit","dwelling","attache","arrangement","assembly","pursuit","clique","learning","evidence","treasure","dusk","fluid","kindred","visage","ether","region","conclave","lodging","combat","throughway"
2010 DATA "appointment","organism","folio","edge","municipality","concept","avail","dawn","bureau","antiquity","inquiry","concept","nature","parchment","digit","acquaintance","murmur","theatre","luminousity","representation","ward","melody"
2020 DATA "harmony","meadow","accolade","lounge","merriment","strand","symbol","agreement","inferno","incandescence","rapport","record","solstice","cultivation","culture","leaf","event","appearance","amphibian","grease","specialist","crag"
2030 DATA "presentation","aperture","grocer","sonance","earth","steed","frost","emination"

replies
0
announces
0
likes
0