https://emuverse.ru/w/index.php?action=history&feed=atom&title=%D0%98%D1%81%D0%BA%D1%80%D0%B0-1256%2F%D0%9E%D1%81%D1%82%D1%80%D0%BE%D0%B2_%D1%81%D0%BE%D0%BA%D1%80%D0%BE%D0%B2%D0%B8%D1%89
Искра-1256/Остров сокровищ - История изменений
2026-04-19T02:50:41Z
История изменений этой страницы в вики
MediaWiki 1.40.0
https://emuverse.ru/w/index.php?title=%D0%98%D1%81%D0%BA%D1%80%D0%B0-1256/%D0%9E%D1%81%D1%82%D1%80%D0%BE%D0%B2_%D1%81%D0%BE%D0%BA%D1%80%D0%BE%D0%B2%D0%B8%D1%89&diff=3770&oldid=prev
Panther: категория
2024-03-26T07:57:38Z
<p>категория</p>
<table style="background-color: #fff; color: #202122;" data-mw="interface">
<col class="diff-marker" />
<col class="diff-content" />
<col class="diff-marker" />
<col class="diff-content" />
<tr class="diff-title" lang="ru">
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">← Предыдущая версия</td>
<td colspan="2" style="background-color: #fff; color: #202122; text-align: center;">Версия от 10:57, 26 марта 2024</td>
</tr><tr><td colspan="2" class="diff-lineno" id="mw-diff-left-l231">Строка 231:</td>
<td colspan="2" class="diff-lineno">Строка 231:</td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>222 ПЕРЕХ П9</div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div>222 ПЕРЕХ П9</div></td></tr>
<tr><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></pre></div></td><td class="diff-marker"></td><td style="background-color: #f8f9fa; color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #eaecf0; vertical-align: top; white-space: pre-wrap;"><div></pre></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;"></ins></div></td></tr>
<tr><td colspan="2" class="diff-side-deleted"></td><td class="diff-marker" data-marker="+"></td><td style="color: #202122; font-size: 88%; border-style: solid; border-width: 1px 1px 1px 4px; border-radius: 0.33em; border-color: #a3d3ff; vertical-align: top; white-space: pre-wrap;"><div><ins style="font-weight: bold; text-decoration: none;">[[Категория:Искра-1256]]</ins></div></td></tr>
</table>
Panther
https://emuverse.ru/w/index.php?title=%D0%98%D1%81%D0%BA%D1%80%D0%B0-1256/%D0%9E%D1%81%D1%82%D1%80%D0%BE%D0%B2_%D1%81%D0%BE%D0%BA%D1%80%D0%BE%D0%B2%D0%B8%D1%89&diff=2850&oldid=prev
Shattered: Новая страница: «Текст из журнала "ВТ и ее применение", 3/1988. Не вычитан. На экране 16x64 расставлены мины, пят…»
2019-08-21T15:04:26Z
<p>Новая страница: «Текст из журнала "ВТ и ее применение", 3/1988. Не вычитан. На экране 16x64 расставлены мины, пят…»</p>
<p><b>Новая страница</b></p><div>Текст из журнала "ВТ и ее применение", 3/1988. Не вычитан.<br />
<br />
На экране 16x64 расставлены мины, пять пиратов, клад и игрок. Игрок находится в левом верхнем углу, клад - в правом нижнем. Доступ за пределы экрана невозможен - мины.<br />
<br />
Движение игрока осуществляется цифровыми клавишами в правой части клавиатуры. <...><br />
<br />
Цель - дойти до клада. Совпадение игрока с миной или пиратом - поражение. При удаче увеличивается количество мин и скорость передвижения пиратов. И наоборот, если пираты вас поймали. Если вы попали на мину - уменьшается количество мин. И - вне зависимости от успеха - игра начинается заново. Таким образом, сложность игровой ситуации зависит от вашего уровня игры. Окончание игры устанавливается самим игроком, логического конца игры нет.<br />
<br />
<pre><br />
1 СЕЛЕКТ(0,0,0)<br />
2 СЕЛЕКТ(1,64,20)<br />
3 СЕЛЕКТ(2,12,20)<br />
4 СЕЛЕКТ(3,5,255)<br />
5 HEX(000909090909090909090909090909090909090909009090909090909090909090909090909090909090909090909090909090909090909090909090090909)=>CA19<br />
6 HEX(010A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)=>CA18<br />
7 1=>A00<br />
8 ПЕЧАТЬ(HEX(030A0A0A), F09(20), "ОСТРОВ СОКРОВИЩ",)<br />
9 ПЕЧАТЬ(HEX(0A),)<br />
10 ПЕЧАТЬ(F09(17),"АВТОР ИГРЫ - ПЕТР ГАНГНУС",)<br />
11 ПЕЧАТЬ(HEX(0A0A0A),)<br />
12 ПЕЧАТЬ(F09(10)," НАБЕРИТЕ ЧТО-НИБУДЬ и НАЖМИТЕ 'ПУСК'")<br />
13 20=>A02<br />
14 0.3=A04<br />
15 ПЕЧАТЬ(F09(31),,)<br />
16 ПЕРЕХ П11<br />
17 HEX(00090A090A000A0800080C080C000C090000)=>STR(CA16,1,18)<br />
18 HEX(010202020201020001000000000100020101)=>STR(CA16,19,18)<br />
19 HEX(040302050901060708)=>STR(CA16,37,9)<br />
20 M00<br />
21 ПЕЧАТЬ(HEX(030E0A),)<br />
22 ПЕЧАТЬ("НА ПОЛЕ МИН :", A02(3.0),)<br />
23 A02>20ПЕРЕХ M03<br />
24 СЕЛЕКТ(0,2,0)<br />
25 M03<br />
26 ПЕЧАТЬ("СКОРОСТЬ ПИРАТОВ :",A04(1.2),)<br />
27 СЕЛЕКТ(0,0,0)<br />
28 ПЕРЕХ П12<br />
29 "ЖЖЖЖЖЖЖЖ"=>STR(CA13,57,8)<br />
30 "Ж КЛАД Ж"=>STR(CA14,57,8)<br />
31 "ЖЖЖЖЖЖЖЖ"=>STR(CA15,57,8)<br />
32 " "=>STR(CA00,1,10)<br />
33 ПЕЧАТЬ(HEX(030F),)<br />
34 0=>A05<br />
35 55=>A06<br />
36 15=>A07<br />
37 64=>A08<br />
38 5=>A12<br />
39 5=>A13<br />
40 15=>A14<br />
41 33=>A15<br />
42 15=>A16<br />
43 57=>A17<br />
44 0=>И08<br />
45 ПЕРЕХ П16<br />
46 5=>И09<br />
47 ПЕРЕХ П20<br />
48 7=>И09<br />
49 ПЕРЕХ П20<br />
50 12=>И09<br />
51 ПЕРЕХ П20<br />
52 14=>И09<br />
53 ПЕРЕХ П20<br />
54 16=>И09<br />
55 ПЕРЕХ П20<br />
56 ПЕЧАТЬ(HEX(01),"*",HEX(08),,)<br />
57 0=>A03<br />
58 ПЕРЕХ П13<br />
59 ПЕРЕХ М00<br />
60 П13<br />
61 СЕЛЕКТ(15,5,1)<br />
62 1=>И12<br />
63 1=>И14<br />
64 F07<br />
65 13=>И14<br />
66 F08<br />
67 9=>И00<br />
68 1=>И05<br />
69 1=>И06<br />
70 M00<br />
71 И00*2-1=>И01<br />
72 И01=0ПЕРЕХ М15<br />
73 И00*2+17=>И02<br />
74 И02+1=>И03<br />
75 ПЕЧАТЬ(HEX(2E08),STR(CA16,И01,2),"*",HEX(08),,)<br />
76 STR(CA16,И02,1)=>СИ02<br />
77 STR(CA16,И03,1)=>СИ03<br />
78 И02+И05-1=>И05<br />
79 И03+И06-1=>И06<br />
80 И05=0ПЕРЕХ М15<br />
81 И05>16ПЕРЕХ М15<br />
82 И06=0ПЕРЕХ М15<br />
83 И06>64ПЕРЕХ М15<br />
84 И05-1=>И07<br />
85 STR(CAИ07,И06,1)="M"ПЕРЕХ М15<br />
86 ПЕРЕХ П18<br />
87 И05-1=>И07<br />
88 ((A09-A05)ABS+(A10-A06)ABS)*((A09-A07)ABS+(A10-A08)ABS)*((A09-A12)ABS+(A10-A13)ABS)*((A09-A14)ABS+(A10-A15)ABS)*((A09-A16)ABS+(A10-A17)ABS)=0ПЕРЕХ М12<br />
89 STR(CAИ07,И06,1)="Ж"ПЕРЕХ М14<br />
90 4=>И14<br />
91 F08<br />
92 (И15-2)ABS>0ПЕРЕХ М01<br />
93 ПЕРЕХ П14<br />
94 М01<br />
95 ПЕРЕХ М00<br />
96 М12<br />
97 СЕЛЕКТ(15,1,1)<br />
98 СЕЛЕКТ(0,1,0)<br />
99 ПЕЧАТЬ(HEX(030E0A)," ПОЙМАЛИ!",)<br />
100 ПЕЧАТЬ(HEX(030E0A0A),"УБИЛИ!",)<br />
101 A04/(1.15-(A04+0.2)^2/10)=>A04<br />
102 ПЕЧАТЬ(HEX(030A0A0A)," ЗАРЕЗАЛИ!",)<br />
103 ПЕРЕХ М13<br />
104 М15<br />
105 СЕЛЕКТ(15,1,1)<br />
106 СЕЛЕКТ(0,2,0)<br />
107 ПЕЧАТЬ(HEX(030E0A0A)," ТРАХ-ТАРАРАХ-ТАХ-ТАХ!",)<br />
108 A02-10=>A02<br />
109 A02>0ПЕРЕХ М13<br />
110 1=>A02<br />
111 A04/(1.15-(A04+0.2)^2/10)=>A04<br />
112 ПЕРЕХ М13<br />
113 М14<br />
114 СЕЛЕКТ(15,1,1)<br />
115 СЕЛЕКТ(0,3,0)<br />
116 ПЕЧАТЬ(HEX(030E0A0A0A)," КЛАД ВЗЯТ !!!",HEX(0808080808080808),,)<br />
117 A04*(1.2-(A04+0.2)^2/10)=>A04<br />
118 A02+20=>A02<br />
119 A04<0.801ПЕРЕХ М13<br />
120 0.8=>A04<br />
121 A02+20=>A02<br />
122 М13<br />
123 СЕЛЕКТ(0,0,0)<br />
124 ПЕЧАТЬ(HEX(030F),,)<br />
125 П14<br />
126 И13=0ПЕРЕХ М00<br />
127 И13>9ПЕРЕХ М00<br />
128 И13+36=>И13<br />
129 STR(CA16,И13,1)=>СИ00<br />
130 М00<br />
131 13=>И14<br />
132 F07<br />
133 П12<br />
134 0=>И00<br />
135 ЦИКЛ(И00,1,15)<br />
136 " "=САИ00<br />
137 ЦИКЛ*<br />
138 1=>A03<br />
139 ЦИКЛ(А03,1,А02)<br />
140 ПЕРЕХ П10<br />
141 A01+1=>A01<br />
142 (A01-1)/64=>И01<br />
143 A01-И01*64=>И02<br />
144 "M"=>STR(CAИ01,И02,1)<br />
145 ЦИКЛ*<br />
146 П16<br />
147 0=>И00<br />
148 ЦИКЛ(И00,1,15)<br />
149 ПЕЧАТЬ(HEX(0A0D),,)<br />
150 ПЕЧАТЬ(CAИ00,,)<br />
151 ЦИКЛ*<br />
152 ПЕЧАТЬ(HEX(01),,)<br />
153 П11<br />
154 НС=>CA00<br />
155 1=>И00<br />
156 0=>A00<br />
157 ЦИКЛ(И00,1,64)<br />
158 STR(CA00,И00,1)=>СИ01<br />
159 И01+А00=>А00<br />
160 ЦИКЛ*<br />
161 A00/1024=>А00<br />
162 ((A00-A00INT)*1024+0.5)INT=>A00<br />
163 A00*4+1=>A00<br />
164 П10<br />
165 A00*125/4096=>A00<br />
166 ((A00-A00INT)*4096+0.5)INT=>A00<br />
167 (A00-1)/4=>A01<br />
168 П9<br />
169 1=>И11<br />
170 A03+A04=>A03<br />
171 A03>1ПЕРЕХ М01<br />
172 ЦИКЛ(И11,1,48)<br />
173 ПЕЧАТЬ(,)<br />
174 ЦИКЛ*<br />
175 ПЕРЕХ М00<br />
176 М01<br />
177 A03-A03INT=>A03<br />
178 5=>И09<br />
179 ПЕРЕХ П17<br />
180 7=>И09<br />
181 ПЕРЕХ П17<br />
182 12=>И09<br />
183 ПЕРЕХ П17<br />
184 14=>И09<br />
185 ПЕРЕХ П17<br />
186 16=>И09<br />
187 ПЕРЕХ П17<br />
188 5=>И09<br />
189 ПЕРЕХ П19<br />
190 7=>И09<br />
191 ПЕРЕХ П19<br />
192 12=>И09<br />
193 ПЕРЕХ П19<br />
194 14=>И09<br />
195 ПЕРЕХ П19<br />
196 16=>И09<br />
197 ПЕРЕХ П19<br />
198 ПЕЧАТЬ(STR(CA18,1,И05),STR(CA19,1,И06),,)<br />
199 М00<br />
200 П17<br />
201 АИ09+1=>А11<br />
202 АИ09=>И07<br />
203 И09+1=>И10<br />
204 ПЕЧАТЬ(STR(CA18,1,A11),STR(CA19,1,АИ10),STR(САИ07,АИ10,1),,)<br />
205 П19<br />
206 И09<16ПЕРЕХ М00<br />
207 И06<44ПЕРЕХ М01<br />
208 М00<br />
209 И09+1=>И10<br />
210 ((A09-АИ09)/((А09-АИ09)ABS-0.001))INT+АИ09=>АИ09<br />
211 ((A10-АИ10)/((А10-АИ10)ABS-0.001))INT+АИ10=>АИ10<br />
212 М01<br />
213 ПЕРЕХ П20<br />
214 П20<br />
215 И09+1=>И10<br />
216 АИ09=>И07<br />
217 И07+1=>А11<br />
218 ПЕЧАТЬ(STR(CA18,1,A11),STR(CA19,1,АИ10),HEX(19),,)<br />
219 П18<br />
220 И05-1=>А09<br />
221 И06=>А10<br />
222 ПЕРЕХ П9<br />
</pre></div>
Shattered