Someone want to help me a bit?

[Krash]

I've been slaving over some per_pixel effect stuff, modifying aenema, and I've got it looking really nice.
The only problem, is that it's actually kinda boring to watch, and it needs some musical reactivity. So if Unchained, Rovastar, or anyone else feel like adding some kind of reactivity to this, go right ahead.
Otherwise, it's somewhat interesting as it is.

==============
Aenema Critter (UNFINISHED!)
==============
[preset00]
fRating=3.000000
fGammaAdj=2.000000
fDecay=0.980000
fVideoEchoZoom=2.000000
fVideoEchoAlpha=0.000000
nVideoEchoOrientation=0
nWaveMode=0
bAdditiveWaves=0
bWaveDots=0
bModWaveAlphaByVolume=0
bMaximizeWaveColor=1
bTexWrap=0
bDarkenCenter=0
bMotionVectorsOn=0
bRedBlueStereo=0
nMotionVectorsX=12
nMotionVectorsY=12
bBrighten=0
bDarken=0
bSolarize=0
bInvert=0
fWaveAlpha=0.800000
fWaveScale=0.127200
fWaveSmoothing=0.750000
fWaveParam=0.000000
fModWaveAlphaStart=0.750000
fModWaveAlphaEnd=0.950000
fWarpAnimSpeed=1.000000
fWarpScale=1.000000
fZoomExponent=1.000000
fShader=0.000000
zoom=1.000000
rot=0.000000
cx=0.500000
cy=0.500000
dx=0.000000
dy=0.000000
warp=1.000000
sx=1.000000
sy=1.000000
wave_r=0.100000
wave_g=0.500000
wave_b=0.500000
wave_x=0.500000
wave_y=0.500000
ob_size=0.010000
ob_r=0.000000
ob_g=0.000000
ob_b=0.000000
ob_a=0.000000
ib_size=0.010000
ib_r=0.600000
ib_g=0.000000
ib_b=0.000000
ib_a=0.000000
per_frame_1=warp = 0;
per_frame_2=dx = dx - .0005;
per_frame_3=dy = dy - .0005;
per_frame_4=wave_r = abs(wave_r + 0.1*(sin(time*0.346) + sin(time*1.334)));
per_frame_5=wave_g = wave_g + 0.15*(sin(time*0.763) + sin(time*1.231));
per_frame_6=wave_b = wave_b + 0.2*(sin(time*0.695) + sin(time*0.367));
per_frame_7=ob_r = wave_r;
per_frame_8=ob_g = wave_b - 0.1;
per_frame_9=ob_b = wave_g - 0.1;
per_pixel_1=dy = if(below(abs(x-0.5),0.15), if(below(y,0.35), -0.006, if(below(y,0.5), 0.00, if(below(y,0.65), -0.00, 0.006))), 0);
per_pixel_2=dy = dy - if(below(y, 0.65), if(above(y, 0.35), 0.1*(y-0.5) + 0.01*sin(x*30+sign(x-0.5)*time*4), 0), 0);
per_pixel_3=dx = if(below(abs(y-0.5),0.15), if(below(x,0.35), -0.006, if(below(x,0.5), 0.00, if(below(x,0.65), -0.00, 0.006))), 0);
per_pixel_4=dx = dx - if(below(x, 0.65), if(above(x, 0.35), 0.1*(x-0.5) + 0.01*sin(y*30+sign(y-0.5)*time*4), 0), 0);
per_pixel_5=zoom = if(below(abs(x-y), 0.05), 1.02, if(below(abs(1 - (x+y)), 0.05), 1.02, zoom));

I gotta run.

- Krash