Вверх ↑
Ответов: 687
Рейтинг: 142
#1: 2021-01-05 22:45:28 ЛС | профиль | цитата
Небольшой фейерверк.

Add(MainForm,2953706,77,147)
{
Width=421
Height=483
Caption="Fireworks"
BorderStyle=4
link(onCreate,13643584:doData,[])
}
Add(WebBrowser,16165698,196,133)
{
Width=405
Height=444
Align=5
URL=""
Point(doFromText)
}
Add(StrList,8752461,140,105)
{
Strings=#12:<html><head>|52:<meta http-equiv="Content-Language" content="en-gb">|57:<meta name="GENERATOR" content="Microsoft FrontPage 5.0">|56:<meta name="ProgId" content="FrontPage.Editor.Document">|74:<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">|15:<title></title>|7:</head>|0:|39:<body text="#FFFFFF" bgcolor="#000000">|0:|0:|0:|20:<div align="center">|10: <center>|0:|112:&nbsp;<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">|13: <tbody><tr>|8627: <td width="100%" id="RenderBox"><pre><font size="1"><font color="undefined"> </font><font color="#00FF00">. ; </font><font color="white">;- <br> </font><font color="#00FF00">-: </font><font color="#FF99FF">;: </font><font color="#00FF00">+ </font><font color="white">+&amp; <br> </font><font color="#00FF00">?+ . </font><font color="#FF99FF">+ </font><font color="#00FFCC">. </font><font color="#00FF00">&amp; </font><font color="#CCFFFF">. </font><font color="white">%<br> </font><font color="#00FF00">%&amp; -: . </font><font color="#FF99FF">&amp;? </font><font color="#00FFCC">; </font><font color="#00FF00">%# </font><font color="#CCFFFF">;</font><font color="#FFFF99">.: <br> </font><font color="#00FF00"># ?</font><font color="#33CCFF">:. </font><font color="#00FF00">; </font><font color="#FF99FF">% </font><font color="#00FFCC">+ </font><font color="#00FF00">@ </font><font color="#CCFFFF">-+</font><font color="#FFFF99">- <br> </font><font color="#33CCFF">+</font><font color="#00FF00">@ &amp;</font><font color="#33CCFF">-; </font><font color="#00FF00">+ </font><font color="#FF99FF">@ </font><font color="#00FFCC">&amp; </font><font color="#CCFFFF">&amp;</font><font color="#FFFF99">+? <br> </font><font color="#33CCFF">&amp; </font><font color="#00FF00">% </font><font color="#33CCFF">+ </font><font color="#00FF00">?</font><font color="#FF99FF">.</font><font color="#CCFFFF">:</font><font color="white">&amp; </font><font color="#00FFCC">% </font><font color="#CCFFFF">% </font><font color="#FFFF99">&amp; </font><font color="#00CCFF">. </font><font color="#00FFCC">. <br> </font><font color="#33CCFF">% </font><font color="#00FF00">@#</font><font color="#33CCFF">? </font><font color="#00CCFF">.</font><font color="#00FF00">&amp;</font><font color="#FF99FF">;</font><font color="#CCFFFF">; </font><font color="white">% </font><font color="#33CCFF">:</font><font color="#00FFCC"># </font><font color="#FFFF99">. </font><font color="#CCFFFF"># </font><font color="#FFFF99">%</font><font color="#00FFCC">. </font><font color="#00CCFF">:; </font><font color="#00FFCC">:<br> </font><font color="#33CCFF"># # &amp; </font><font color="#FFFF99">:</font><font color="#00FF00">#%</font><font color="#CCFFFF">+-</font><font color="white"># </font><font color="#33CCFF">;</font><font color="#00FFCC">@ </font><font color="#FFFF99">; </font><font color="#CCFFFF">@</font><font color="#FFFF99">#</font><font color="#00FFCC">:; </font><font color="#00CCFF">- <br> </font><font color="#33CCFF">@ @#%</font><font color="#00CCFF">-;</font><font color="#00FF00">@ </font><font color="#CCFFFF">? </font><font color="white">@ </font><font color="#33CCFF">+ </font><font color="#FFFF99">- @</font><font color="#00FFCC">-</font><font color="#00FF00">. </font><font color="#00CCFF">+ . <br> </font><font color="#33CCFF">@ </font><font color="#00CCFF">+</font><font color="#FF99FF">%&amp;</font><font color="#CCFFFF">&amp;</font><font color="#33CCFF">. ? </font><font color="#FFFF99">? </font><font color="#FF99FF">. </font><font color="#00FFCC">+ </font><font color="#00CCFF">?&amp;</font><font color="#33CCFF">.</font><font color="#00CCFF">;<br> ? </font><font color="#FF99FF"># </font><font color="#CCFFFF">%</font><font color="#33CCFF">: </font><font color="#FF99FF">.</font><font color="#33CCFF">&amp; </font><font color="#FFFF99">&amp; </font><font color="#FF99FF">: </font><font color="#00FFCC">?</font><font color="#00FF00">;.</font><font color="#00CCFF">% </font><font color="#33CCFF">;<br> </font><font color="#FFFF99">&amp;</font><font color="#00CCFF">&amp;</font><font color="#FF99FF">@ </font><font color="#CCFFFF"># </font><font color="#FF99FF">:</font><font color="#33CCFF">% </font><font color="#FFFF99">% </font><font color="#FF99FF">;- </font><font color="#00FFCC">&amp;</font><font color="#00FF00">- :</font><font color="#00CCFF">#:<br> </font><font color="#FFFF99">%</font><font color="#00CCFF">% </font><font color="#CCFFFF">@</font><font color="#33CCFF">- </font><font color="#FF99FF">;</font><font color="#33CCFF"># </font><font color="#00FF00">: </font><font color="#FFFF99"># </font><font color="#FF99FF">+ </font><font color="#00FFCC">%</font><font color="#00FF00">+ </font><font color="#00CCFF">@ <br> </font><font color="#FFFF99">#</font><font color="#00CCFF"># </font><font color="#00FF00">.</font><font color="#33CCFF">+ </font><font color="#FF99FF">-</font><font color="#00FF00">-</font><font color="#33CCFF">@ </font><font color="#00FF00">; </font><font color="#FFFF99">@ </font><font color="#FF99FF">? </font><font color="#00FFCC">#</font><font color="#00FF00">? - <br> </font><font color="#00CCFF">@ </font><font color="#00FF00">:</font><font color="#33CCFF">? </font><font color="#CCFFFF">. </font><font color="#FF99FF">+</font><font color="#00FF00">+ -</font><font color="#33CCFF">. </font><font color="#FF99FF">&amp; </font><font color="#00FFCC">@</font><font color="#00FF00">&amp; +<br> </font><font color="#FFFF99">@ </font><font color="#00FF00">;</font><font color="#33CCFF">&amp; </font><font color="#00CCFF">.</font><font color="#CCFFFF">: </font><font color="#FF99FF">?</font><font color="#00FF00">? +</font><font color="#33CCFF">: </font><font color="#FF99FF">% </font><font color="white">?</font><font color="#00FF00">% <br> -</font><font color="#33CCFF">% </font><font color="#00CCFF">:</font><font color="#CCFFFF">; </font><font color="#FF99FF">&amp;</font><font color="#00FF00">&amp; </font><font color="#33CCFF">; </font><font color="white">&amp;</font><font color="#00FF00"># <br> +</font><font color="#33CCFF"># </font><font color="#00CCFF">;</font><font color="#CCFFFF">- </font><font color="#FF99FF">%</font><font color="#00FFCC">: </font><font color="#00FF00">? </font><font color="#FF99FF"># </font><font color="white">%</font><font color="#00FF00">@ <br> ?</font><font color="#33CCFF">@ </font><font color="#00CCFF">-</font><font color="#CCFFFF">+ </font><font color="#FF99FF">#</font><font color="#00FF00">#</font><font color="#00FFCC">; </font><font color="#00FF00">&amp; </font><font color="#FF99FF">@ <br> </font><font color="#00FF00">&amp;</font><font color="#FF99FF">+ </font><font color="#00CCFF">+</font><font color="#CCFFFF">? </font><font color="#FF99FF">@</font><font color="#00FF00">@</font><font color="#00FFCC">- </font><font color="#00FF00">% </font><font color="white"># <br> </font><font color="#00FF00">%</font><font color="#FF99FF">? </font><font color="#CCFFFF">&amp; </font><font color="#00FFCC">+ </font><font color="#00FF00"># </font><font color="white">@ <br> </font><font color="#00CCFF">? </font><font color="#FFFF99">? </font><font color="#33CCFF">&amp; <br> </font><font color="#00FF00">#</font><font color="#FF99FF">&amp; </font><font color="#00CCFF">&amp;</font><font color="#CCFFFF">% </font><font color="#FFFF99">&amp;</font><font color="#00FFCC">? </font><font color="#00FF00">@ <br> @</font><font color="#FF99FF">% </font><font color="#CCFFFF"># </font><font color="#FFFF99">% </font><font color="#00FFCC">&amp; </font><font color="#33CCFF"># <br> </font><font color="#FF99FF"># </font><font color="#00CCFF">% <br> #</font><font color="#CCFFFF">@ </font><font color="#FFFF99"># </font><font color="#00FFCC">% </font><font color="#33CCFF">@ <br> </font><font color="#FF99FF">@ </font><font color="#FFFF99">@</font><font color="#00FFCC"># <br> </font><font color="#00CCFF">@ <br></font></font></pre></td>|7: </tr>|16:</tbody></table>|0:|0:|0:|11: </center>|6:</div>|0:|0:|0:|0:|0:|0:|8:<script>|0:|0:|13:// Variables:|0:|17:var ScreenX = 60;|17:var ScreenY = 30;|0:|18:var LoopDelay = 2;|0:|22:var NumParticles = 40;|0:|0:|28:var Particles = new Array();|0:|29:var AsciiArray = new Array();|30:var ColourArray = new Array();|0:|32:for (var x=1; x<=ScreenX; x++) {|29: AsciiArray[x] = new Array();|34: AsciiArray[x].length = ScreenY+1;|30: ColourArray[x] = new Array();|35: ColourArray[x].length = ScreenY+1;|1:}|0:|71:var GreyAscii = new Array("@","#","%","&","?","+","-",";",":","."," ");|0:|108:var ColourChoice = new Array("white","#00CCFF","#CCFFFF","#33CCFF","#00FF00","#00FFCC","#FFFF99","#FF99FF");|0:|37:for (var i=1; i<=NumParticles; i++) {|60: Particles[i] = new Array(100,100,100,100,"filler!","blue");|1:}|0:|32:for (var y=1; y<=ScreenY; y++) {|32:for (var x=1; x<=ScreenX; x++) {|40: AsciiArray[x][y]=(GreyAscii.length-1);|1:}|1:}|0:|12:InitDelay();|0:|13:// Main loop:|0:|0:|23:function RenderLoop() {|0:|32:for (var y=1; y<=ScreenY; y++) {|32:for (var x=1; x<=ScreenX; x++) {|46: if (AsciiArray[x][y]!=(GreyAscii.length-1)) {|21: AsciiArray[x][y]++;|2: }|1:}|1:}|0:|0:|18:var SpawnAgain =0;|37:for (var i=1; i<=NumParticles; i++) {|34: if (Particles[i][1]<=ScreenY*2) {|15: SpawnAgain=1;|2: }|1:}|0:|47:if (SpawnAgain==0 && Particles[1][1]>ScreenY) {|159: Particles[1] = new Array(ScreenX/2,ScreenY,(Math.random()*2)-1,-0.75-Math.random(),"filler!",ColourChoice[Math.round(Math.random()*(ColourChoice.length-1))]);|1:}|0:|37:for (var i=1; i<=NumParticles; i++) {|85: SetPixel(Math.round(Particles[i][0]),Math.round(Particles[i][1]),0,Particles[i][5]);|1: |34: Particles[i][0]+=Particles[i][2];|34: Particles[i][1]+=Particles[i][3];|23: Particles[i][3]+=0.06;|1: |148: if (((Particles[i][0]<0 || Particles[i][0]>=ScreenX || Particles[i][1]<0 || Particles[i][1]>=ScreenY) && Math.round(Particles[1][3])==0) && i!=1) {|34: Particles[i][0]=Particles[1][0];|43: Particles[i][2]=(Math.random()*1.5)-0.75;|34: Particles[i][1]=Particles[1][1];|34: Particles[i][3]=0-Math.random();|82: Particles[i][5]=ColourChoice[Math.round(Math.random()*(ColourChoice.length-1))];|2: }|1: |1:}|0:|0:|18:// Copy to screen:|33:var CurPixel = ColourArray[1][1];|0:|61:var cubeText='<pre><font size="1"><font color='+CurPixel+'>';|31:for (var y=1; y<ScreenY; y++) {|31:for (var x=1; x<ScreenX; x++) {|40:var Pixel = GreyAscii[AsciiArray[x][y]];|0:|48:if (CurPixel!=ColourArray[x][y] && Pixel!=" ") {|64:Pixel = '</font><font color=' + ColourArray[x][y] + '>' + Pixel;|29:CurPixel = ColourArray[x][y];|1:}|0:|16:cubeText+=Pixel;|1:}|17:cubeText+='<br>';|1:}|33:cubeText+='</font></font></pre>';|58:document.getElementById("RenderBox").innerHTML = cubeText;|0:|0:|0:|12:InitDelay();|1:}|0:|0:|73:function InitDelay() { timeoutID = setTimeout("RenderLoop()",LoopDelay) }|0:|37:function SetPixel(x,y,Style,Colour) {|45:if (x>0 && x<=ScreenX && y>0 && y<=ScreenY) {|26: AsciiArray[x][y] = Style;|28: ColourArray[x][y] = Colour;|1:}|1:}|0:|9:</script>|0:|14:</body></html>|
}
Add(DoData,13643584,140,161)
{
link(onEventData,16165698:doFromText,[])
link(Data,8752461:Text,[])
}

карма: 15

0