Characters/Bytes used
1023 bytes

Source Code
px=64py=100pz=0cc=0cs=0cz=0f=0t=999wy=128cw={}c=clip
cf=circfill
q=band
r=rnd
for y=0,400do add(cw,{x=r(128),y=-(r(8)+60)*y})end
function _draw()cls(3)for y=0,128do srand(-wy+y)pset(r(128),y,11)end
for i=1,#cw do co(cw[i].x, cw[i].y+wy-256)end
cf(px+3,py+2,7,0)cf(px,py,7,11)c(px,py,8,8)cf(px,py,7,3)c(px-8,py-8,8,8)cf(px,py,7,7)c()cf(px,py,2,11)circ(px,py,5,8)
if(f%8<4and pz>0)circ(px,py,8,12)
?"captured:"..cc,0,0,8
?"get cows!",50,0,0
?"time:"..t,96,0,8
f+=1if f%18==0then
if f%152<76then?"\as9v2e1e1g1g1"
else?"\as9v2f1f1a1a1"
end
end
if(t<=0)?"end",54,58
end
function co(x,y)dx={0,4}for i=0,1do
v=dx[i+1]cf(x-i,y-3-i,4,v)cf(x-i,y+4-i,4,v)cf(x-i+i-1,y-14,1,14)cf(x-i,y-9-i,3,v)end
end
function _update60()
if(t<=0)pz=0return
b=btn()px+=q(b,2)/2-q(b,1)py+=q(b,8)/8-q(b,4)/4ac=0for i=1,#cw do
cz=abs(px-cw[i].x+2)<6and abs(py-(cw[i].y+wy-128*2-3))<12if(cz)ac=i break
end
pz=cz and q(b,16)/16or 0if(pz>0)?"\as9x1v2c1f1c2f2c3f3"
if pz>0then cs+=1else cs=0end
if(cs>50)deli(cw,ac)cs=0cc+=1?"\as5x5v6i0c3c3c3"
wy+=1t-=0.5end