MiniDemo: Serdca v. 0.2

Pixilang по русски
User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

MiniDemo: Serdca v. 0.2

Post by Al_Rado » Sun Dec 09, 2007 1:45 am

Вот, переписал открытку, теперь она реализована "правильно" :)

// Al_Rado // Открытка "Serdca" v.0.2 //Выброшено лишнее, оптимизирован процесс создания "летающего" лого (вместо отдельных pixi использован многокадровый pixi).
resize_pixi (0,320,240)
A=#E40001 B=#F00700 C=#DB0002 D=#D50003 E=#CE0000 F=#CC0003 G=#BB0000 H=#B50000 I=#C50000 J=#BD0000 K=#C20008 L=#AD0002 M=#A10001
N=#A50000 O=#AD0000 P=#B3000C Q=#A5010A R=#9B0009 S=#9C0000 T=#940000 U=#840001 V=#94000E W=#A80B19 X=#A41F22 Y=#8E1F24 Z=#910A14
a=#831119 b=#731C1F c=#57101F d=#380B2A e=#580123 f=#6B0418 g=#670109 h=#5A0108 i=#540015 j=#45001E k=#430812 l=#000000 m=#000000
n=#0B0002 o=#000000 p=#130109 q=#260108 r=#3B0003 s=#4F0001 t=#630000 u=#750001 v=#800214 w=#730000 x=#8C0000 y=#7B0000 z=#900002
serdca="
..............................................................................................................................................
.......................................................................................................................npqqrsshhsirqp.........
....................................................................................................................npqrhtwyyyyywwghiqp.......
.......................................................................................npppppnnn..................pqrttyUxTTTTTxxxywghjp......
...................................................................................pqqrshssshsrrqqpn............pqstyxTSNNNNNSTxUUyyygijq.....
................................................................................nqrtwyUxxxxxUUywtghirqpn......pqhwUTNNOOOOSxywttghhhhggijp....
...............................................................................qstxSNOOHOOOONNSTxUywthijqp..nqktUSNOHJHNTUywwwwwwtghjjjiedp...
.............................................................................prySOJJIIIIIIJHOONSTTxxUywghikqjhwxSOJJHNxyyUxSSNNNSRxUwiddjdq...
............................................................................qgTHIEEEDDDEIHNTUywttttgggwwwgtttyxSOJHNxUUTNOHHPPLPQQRRVvfjdddn..
...........................................................................qgTOJEDCACDIOSxUUyyyyywtghhiihhgyxTSOOSxUxSHJIKKKPPPQQQRRVVvfdddp..
........................................................................npqjhhifffVLJJNSSNOHJJJHHOONSxyghijhwxSTyyxNJIIKKKPLLNNNSSSSVVVvedddn.
.....................................................................pqqrsshtghhhiiiigTJEDDDDFFFFKKKKPOQRUwhhtwtyTJEEFKKPOONNSSSSTTTxxxvveddn.
..................................................................pqksttwyUUxxUUyywghiivFACDDFFFKKKKKKKPPLQRxUyUNJEFKKHHONNNNSSSSTTTxxxUyfddp.
...............................................................npqhtwUxTSSSSSSSTTxUywgijfPCDFKKIIJJJJJHPPPPPPLOOJKKKHHOOONNNSSSSTTTTxxxUywedq.
.............................................................nqihtUxSSNNOOOOOONSSRVxUvwhjeQEIIJJJJJJJHHHHHHOPPKKKKJHOOOONNNNSSSSTTTxxxxUywhrq.
...........................................................pqityxTNNOHHHJJHONNSTTxxxUUvwijeNIJJJJJJJHHHHHOOOOOHPHHHHOOOOOONNSSSTTTxxxxxUywtrq.
..........................nnpppppppppnnn.................nqityxSNOHJJJJJONSxyywttgggggwwfijfJIJJJJJJHHHHOOOOOOOOOOHOOOOOOLLQQRSTTTxxxxxUUytrq.
......................ppqrrshshhthhhikrqqqppn..........npkgyTSOHJJIIIHOSxyyyyywwwgghiiiiffeexJJJJJJJHHHHOOOOOOOOOOHHHHKKKPPQQRRVxxxxxxUUUywsq.
...................pqrstwyyUxxxxxxUUyywtghhiqqqpn.....pqhwxSOHJIIIIHSxUyUxTSSNNNSSxUwfjdjeeefNIJJJJJJJHHHHOOOOOOOOHKKKKKHONSVVVVxUxxxUUUUywsq.
.................prtwyxSNNNOOOOOONNNSSSTxUywghiijqqppqktyTNHJIEEIOSxUUTSOJJJJKPPPLQRVVwidjeeevJIIKFKKKKKKPPLOOOOHKFFIJJHOLQQRVvvvyUUUUUUUywtq.
...............prhyxSOHHJJJIIJJJJJJJHOONNSSTxUywgtthhhtUSOHIEEIHSxUxSHJIIFKKKKKPPPPQRRVvfifeeeRFDDDEIKHOOLQQQPPPKFDIJJKKPLLQSRVvfwyUUUUUUywtq.
.............nqhySOHJIIEEEEEEEEEIIJJJHOOOONNSSTxxUUUUyxSOJIEIHSxxTOJIEDEFKKKKKPPLLLQQRVVvffeeefFCDEIJHHONSSVxRLKKJJIKKPONNSSTTxUwgwyUUUUyywtq.
............prwTOJJIEDDDCCCCDEIJONSTxxUUUUUUxxxTTTTSSSNOJIIHNxxSOIDDDDDFKKKHHOOONNNSSSSVVvefejeQCDEFFKKKKPPPRRROHJKKHONONNSSTTxxyttwUUyyyywtq.
...........piyNHJEEDCCCCCCDIHNSxUUyyyywwttttgggggwyTNOHJJHSxxSOIDCCDDFKKJJHOOOONNNNSSSTTxUfeeejvFDFKJJHHHOOOOLLPKKHHOHHPPPQRTxxxUtttyyyyyywtn.
..........phxOJIEDCAAAACDIHSTxxTTSSNNNNNSSTxUywghhhgwUSOSxUxNIDCCCDFIJJHHHHOOONNNNSSSSTTxUyfefrgPEJJHHHHHHOOONNHHHHJKKKHQRVVVxxxUwttyyyyyywsn.
.........qhxNJEDCCAAAADIOSSSNOJIIEEDDDEEEEIIJHONTUyggtwyyyTHECACCDIJJHHHHHOOOONNNNSSSSTTTxywhfsrxJJHJJKKKKKPLOOOOJEDIJJLRxvffyUxUyttwyyyyywsn.
........pixOJEDCAAABCEHNSNHIECCAAAAACCCCDDDDFFIKKJONSTxxxNJDCACDIIJJJHHHHOOOONNNNSSSSTTTTxUyttgrwHJIDDDEKHONRRRLKEDIKHONSTxfetwUUytswyyyywtrn.
.......njyNJEDCAABACIONOJECAAAAABAACCCCCDDDDDFFFFFKKKKJJJIDCCDFIJJJJJJHHHOOOONNNNSSSSTTTTxxywshttOECACDIKJPLQRROJEKHONNSTTxyfstyUytswywwywtq..
.......jvSHIDCAABADJNNJECABBBBABACCCCDDDEEEEEEFIIFKKKKFFFDDDFIIIJJJJJJHHHOOOONNNSSSSTTTTTxxUwtsgtOABACEIJHHOOONLKJHNNNSSTTxUtstwUytswywwwwtn..
......pfVOIECCAAAEHNOIDABBBBABACCCDDEEEEEEEEIIIIIIIIIIKFFFFIIIIIJJJJJHHHHOOONNNNSSSTTTTTTxxUytstsSBBCEJHOOONNNNOOONNSSTTTxxUwsswyytswwwwwtrn..
.....njvQJFDCABADHNOECBBBBBAACCDDDEEEEEEEEEEIIIIIIJJJJJJIIIJJIIIJJJJJJJJJHHOONNSSSSTTTTTxxxUywttsxBAIJHOOONNNNNNNNNSSSTTTxxUytrtyytswwwwwtr...
.....qfVPKECCAADHNOECBBBBBACCDDDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJJJJIKKFKKKKPPPNSSSSTTTTxxxxUywtstUAEJHOOONNNNNSSNNSSSTTTxxxUytrtywstwwwwwtn...
....njvQKIDCAADHNOIABBBBBACCDDEDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJIIFDDDFKKHLLQQRRTTTTTTxxxxxxUytstyEIHOOONNNNNSSSNSSSTTTTxxxUwsrtytstwwwwtrn...
....pfVLKFDCCDKSNICBBBBBCCDDEEDDEEEEEEEEEEIIIIIIIJJJJJJJJJJJJIIFDCDCDIJJHHLQRVVVxxxxTxxxxxxUUytsswJJOOOONNNNNSSSSSSSTTTxxxxUwsrtwtstwwwwtq....
...njvQPKDCCCINRJDBBBBACCDDDEEEEEEEEEEEEEEIIIIIIIIJJJJJJJJJJJEDCCCDIJIKKKKPLLQVvvyUxxxxxxxUUUytsswJHOOONNNNNSSSSSSSTTTTxxUUytrswwtswwwwtsn....
...peVLKFDCCFLROEABBAACCDDDEEEEEEEEEEEEEEEEEEEEEFFIIIJJJJJJIDCACDEIEDFKJHOONNSSxvwyUxxxxxxUUUytsswHOOONNNNNNSSSSSSTTTTxxxUUytrsytstwwwwtr.....
...qfRPKFDCDKRRKCBBBACCDDEEEEEEEEEEEEEEDDDCCCCDDFFFFKKKKIIIDCCCEEDDFJJHOOONNSSSTxwtyUxxxxUUUUywssyHOOONNNNNSSSSSSTTTxxxxxUywtrtwtstwwwtsn.....
..njvQKKDDCFLVLFCAAACCDDEEEEEEEEEEEEEDCCCCACCDEEIJJHHPPKKFDCDEEDDEIJHOOOONNSSSTTxyttyUxxxUUUUywssUHOONNNNNSSSSSSSTxxxxxxUUytrswwstwwwwtq......
..peVPKKDDDKRRKCAAACCDDEEEEEEEEEEEEDCCAABACDEEIIIKPHOONNHIIIEDCDIJJHHHHHOONSSSTTTxwtwyUUUUUUyytssxHONNNNNSSSSSSTTTxxxxxUUywsrtwtstwwwtrn......
..qfRLKFDDKQVQFCAACCDDEEEEEEEEEEEEDCABBBACDDDDDDFFFKKKKPPKIIDDEJJJJIKKKKPLQSSSTTxxyttwUUUUUyyytssSOONNNNSSSSSSSTxxxxxxUUUytrswtstwwwwtn.......
..qvQPKFDFKVVPDCACCDDEEEEEEEEEEEEDCABBBCCACCDEEEIIIIIJJJJKKFEIJJIEDDFIKPLQRVTTTTxxUtttyUUUyyywtstOONNNSSSSSSSTTxxxxxxUUyytsrttstwwwwtq........
.nivQPKFFKQVRKCCCCDDEEEEEEEEEEEEDCABBACAACDEEIIIIIJJJJHHHJJJJJIDCCCDIJPLRVvvUUxTxxUwttyUUUyyywtstHONSSSSSSTTTTTxxxxxUUUywsrtwtstwwwtrn........
.niVQPKFFKRVPFCCCCDEEEEEEEEEEEEECABBACACDEIIIIJIIIIIIJJHHHHHJECACCEIKHHONSvftwUxxxUyttwyyyyyywtsUPONSSSSSTTTTTTxxxxUUyytsrtwtstwwwtrn.........
.ntVQPKFKPVVPDCCCDDEEEEEEEEEEEEDCBAAAACDEIIIIIEEDDDDFFKKKJJJECACDEJJOONNSSxwttwUxxUytswyyyyyywssQWWPNSTTTTTTSTxxxxUUyytsrtwtstwwwtsn..........
.qtxQHJIKRvVKDCCDDEEEEEEEEEEEEDCAAACACEEIIIIEDCACCCEEIKKPPKFDCCEIJHOONNSSTTxtttwUxUytstyyyyyytstOPXXXQSTTTTTTTxxxUUywtrrtttstwwwtsn...........
.qtUSOJJPVvQKDDDDEEEEEIIIIIIEEDCAACACEEIIIIDAABBACDEIIJJHPKEDDEJHOONNNSSSTTxytstyUUytstyyyyywtsUOOQWXXXQSTTSTxxUUyytsrsttsstwwwtsn............
.rtxSOJJNUvQIDDDEEEEEEIIIIIIEEDCBCCCEEIIIIDABBBACDEEIJJJJHJIIIJHOONNNSSSTTTxUtstwUUytstyyywwwtsWLLNNQWXXWNSSTxUUywtrrtttsttwtwtrn.............
.rtUSOHJSwyOIDDDEEEIIIIIIIIIEDCCCDCEEIIJIDABBBACEIJJJHHHHOHHHHOOONNNSSSSTTTxUwsstUUyttwyywwwwstXXXQLONQWWPNSxUywttsstttstwwwwtrn..............
.rtUSNHHTtyOEEDEEEIIIIIIIIIIEDDCFCDEIIIIECABBAEIJJJHHHHOOOOOOOOONNNSSSSTTTTxUysrtyUwstwywwwwtsVPWXXXQLONPPHTyywggttwtsttwwwwtq................
.rtyTNOOUtyOIEEEEEIIIIIIIIIIEDCDFCEEIJJIDABACEIJJHHHHOOOOOOOOOONNNSSSSSTTTTxUysrtyywstwwwwwwstLLLPWXXWLOHPPVvffgtwttstwwwwtsn.................
.qtyTSONUtyOIEEEEIIIIIIIIIIIEDDEEDEIIJIECABCEIJJHHHHOOOOOONNONNNNSSSSSTTTTxxUwtrtyytstwwwwwttVPLLLLPWXQPHPYffwywwttttwwwwtrn..................
.nswxSNNytyOIEEIIIIIIIIIIIIIEEEIEEIIJJIDCACDIJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxywgstywtttwwwwttyLLLLLLPLPWPPPVVVxUywwtwwwwtsq....................
.nrtUTNSytyNJIIIIIIIIIJJJJIIEEEJEEIJJJEDCCDEJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxUywctwytttwwwwwtfXWLLLLLPPPQPPQRVxvvvUywwwwtrn.....................
..rtyxSSytwNJIIIIIIJJJJJJJIIEEJJEIIJJJEDDDEIJHHHOOOOOONNNNNNNNNSSSTTTTTxxxUUwwbtwwtgwwwwwtgkgXXPLPLPPPLQLRvvvvxVTUywwtrn......................
..ntwxTSyttSHJIIIJJJJJJJJJJIIIJJIIJJHJEEEEIJJHHOOOOONNNNNNNNNNSSSTTTTTxxxxUywfcwwtwwwwwwwwrrrraXWPLPPPPXZavVVVVVVVUyhp........................
..nrwUTSyttTOJIIIJJJJJJJJJJJIIOJIJJJHJIEIIIJHHOOOOOONNNNNNNNNNSSSTTTTTxxxUUwybfwwwvywwwwwr.nrsrgXPLPPPPRVVRRVVVVVvgqn.........................
...rtyxTUtsxOJJJJJJJJJJJJJJJJJOHIJJHHJIIJJJHHOOOOONNNNNNNNNSSSSTTTTTxxxxUUyybfyyyvxxxUUvk...nshrgWPPPPQRRRRVVVVVgrn...........................
...ntwUxUtsyNHJJJJJJJJJJJJJJJJNOJJJHHJJJOJJHOOOOONNNNNNNNNSSSSTTTTTxxxxUyyUbbvxUvvVVxxvkn....qthrvPPPLQRRRRVVvgrp.............................
...nrwyxUtstTOHJJJJHHHJHHHHHHHNOJHHHOHHHNHHOOOONNNNNNNNNSSSSSTTTxTxxxxUUUxbbaxvavVVVxvkn.....nrwssQPLLQRRRVvhkp...............................
....qtyUxwstxNHHJJHHHHHHHHHHHHNSHHHHOHHOSOHOOONNNNNNNNSSSSSSTTxxxxxxUxxTVbbaxZavVVxVvkn.......qtgsxPPQRVZfkqn.................................
....nswUUUssySOHHHHHHHHHHHHHHONSOHOOOOOOSNOOONNNNNNNSSSSSSSTTTxxxxxxxTVZbbaVZaZVVxVvkn........nsyswWWZacqp....................................
....nrtUxxtrtTNOHHHHHHHHHHOOOONSNOOOOOONNNOONNNNNNNSSSSSSTTTTTxxxxxSRVZbbaVaaZVVVVak..........nrtrsabkpn......................................
.....nswUxyrsxSOHHHHHHHHOOOOOONSSOOOOOONNSNNNNNNNSSSSSSTTTTTTTxxxTSRVabbZVaaZVVVVfk............nqnnn..........................................
.....nqtyxxsrwTNOOHHOOOOOOOOOONNSNOOONNNOSSNNSNSSSSSSSTTTTTTTTTTSSRVabbZVaaVVVVZgq............................................................
......nrwUxtrsxSNOOOOOOOOOOOOONNSSNNNNNNOSTSNNSSSSSSSSSTSSSSSNSSSRVabbZZaaVVVZZcp.............................................................
.......qsyUUsrwTSNOOOOOOOOOOOONOSTNNNNNNONTVNONNSNNNNNNNNNNNQQQSRVZbbZZaaVVVVakn..............................................................
.......nrtyUtrsxSNNOOOOOOONNNNNONTTNNNNNONTxVNNOOOOOONNNNNQNQQQQRVbbZZaaVVVZacn...............................................................
........nrtUysrtTSNNOOOONNNNNNOONSxSOONNOOSxUxVSQQQQQQQQQQQQQRRRRvbaVaaVVVVacn................................................................
.........nstUtrrySNNNNNNNNNNNOOOONTxSOOOOOOSxyyvVVRRNQQRRRRRRRRRVabVaaZRVVakn.................................................................
..........nswytrsxSNNNNNNNNOOOOOOOSxUTNOOOONSVxvvvvVVVVRRRRRVVZZYbvZaZVVVacn..................................................................
...........qswyrrtTNNOOOOOOOOHOOOONSxyxSNNNNNQSVxvvvaaaaaYYYYYYYYYaaaVVVacn...................................................................
............qsttrrtTSNOOOOOHOOOOOOONSxUyUVSNNNNNSRVxVvaabbYYYYYYYZZaZZZZbp....................................................................
.............nrttrrtxSNOOOOOOOOOOOOONSVxyyUxVRSRRRQRRRVVVVVVVZVVVVZaZVZbq.....................................................................
..............nrstrrtUSNOOOOOOOOOOOONNNSVxUvvvUxxVRRRRRRRRRVRVVVZYYaVVak......................................................................
...............nnrsrrsyTSNOOOOOOOOONNNNNNSRVxUvvvvvvvVZZZZaZYYYYYYYZVZbn......................................................................
.................nqrrqrtUTSNNOOONNNNNNNNNQQSRRRVVVVvaaaaaaYYYYYZZZVZZak.......................................................................
...................nqrrrstUVSSNNNNNNQQNNQSSSRRRSRRRRVVVVVVVVVVRVRRVVZbp.......................................................................
.....................nqqqrstUVTSSNNNQNNNSSSRRRSSSRRRRRRRRRRVVRVVRVVRZk........................................................................
.......................nnqqrrtwUVVRSSSRNSSSRRRRRRRRRRVRVRVVVRRRRRRVZaq........................................................................
..........................nnnqqrstwUxVRRSSRRRRRRRRRRRRRRRRVRVVVVVZZYYp........................................................................
..............................nnnqqrstwyvxxVVVVVRRRVVVVVVVVRVZZYYYbckn........................................................................
...................................nnnnqrrhggwvvvvvZZZaaaaYYbbckkqpn..........................................................................
...........................................nnqqrrcccccccckkqpnn...............................................................................
..............................................................................................................................................
"
make_pixi(serdca)

B=#FFFFFF
a = "
....................BBBBBBBBBBBBBBB
....................BBBBBBBBBBBBBBB
..BBB..BBB.B..B.BBB.BBBBBBBBBBBBBBB
.B...B..B..B..B..B..BB.BBB...BBB.BB
.B...B..B..B..B..B..BBB.BB.B.BB.BBB
.B...B..B...BB...B..BBBB...B...BBBB
.B...B..B...BB...B..BBBB.......BBBB
.BBBB...B..B..B..B..BB...........BB
.B......B..B..B..B..BB.B.......B.BB
.B.....BBB.B..B.BBB.B..BBBBBBBBB..B
....................BBBBBBBBBBBBBBB
....................BBBBBBBBBBBBBBB
"
make_pixi (a)

b=#FFFFFF
Al_Rado = "
....bb........bbb.b......bbbb.............b........
...bbbb......b..b.b......b...b............b........
...bbbb.....b...b.b......b...b............b........
.....b......b...b.b......b...b..bbbb...bbbb...bbb..
..bbbbbb....b...b.b......b..b..b...b..b...b..b...b.
.b..bb..b...bbbbb.b......bbb...b...b..b...b..b...b.
....bb...b..b...b.b......b..b..b...b..b...b..b...b.
...b..b...b.b...b.bbbb...b...b..bbb.b..bbb.b..bbb..
..b...b...b........................................
..b...b....bbbbbbbb..b..bbbbbbbbbbbbbbbbb..b..bbbbb
..b....b............bbb...................bbb......
.bb....bb............b.....................b.......
"
make_pixi (Al_Rado)
x = get_pixi_xsize (a)
y = get_pixi_ysize (a)
Q = new_pixi(x,y,18)
b=50 b2=20 b3=-100 x3=200 z=0 c=0 k=16
start_timer( 0 )

start1:
if c>18 {finish}
nulo z+2 c+1
goto start1

//////////////////////////////////////////////////

nulo:
x1=0 p=0 i=0 u=0 n=0 n2=0
unu:
if n2=2 {u=u+1 n2=0}
i=n2+x*u
Q[z+i+c*x*y] = a[z+i]
n+1 n2+1
if n=12*2 {ret}
goto unu

finish:
clear(BLACK)
pol:
kk=8*k
transp( kk )
fbox(-161,80-(k*2),322,3,#AAAAAA)
k-1
if k>1 {goto pol} k=16
e=( sin( get_timer( 0 ) / 4 ) / 2 + 256 ) / 2 - 20
e2=( cos( get_timer( 0 ) / 4 ) / 2 + 128 ) / 2
e3=( sin( get_timer( 0 ) / 8 ) / 2 + 128 ) / 8 + 90

transp( 256 )
pixi (serdca,0,-30,1,e)
b1=b2
vivod

pixi (Al_Rado,x3,47,1,1)

transp( 92 )
t_scale( 256, -192, 256 )
pixi (serdca,0,-160,1,e)
b1=b3
vivod

t_reset
transp( 64 )
t_scale( 256, -256, 256 )
pixi (Al_Rado,x3,-60,1,1)

t_reset
transp( 256 )

frame (0)
x3-1
if x3<-600 {x3=600}
goto finish

vivod:
fpixi (Q,e3,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 18 + b1,1,e2,p)
p+1
if p<=17 {goto vivod}
p=0
ret
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

User avatar
NightRadio
Site Admin
Posts: 3118
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Re: MiniDemo: Serdca v. 0.2

Post by NightRadio » Sun Dec 09, 2007 10:50 am

класс!

По ходу появилась идейка. Если рисование сердец сделать таким образом:
transp( 256 )
pixi (serdca,0,-30,1,e)
transp( 128 )
pixi (serdca,0,-30,1,e+8)
transp( 256 )
то добавляется небольшое сглаживание на текстуру. Типа простого антиалиазинга получается :)

User avatar
brainmaster
Posts: 15
Joined: Thu Nov 22, 2007 1:32 pm
Location: The land of Colombian coffee

Re: MiniDemo: Serdca v. 0.2

Post by brainmaster » Sun Dec 09, 2007 7:40 pm

Very nice code. :D
:idea: BrainMaster :idea:

User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

Re: MiniDemo: Serdca v. 0.2

Post by Al_Rado » Sun Dec 09, 2007 11:07 pm

Спасибо NightRadio, thanks brainmaster... Вот уже и версия 0.3 на подходе :D
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

User avatar
NightRadio
Site Admin
Posts: 3118
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Re: MiniDemo: Serdca v. 0.2

Post by NightRadio » Sun Dec 09, 2007 11:43 pm

Это очень хорошо :)
Кстати, версия 1.3 pixilang тоже на подходе :)

User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

Re: MiniDemo: Serdca v. 0.2

Post by Al_Rado » Mon Dec 10, 2007 12:22 pm

Отлично! Ждем Pixilang 1.3!
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

MiniDemo: Serdca v. 0.3

Post by Al_Rado » Mon Dec 10, 2007 6:59 pm

// Al_Rado // Открытка "Serdca" v.0.3 // Еще упростил код летающего "лого" - теперь он более плавный; отражения "затухают"; сердечки более сглаженые
resize_pixi (0,320,240)
A=#E40001 B=#F00700 C=#DB0002 D=#D50003 E=#CE0000 F=#CC0003 G=#BB0000 H=#B50000 I=#C50000 J=#BD0000 K=#C20008 L=#AD0002 M=#A10001
N=#A50000 O=#AD0000 P=#B3000C Q=#A5010A R=#9B0009 S=#9C0000 T=#940000 U=#840001 V=#94000E W=#A80B19 X=#A41F22 Y=#8E1F24 Z=#910A14
a=#831119 b=#731C1F c=#57101F d=#380B2A e=#580123 f=#6B0418 g=#670109 h=#5A0108 i=#540015 j=#45001E k=#430812 l=#000000 m=#000000
n=#0B0002 o=#000000 p=#130109 q=#260108 r=#3B0003 s=#4F0001 t=#630000 u=#750001 v=#800214 w=#730000 x=#8C0000 y=#7B0000 z=#900002
serdca="
..............................................................................................................................................
.......................................................................................................................npqqrsshhsirqp.........
....................................................................................................................npqrhtwyyyyywwghiqp.......
.......................................................................................npppppnnn..................pqrttyUxTTTTTxxxywghjp......
...................................................................................pqqrshssshsrrqqpn............pqstyxTSNNNNNSTxUUyyygijq.....
................................................................................nqrtwyUxxxxxUUywtghirqpn......pqhwUTNNOOOOSxywttghhhhggijp....
...............................................................................qstxSNOOHOOOONNSTxUywthijqp..nqktUSNOHJHNTUywwwwwwtghjjjiedp...
.............................................................................prySOJJIIIIIIJHOONSTTxxUywghikqjhwxSOJJHNxyyUxSSNNNSRxUwiddjdq...
............................................................................qgTHIEEEDDDEIHNTUywttttgggwwwgtttyxSOJHNxUUTNOHHPPLPQQRRVvfjdddn..
...........................................................................qgTOJEDCACDIOSxUUyyyyywtghhiihhgyxTSOOSxUxSHJIKKKPPPQQQRRVVvfdddp..
........................................................................npqjhhifffVLJJNSSNOHJJJHHOONSxyghijhwxSTyyxNJIIKKKPLLNNNSSSSVVVvedddn.
.....................................................................pqqrsshtghhhiiiigTJEDDDDFFFFKKKKPOQRUwhhtwtyTJEEFKKPOONNSSSSTTTxxxvveddn.
..................................................................pqksttwyUUxxUUyywghiivFACDDFFFKKKKKKKPPLQRxUyUNJEFKKHHONNNNSSSSTTTxxxUyfddp.
...............................................................npqhtwUxTSSSSSSSTTxUywgijfPCDFKKIIJJJJJHPPPPPPLOOJKKKHHOOONNNSSSSTTTTxxxUywedq.
.............................................................nqihtUxSSNNOOOOOONSSRVxUvwhjeQEIIJJJJJJJHHHHHHOPPKKKKJHOOOONNNNSSSSTTTxxxxUywhrq.
...........................................................pqityxTNNOHHHJJHONNSTTxxxUUvwijeNIJJJJJJJHHHHHOOOOOHPHHHHOOOOOONNSSSTTTxxxxxUywtrq.
..........................nnpppppppppnnn.................nqityxSNOHJJJJJONSxyywttgggggwwfijfJIJJJJJJHHHHOOOOOOOOOOHOOOOOOLLQQRSTTTxxxxxUUytrq.
......................ppqrrshshhthhhikrqqqppn..........npkgyTSOHJJIIIHOSxyyyyywwwgghiiiiffeexJJJJJJJHHHHOOOOOOOOOOHHHHKKKPPQQRRVxxxxxxUUUywsq.
...................pqrstwyyUxxxxxxUUyywtghhiqqqpn.....pqhwxSOHJIIIIHSxUyUxTSSNNNSSxUwfjdjeeefNIJJJJJJJHHHHOOOOOOOOHKKKKKHONSVVVVxUxxxUUUUywsq.
.................prtwyxSNNNOOOOOONNNSSSTxUywghiijqqppqktyTNHJIEEIOSxUUTSOJJJJKPPPLQRVVwidjeeevJIIKFKKKKKKPPLOOOOHKFFIJJHOLQQRVvvvyUUUUUUUywtq.
...............prhyxSOHHJJJIIJJJJJJJHOONNSSTxUywgtthhhtUSOHIEEIHSxUxSHJIIFKKKKKPPPPQRRVvfifeeeRFDDDEIKHOOLQQQPPPKFDIJJKKPLLQSRVvfwyUUUUUUywtq.
.............nqhySOHJIIEEEEEEEEEIIJJJHOOOONNSSTxxUUUUyxSOJIEIHSxxTOJIEDEFKKKKKPPLLLQQRVVvffeeefFCDEIJHHONSSVxRLKKJJIKKPONNSSTTxUwgwyUUUUyywtq.
............prwTOJJIEDDDCCCCDEIJONSTxxUUUUUUxxxTTTTSSSNOJIIHNxxSOIDDDDDFKKKHHOOONNNSSSSVVvefejeQCDEFFKKKKPPPRRROHJKKHONONNSSTTxxyttwUUyyyywtq.
...........piyNHJEEDCCCCCCDIHNSxUUyyyywwttttgggggwyTNOHJJHSxxSOIDCCDDFKKJJHOOOONNNNSSSTTxUfeeejvFDFKJJHHHOOOOLLPKKHHOHHPPPQRTxxxUtttyyyyyywtn.
..........phxOJIEDCAAAACDIHSTxxTTSSNNNNNSSTxUywghhhgwUSOSxUxNIDCCCDFIJJHHHHOOONNNNSSSSTTxUyfefrgPEJJHHHHHHOOONNHHHHJKKKHQRVVVxxxUwttyyyyyywsn.
.........qhxNJEDCCAAAADIOSSSNOJIIEEDDDEEEEIIJHONTUyggtwyyyTHECACCDIJJHHHHHOOOONNNNSSSSTTTxywhfsrxJJHJJKKKKKPLOOOOJEDIJJLRxvffyUxUyttwyyyyywsn.
........pixOJEDCAAABCEHNSNHIECCAAAAACCCCDDDDFFIKKJONSTxxxNJDCACDIIJJJHHHHOOOONNNNSSSSTTTTxUyttgrwHJIDDDEKHONRRRLKEDIKHONSTxfetwUUytswyyyywtrn.
.......njyNJEDCAABACIONOJECAAAAABAACCCCCDDDDDFFFFFKKKKJJJIDCCDFIJJJJJJHHHOOOONNNNSSSSTTTTxxywshttOECACDIKJPLQRROJEKHONNSTTxyfstyUytswywwywtq..
.......jvSHIDCAABADJNNJECABBBBABACCCCDDDEEEEEEFIIFKKKKFFFDDDFIIIJJJJJJHHHOOOONNNSSSSTTTTTxxUwtsgtOABACEIJHHOOONLKJHNNNSSTTxUtstwUytswywwwwtn..
......pfVOIECCAAAEHNOIDABBBBABACCCDDEEEEEEEEIIIIIIIIIIKFFFFIIIIIJJJJJHHHHOOONNNNSSSTTTTTTxxUytstsSBBCEJHOOONNNNOOONNSSTTTxxUwsswyytswwwwwtrn..
.....njvQJFDCABADHNOECBBBBBAACCDDDEEEEEEEEEEIIIIIIJJJJJJIIIJJIIIJJJJJJJJJHHOONNSSSSTTTTTxxxUywttsxBAIJHOOONNNNNNNNNSSSTTTxxUytrtyytswwwwwtr...
.....qfVPKECCAADHNOECBBBBBACCDDDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJJJJIKKFKKKKPPPNSSSSTTTTxxxxUywtstUAEJHOOONNNNNSSNNSSSTTTxxxUytrtywstwwwwwtn...
....njvQKIDCAADHNOIABBBBBACCDDEDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJIIFDDDFKKHLLQQRRTTTTTTxxxxxxUytstyEIHOOONNNNNSSSNSSSTTTTxxxUwsrtytstwwwwtrn...
....pfVLKFDCCDKSNICBBBBBCCDDEEDDEEEEEEEEEEIIIIIIIJJJJJJJJJJJJIIFDCDCDIJJHHLQRVVVxxxxTxxxxxxUUytsswJJOOOONNNNNSSSSSSSTTTxxxxUwsrtwtstwwwwtq....
...njvQPKDCCCINRJDBBBBACCDDDEEEEEEEEEEEEEEIIIIIIIIJJJJJJJJJJJEDCCCDIJIKKKKPLLQVvvyUxxxxxxxUUUytsswJHOOONNNNNSSSSSSSTTTTxxUUytrswwtswwwwtsn....
...peVLKFDCCFLROEABBAACCDDDEEEEEEEEEEEEEEEEEEEEEFFIIIJJJJJJIDCACDEIEDFKJHOONNSSxvwyUxxxxxxUUUytsswHOOONNNNNNSSSSSSTTTTxxxUUytrsytstwwwwtr.....
...qfRPKFDCDKRRKCBBBACCDDEEEEEEEEEEEEEEDDDCCCCDDFFFFKKKKIIIDCCCEEDDFJJHOOONNSSSTxwtyUxxxxUUUUywssyHOOONNNNNSSSSSSTTTxxxxxUywtrtwtstwwwtsn.....
..njvQKKDDCFLVLFCAAACCDDEEEEEEEEEEEEEDCCCCACCDEEIJJHHPPKKFDCDEEDDEIJHOOOONNSSSTTxyttyUxxxUUUUywssUHOONNNNNSSSSSSSTxxxxxxUUytrswwstwwwwtq......
..peVPKKDDDKRRKCAAACCDDEEEEEEEEEEEEDCCAABACDEEIIIKPHOONNHIIIEDCDIJJHHHHHOONSSSTTTxwtwyUUUUUUyytssxHONNNNNSSSSSSTTTxxxxxUUywsrtwtstwwwtrn......
..qfRLKFDDKQVQFCAACCDDEEEEEEEEEEEEDCABBBACDDDDDDFFFKKKKPPKIIDDEJJJJIKKKKPLQSSSTTxxyttwUUUUUyyytssSOONNNNSSSSSSSTxxxxxxUUUytrswtstwwwwtn.......
..qvQPKFDFKVVPDCACCDDEEEEEEEEEEEEDCABBBCCACCDEEEIIIIIJJJJKKFEIJJIEDDFIKPLQRVTTTTxxUtttyUUUyyywtstOONNNSSSSSSSTTxxxxxxUUyytsrttstwwwwtq........
.nivQPKFFKQVRKCCCCDDEEEEEEEEEEEEDCABBACAACDEEIIIIIJJJJHHHJJJJJIDCCCDIJPLRVvvUUxTxxUwttyUUUyyywtstHONSSSSSSTTTTTxxxxxUUUywsrtwtstwwwtrn........
.niVQPKFFKRVPFCCCCDEEEEEEEEEEEEECABBACACDEIIIIJIIIIIIJJHHHHHJECACCEIKHHONSvftwUxxxUyttwyyyyyywtsUPONSSSSSTTTTTTxxxxUUyytsrtwtstwwwtrn.........
.ntVQPKFKPVVPDCCCDDEEEEEEEEEEEEDCBAAAACDEIIIIIEEDDDDFFKKKJJJECACDEJJOONNSSxwttwUxxUytswyyyyyywssQWWPNSTTTTTTSTxxxxUUyytsrtwtstwwwtsn..........
.qtxQHJIKRvVKDCCDDEEEEEEEEEEEEDCAAACACEEIIIIEDCACCCEEIKKPPKFDCCEIJHOONNSSTTxtttwUxUytstyyyyyytstOPXXXQSTTTTTTTxxxUUywtrrtttstwwwtsn...........
.qtUSOJJPVvQKDDDDEEEEEIIIIIIEEDCAACACEEIIIIDAABBACDEIIJJHPKEDDEJHOONNNSSSTTxytstyUUytstyyyyywtsUOOQWXXXQSTTSTxxUUyytsrsttsstwwwtsn............
.rtxSOJJNUvQIDDDEEEEEEIIIIIIEEDCBCCCEEIIIIDABBBACDEEIJJJJHJIIIJHOONNNSSSTTTxUtstwUUytstyyywwwtsWLLNNQWXXWNSSTxUUywtrrtttsttwtwtrn.............
.rtUSOHJSwyOIDDDEEEIIIIIIIIIEDCCCDCEEIIJIDABBBACEIJJJHHHHOHHHHOOONNNSSSSTTTxUwsstUUyttwyywwwwstXXXQLONQWWPNSxUywttsstttstwwwwtrn..............
.rtUSNHHTtyOEEDEEEIIIIIIIIIIEDDCFCDEIIIIECABBAEIJJJHHHHOOOOOOOOONNNSSSSTTTTxUysrtyUwstwywwwwtsVPWXXXQLONPPHTyywggttwtsttwwwwtq................
.rtyTNOOUtyOIEEEEEIIIIIIIIIIEDCDFCEEIJJIDABACEIJJHHHHOOOOOOOOOONNNSSSSSTTTTxUysrtyywstwwwwwwstLLLPWXXWLOHPPVvffgtwttstwwwwtsn.................
.qtyTSONUtyOIEEEEIIIIIIIIIIIEDDEEDEIIJIECABCEIJJHHHHOOOOOONNONNNNSSSSSTTTTxxUwtrtyytstwwwwwttVPLLLLPWXQPHPYffwywwttttwwwwtrn..................
.nswxSNNytyOIEEIIIIIIIIIIIIIEEEIEEIIJJIDCACDIJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxywgstywtttwwwwttyLLLLLLPLPWPPPVVVxUywwtwwwwtsq....................
.nrtUTNSytyNJIIIIIIIIIJJJJIIEEEJEEIJJJEDCCDEJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxUywctwytttwwwwwtfXWLLLLLPPPQPPQRVxvvvUywwwwtrn.....................
..rtyxSSytwNJIIIIIIJJJJJJJIIEEJJEIIJJJEDDDEIJHHHOOOOOONNNNNNNNNSSSTTTTTxxxUUwwbtwwtgwwwwwtgkgXXPLPLPPPLQLRvvvvxVTUywwtrn......................
..ntwxTSyttSHJIIIJJJJJJJJJJIIIJJIIJJHJEEEEIJJHHOOOOONNNNNNNNNNSSSTTTTTxxxxUywfcwwtwwwwwwwwrrrraXWPLPPPPXZavVVVVVVVUyhp........................
..nrwUTSyttTOJIIIJJJJJJJJJJJIIOJIJJJHJIEIIIJHHOOOOOONNNNNNNNNNSSSTTTTTxxxUUwybfwwwvywwwwwr.nrsrgXPLPPPPRVVRRVVVVVvgqn.........................
...rtyxTUtsxOJJJJJJJJJJJJJJJJJOHIJJHHJIIJJJHHOOOOONNNNNNNNNSSSSTTTTTxxxxUUyybfyyyvxxxUUvk...nshrgWPPPPQRRRRVVVVVgrn...........................
...ntwUxUtsyNHJJJJJJJJJJJJJJJJNOJJJHHJJJOJJHOOOOONNNNNNNNNSSSSTTTTTxxxxUyyUbbvxUvvVVxxvkn....qthrvPPPLQRRRRVVvgrp.............................
...nrwyxUtstTOHJJJJHHHJHHHHHHHNOJHHHOHHHNHHOOOONNNNNNNNNSSSSSTTTxTxxxxUUUxbbaxvavVVVxvkn.....nrwssQPLLQRRRVvhkp...............................
....qtyUxwstxNHHJJHHHHHHHHHHHHNSHHHHOHHOSOHOOONNNNNNNNSSSSSSTTxxxxxxUxxTVbbaxZavVVxVvkn.......qtgsxPPQRVZfkqn.................................
....nswUUUssySOHHHHHHHHHHHHHHONSOHOOOOOOSNOOONNNNNNNSSSSSSSTTTxxxxxxxTVZbbaVZaZVVxVvkn........nsyswWWZacqp....................................
....nrtUxxtrtTNOHHHHHHHHHHOOOONSNOOOOOONNNOONNNNNNNSSSSSSTTTTTxxxxxSRVZbbaVaaZVVVVak..........nrtrsabkpn......................................
.....nswUxyrsxSOHHHHHHHHOOOOOONSSOOOOOONNSNNNNNNNSSSSSSTTTTTTTxxxTSRVabbZVaaZVVVVfk............nqnnn..........................................
.....nqtyxxsrwTNOOHHOOOOOOOOOONNSNOOONNNOSSNNSNSSSSSSSTTTTTTTTTTSSRVabbZVaaVVVVZgq............................................................
......nrwUxtrsxSNOOOOOOOOOOOOONNSSNNNNNNOSTSNNSSSSSSSSSTSSSSSNSSSRVabbZZaaVVVZZcp.............................................................
.......qsyUUsrwTSNOOOOOOOOOOOONOSTNNNNNNONTVNONNSNNNNNNNNNNNQQQSRVZbbZZaaVVVVakn..............................................................
.......nrtyUtrsxSNNOOOOOOONNNNNONTTNNNNNONTxVNNOOOOOONNNNNQNQQQQRVbbZZaaVVVZacn...............................................................
........nrtUysrtTSNNOOOONNNNNNOONSxSOONNOOSxUxVSQQQQQQQQQQQQQRRRRvbaVaaVVVVacn................................................................
.........nstUtrrySNNNNNNNNNNNOOOONTxSOOOOOOSxyyvVVRRNQQRRRRRRRRRVabVaaZRVVakn.................................................................
..........nswytrsxSNNNNNNNNOOOOOOOSxUTNOOOONSVxvvvvVVVVRRRRRVVZZYbvZaZVVVacn..................................................................
...........qswyrrtTNNOOOOOOOOHOOOONSxyxSNNNNNQSVxvvvaaaaaYYYYYYYYYaaaVVVacn...................................................................
............qsttrrtTSNOOOOOHOOOOOOONSxUyUVSNNNNNSRVxVvaabbYYYYYYYZZaZZZZbp....................................................................
.............nrttrrtxSNOOOOOOOOOOOOONSVxyyUxVRSRRRQRRRVVVVVVVZVVVVZaZVZbq.....................................................................
..............nrstrrtUSNOOOOOOOOOOOONNNSVxUvvvUxxVRRRRRRRRRVRVVVZYYaVVak......................................................................
...............nnrsrrsyTSNOOOOOOOOONNNNNNSRVxUvvvvvvvVZZZZaZYYYYYYYZVZbn......................................................................
.................nqrrqrtUTSNNOOONNNNNNNNNQQSRRRVVVVvaaaaaaYYYYYZZZVZZak.......................................................................
...................nqrrrstUVSSNNNNNNQQNNQSSSRRRSRRRRVVVVVVVVVVRVRRVVZbp.......................................................................
.....................nqqqrstUVTSSNNNQNNNSSSRRRSSSRRRRRRRRRRVVRVVRVVRZk........................................................................
.......................nnqqrrtwUVVRSSSRNSSSRRRRRRRRRRVRVRVVVRRRRRRVZaq........................................................................
..........................nnnqqrstwUxVRRSSRRRRRRRRRRRRRRRRVRVVVVVZZYYp........................................................................
..............................nnnqqrstwyvxxVVVVVRRRVVVVVVVVRVZZYYYbckn........................................................................
...................................nnnnqrrhggwvvvvvZZZaaaaYYbbckkqpn..........................................................................
...........................................nnqqrrcccccccckkqpnn...............................................................................
..............................................................................................................................................
"
make_pixi(serdca)

B=#FFFFFF
a = "
....................BBBBBBBBBBBBBBB
....................BBBBBBBBBBBBBBB
..BBB..BBB.B..B.BBB.BBBBBBBBBBBBBBB
.B...B..B..B..B..B..BB.BBB...BBB.BB
.B...B..B..B..B..B..BBB.BB.B.BB.BBB
.B...B..B...BB...B..BBBB...B...BBBB
.B...B..B...BB...B..BBBB.......BBBB
.BBBB...B..B..B..B..BB...........BB
.B......B..B..B..B..BB.B.......B.BB
.B.....BBB.B..B.BBB.B..BBBBBBBBB..B
....................BBBBBBBBBBBBBBB
....................BBBBBBBBBBBBBBB
"
make_pixi (a)

b=#FFFFFF
Al_Rado = "
....bb........bbb.b......bbbb.............b........
...bbbb......b..b.b......b...b............b........
...bbbb.....b...b.b......b...b............b........
.....b......b...b.b......b...b..bbbb...bbbb...bbb..
..bbbbbb....b...b.b......b..b..b...b..b...b..b...b.
.b..bb..b...bbbbb.b......bbb...b...b..b...b..b...b.
....bb...b..b...b.b......b..b..b...b..b...b..b...b.
...b..b...b.b...b.bbbb...b...b..bbb.b..bbb.b..bbb..
..b...b...b........................................
..b...b....bbbbbbbb..b..bbbbbbbbbbbbbbbbb..b..bbbbb
..b....b............bbb...................bbb......
.bb....bb............b.....................b.......
"
make_pixi (Al_Rado)
x = get_pixi_xsize (a)
y = get_pixi_ysize (a)
Q = new_pixi(x,y,35)
ALFA = new_pixi(x,y,1)
b=50 b2=20 b3=-110 x3=200 z=0 c=0 k=16 p=0
start_timer( 0 )

start:
if c>35 {finish}
i=0 u=0 n=0
unu:
i=x*u
Q[z+i+c*x*y] = a[z+i]
n+1
u=u+1
if n=12 {z+1 c+1 goto start}
goto unu

finish:
clear(BLACK)
transp( 192 )
t_scale( 256, -160, 256 )
pixi (serdca,0,-160,1,e)
b1=b3
vivod
t_reset

transp( 64 )
fbox(-161,50,322,121,#FFFFFF)

e=( sin( get_timer( 0 ) / 4 ) / 2 + 256 ) / 2 - 20
e2=( cos( get_timer( 0 ) / 4 ) / 2 + 256 ) / 2
e3=( sin( get_timer( 0 ) / 8 ) / 2 + 128 ) / 8 + 90

transp( 256 )
pixi (serdca,0,-30,1,e)
transp( 128 )
pixi (serdca,0,-30,1,e+8)
transp( 256 )
b1=b2
vivod

pixi (Al_Rado,x3,47,1,1)

t_reset
transp( 64 )
t_scale( 256, -256, 256 )
pixi (Al_Rado,x3,-60,1,1)

t_reset
transp( 256 )

pol:
kk=12*k
transp( kk )
fbox(-161,40+(k*5),322,10,#000000)
k-1
if k>1 {goto pol} k=16
transp( 256 )

frame (10)
x3-1
if x3<-600 {x3=600}
goto finish

vivod:
fpixi (Q,e3,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 + b1,1,e2,p)
p+1
if p<=35 {goto vivod}
p=0
ret
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

Оцените MiniDemo: Serdca v. 0.4

Post by Al_Rado » Tue Dec 11, 2007 2:48 am

// Al_Rado // MiniDemo "Serdca" v.0.4 // запарился описывать изменения :)
resize_pixi (0,320,240)
A=#E40001 B=#F00700 C=#DB0002 D=#D50003 E=#CE0000 F=#CC0003 G=#BB0000 H=#B50000 I=#C50000 J=#BD0000 K=#C20008 L=#AD0002 M=#A10001
N=#A50000 O=#AD0000 P=#B3000C Q=#A5010A R=#9B0009 S=#9C0000 T=#940000 U=#840001 V=#94000E W=#A80B19 X=#A41F22 Y=#8E1F24 Z=#910A14
a=#831119 b=#731C1F c=#57101F d=#380B2A e=#580123 f=#6B0418 g=#670109 h=#5A0108 i=#540015 j=#45001E k=#430812 l=#000000 m=#000000
n=#0B0002 o=#000000 p=#130109 q=#260108 r=#3B0003 s=#4F0001 t=#630000 u=#750001 v=#800214 w=#730000 x=#8C0000 y=#7B0000 z=#900002
serdca="
..............................................................................................................................................
.......................................................................................................................npqqrsshhsirqp.........
....................................................................................................................npqrhtwyyyyywwghiqp.......
.......................................................................................npppppnnn..................pqrttyUxTTTTTxxxywghjp......
...................................................................................pqqrshssshsrrqqpn............pqstyxTSNNNNNSTxUUyyygijq.....
................................................................................nqrtwyUxxxxxUUywtghirqpn......pqhwUTNNOOOOSxywttghhhhggijp....
...............................................................................qstxSNOOHOOOONNSTxUywthijqp..nqktUSNOHJHNTUywwwwwwtghjjjiedp...
.............................................................................prySOJJIIIIIIJHOONSTTxxUywghikqjhwxSOJJHNxyyUxSSNNNSRxUwiddjdq...
............................................................................qgTHIEEEDDDEIHNTUywttttgggwwwgtttyxSOJHNxUUTNOHHPPLPQQRRVvfjdddn..
...........................................................................qgTOJEDCACDIOSxUUyyyyywtghhiihhgyxTSOOSxUxSHJIKKKPPPQQQRRVVvfdddp..
........................................................................npqjhhifffVLJJNSSNOHJJJHHOONSxyghijhwxSTyyxNJIIKKKPLLNNNSSSSVVVvedddn.
.....................................................................pqqrsshtghhhiiiigTJEDDDDFFFFKKKKPOQRUwhhtwtyTJEEFKKPOONNSSSSTTTxxxvveddn.
..................................................................pqksttwyUUxxUUyywghiivFACDDFFFKKKKKKKPPLQRxUyUNJEFKKHHONNNNSSSSTTTxxxUyfddp.
...............................................................npqhtwUxTSSSSSSSTTxUywgijfPCDFKKIIJJJJJHPPPPPPLOOJKKKHHOOONNNSSSSTTTTxxxUywedq.
.............................................................nqihtUxSSNNOOOOOONSSRVxUvwhjeQEIIJJJJJJJHHHHHHOPPKKKKJHOOOONNNNSSSSTTTxxxxUywhrq.
...........................................................pqityxTNNOHHHJJHONNSTTxxxUUvwijeNIJJJJJJJHHHHHOOOOOHPHHHHOOOOOONNSSSTTTxxxxxUywtrq.
..........................nnpppppppppnnn.................nqityxSNOHJJJJJONSxyywttgggggwwfijfJIJJJJJJHHHHOOOOOOOOOOHOOOOOOLLQQRSTTTxxxxxUUytrq.
......................ppqrrshshhthhhikrqqqppn..........npkgyTSOHJJIIIHOSxyyyyywwwgghiiiiffeexJJJJJJJHHHHOOOOOOOOOOHHHHKKKPPQQRRVxxxxxxUUUywsq.
...................pqrstwyyUxxxxxxUUyywtghhiqqqpn.....pqhwxSOHJIIIIHSxUyUxTSSNNNSSxUwfjdjeeefNIJJJJJJJHHHHOOOOOOOOHKKKKKHONSVVVVxUxxxUUUUywsq.
.................prtwyxSNNNOOOOOONNNSSSTxUywghiijqqppqktyTNHJIEEIOSxUUTSOJJJJKPPPLQRVVwidjeeevJIIKFKKKKKKPPLOOOOHKFFIJJHOLQQRVvvvyUUUUUUUywtq.
...............prhyxSOHHJJJIIJJJJJJJHOONNSSTxUywgtthhhtUSOHIEEIHSxUxSHJIIFKKKKKPPPPQRRVvfifeeeRFDDDEIKHOOLQQQPPPKFDIJJKKPLLQSRVvfwyUUUUUUywtq.
.............nqhySOHJIIEEEEEEEEEIIJJJHOOOONNSSTxxUUUUyxSOJIEIHSxxTOJIEDEFKKKKKPPLLLQQRVVvffeeefFCDEIJHHONSSVxRLKKJJIKKPONNSSTTxUwgwyUUUUyywtq.
............prwTOJJIEDDDCCCCDEIJONSTxxUUUUUUxxxTTTTSSSNOJIIHNxxSOIDDDDDFKKKHHOOONNNSSSSVVvefejeQCDEFFKKKKPPPRRROHJKKHONONNSSTTxxyttwUUyyyywtq.
...........piyNHJEEDCCCCCCDIHNSxUUyyyywwttttgggggwyTNOHJJHSxxSOIDCCDDFKKJJHOOOONNNNSSSTTxUfeeejvFDFKJJHHHOOOOLLPKKHHOHHPPPQRTxxxUtttyyyyyywtn.
..........phxOJIEDCAAAACDIHSTxxTTSSNNNNNSSTxUywghhhgwUSOSxUxNIDCCCDFIJJHHHHOOONNNNSSSSTTxUyfefrgPEJJHHHHHHOOONNHHHHJKKKHQRVVVxxxUwttyyyyyywsn.
.........qhxNJEDCCAAAADIOSSSNOJIIEEDDDEEEEIIJHONTUyggtwyyyTHECACCDIJJHHHHHOOOONNNNSSSSTTTxywhfsrxJJHJJKKKKKPLOOOOJEDIJJLRxvffyUxUyttwyyyyywsn.
........pixOJEDCAAABCEHNSNHIECCAAAAACCCCDDDDFFIKKJONSTxxxNJDCACDIIJJJHHHHOOOONNNNSSSSTTTTxUyttgrwHJIDDDEKHONRRRLKEDIKHONSTxfetwUUytswyyyywtrn.
.......njyNJEDCAABACIONOJECAAAAABAACCCCCDDDDDFFFFFKKKKJJJIDCCDFIJJJJJJHHHOOOONNNNSSSSTTTTxxywshttOECACDIKJPLQRROJEKHONNSTTxyfstyUytswywwywtq..
.......jvSHIDCAABADJNNJECABBBBABACCCCDDDEEEEEEFIIFKKKKFFFDDDFIIIJJJJJJHHHOOOONNNSSSSTTTTTxxUwtsgtOABACEIJHHOOONLKJHNNNSSTTxUtstwUytswywwwwtn..
......pfVOIECCAAAEHNOIDABBBBABACCCDDEEEEEEEEIIIIIIIIIIKFFFFIIIIIJJJJJHHHHOOONNNNSSSTTTTTTxxUytstsSBBCEJHOOONNNNOOONNSSTTTxxUwsswyytswwwwwtrn..
.....njvQJFDCABADHNOECBBBBBAACCDDDEEEEEEEEEEIIIIIIJJJJJJIIIJJIIIJJJJJJJJJHHOONNSSSSTTTTTxxxUywttsxBAIJHOOONNNNNNNNNSSSTTTxxUytrtyytswwwwwtr...
.....qfVPKECCAADHNOECBBBBBACCDDDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJJJJIKKFKKKKPPPNSSSSTTTTxxxxUywtstUAEJHOOONNNNNSSNNSSSTTTxxxUytrtywstwwwwwtn...
....njvQKIDCAADHNOIABBBBBACCDDEDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJIIFDDDFKKHLLQQRRTTTTTTxxxxxxUytstyEIHOOONNNNNSSSNSSSTTTTxxxUwsrtytstwwwwtrn...
....pfVLKFDCCDKSNICBBBBBCCDDEEDDEEEEEEEEEEIIIIIIIJJJJJJJJJJJJIIFDCDCDIJJHHLQRVVVxxxxTxxxxxxUUytsswJJOOOONNNNNSSSSSSSTTTxxxxUwsrtwtstwwwwtq....
...njvQPKDCCCINRJDBBBBACCDDDEEEEEEEEEEEEEEIIIIIIIIJJJJJJJJJJJEDCCCDIJIKKKKPLLQVvvyUxxxxxxxUUUytsswJHOOONNNNNSSSSSSSTTTTxxUUytrswwtswwwwtsn....
...peVLKFDCCFLROEABBAACCDDDEEEEEEEEEEEEEEEEEEEEEFFIIIJJJJJJIDCACDEIEDFKJHOONNSSxvwyUxxxxxxUUUytsswHOOONNNNNNSSSSSSTTTTxxxUUytrsytstwwwwtr.....
...qfRPKFDCDKRRKCBBBACCDDEEEEEEEEEEEEEEDDDCCCCDDFFFFKKKKIIIDCCCEEDDFJJHOOONNSSSTxwtyUxxxxUUUUywssyHOOONNNNNSSSSSSTTTxxxxxUywtrtwtstwwwtsn.....
..njvQKKDDCFLVLFCAAACCDDEEEEEEEEEEEEEDCCCCACCDEEIJJHHPPKKFDCDEEDDEIJHOOOONNSSSTTxyttyUxxxUUUUywssUHOONNNNNSSSSSSSTxxxxxxUUytrswwstwwwwtq......
..peVPKKDDDKRRKCAAACCDDEEEEEEEEEEEEDCCAABACDEEIIIKPHOONNHIIIEDCDIJJHHHHHOONSSSTTTxwtwyUUUUUUyytssxHONNNNNSSSSSSTTTxxxxxUUywsrtwtstwwwtrn......
..qfRLKFDDKQVQFCAACCDDEEEEEEEEEEEEDCABBBACDDDDDDFFFKKKKPPKIIDDEJJJJIKKKKPLQSSSTTxxyttwUUUUUyyytssSOONNNNSSSSSSSTxxxxxxUUUytrswtstwwwwtn.......
..qvQPKFDFKVVPDCACCDDEEEEEEEEEEEEDCABBBCCACCDEEEIIIIIJJJJKKFEIJJIEDDFIKPLQRVTTTTxxUtttyUUUyyywtstOONNNSSSSSSSTTxxxxxxUUyytsrttstwwwwtq........
.nivQPKFFKQVRKCCCCDDEEEEEEEEEEEEDCABBACAACDEEIIIIIJJJJHHHJJJJJIDCCCDIJPLRVvvUUxTxxUwttyUUUyyywtstHONSSSSSSTTTTTxxxxxUUUywsrtwtstwwwtrn........
.niVQPKFFKRVPFCCCCDEEEEEEEEEEEEECABBACACDEIIIIJIIIIIIJJHHHHHJECACCEIKHHONSvftwUxxxUyttwyyyyyywtsUPONSSSSSTTTTTTxxxxUUyytsrtwtstwwwtrn.........
.ntVQPKFKPVVPDCCCDDEEEEEEEEEEEEDCBAAAACDEIIIIIEEDDDDFFKKKJJJECACDEJJOONNSSxwttwUxxUytswyyyyyywssQWWPNSTTTTTTSTxxxxUUyytsrtwtstwwwtsn..........
.qtxQHJIKRvVKDCCDDEEEEEEEEEEEEDCAAACACEEIIIIEDCACCCEEIKKPPKFDCCEIJHOONNSSTTxtttwUxUytstyyyyyytstOPXXXQSTTTTTTTxxxUUywtrrtttstwwwtsn...........
.qtUSOJJPVvQKDDDDEEEEEIIIIIIEEDCAACACEEIIIIDAABBACDEIIJJHPKEDDEJHOONNNSSSTTxytstyUUytstyyyyywtsUOOQWXXXQSTTSTxxUUyytsrsttsstwwwtsn............
.rtxSOJJNUvQIDDDEEEEEEIIIIIIEEDCBCCCEEIIIIDABBBACDEEIJJJJHJIIIJHOONNNSSSTTTxUtstwUUytstyyywwwtsWLLNNQWXXWNSSTxUUywtrrtttsttwtwtrn.............
.rtUSOHJSwyOIDDDEEEIIIIIIIIIEDCCCDCEEIIJIDABBBACEIJJJHHHHOHHHHOOONNNSSSSTTTxUwsstUUyttwyywwwwstXXXQLONQWWPNSxUywttsstttstwwwwtrn..............
.rtUSNHHTtyOEEDEEEIIIIIIIIIIEDDCFCDEIIIIECABBAEIJJJHHHHOOOOOOOOONNNSSSSTTTTxUysrtyUwstwywwwwtsVPWXXXQLONPPHTyywggttwtsttwwwwtq................
.rtyTNOOUtyOIEEEEEIIIIIIIIIIEDCDFCEEIJJIDABACEIJJHHHHOOOOOOOOOONNNSSSSSTTTTxUysrtyywstwwwwwwstLLLPWXXWLOHPPVvffgtwttstwwwwtsn.................
.qtyTSONUtyOIEEEEIIIIIIIIIIIEDDEEDEIIJIECABCEIJJHHHHOOOOOONNONNNNSSSSSTTTTxxUwtrtyytstwwwwwttVPLLLLPWXQPHPYffwywwttttwwwwtrn..................
.nswxSNNytyOIEEIIIIIIIIIIIIIEEEIEEIIJJIDCACDIJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxywgstywtttwwwwttyLLLLLLPLPWPPPVVVxUywwtwwwwtsq....................
.nrtUTNSytyNJIIIIIIIIIJJJJIIEEEJEEIJJJEDCCDEJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxUywctwytttwwwwwtfXWLLLLLPPPQPPQRVxvvvUywwwwtrn.....................
..rtyxSSytwNJIIIIIIJJJJJJJIIEEJJEIIJJJEDDDEIJHHHOOOOOONNNNNNNNNSSSTTTTTxxxUUwwbtwwtgwwwwwtgkgXXPLPLPPPLQLRvvvvxVTUywwtrn......................
..ntwxTSyttSHJIIIJJJJJJJJJJIIIJJIIJJHJEEEEIJJHHOOOOONNNNNNNNNNSSSTTTTTxxxxUywfcwwtwwwwwwwwrrrraXWPLPPPPXZavVVVVVVVUyhp........................
..nrwUTSyttTOJIIIJJJJJJJJJJJIIOJIJJJHJIEIIIJHHOOOOOONNNNNNNNNNSSSTTTTTxxxUUwybfwwwvywwwwwr.nrsrgXPLPPPPRVVRRVVVVVvgqn.........................
...rtyxTUtsxOJJJJJJJJJJJJJJJJJOHIJJHHJIIJJJHHOOOOONNNNNNNNNSSSSTTTTTxxxxUUyybfyyyvxxxUUvk...nshrgWPPPPQRRRRVVVVVgrn...........................
...ntwUxUtsyNHJJJJJJJJJJJJJJJJNOJJJHHJJJOJJHOOOOONNNNNNNNNSSSSTTTTTxxxxUyyUbbvxUvvVVxxvkn....qthrvPPPLQRRRRVVvgrp.............................
...nrwyxUtstTOHJJJJHHHJHHHHHHHNOJHHHOHHHNHHOOOONNNNNNNNNSSSSSTTTxTxxxxUUUxbbaxvavVVVxvkn.....nrwssQPLLQRRRVvhkp...............................
....qtyUxwstxNHHJJHHHHHHHHHHHHNSHHHHOHHOSOHOOONNNNNNNNSSSSSSTTxxxxxxUxxTVbbaxZavVVxVvkn.......qtgsxPPQRVZfkqn.................................
....nswUUUssySOHHHHHHHHHHHHHHONSOHOOOOOOSNOOONNNNNNNSSSSSSSTTTxxxxxxxTVZbbaVZaZVVxVvkn........nsyswWWZacqp....................................
....nrtUxxtrtTNOHHHHHHHHHHOOOONSNOOOOOONNNOONNNNNNNSSSSSSTTTTTxxxxxSRVZbbaVaaZVVVVak..........nrtrsabkpn......................................
.....nswUxyrsxSOHHHHHHHHOOOOOONSSOOOOOONNSNNNNNNNSSSSSSTTTTTTTxxxTSRVabbZVaaZVVVVfk............nqnnn..........................................
.....nqtyxxsrwTNOOHHOOOOOOOOOONNSNOOONNNOSSNNSNSSSSSSSTTTTTTTTTTSSRVabbZVaaVVVVZgq............................................................
......nrwUxtrsxSNOOOOOOOOOOOOONNSSNNNNNNOSTSNNSSSSSSSSSTSSSSSNSSSRVabbZZaaVVVZZcp.............................................................
.......qsyUUsrwTSNOOOOOOOOOOOONOSTNNNNNNONTVNONNSNNNNNNNNNNNQQQSRVZbbZZaaVVVVakn..............................................................
.......nrtyUtrsxSNNOOOOOOONNNNNONTTNNNNNONTxVNNOOOOOONNNNNQNQQQQRVbbZZaaVVVZacn...............................................................
........nrtUysrtTSNNOOOONNNNNNOONSxSOONNOOSxUxVSQQQQQQQQQQQQQRRRRvbaVaaVVVVacn................................................................
.........nstUtrrySNNNNNNNNNNNOOOONTxSOOOOOOSxyyvVVRRNQQRRRRRRRRRVabVaaZRVVakn.................................................................
..........nswytrsxSNNNNNNNNOOOOOOOSxUTNOOOONSVxvvvvVVVVRRRRRVVZZYbvZaZVVVacn..................................................................
...........qswyrrtTNNOOOOOOOOHOOOONSxyxSNNNNNQSVxvvvaaaaaYYYYYYYYYaaaVVVacn...................................................................
............qsttrrtTSNOOOOOHOOOOOOONSxUyUVSNNNNNSRVxVvaabbYYYYYYYZZaZZZZbp....................................................................
.............nrttrrtxSNOOOOOOOOOOOOONSVxyyUxVRSRRRQRRRVVVVVVVZVVVVZaZVZbq.....................................................................
..............nrstrrtUSNOOOOOOOOOOOONNNSVxUvvvUxxVRRRRRRRRRVRVVVZYYaVVak......................................................................
...............nnrsrrsyTSNOOOOOOOOONNNNNNSRVxUvvvvvvvVZZZZaZYYYYYYYZVZbn......................................................................
.................nqrrqrtUTSNNOOONNNNNNNNNQQSRRRVVVVvaaaaaaYYYYYZZZVZZak.......................................................................
...................nqrrrstUVSSNNNNNNQQNNQSSSRRRSRRRRVVVVVVVVVVRVRRVVZbp.......................................................................
.....................nqqqrstUVTSSNNNQNNNSSSRRRSSSRRRRRRRRRRVVRVVRVVRZk........................................................................
.......................nnqqrrtwUVVRSSSRNSSSRRRRRRRRRRVRVRVVVRRRRRRVZaq........................................................................
..........................nnnqqrstwUxVRRSSRRRRRRRRRRRRRRRRVRVVVVVZZYYp........................................................................
..............................nnnqqrstwyvxxVVVVVRRRVVVVVVVVRVZZYYYbckn........................................................................
...................................nnnnqrrhggwvvvvvZZZaaaaYYbbckkqpn..........................................................................
...........................................nnqqrrcccccccckkqpnn...............................................................................
..............................................................................................................................................
"
make_pixi(serdca)

o = WHITE
font="
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
.....
.....
.....
.....
.....
+
+ + + + + + + + + + + +
....
....
oooo
....
....
+ + + + + + + + + + + + + + + + + + + +
oooo
o..o
oooo
o..o
o..o
+
oooo
o..o
ooo.
o..o
oooo
+
oooo
o...
o...
o...
oooo
+
ooo.
o..o
o..o
o..o
ooo.
+
oooo
o...
oooo
o...
oooo
+
oooo
o...
oooo
o...
o...
+
oooo
o...
o...
o..o
oooo
+
o..o
o..o
oooo
o..o
o..o
+
..o.
..o.
..o.
..o.
..o.
+
...o
...o
...o
o..o
.oo.
+
o..o
o.o.
oo..
o.o.
o..o
+
o...
o...
o...
o...
oooo
+
o..o
oooo
o..o
o..o
o..o
+
o..o
oo.o
o.oo
o..o
o..o
+
oooo
o..o
o..o
o..o
oooo
+
oooo
o..o
oooo
o...
o...
+
oooo
o..o
o..o
o.oo
oooo
+
oooo
o..o
oooo
o.o.
o..o
+
oooo
o...
oooo
...o
oooo
+
oooo
..o.
..o.
..o.
..o.
+
o..o
o..o
o..o
o..o
oooo
+
o..o
o..o
.oo.
.oo.
.oo.
+
o..o
oooo
oooo
oooo
.oo.
+
o..o
.oo.
.oo.
o..o
o..o
+
o..o
.oo.
..o.
..o.
..o.
+
oooo
..o.
.o..
o...
oooo
"
make_pixi( font )
pixi_font(font)

B=#FFFFFF
Pixi_logo = "
BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBB
BB.BBB...BBB.BB
BBB.BB.B.BB.BBB
BBBB...B...BBBB
BBBB.......BBBB
BB...........BB
BB.B.......B.BB
B..BBBBBBBBB..B
BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBB
"
make_pixi (Pixi_logo)

bb = "
...........................................
...........................................
..BBB..BBB.B..B.BBB.B.....BBB..B...B..BBB..
.B...B..B..B..B..B..B....B...B.B...B.B...B.
.B...B..B..B..B..B..B....B...B.B...B.B.....
.B...B..B...BB...B..B....B...B.BB..B.B.....
.B...B..B...BB...B..B....B...B.B.B.B.B.....
.BBBB...B..B..B..B..B....BBBBB.B..BB.B..BB.
.B......B..B..B..B..B..B.B...B.B...B.B...B.
.B.....BBB.B..B.BBB.BBBB.B...B.B...B..BBB..
...........................................
...........................................
"
make_pixi (bb)

b=#FFFFFF
Al_Rado = "
....bb........bbb.b......bbbb.............b........
...bbbb......b..b.b......b...b............b........
...bbbb.....b...b.b......b...b............b........
.....b......b...b.b......b...b..bbbb...bbbb...bbb..
..bbbbbb....b...b.b......b..b..b...b..b...b..b...b.
.b..bb..b...bbbbb.b......bbb...b...b..b...b..b...b.
b...bb...b..b...b.b......b..b..b...b..b...b..b...b.
...b..b...b.b...b.bbbb...b...b..bbb.b..bbb.b..bbb..
..b...b...b........................................
..b...b....bbbbbbbb..b..bbbbbbbbbbbbbbbbb..b..bbbbb
..b....b............bbb...................bbb......
.bb....bb............b.....................b.......
+
...bb.........bbb.b......bbbb.............b........
..bbbb.......b..b.b......b...b............b........
..bbbb......b...b.b......b...b............b........
....b.......b...b.b......b...b..bbbb...bbbb...bbb..
..bbbbbb....b...b.b......b..b..b...b..b...b..b...b.
..b.bb..b...bbbbb.b......bbb...b...b..b...b..b...b.
..b.bb..b...b...b.b......b..b..b...b..b...b..b...b.
...b.b...bb.b...b.bbbb...b...b..bbb.b..bbb.b..bbb..
...b.b....b........................................
...b.b.....bbbbbbbb.bb..bbbbbbbbbbbbbbbbb.bb..bbbbb
...b..b.............bbb...................bbb......
..bb..bb.............bb....................bb......
"
make_pixi (Al_Rado)

info = "PIXILANG - PIXEL-ORIENTED PROGRAMMING LANGUAGE."
x = 35
y = 12
xx = get_pixi_xsize (bb)
yy = get_pixi_ysize (bb)
Q2= new_pixi(xx,yy,43) Q3=new_pixi(xx,yy,43)
b=50 b2=20 b3=-110 x3=320 x2=320 z=0 c=0 k=16 p=0
start_timer( 0 )

start:
if c>43 {finish}
i=0 u=0 n=0
unu:
i=xx*u ii=x*u
Q2[z+i+c*xx*yy] = bb[z+i]
Q3[z+ii+c*x*y] = bb[z+i]
n+1
u=u+1
if n=12 {z+1 c+1 goto start}
goto unu


finish:
e=( sin( get_timer( 0 ) / 4 ) / 2 + 256 ) / 3
e2=( cos( get_timer( 0 ) / 4 ) / 2 + 256 ) / 2
e3=( sin( get_timer( 0 ) / 8 ) / 2 + 128 ) / 8 + 90
clear(BLACK)
pixi(Pixi_logo,135,-98,3,1)
print(info,x2/2,-78,SNEG)
fbox(-161,-80,270,10,BLACK)
transp( 192 )
t_scale( 256, -160, 256 )
pixi (serdca,0,-160,1,e)
b1=b3
transp( 256 )
vivod
transp( 64 )
vivod2
t_reset

transp( 64 )
fbox(-161,50,322,121,#FFFFFF)

transp( 256 )
pixi (serdca,0,-40,1,e)
transp( 128 )
pixi (serdca,0,-40,1,e+8)
b1=b2
transp( 256 )
vivod
transp( 64 )
vivod2
transp( 256 )

pixi (Al_Rado,x3,47,1,1)

t_reset
transp( 64 )
t_scale( 256, -256, 256 )
pixi (Al_Rado,x3,-60,1,1)

t_reset
transp( 256 )

pol:
kk=12*k
transp( kk )
fbox(-161,40+(k*5),322,10,#000000)
k-1
if k>1 {goto pol} k=16
transp( 256 )

frame (30)
x3-1 x2-1
if x3<-700 {x3=350}
if x2<-300 {x2=320}
goto finish

vivod:
fpixi (Q2,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 ,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 + b1,1,e2+80,p)
p+1
if p<=43 {goto vivod}
p=0
ret

vivod2:
fpixi (Q3,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 ,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 + b1,2,e2,p)
p+1
if p<=43 {goto vivod2}
p=0
transp( 256 )
ret
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

User avatar
brainmaster
Posts: 15
Joined: Thu Nov 22, 2007 1:32 pm
Location: The land of Colombian coffee

Re: MiniDemo: Serdca v. 0.2

Post by brainmaster » Tue Dec 11, 2007 3:19 am

As particles of the Pixi_logo, are very good.

Well done Al_Rado :D
:idea: BrainMaster :idea:

User avatar
NightRadio
Site Admin
Posts: 3118
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Re: MiniDemo: Serdca v. 0.2

Post by NightRadio » Tue Dec 11, 2007 7:52 am

Very good :) Теперь еще музон прикрутить осталось

User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

Re:

Post by Al_Rado » Tue Dec 11, 2007 2:20 pm

Спасибо за поддержку! Thanks friends!
А где же музычку взять?
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

User avatar
NightRadio
Site Admin
Posts: 3118
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Re: MiniDemo: Serdca v. 0.2

Post by NightRadio » Tue Dec 11, 2007 3:08 pm

Музон можно взять, например, вот тут: http://modarchive.org/browse.php
Подойдут файлы в форматах XM и MOD.
Хотя, более корректный вариант - написать самому =)
Может, на досуге забацаю что-нибудь небольшое.

User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

Re:

Post by Al_Rado » Tue Dec 11, 2007 4:23 pm

Самому написать - сама крутость :) А на чем ваять лучше, не подскажешь?
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

User avatar
NightRadio
Site Admin
Posts: 3118
Joined: Fri Jan 23, 2004 12:28 am
Location: Ekaterinburg. Russia
Contact:

Re: MiniDemo: Serdca v. 0.2

Post by NightRadio » Tue Dec 11, 2007 4:43 pm

Попробуй ModPlug Tracker или SkaleTracker. Да и масса их еще всяких есть =)
Можно на моем PsyTexx. Только в нем редактор инструментов до ума не доведен.

User avatar
Al_Rado
Posts: 239
Joined: Tue Dec 04, 2007 2:33 pm
Location: Krasnodar
Contact:

Re: MiniDemo: Serdca v. 0.5

Post by Al_Rado » Tue Dec 18, 2007 1:22 pm

Качаем необходимый архивчик и укладываем рядом с прогой :) http://slil.ru/25250807

// Al_Rado // Открытка "Serdca" v.0.5 //
resize_pixi (0,320,240)
A=#E40001 B=#F00700 C=#DB0002 D=#D50003 E=#CE0000 F=#CC0003 G=#BB0000 H=#B50000 I=#C50000 J=#BD0000 K=#C20008 L=#AD0002 M=#A10001
N=#A50000 O=#AD0000 P=#B3000C Q=#A5010A R=#9B0009 S=#9C0000 T=#940000 U=#840001 V=#94000E W=#A80B19 X=#A41F22 Y=#8E1F24 Z=#910A14
a=#831119 b=#731C1F c=#57101F d=#380B2A e=#580123 f=#6B0418 g=#670109 h=#5A0108 i=#540015 j=#45001E k=#430812 l=#000000 m=#000000
n=#0B0002 o=#000000 p=#130109 q=#260108 r=#3B0003 s=#4F0001 t=#630000 u=#750001 v=#800214 w=#730000 x=#8C0000 y=#7B0000 z=#900002
serdca="
..............................................................................................................................................
.......................................................................................................................npqqrsshhsirqp.........
....................................................................................................................npqrhtwyyyyywwghiqp.......
.......................................................................................npppppnnn..................pqrttyUxTTTTTxxxywghjp......
...................................................................................pqqrshssshsrrqqpn............pqstyxTSNNNNNSTxUUyyygijq.....
................................................................................nqrtwyUxxxxxUUywtghirqpn......pqhwUTNNOOOOSxywttghhhhggijp....
...............................................................................qstxSNOOHOOOONNSTxUywthijqp..nqktUSNOHJHNTUywwwwwwtghjjjiedp...
.............................................................................prySOJJIIIIIIJHOONSTTxxUywghikqjhwxSOJJHNxyyUxSSNNNSRxUwiddjdq...
............................................................................qgTHIEEEDDDEIHNTUywttttgggwwwgtttyxSOJHNxUUTNOHHPPLPQQRRVvfjdddn..
...........................................................................qgTOJEDCACDIOSxUUyyyyywtghhiihhgyxTSOOSxUxSHJIKKKPPPQQQRRVVvfdddp..
........................................................................npqjhhifffVLJJNSSNOHJJJHHOONSxyghijhwxSTyyxNJIIKKKPLLNNNSSSSVVVvedddn.
.....................................................................pqqrsshtghhhiiiigTJEDDDDFFFFKKKKPOQRUwhhtwtyTJEEFKKPOONNSSSSTTTxxxvveddn.
..................................................................pqksttwyUUxxUUyywghiivFACDDFFFKKKKKKKPPLQRxUyUNJEFKKHHONNNNSSSSTTTxxxUyfddp.
...............................................................npqhtwUxTSSSSSSSTTxUywgijfPCDFKKIIJJJJJHPPPPPPLOOJKKKHHOOONNNSSSSTTTTxxxUywedq.
.............................................................nqihtUxSSNNOOOOOONSSRVxUvwhjeQEIIJJJJJJJHHHHHHOPPKKKKJHOOOONNNNSSSSTTTxxxxUywhrq.
...........................................................pqityxTNNOHHHJJHONNSTTxxxUUvwijeNIJJJJJJJHHHHHOOOOOHPHHHHOOOOOONNSSSTTTxxxxxUywtrq.
..........................nnpppppppppnnn.................nqityxSNOHJJJJJONSxyywttgggggwwfijfJIJJJJJJHHHHOOOOOOOOOOHOOOOOOLLQQRSTTTxxxxxUUytrq.
......................ppqrrshshhthhhikrqqqppn..........npkgyTSOHJJIIIHOSxyyyyywwwgghiiiiffeexJJJJJJJHHHHOOOOOOOOOOHHHHKKKPPQQRRVxxxxxxUUUywsq.
...................pqrstwyyUxxxxxxUUyywtghhiqqqpn.....pqhwxSOHJIIIIHSxUyUxTSSNNNSSxUwfjdjeeefNIJJJJJJJHHHHOOOOOOOOHKKKKKHONSVVVVxUxxxUUUUywsq.
.................prtwyxSNNNOOOOOONNNSSSTxUywghiijqqppqktyTNHJIEEIOSxUUTSOJJJJKPPPLQRVVwidjeeevJIIKFKKKKKKPPLOOOOHKFFIJJHOLQQRVvvvyUUUUUUUywtq.
...............prhyxSOHHJJJIIJJJJJJJHOONNSSTxUywgtthhhtUSOHIEEIHSxUxSHJIIFKKKKKPPPPQRRVvfifeeeRFDDDEIKHOOLQQQPPPKFDIJJKKPLLQSRVvfwyUUUUUUywtq.
.............nqhySOHJIIEEEEEEEEEIIJJJHOOOONNSSTxxUUUUyxSOJIEIHSxxTOJIEDEFKKKKKPPLLLQQRVVvffeeefFCDEIJHHONSSVxRLKKJJIKKPONNSSTTxUwgwyUUUUyywtq.
............prwTOJJIEDDDCCCCDEIJONSTxxUUUUUUxxxTTTTSSSNOJIIHNxxSOIDDDDDFKKKHHOOONNNSSSSVVvefejeQCDEFFKKKKPPPRRROHJKKHONONNSSTTxxyttwUUyyyywtq.
...........piyNHJEEDCCCCCCDIHNSxUUyyyywwttttgggggwyTNOHJJHSxxSOIDCCDDFKKJJHOOOONNNNSSSTTxUfeeejvFDFKJJHHHOOOOLLPKKHHOHHPPPQRTxxxUtttyyyyyywtn.
..........phxOJIEDCAAAACDIHSTxxTTSSNNNNNSSTxUywghhhgwUSOSxUxNIDCCCDFIJJHHHHOOONNNNSSSSTTxUyfefrgPEJJHHHHHHOOONNHHHHJKKKHQRVVVxxxUwttyyyyyywsn.
.........qhxNJEDCCAAAADIOSSSNOJIIEEDDDEEEEIIJHONTUyggtwyyyTHECACCDIJJHHHHHOOOONNNNSSSSTTTxywhfsrxJJHJJKKKKKPLOOOOJEDIJJLRxvffyUxUyttwyyyyywsn.
........pixOJEDCAAABCEHNSNHIECCAAAAACCCCDDDDFFIKKJONSTxxxNJDCACDIIJJJHHHHOOOONNNNSSSSTTTTxUyttgrwHJIDDDEKHONRRRLKEDIKHONSTxfetwUUytswyyyywtrn.
.......njyNJEDCAABACIONOJECAAAAABAACCCCCDDDDDFFFFFKKKKJJJIDCCDFIJJJJJJHHHOOOONNNNSSSSTTTTxxywshttOECACDIKJPLQRROJEKHONNSTTxyfstyUytswywwywtq..
.......jvSHIDCAABADJNNJECABBBBABACCCCDDDEEEEEEFIIFKKKKFFFDDDFIIIJJJJJJHHHOOOONNNSSSSTTTTTxxUwtsgtOABACEIJHHOOONLKJHNNNSSTTxUtstwUytswywwwwtn..
......pfVOIECCAAAEHNOIDABBBBABACCCDDEEEEEEEEIIIIIIIIIIKFFFFIIIIIJJJJJHHHHOOONNNNSSSTTTTTTxxUytstsSBBCEJHOOONNNNOOONNSSTTTxxUwsswyytswwwwwtrn..
.....njvQJFDCABADHNOECBBBBBAACCDDDEEEEEEEEEEIIIIIIJJJJJJIIIJJIIIJJJJJJJJJHHOONNSSSSTTTTTxxxUywttsxBAIJHOOONNNNNNNNNSSSTTTxxUytrtyytswwwwwtr...
.....qfVPKECCAADHNOECBBBBBACCDDDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJJJJIKKFKKKKPPPNSSSSTTTTxxxxUywtstUAEJHOOONNNNNSSNNSSSTTTxxxUytrtywstwwwwwtn...
....njvQKIDCAADHNOIABBBBBACCDDEDEEEEEEEEEEEIIIIIIIJJJJJJJJJJJIJJIIFDDDFKKHLLQQRRTTTTTTxxxxxxUytstyEIHOOONNNNNSSSNSSSTTTTxxxUwsrtytstwwwwtrn...
....pfVLKFDCCDKSNICBBBBBCCDDEEDDEEEEEEEEEEIIIIIIIJJJJJJJJJJJJIIFDCDCDIJJHHLQRVVVxxxxTxxxxxxUUytsswJJOOOONNNNNSSSSSSSTTTxxxxUwsrtwtstwwwwtq....
...njvQPKDCCCINRJDBBBBACCDDDEEEEEEEEEEEEEEIIIIIIIIJJJJJJJJJJJEDCCCDIJIKKKKPLLQVvvyUxxxxxxxUUUytsswJHOOONNNNNSSSSSSSTTTTxxUUytrswwtswwwwtsn....
...peVLKFDCCFLROEABBAACCDDDEEEEEEEEEEEEEEEEEEEEEFFIIIJJJJJJIDCACDEIEDFKJHOONNSSxvwyUxxxxxxUUUytsswHOOONNNNNNSSSSSSTTTTxxxUUytrsytstwwwwtr.....
...qfRPKFDCDKRRKCBBBACCDDEEEEEEEEEEEEEEDDDCCCCDDFFFFKKKKIIIDCCCEEDDFJJHOOONNSSSTxwtyUxxxxUUUUywssyHOOONNNNNSSSSSSTTTxxxxxUywtrtwtstwwwtsn.....
..njvQKKDDCFLVLFCAAACCDDEEEEEEEEEEEEEDCCCCACCDEEIJJHHPPKKFDCDEEDDEIJHOOOONNSSSTTxyttyUxxxUUUUywssUHOONNNNNSSSSSSSTxxxxxxUUytrswwstwwwwtq......
..peVPKKDDDKRRKCAAACCDDEEEEEEEEEEEEDCCAABACDEEIIIKPHOONNHIIIEDCDIJJHHHHHOONSSSTTTxwtwyUUUUUUyytssxHONNNNNSSSSSSTTTxxxxxUUywsrtwtstwwwtrn......
..qfRLKFDDKQVQFCAACCDDEEEEEEEEEEEEDCABBBACDDDDDDFFFKKKKPPKIIDDEJJJJIKKKKPLQSSSTTxxyttwUUUUUyyytssSOONNNNSSSSSSSTxxxxxxUUUytrswtstwwwwtn.......
..qvQPKFDFKVVPDCACCDDEEEEEEEEEEEEDCABBBCCACCDEEEIIIIIJJJJKKFEIJJIEDDFIKPLQRVTTTTxxUtttyUUUyyywtstOONNNSSSSSSSTTxxxxxxUUyytsrttstwwwwtq........
.nivQPKFFKQVRKCCCCDDEEEEEEEEEEEEDCABBACAACDEEIIIIIJJJJHHHJJJJJIDCCCDIJPLRVvvUUxTxxUwttyUUUyyywtstHONSSSSSSTTTTTxxxxxUUUywsrtwtstwwwtrn........
.niVQPKFFKRVPFCCCCDEEEEEEEEEEEEECABBACACDEIIIIJIIIIIIJJHHHHHJECACCEIKHHONSvftwUxxxUyttwyyyyyywtsUPONSSSSSTTTTTTxxxxUUyytsrtwtstwwwtrn.........
.ntVQPKFKPVVPDCCCDDEEEEEEEEEEEEDCBAAAACDEIIIIIEEDDDDFFKKKJJJECACDEJJOONNSSxwttwUxxUytswyyyyyywssQWWPNSTTTTTTSTxxxxUUyytsrtwtstwwwtsn..........
.qtxQHJIKRvVKDCCDDEEEEEEEEEEEEDCAAACACEEIIIIEDCACCCEEIKKPPKFDCCEIJHOONNSSTTxtttwUxUytstyyyyyytstOPXXXQSTTTTTTTxxxUUywtrrtttstwwwtsn...........
.qtUSOJJPVvQKDDDDEEEEEIIIIIIEEDCAACACEEIIIIDAABBACDEIIJJHPKEDDEJHOONNNSSSTTxytstyUUytstyyyyywtsUOOQWXXXQSTTSTxxUUyytsrsttsstwwwtsn............
.rtxSOJJNUvQIDDDEEEEEEIIIIIIEEDCBCCCEEIIIIDABBBACDEEIJJJJHJIIIJHOONNNSSSTTTxUtstwUUytstyyywwwtsWLLNNQWXXWNSSTxUUywtrrtttsttwtwtrn.............
.rtUSOHJSwyOIDDDEEEIIIIIIIIIEDCCCDCEEIIJIDABBBACEIJJJHHHHOHHHHOOONNNSSSSTTTxUwsstUUyttwyywwwwstXXXQLONQWWPNSxUywttsstttstwwwwtrn..............
.rtUSNHHTtyOEEDEEEIIIIIIIIIIEDDCFCDEIIIIECABBAEIJJJHHHHOOOOOOOOONNNSSSSTTTTxUysrtyUwstwywwwwtsVPWXXXQLONPPHTyywggttwtsttwwwwtq................
.rtyTNOOUtyOIEEEEEIIIIIIIIIIEDCDFCEEIJJIDABACEIJJHHHHOOOOOOOOOONNNSSSSSTTTTxUysrtyywstwwwwwwstLLLPWXXWLOHPPVvffgtwttstwwwwtsn.................
.qtyTSONUtyOIEEEEIIIIIIIIIIIEDDEEDEIIJIECABCEIJJHHHHOOOOOONNONNNNSSSSSTTTTxxUwtrtyytstwwwwwttVPLLLLPWXQPHPYffwywwttttwwwwtrn..................
.nswxSNNytyOIEEIIIIIIIIIIIIIEEEIEEIIJJIDCACDIJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxywgstywtttwwwwttyLLLLLLPLPWPPPVVVxUywwtwwwwtsq....................
.nrtUTNSytyNJIIIIIIIIIJJJJIIEEEJEEIJJJEDCCDEJJHHHOOOOOONNNNNNNNNSSSSTTTTxxxUywctwytttwwwwwtfXWLLLLLPPPQPPQRVxvvvUywwwwtrn.....................
..rtyxSSytwNJIIIIIIJJJJJJJIIEEJJEIIJJJEDDDEIJHHHOOOOOONNNNNNNNNSSSTTTTTxxxUUwwbtwwtgwwwwwtgkgXXPLPLPPPLQLRvvvvxVTUywwtrn......................
..ntwxTSyttSHJIIIJJJJJJJJJJIIIJJIIJJHJEEEEIJJHHOOOOONNNNNNNNNNSSSTTTTTxxxxUywfcwwtwwwwwwwwrrrraXWPLPPPPXZavVVVVVVVUyhp........................
..nrwUTSyttTOJIIIJJJJJJJJJJJIIOJIJJJHJIEIIIJHHOOOOOONNNNNNNNNNSSSTTTTTxxxUUwybfwwwvywwwwwr.nrsrgXPLPPPPRVVRRVVVVVvgqn.........................
...rtyxTUtsxOJJJJJJJJJJJJJJJJJOHIJJHHJIIJJJHHOOOOONNNNNNNNNSSSSTTTTTxxxxUUyybfyyyvxxxUUvk...nshrgWPPPPQRRRRVVVVVgrn...........................
...ntwUxUtsyNHJJJJJJJJJJJJJJJJNOJJJHHJJJOJJHOOOOONNNNNNNNNSSSSTTTTTxxxxUyyUbbvxUvvVVxxvkn....qthrvPPPLQRRRRVVvgrp.............................
...nrwyxUtstTOHJJJJHHHJHHHHHHHNOJHHHOHHHNHHOOOONNNNNNNNNSSSSSTTTxTxxxxUUUxbbaxvavVVVxvkn.....nrwssQPLLQRRRVvhkp...............................
....qtyUxwstxNHHJJHHHHHHHHHHHHNSHHHHOHHOSOHOOONNNNNNNNSSSSSSTTxxxxxxUxxTVbbaxZavVVxVvkn.......qtgsxPPQRVZfkqn.................................
....nswUUUssySOHHHHHHHHHHHHHHONSOHOOOOOOSNOOONNNNNNNSSSSSSSTTTxxxxxxxTVZbbaVZaZVVxVvkn........nsyswWWZacqp....................................
....nrtUxxtrtTNOHHHHHHHHHHOOOONSNOOOOOONNNOONNNNNNNSSSSSSTTTTTxxxxxSRVZbbaVaaZVVVVak..........nrtrsabkpn......................................
.....nswUxyrsxSOHHHHHHHHOOOOOONSSOOOOOONNSNNNNNNNSSSSSSTTTTTTTxxxTSRVabbZVaaZVVVVfk............nqnnn..........................................
.....nqtyxxsrwTNOOHHOOOOOOOOOONNSNOOONNNOSSNNSNSSSSSSSTTTTTTTTTTSSRVabbZVaaVVVVZgq............................................................
......nrwUxtrsxSNOOOOOOOOOOOOONNSSNNNNNNOSTSNNSSSSSSSSSTSSSSSNSSSRVabbZZaaVVVZZcp.............................................................
.......qsyUUsrwTSNOOOOOOOOOOOONOSTNNNNNNONTVNONNSNNNNNNNNNNNQQQSRVZbbZZaaVVVVakn..............................................................
.......nrtyUtrsxSNNOOOOOOONNNNNONTTNNNNNONTxVNNOOOOOONNNNNQNQQQQRVbbZZaaVVVZacn...............................................................
........nrtUysrtTSNNOOOONNNNNNOONSxSOONNOOSxUxVSQQQQQQQQQQQQQRRRRvbaVaaVVVVacn................................................................
.........nstUtrrySNNNNNNNNNNNOOOONTxSOOOOOOSxyyvVVRRNQQRRRRRRRRRVabVaaZRVVakn.................................................................
..........nswytrsxSNNNNNNNNOOOOOOOSxUTNOOOONSVxvvvvVVVVRRRRRVVZZYbvZaZVVVacn..................................................................
...........qswyrrtTNNOOOOOOOOHOOOONSxyxSNNNNNQSVxvvvaaaaaYYYYYYYYYaaaVVVacn...................................................................
............qsttrrtTSNOOOOOHOOOOOOONSxUyUVSNNNNNSRVxVvaabbYYYYYYYZZaZZZZbp....................................................................
.............nrttrrtxSNOOOOOOOOOOOOONSVxyyUxVRSRRRQRRRVVVVVVVZVVVVZaZVZbq.....................................................................
..............nrstrrtUSNOOOOOOOOOOOONNNSVxUvvvUxxVRRRRRRRRRVRVVVZYYaVVak......................................................................
...............nnrsrrsyTSNOOOOOOOOONNNNNNSRVxUvvvvvvvVZZZZaZYYYYYYYZVZbn......................................................................
.................nqrrqrtUTSNNOOONNNNNNNNNQQSRRRVVVVvaaaaaaYYYYYZZZVZZak.......................................................................
...................nqrrrstUVSSNNNNNNQQNNQSSSRRRSRRRRVVVVVVVVVVRVRRVVZbp.......................................................................
.....................nqqqrstUVTSSNNNQNNNSSSRRRSSSRRRRRRRRRRVVRVVRVVRZk........................................................................
.......................nnqqrrtwUVVRSSSRNSSSRRRRRRRRRRVRVRVVVRRRRRRVZaq........................................................................
..........................nnnqqrstwUxVRRSSRRRRRRRRRRRRRRRRVRVVVVVZZYYp........................................................................
..............................nnnqqrstwyvxxVVVVVRRRVVVVVVVVRVZZYYYbckn........................................................................
...................................nnnnqrrhggwvvvvvZZZaaaaYYbbckkqpn..........................................................................
...........................................nnqqrrcccccccckkqpnn...............................................................................
..............................................................................................................................................
"
make_pixi(serdca)

o = WHITE
font="
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
.....
.....
.....
.....
.....
+
+ + + + + + + + + + + +
....
....
oooo
....
....
+ + + + + + + + + + + + + + + + + + + +
oooo
o..o
oooo
o..o
o..o
+
oooo
o..o
ooo.
o..o
oooo
+
oooo
o...
o...
o...
oooo
+
ooo.
o..o
o..o
o..o
ooo.
+
oooo
o...
oooo
o...
oooo
+
oooo
o...
oooo
o...
o...
+
oooo
o...
o...
o..o
oooo
+
o..o
o..o
oooo
o..o
o..o
+
..o.
..o.
..o.
..o.
..o.
+
...o
...o
...o
o..o
.oo.
+
o..o
o.o.
oo..
o.o.
o..o
+
o...
o...
o...
o...
oooo
+
o..o
oooo
o..o
o..o
o..o
+
o..o
oo.o
o.oo
o..o
o..o
+
oooo
o..o
o..o
o..o
oooo
+
oooo
o..o
oooo
o...
o...
+
oooo
o..o
o..o
o.oo
oooo
+
oooo
o..o
oooo
o.o.
o..o
+
oooo
o...
oooo
...o
oooo
+
oooo
..o.
..o.
..o.
..o.
+
o..o
o..o
o..o
o..o
oooo
+
o..o
o..o
.oo.
.oo.
.oo.
+
o..o
oooo
oooo
oooo
.oo.
+
o..o
.oo.
.oo.
o..o
o..o
+
o..o
.oo.
..o.
..o.
..o.
+
oooo
..o.
.o..
o...
oooo
"
make_pixi( font ) // font by NightRadio

B=#FFFFFF
Pixi_logo = "
BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBB
BB.BBB...BBB.BB
BBB.BB.B.BB.BBB
BBBB...B...BBBB
BBBB.......BBBB
BB...........BB
BB.B.......B.BB
B..BBBBBBBBB..B
BBBBBBBBBBBBBBB
BBBBBBBBBBBBBBB
"
make_pixi (Pixi_logo)

bb = "
...........................................
...........................................
..BBB..BBB.B..B.BBB.B.....BBB..B...B..BBB..
.B...B..B..B..B..B..B....B...B.B...B.B...B.
.B...B..B..B..B..B..B....B...B.B...B.B.....
.B...B..B...BB...B..B....B...B.BB..B.B.....
.B...B..B...BB...B..B....B...B.B.B.B.B.....
.BBBB...B..B..B..B..B....BBBBB.B..BB.B..BB.
.B......B..B..B..B..B..B.B...B.B...B.B...B.
.B.....BBB.B..B.BBB.BBBB.B...B.B...B..BBB..
...........................................
...........................................
"
make_pixi (bb)

b=#FFFFFF
Al_Rado = "
....bbb.b......bbbb.............b........
...b..b.b......b...b............b........
..b...b.b......b...b............b........
..b...b.b......b...b..bbbb...bbbb...bbb..
..b...b.b......b..b..b...b..b...b..b...b.
..bbbbb.b......bbb...b...b..b...b..b...b.
..b...b.b......b..b..b...b..b...b..b...b.
..b...b.bbbb...b...b..bbb.b..bbb.b..bbb..
.........................................
"
make_pixi (Al_Rado)

O = #FFFFFF
o = #908070
s = "
..o..
.oOo.
oOOOo
.oOo.
..o..
+
..o..
..o..
ooOoo
..o..
..o..
+
.....
..o..
.oOo.
..o..
.....
+
.....
.....
..O..
.....
.....
+
.....
.....
..o..
.....
.....
+
.....
.....
..O..
.....
.....
+
.....
..o..
.oOo.
..o..
.....
+
..o..
..o..
ooOoo
..o..
..o..
"
make_pixi(s) //sprite by NightRadio

set_disk0( "Serdca_data.tar" )
info = "PIXILANG - PIXEL-ORIENTED PROGRAMMING LANGUAGE."
x = 35
y = 12
xx = get_pixi_xsize (bb)
yy = get_pixi_ysize (bb)
Q2= new_pixi(xx,yy,43) Q3=new_pixi(xx,yy,43)
b=50 b2=-70 b3=-105 x3=320 x2=320 z=0 c=0 k=16 p=0
start_timer( 0 )
font2=load_pixi("0:/font_PerfoOval_curv.gif")
xfont=get_pixi_xsize(font2)
yfont=get_pixi_ysize(font2)+4
xQ=get_pixi_xsize(0)/2 + 50
yQ=-get_pixi_ysize(0)/2 + 60
xxQ=get_pixi_xsize(0)/2 - 1
zQ=0 nQ=yQ pQ=0 iQ=0
text="Привет! Рад представить вам новую версию минидемки Serdca! Идея, графика, кодинг - Al Rado. Музыка взята с сайта http://modarchive.org Что-то подсмотрено из примеров входящих в дистрибутив Pixilang(NightRadio) Сердечки смоделены в Blender'е, рендер стандартный. Всех с наступающим 2008 годом! Привет Tora Bora и всему Краснодару!"
xtext=get_string_size (text)
frames=(xtext*xfont)
stroka=new_pixi(1,yfont,frames)
load_music( "0:/Bassrock.MOD" )
vol = 0
music_volume( vol )
play_music

start:
if c>43 {finish}
i=0 u=0 n=0
unu:
i=xx*u ii=x*u
Q2[z+i+c*xx*yy] = bb[z+i]
Q3[z+ii+c*x*y] = bb[z+i]
n+1
u=u+1
if n=12 {z+1 c+1 goto start}
goto unu

finish:
vol + 4
if vol > 256 { vol = 256 }
music_volume( vol )

pixi_font (font2)
print(text,xQ+2,yQ+2,ORANGE)
effector( BLACK, 4, 1, get_pixi_xsize(0)/2-1, yQ+1, 2, yfont, 1)
effector( BLACK, 4, 2, get_pixi_xsize(0)/2-1, yQ+1, 2, yfont, 1)
print(text,xQ,yQ,SNEG)

nuloQ:
stroka[iQ+zQ] = get_dot (xxQ,nQ)
iQ+1 nQ+1
if nQ<=yfont {goto nuloQ}
clear(BLACK)
nQ=yQ
iQ=0

e=( sin( get_timer( 0 ) / 4 ) / 2 + 256 ) / 3
e2=( cos( get_timer( 0 ) / 4 ) / 2 + 256 ) / 2
e3=( sin( get_timer( 0 ) / 8 ) / 2 + 128 ) / 8 + 90
clear(BLACK)
pixi(Pixi_logo,135,-98,3,1)
pixi_font (font)
print(info,x2/2+35,-78,SNEG)
fbox(-161,-80,270,10,BLACK)
transp( 192 )
t_scale( 256, -160, 256 )
pixi (serdca,0,-160,1,e)
b1=b3

t_reset
transp( 64 )
fbox(-161,50,322,121,#FFFFFF)

transp( 256 )
bQ=0
unuQ
pixi (serdca,0,-40,1,e)
transp( 128 )
pixi (serdca,0,-40,1,e+8)
transp( 256 )
vivod
transp( 128 )
vivod2
transp( 256 )
pixi (Al_Rado,-130,49,1,1)

t_reset
transp( 128 )
t_scale( 256, -256, 256 )
pixi (Al_Rado,-130,-60,1,1)
t_scale( 256, 192, 256 )
bQ=-110
unuQ

t_reset
transp( 256 )

pol:
kk=12*k
transp( kk )
fbox(-161,40+(k*5),322,10,#000000)
k-1
if k>1 {goto pol} k=16
transp( 256 )

xQ=xQ-1
zQ=zQ+yfont
t_reset
transp( 256 )

rx= rand & 191 - 100
ry= rand & 127 - 100
pixi(s,rx,ry,1,rand&127)

effector( 0, 256-get_timer(0)/14, 1, -400, -400, 800, 800, 1 )
frame (30)
x2-1
if x2<-300 {x2=320}
if xQ<-(frames+get_pixi_xsize(0)/2) {xQ=get_pixi_xsize(0)/2-1}

goto finish

vivod:
fpixi (Q2,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 - 115,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 + b1,1,e2+30,p)
p+1
if p<=43 {goto vivod}
p=0
ret

vivod2:
fpixi (Q3,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 - 115,( sin(( get_timer( 0 )-b*(p+1)) / 4 ) / 2 + 128 ) / 24 + b1,1,250,p)
p+1
if p<=43 {goto vivod2}
p=0
transp( 256 )
ret

unuQ:
pixi_alpha (stroka, stroka)
fpixi(stroka,xQ+1+pQ+(cos((get_timer(0)-8*pQ)/4)/8+64)/6,(cos((get_timer(0)-8*pQ)/4)/8+64)/4+bQ,1,1,pQ)
pQ+1
if pQ<frames {goto unuQ}
pQ=0
ret
ВекторКодПиксельПолигон - ВотЧтоЯЛюблю!

Post Reply