Cow UFO 1000

Вы ученый с далекой планеты. Ваша миссия — напоить как можно больше коров.

Стрелки для перемещения корабля
Z, чтобы купать коров

Вы должны быть на корове, чтобы использовать Z.

Собери как можно больше коров до того, как истечет время!

Исходный код:

патрон пико-8 // http://www.pico-8.com версия 33 __луа__ px=64py=100pz=0cc=0cs=0cz=0f=0t=999wy=128cw={}c=клип cf=обводка q=полоса г = рнд для y=0,400добавить(cw,{x=r(128),y=-(r(8)+60)*y})end функция _draw()cls(3)для y=0,128do srand(-wy+y)pset(r(128),y,11)end для 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) если(f%8<4and pz>0)circ(px,py,8,12) ?"захвачено:"..cc,0,0,8 "заведи коров!",50,0,0 ?"время:"..t,96,0,8 f+=1если f%18==0тогда если f%152<76тогда?"\as9v2e1e1g1g1" еще?"\as9v2f1f1a1a1" конец конец если(т<=0)?"конец",54,58 конец функция co(x,y)dx={0,4}для i=0,1do v=dx[i+1]cf(x-i,y-3-i,4,v)cf(xi,y+4-i,4,v)cf(x-i+i-1,y-14, 1,14)ср(x-i,y-9-i,3,v)конец конец функция _update60() если(t<=0)pz=0возврат b=btn()px+=q(b,2)/2-q(b,1)py+=q(b,8)/8-q(b,4)/4ac=0для 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 конец pz=cz и q(b,16)/16или 0if(pz>0)?"\as9x1v2c1f1c2f2c3f3" если pz>0, то cs+=1иначе cs=0end если(cs>50)гастроном(cw,ac)cs=0cc+=1?"\as5x5v6i0c3c3c3" wy+=1t-=0.5конец