Localvore: TinyQBN Tutorial 2

Your browser lacks required capabilities. Please upgrade it or switch to another to continue.

Loading…

<<set $month to 1>> <<set setup.monthnames to ["", "January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December" ]>>

<<widget "nextmonth">><<silently>> <<if $month is 12>> <<set $month to 1>> <<else>> <<set $month to $month + 1>> <</if>> <</silently>><</widget>>

!Home (<<= setup.monthnames[$month]>>) <<set $location to "home">>\ [[Drive->Car]] | <<link "Next Month" "Home">><<nextmonth>><</link>>

!Fairweather Farm <<set $location to "fairweather">>\ <<range "$month" 4 "egg" 11>>\ <<range "$month" 4 "cool" 6 "hot" 9 "cool" 11>>\ <<range "$month" "potato" 3 6 "potato">>\ <<include "current products">> [[Drive->Car]]

!Anderson Farm <<set $location to "anderson">>\ <<include "current products">> [[Drive->Car]]

!Docks <<set $location to "docks">>\ <<range "$month" 5 "mackerel" 7 10 "mackerel">>\ <<range "$month" "shrimp" 4 12 "shrimp">>\ <<include "current products">> [[Drive->Car]]

<<set _driving to true>>\ <<cardrow `QBN.cards().sort(QBN.alphabetically)` "linkbox">>\ <<unset _driving>> <<return "Exit Car">>

<<nobr>> <<set _product to true>> <<set _products to QBN.cards()>> <<unset _product>> /% so it won't mess up other (hypothetical) selections on the same page %/ <<if _products.length eq 0>> There is nothing for sale here. <<else>> There are <<cardlist _products>> for sale here. <</if>> <</nobr>>

ripe red strawberries

eggs from happy hens

heads of broccoli

bunches of spinach

russet potatoes

bunches of kale

pork chops

trays of ground beef

beef roasts

steaks

jugs of milk

bags of shredded mozzarella

blocks of sharp cheddar

cod fillets

mackerel

lobsters

mussels

shrimp

swordfish steaks

/* * Comma-separated lists: call with "linkto" for links instead * of contents. */ <<widget "cardlist">>\ <<includeall $args[0] `$args[1] or "content"` "comma">>\ <</widget>> /* * Rows and columns of card contents in boxes: call with "linkbox" * for links, or "coverbox" for covers. */ <<widget "cardcolumn">>@@.qbn-column; <<includeall $args[0] `$args[1] or "contentbox"`>> @@<</widget>> <<widget "cardrow">>@@.qbn-row; <<includeall $args[0] `$args[1] or "contentbox"`>> @@<</widget>> /* Comma separator (no serial comma). */ <<widget "comma">><<if $args[0]>> and <<else>>, <</if>><</widget>> /* Wrapper widgets (card contents or links, optionally boxed). */ <<widget "cover">>\ <<set _qbn_cover to true>><<includecard $args[0]>><<unset _qbn_cover>>\ <</widget>> <<widget "content">><<if `QBN.available($args[0])`>>\ <<unset _qbn_cover>><<includecard $args[0]>><<removecard $args[0] false>>\ <</if>><</widget>> <<widget "linkto">><<print '[\[' + $args[0] + ']]'>><</widget>> <<widget "coverbox">>@@.qbn-card; <<cover $args[0]>> @@<</widget>> <<widget "contentbox">>@@.qbn-card; <<content $args[0]>> @@<</widget>> <<widget "linkbox">>@@.qbn-card; <<linkto $args[0]>> @@<</widget>> /* Conditional Links */ <<widget "linkif">>\ <<if $args[0]>><<= '[\['+($args[2] or $args[1])+'->'+$args[1]+']]'>>\ <<else>>@@.qbn-nolink;<<= $args[2] or $args[1]>>@@<</if>>\ <</widget>> <<widget "linkcontents">><<linkif `QBN.available($args[1] or QBN.current)` `$args[1] or QBN.current` $args[0]>><</widget>> /* Choice helpers */ <<widget "skillcheck">>\ <<set _qbnsuccess to $args[0].check($args[1])>>\ <</widget>> <<widget "gotoresult">>\ <<if _qbnsuccess>><<set $args[0] to $args[0] + ' ' + Success>><</if>>\ <<if State.random() < 0.20 and Story.get('Rare ' + $args[0])>>\ <<set $args[0] to 'Rare ' + $args[0]>>\ <</if>>\ <<unset _qbnsuccess>><<removecard _qbncurrent false>><<goto $args[0]>>\ <</widget>>