#decemberadventure

https://spectra.video/w/jA3EyjrJ7KifSbH6JZr8PH

made some serious progress on the shop component of the game.

the random item generator is now integrated into the shop system.

you are:

• able to buy items with sufficient currency
• able to choose which pocket you want your item to go into

problems:

• selecting a non-empty pocket to fill following a purchase will currently clobber the previous item
• not very polished

TLDR--please see the attached video.

10 DIM SHOPADJ$(16,10)
20 DIM SHOPNOUN$(16,10)
30 DIM SHOPITEM$(32,10)
40 DIM PLYRITEM$(32,10)
50 DIM PRICE(10)
60 OATS = 10000
70 CLS
80 PRINT "WELCOME TO THE OATS SHOP."
90 PRINT "BY VIDAK."
100 PRINT "PUBLIC DOMAIN LICENCE."
110 PRINT:PRINT
120 PRINT "ITEM # ..... PRICE (ø) ... ITEM NAME"
130 PRINT
140 FOR I = 1 TO 10
150     TMPADJ = INT(RND(50))+1
160     TMPNOUN = INT(RND(75))+51
170     PRICE(I)=INT(RND(100))+1
180     RESTORE TMPADJ
190     READ SHOPADJ$()(I)
200     RESTORE TMPNOUN
210     READ SHOPNOUN$()(I)
220     SHOPITEM$()(I)=SHOPADJ$()(I)+" "+SHOPNOUN$()(I)
230 NEXT I
240 FOR I = 1 TO 10
250     PRINT I;" .......... ";PRICE(I);" .......... ";SHOPITEM$()(I)
260     PRINT
270 NEXT 
280 PRINT "NUMBER OF OATS IN YOUR POSSESSION: "; OATS
290 PRINT
300 PRINT "YOUR POCKETS:"
310 PRINT
320 FOR I = 1 TO 10
330     PRINT I;" ";
340     IF PLYRITEM$()(I) = "" THEN PRINT "Pocket empty !":GOTO 360
350     PRINT PLYRITEM$()(I)
360 NEXT I
370 PRINT "SELECT AN ITEM TO BUY. (1-10)"
380 INPUT ITEMBUY
390 IF ITEMBUY > 10 OR ITEMBUY < 1 THEN PRINT "INVALID ITEM NUMBER.":ENDSHOP
400 IF OATS < PRICE(ITEMBUY) THEN PRINT "OATS INSUFFICIENT":ENDSHOP
410 PRINT "SELECT A POCKET INTO WHICH TO PLACE THE ITEM (1-10)"
420 INPUT POCKET
430 IF POCKET > 10 OR POCKET < 1 THEN PRINT "INVALID POCKET NUMBER.":GOTO 420
440 PLYRITEM$()(POCKET)=SHOPITEM$()(ITEMBUY)
450 OATS = OATS - PRICE(ITEMBUY)
460 SHOPITEM$()(ITEMBUY) = ""
470 PRICE(ITEMBUY) = 0
480 PRINT PLYRITEM$()(POCKET);" OBTAINED."
490 PRINT
500 PRINT "PLACED INSIDE POCKET NUMBER "; POCKET
510 PRINT
520 GOTO 240

    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","luminosity","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","emanation"