Список проголосовавших за комментарий "XONIX много летающих меняют цвет если сталкиваются <br/> <a class="imgpreview" href="/uploads/2022/images/05/70/34/2022/06/08/2e684e.png"><br/> <img src="/uploads/2022/images/05/70/34/2022/06/08/6c8253.webp"/></a><br/> <br/> Randomize Timer: b = Int(Rnd*10+15): a = Int(Rnd*10+15): ' xonixMAS.bas<br/> N = Int(Rnd*5+3): Dim d(N), y(N), x(N), q$(N), c(N): _Font 17<br/> For e = 1 To N: q$(e) = Mid$(Str$(e), 2, 1): Next<br/> <br/> For i = 1 To N<br/> y(i) = Int(Rnd*(b-3)+3): x(i) = Int(Rnd*(a-3)+3): d = Int(Rnd*4+1)<br/> d(i) = Int(Rnd*4)+1: c(i) = Int(Rnd*5+1)<br/> Next 'y(i)=5: x(i)=5: b=10: a=20: d=1 ' xonix.bas DANILIN<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<br/> <br/> For q = 1 To 1000: _Delay .08:<br/> <br/> For i = 1 To N: Locate y(i), x(i): Print " "<br/> <br/> If d(i)=1 Then If (y(i)-1=1) And (x(i)+1=a) Then d(i)=3<br/> If d(i)=1 Then If (y(i)-1>1) And (x(i)+1=a) Then d(i)=4<br/> If d(i)=1 Then If (y(i)-1=1) And (x(i)+1<a) Then d(i)=2<br/> If d(i)=1 Then y(i)=y(i)-0.5*(1+i mod 2): x(i)=x(i)+0.5*(1+i mod 2)<br/> <br/> If d(i)=2 Then If (y(i)+1=b) And (x(i)+1=a) Then d(i)=4<br/> If d(i)=2 Then If (y(i)+1<b) And (x(i)+1=a) Then d(i)=3<br/> If d(i)=2 Then If (y(i)+1=b) And (x(i)+1<a) Then d(i)=1<br/> If d(i)=2 Then y(i)=y(i)+0.5*(1+i mod 2): x(i)=x(i)+0.5*(1+i mod 2)<br/> <br/> If d(i)=3 Then If (y(i)+1=b) And (x(i)-1=1) Then d(i)=1<br/> If d(i)=3 Then If (y(i)+1<b) And (x(i)-1=1) Then d(i)=2<br/> If d(i)=3 Then If (y(i)+1=b) And (x(i)-1>1) Then d(i)=4<br/> If d(i)=3 Then y(i)=y(i)+0.5*(1+i mod 2): x(i)=x(i)-0.5*(1+i mod 2)<br/> <br/> If d(i)=4 Then If (y(i)-1=1) And (x(i)-1=1) Then d(i)=2<br/> If d(i)=4 Then If (y(i)-1>1) And (x(i)-1=1) Then d(i)=1<br/> If d(i)=4 Then If (y(i)-1=1) And (x(i)-1>1) Then d(i)=3<br/> If d(i)=4 Then y(i)=y(i)-0.5*(1+i mod 2): x(i)=x(i)-0.5*(1+i mod 2)<br/> <br/> For k=1 To N-1: For m=k+1 To N<br/> If y(k)=y(m) And x(k)=x(m) Then c(k)=Int(Rnd*5+1):c(m)=Int(Rnd*5+1)<br/> Next: Next<br/> Locate y(i), x(i): Color c(i): Print q$(i): Next<br/> Next"