Не без глючков конечно, но работает!// Al_Rado // MiniDemo "Бегучка" v.01 //
resize_pixi (0,320,240)
start_timer(0)
//font=load_pixi("font.gif") //при использовании внешнего фонта - "раскомментить"
font=get_pixi_font // при использовании внешнего фонта - "закомментить"
xfont=get_pixi_xsize(font)
yfont=get_pixi_ysize(font)
pixi_font (font)
x=get_pixi_xsize(0)/2 - 1
y=-get_pixi_ysize(0)/2
xx=x z=0 n=y p=0 i=0
text="Привет! Вот вам и HELLO WORLD! Pixilang - пиксельно-ориентированный язык программирования."
xtext=get_string_size (text)
frames=(xtext*xfont)
stroka=new_pixi(1,yfont,frames)
/////////////////////////
clear(ORANGE)
start:
e=( cos( get_timer( 0 ) / 4 ) / 2 + 128 ) / 2
e2=( sin( get_timer( 0 ) / 4 ) / 2 + 256 ) / 3
e3=( sin( get_timer( 0 ) / 4 ) / 2 + 256 ) / 3
print(text,x+1,y+1,BLACK)
effector( BLACK, 4, 1, get_pixi_xsize(0)/2-1, y+1, 2, yfont, 1)
effector( BLACK, 4, 2, get_pixi_xsize(0)/2-1, y+1, 2, yfont, 1)
print(text,x,y,SNEG)
fbox(-160,y,319,yfont,ORANGE)
frame (0)
nulo:
stroka[i+z] = get_dot (xx,n)
i+1 n+1
if n<=yfont {goto nulo}
clear(ORANGE)
n=y i=0
unu:
fpixi(stroka,x+p+(cos((get_timer(0)-32*p)/4)/8)/12,(cos((get_timer(0)-16*p)/4)/8+64)/6+40,2,e,p)
p+1
if p<frames {goto unu}
x=x-1
z=z+yfont
p=0
frame ()
goto start
)