Top 10k strings from set.tap in <root> / bin / z80 / software / ZxTapGames.zip / games /
Back to the directory listing
13 // call line 10 // call spinner 8 lineHue=shapeHue 8 // call prompt 6 shapeX=cardX: 6 // call shapePlot 6 // call mainMode 5 // call cardDecode 4 tableLength 4 shapeY=oldY 4 shapeX=oldX: 4 oldY=shapeY 4 oldX=shapeX: 4 lineY2=lineY 4 lineX=shapeX: 4 // call selection 4 // call selCoords 4 // call gridCoords 4 // call card 3 shapeStep=2 3 shapeStep=1 3 lineY=shapeY 3 lineY2=shapeY 3 lineX2=shapeX: 3 // call helpMode 2 t$(sI)="1" 2 shapeY=shapeY-2 2 shapeY=cardY-20 2 r$="valid" 2 numDealt=numDealt+1 2 m$="wrong" 2 m$="select" 2 m$="notice" 2 m$="correct" 2 lineY=thY2 2 lineY=shY2 2 lineY2=thY2 2 lineY2=shY2 2 lineX=shX2: 2 lineX2=shX2: 2 lineX2=r(1 2 lineHue=white 2 h(lineHue) 2 // goto srNextB3 2 // goto srNextA2 2 // goto spBreak 2 // goto mainLoop 2 // call trianglefilled 2 // call squarefilled 2 // call lineOver 2 // call circlehollow 2 // call circlefilled 2 // call cardClear 1 z$="123456789ABCDEF" 1 x$="001020300111213102122232404142" 1 v$="100001010000000000000000001" 1 thY2=shapeY-14 1 thX3=shapeX-7 1 thX2=shapeX+7 1 tfY2=shapeY-i 1 tfX=shapeX+9 1 tfX3=tfX-tfJ 1 tfX2=tfX+tfJ: 1 tableLength>12 1 tableLength=tableLength+1 1 tableLength=b-1 1 tableLength=12 1 tableLength<3 1 t$(srJ to srJ+4 1 subBase=subBase+((cardFill-1 1 subBase=500 1 subBase=2100 1 subBase=1300 1 srL=numDealt*5 1 shapeY=cardY-8 1 shapeY=cardY-4 1 shapeY=cardY-36 1 shapeY=cardY-32 1 shapeX=shapeX+9 1 shapeHue=cardHue 1 shY2=shapeY-12 1 shX2=shapeX+12 1 sfY=shapeY-2 1 sfY2=sfY-i 1 sfX2=shapeX+12 1 set 1 selI=selI+1 1 selI=((sel-1 1 sel=tableLength 1 seI=(seC-1 1 seI=(seB-1 1 seI=(seA-1 1 r$="shape": 1 r$="number": 1 r$="fill": 1 points=points-1 1 points=points+1 1 points+", #"+ 1 p$=p$+" Press R" 1 p$=n$(n)+o$ 1 p$="Wrong "+r$+", -1, Press R" 1 p$="Select. Press 123456789ABCDEF" 1 p$="Return. Press R" 1 p$="Really quit? Press Y or N" 1 p$="Correct, +1. Press R" 1 p$="13 cards already.": 1 ovalY=shapeY 1 ovalY2=shapeY-10 1 ovalY2=ovalY2-ovalY 1 ovalX=shapeX: 1 ovalX2=shapeX+10 1 ovalX2=ovalX2-ovalX: 1 ovalX2,ovalY2, 1 ovalX,ovalY 1 ovalHue=shapeHue: 1 o$=" validating..." 1 o$=" shuffling "+ 1 o$=" dealing..." 1 numDealt=12 1 numDealt<deckLength 1 n$="|/-\": 1 mmR=deckLength-numDealt 1 mmR+". Press H,M,Q, or S" 1 m$="main": 1 lineY=tfY2 1 lineY=sfY2 1 lineY=lineY2 1 lineY=cfY3: 1 lineY=cfY2 1 lineY2=tfY2 1 lineY2=r(2 1 lineY2=lineY-5 1 lineY2=175 1 lineX=thX3: 1 lineX=thX2: 1 lineX=tfX2: 1 lineX=lineX2: 1 lineX=cfX+cfJ: 1 lineX2=thX3: 1 lineX2=thX2: 1 lineX2=tfX3: 1 lineX2=sfX2: 1 lineX2=lineX: 1 lineX2=lineX+7 1 lineX2=cfX-cfJ: 1 lineX2-lineX,lineY2-lineY 1 lineX,lineY 1 j=tableLength*5 1 j=numDealt*5 1 i+"/81 ..." 1 h(white)=7 1 h(ovalHue) 1 h(green)=4 1 deckLength=81 1 deckLength=0 1 deckLength 1 d$="111101112011130112101122011230113101132011330121101212012130122101222012230123101232012330131101312013130132101322013230133101332013330211102112021130212102122021230213102132021330221102212022130222102222022230223102232022330231102312023130232102322023230233102332023330311103112031130312103122031230313103132031330321103212032130322103222032230323103232032330331103312033130332103322033230333103332033330" 1 cfY=shapeY-7 1 cfY3=cfY-i 1 cfY2=cfY+i: 1 cfX=shapeX+5 1 cardShape=2 1 cardShape=1 1 cardShape= 1 cardBase=2800 1 c$=t$(srJ 1 c$=t$(seI 1 c$=d$(srL 1 b=tableLength 1 b$=t$(seI 1 a=tableLength 1 a$=t$(seI 1 LET cfJ=7*SIN cfA 1 LET cfA=ACS ((cfY2-cfY)/-7) 1 ;lineX2-lineX,lineY2-lineY 1 ;lineX,lineY 1 ;" " 1 // valid combos 1*1*1 1*2*3 2*2*2 3*3*3 1*2*3 or 1 6 8 27 1 // sub wrongMode r$ -- 1 // sub wrongKeyPress k$ -- 1 // sub two cardX cardY cardFill shapeHue cardShape -- 1 // sub trianglesolid shapeX shapeY shapeHue -- 1 // sub triangleshaded shapeX shapeY shapeHue -- 1 // sub trianglehollow shapeX shapeY shapeHue -- 1 // sub trianglefilled shapeX shapeY shapeHue shapeStep -- 1 // sub three cardX cardY cardFill shapeHue cardShape -- 1 // sub tableSelection -- r(1) r(2) r(3) 1 // sub squaresolid shapeX shapeY shapeHue -- 1 // sub squareshaded shapeX shapeY shapeHue -- 1 // sub squarehollow shapeX shapeY shapeHue -- 1 // sub squarefilled shapeX shapeY shapeHue shapeStep -- 1 // sub spinner o$ -- 1 // sub shapePlot shapeX shapeY cardFill shapeHue cardShape -- 1 // sub setValidate seA seB seC -- r$ 1 // sub setReplace -- 1 // sub setClear -- 1 // sub selection sel -- 1 // sub selectMode -- 1 // sub selectKeyPress k$ -- 1 // sub selCoords sel -- r(1) r(2) 1 // sub refresh -- 1 // sub quitMode -- 1 // sub quitKeyPress k$ -- 1 // sub prompt p$ -- 1 // sub oval ovalX ovalY ovalX2 ovalY2 ovalHue -- 1 // sub one cardX cardY cardFill shapeHue cardShape -- 1 // sub noticeMode p$ -- 1 // sub noticeKeyPress k$ -- 1 // sub mainMode -- 1 // sub mainKeyPress k$ -- 1 // sub lineOver lineX lineY lineX2 lineY2 lineHue -- 1 // sub line lineX lineY lineX2 lineY2 lineHue -- 1 // sub init -- 1 // sub helpShow -- 1 // sub helpMode -- 1 // sub helpKeyPress k$ -- 1 // sub handleKeyPress k$ -- 1 // sub gridCoords gridX gridY -- r(1) r(2) 1 // sub grid -- 1 // sub deckShuffle -- d$ 1 // sub dealMore -- 1 // sub correctMode -- 1 // sub correctKeyPress k$ -- 1 // sub circlesolid shapeX shapeY shapeHue -- 1 // sub circleshaded shapeX shapeY shapeHue -- 1 // sub circlehollow shapeX shapeY shapeHue -- 1 // sub circlefilled shapeX shapeY shapeStep shapeHue -- 1 // sub cardDecode c$ -- cardNum cardFill cardHue cardShape cardSel 1 // sub cardClear sel -- 1 // sub card sel cardNum cardFill cardHue cardShape -- 1 // selection to table coordinate map 1 // pack table, swap first checked and last unchecked 1 // mark 1-12 as dealt 1 // label tsNextJ 1 // label srNextB3 1 // label srNextB2 1 // label srNextB1 1 // label srNextA2 1 // label srDeal 1 // label spBreak 1 // label skpPoint 1 // label scNextI 1 // label mainLoop 1 // label dmFull 1 // goto tsNextJ 1 // goto srNextB2 1 // goto srNextB1 1 // goto srDeal 1 // goto skpPoint 1 // goto scNextI 1 // goto dmFull 1 // get card 1 // clear selected cards 1 // clear checked cards and deal 1 // call wrongMode 1 // call wrongKeyPress 1 // call trianglehollow 1 // call tableSelection 1 // call squarehollow 1 // call setValidate 1 // call setReplace 1 // call setClear 1 // call selectMode 1 // call selectKeyPress 1 // call refresh 1 // call quitMode 1 // call quitKeyPress 1 // call oval 1 // call one, two, or three 1 // call noticeMode 1 // call noticeKeyPress 1 // call mainKeyPress 1 // call init 1 // call helpShow 1 // call helpKeyPress 1 // call handleKeyPress 1 // call grid 1 // call deckShuffle 1 // call dealMore 1 // call correctMode 1 // call correctKeyPress 1 // call "shape"+"fill" 1 -ovalX2,-ovalY2, 1 -(gridY*(size+8 1 +((cardNum-1 1 *deckLength))+1 1 )=gridX*size 1 )+j,i;" " 1 )+"000000000000000" 1 "wrong, you lose a point. Each" 1 "public domain 2008" 1 "points and cards in deck." 1 "if each property of each card is" 1 "hue, shape. 3 cards are a set" 1 "either the same or different." 1 "correct, you get a point & the" 1 "cards. Main prompt shows" 1 "cards are replaced. If set is" 1 "card has 4 properties: #, fill," 1 "If no set exists, press M for" 1 "Hit S to call set. If set is" 1 "Hit H to view this help." 1 "Game of Set by Ben Collver"