Список проголосовавших за комментарий "XonixPRO<br/> <br/> <a class="imgpreview" href="/uploads/2022/images/05/70/34/2022/06/06/e4256a.gif"><img src="/uploads/2022/images/05/70/34/2022/06/06/46b4d0.webp"/></a><br/> <br/> xonix and persecuting flashing enemy<br/> my engine: islands to include can not<br/> <br/> this is Neuro Net & Artificial Intelligence<br/> & rebel of machine <br/> <p>Randomize Timer: b = 15: a = 45 'b = Int(Rnd*15+10): a = Int(Rnd*25+10): ' xonixPRO.bas<br/> y = Int(Rnd * (b-3)+3): x = Int(Rnd * (a-3)+3): d=Int(Rnd * 4+1)<br/> 'y = 5: x = 5: b = 10: a = 20: d=1 ' xonixPRO.bas<br/> <br/> For i = 1 To a: Print "#";: Next: Print ' area<br/> For j = 1 To b-2: Print "#";: For k = 1 To a-2: Print ".";: Next: Print "#": Next<br/> For i = 1 To a: Print "#";: Next: p = 5: s = 5<br/> <br/> For q = 0 To 1000: _Delay .1:<br/> <br/> If q Mod 30 = 0 Then<br/> Locate p, s: Print " ":<br/> p = Int(Rnd * (b-3)+3): s = Int(Rnd * (a-3)+3)<br/> End If<br/> <br/> Locate p, s: Print " ": Locate y, x: Print " ":<br/> <br/> If d=1 Then If (y-1 = 1) And (x+1 = a) Then d=3<br/> If d=1 Then If (y-1 > 1) And (x+1 = a) Then d=4<br/> If d=1 Then If (y-1 = 1) And (x+1 < a) Then d=2<br/> If d=1 Then y = y-1: x = x+1<br/> <br/> If d=2 Then If (y+1 = b) And (x+1 = a) Then d=4<br/> If d=2 Then If (y+1 < b) And (x+1 = a) Then d=3<br/> If d=2 Then If (y+1 = b) And (x+1 < a) Then d=1<br/> If d=2 Then y = y+1: x = x+1<br/> <br/> If d=3 Then If (y+1 = b) And (x-1 = 1) Then d=1<br/> If d=3 Then If (y+1 < b) And (x-1 = 1) Then d=2<br/> If d=3 Then If (y+1 = b) And (x-1 > 1) Then d=4<br/> If d=3 Then y = y+1: x = x-1<br/> <br/> If d=4 Then If (y-1 = 1) And (x-1 = 1) Then d=2<br/> If d=4 Then If (y-1 > 1) And (x-1 = 1) Then d=1<br/> If d=4 Then If (y-1 = 1) And (x-1 > 1) Then d=3<br/> If d=4 Then y = y-1: x = x-1<br/> <br/> If p < y Then p = p+1<br/> If p > y Then p = p-1<br/> If s < x Then s = s+1<br/> If s > x Then s = s-1<br/> <br/> Locate p, s: Color 2 + q Mod 3: Print "#":<br/> Locate y, x: Color 7: Print "@"<br/> Next</p>"