Н ┘ К 0:Ж:Я" at line ";·:Ю 9О 22,4,26,20,28,0,7,11,0,17,0,17,255,12,23,1,0;0;0;0; *FX 4,1 (*ESC OFF 2fW%=12:fH%=8:mineCount%=10 /<ч field%(fW%-1,fH%-1):ч swept%(fW%-1,fH%-1) ,FfloodQSz%=fW%*fH%-1:ч floodQ%(floodQSz%) P: Zч sp% 7 dЦ inv%=0 ╦ 1 -ninvA%=inv%*&7F7F7F00:invB%=inv%*&7F7F7F7F xВ ┌Ц n%=1 ╦ 17 +▄С s%:sp%!0=s%┌invA%:С s%:sp%!4=s%┌invB% √О 23,127+n%+inv%*64 ═Ц i%=0 ╦ 7:О sp%?i%:М i% ╙М n% ЄМ inv% Ў: хgameState%=1 рУ (эН gameState% Р_mainMenu,Р_gameLoop ▀ ФЩ gameState%=0 Пш:К 0 З*ESC ON *FX 4,0 Я"Thank-you for playing." Ю : "щ є_min(a,b) Г ab =a ▀ =b 6: @Т Populate the minefield. Jщ Р_populate !TЦ X%=0 ╦ fW%-1:Ц Y%=0 ╦ fH%-1 #^field%(X%,Y%)=0:swept%(X%,Y%)=ё hfloodQ%(X%+Y%*fW%)=X%+Y%*256 rМ Y%:М X% |Ц I%=0 ╦ fW%*fH%-1 #├X%=Ё(fW%*fH%-1):Y%=Ё(fW%*fH%-1) 9░S%=floodQ%(X%):floodQ%(X%)=floodQ%(Y%):floodQ%(Y%)=S% М I% єЦ I%=1 ╦ mineCount% )ўX%=floodQ%(I%)─255:Y%=floodQ%(I%)│256 ╦field%(X%,Y%)=-1 SбЦ xc%=є_max(X%-1,0) ╦ є_min(X%+1,fW%-1):Ц yc%=є_max(Y%-1,0) ╦ є_min(Y%+1,fH%-1) :лГ field%(xc%,yc%)>=0 field%(xc%,yc%)=field%(xc%,yc%)+1 жМ yc%:М xc% ЮМ I% ЙА Т: Чщ є_getCell(X%,Y%) C%=128 DГ swept%(X%,Y%)=1 C%=field%(X%,Y%)+129 Г field%(X%,Y%)=-1 C%=138 Г swept%(X%,Y%)=2 C%=139 &Г swept%(X%,Y%)=3 C%=140 0=C% :Т Draw a cell. 5Dщ Р_drawCell(X%,Y%)Я┼X%,Y%)Ґ(є_getCell(X%,Y%));:А N: XТ Draw the entire field. bщ Р_drawField !lЦ X%=0 ╦ fW%-1:Ц Y%=0 ╦ fH%-1 vР_drawCell(X%,Y%) ─М Y%:М X% ┼А ■: %·Т Get a key, flashing the cursor. ╗щ є_getKey ╡У ╪Ц I%=1 ╦ 0 ┬ -1 *фЯ┼pX%,pY%)Ґ(є_getCell(pX%,pY%)+I%*64); пK%=і20 зГ K%<>-1 I%=0 ДМ I% НЩ K%<>-1 Ь=K% : Т Get a game action key. щ є_getGameKey K%=є_getKey *Р_drawCell(pX%,pY%) 4Г K%=139 =1 >Г K%=138 =2 HГ K%=136 =3 RГ K%=137 =4 \Г K%=13 =5 fГ K%=27 =6 pГ K%=127 └ K%=135 =7 z=0 └: q▌щ Р_sweep(X%,Y%)Г swept%(X%,Y%) А ▀ swept%(X%,Y%)=1:Р_drawCell(X%,Y%):Г field%(X%,Y%)<>-1 toDo%=toDo%-1:А ▀ А "≤Т Uncover a point on the grid. ╒щ Р_uncover(X%,Y%) ╛Г swept%(X%,Y%) А 2ІГ field%(X%,Y%)=-1 Р_sweep(X%,Y%):Р_gameOver:А $юГ field%(X%,Y%) Р_sweep(X%,Y%):А йР_qclr:Р_enq(X%+Y%*256) тУ:Р_fill:Щ є_qlen=0 чА Хщ Р_fill Рxy%=є_deq ЭX%=xy%─255 Y%=xy%│256 (Г swept%(X%,Y%) └ field%(X%,Y%)<>0 А 5W%=X%+1:У:W%=W%-1:Щ W%=0 └ field%(є_max(W%,0),Y%) =$E%=X%-1:У:E%=E%+1:Щ E%=fW%-1 └ field%(є_min(E%,fW%-1),Y%) .Ц X%=W% ╦ E% 8Р_sweep(X%,Y%) BГ Y%>0 Р_fillU LГ Y%0 swept%(X%,Y%)=2:Р_drawCell(X%,Y%):flags%=flags%-1:А 9дГ swept%(X%,Y%)=0 swept%(X%,Y%)=3:Р_drawCell(X%,Y%):А IнГ swept%(X%,Y%)=2 swept%(X%,Y%)=3:Р_drawCell(X%,Y%):flags%=flags%+1:А 7ьГ swept%(X%,Y%)=3 swept%(X%,Y%)=0:Р_drawCell(X%,Y%) БА Л: Жщ Р_gameOver !Ц x%=0 ╦ fW%-1:Ц y%=0 ╦ fH%-1 % Г field%(x%,y%)=-1 Р_sweep(x%,y%) М y%:М x% gameOver%=╧:gameState%=1:Г╔ (А 2щ Р_gameWon !<Ц x%=0 ╦ fW%-1:Ц y%=0 ╦ fH%-1 8FГ field%(x%,y%)=-1 swept%(x%,y%)=2:Р_drawCell(x%,y%) PМ y%:М x% ZgameOver%=╧:gameState%=1:Г╔ dА n: xТ Start a new game. ┌щ Р_newGame ▄ш:Я┼2,3)"Busy...";Ґ144; √gameState%=2 ═pX%=0:pY%=0:gameOver%=ё ╙Р_populate Єш:Р_drawField .ЎtoDo%=fW%*fH%-mineCount%:flags%=mineCount% хА р: эТ Main game logic loop. ,Фщ Р_gameLoop У:Р_gameLogic:Щ gameOver%:А Пщ Р_gameLogic ЗУ:k%=є_getGameKey:Щ k% Г k%=1 pY%=(pY%-1+fH%) ┐ fH% Г k%=2 pY%=(pY%+1) ┐ fH% Г k%=3 pX%=(pX%-1+fW%) ┐ fW% "Г k%=4 pX%=(pX%+1) ┐ fW% 3,Г k%=5 Р_uncover(pX%,pY%):Г toDo%<1 Р_gameWon:А 6Г k%=6 Р_gameOver:А @Г k%=7 Р_flag(pX%,pY%) JА T: ^щ Р_mainMenu hО 12,17,127,17,128 rЯ"MINE";Ґ143;"SWEEPER"; |Я┼0,7)"by Ben Ryves"; ├О 17,0,17,255 ░Я┼2,2)"Mines:"; Р_drawMineCount єЙ k% ўУ ╦У:k%=і(0):Щ k%<>-1 бГ k%=13 Р_newGame =лГ k%=136 mineCount%=є_max(1,mineCount%-1):Р_drawMineCount >жГ k%=137 mineCount%=є_min(24,mineCount%+1):Р_drawMineCount ЮГ k%=27 gameState%=0 ЙЩ gameState%<>1 ТА Чщ Р_drawMineCount @%=&00020002 Й i% Я┼8,2)mineCount%┼0,4)""; %&Ц i%=0 ╦ mineCount%-1:ЯҐ141;:М i% 0Г mineCount%>23 А $:Ц i%=mineCount% ╦ 23:ЯҐ142;:М i% DА N: XТ Sprite data. лbэ&80AA807F,&80AA80AA,&8080807F,&80808080,&9888807F,&809C8888,&8498807F,&809C9088,&8498807F,&80988488,&9490807F,&8084849C,&909C807F,&80988498,&908C807F,&809C949C,&849C807F,&80909088,&949C807F,&809C949C ░lэ&E3D5FF7F,&FFD5E3C9,&C7C7FF7F,&FFC1F7F7,&FBE7FF7F,&FFF7FFF7,&DE4C7C92,&00927C7C,&44281000,&00001028,&08787878,&007F1C08,&9A924438,&00384482 ЪЪ