function main()
	domain=true

	while domain do
	 cls()
		spr(16,4,0,15,2)

		for i=0,8 do star() end
		yield()

	end
end

function star()
 dostar=true
 inst  =
 {
  sx=rnd(127),
  sy=127,
  ex=63,
  ey=63,
 }

	while dostar do
		local dx=flr(inst.sx)==flr(inst.ex)
		local dy=flr(inst.sy)==flr(inst.ey)
		rectfill(0,0,127,24,0)
		print(tostr(dx)..","..tostr(dy),0,0,7)
		if dx and dy then	
			dostar=false
		else
		 pset (inst.sx,inst.sy,7)
		 print(flr(inst.sx).."/"..flr(inst.ex),0,8,7)
		 print(flr(inst.sy).."/"..flr(inst.ey),0,16,7)
			inst.sx+=(inst.ex-inst.sx)*mainstarspd
			inst.sy+=(inst.ey-inst.sy)*mainstarspd
		end
		yield()
	end
end

if await(60,"my identifer") then
 --done
end

function await(t,id)
  if not cofun[id] then
    --don't know how to return true here
    add(cofun,cocreate(function()
      while t>0 do
        t-=1
	yield()
      end
    end))
  else
   return false
  end	
end

function coupdate()
 for c in all(cofun) do
  if costatus(c) then
    coresume(c)
  else
    del(cofun,c)
  end
 end
end

--id is determined by function execution index
if await(60) then
 --done
end

await(60)--await id 0
await(60)--await id 1
await(60)--await id 2
--nextframe
await(60)--await id 0
await(60)--await id 1
await(60)--await id 2

function range(low,high,step)
	local t={}
	for i=low,high,step do
		add(t,flr(i/step)*step)--
	end
	return t
end

function run_menu1()
	scene.upd = upd_menu1
	scene.drw = drw_menu1

	--options selectors
	optiony=1 --optiony
	options=
	{
                --optionx and options
		{1, {false , true       }}, --powerups
		{1, {"grow", "infinite" }}, --tail type
		{42,range(-4.0, 4.0, 0.1)}, --player speed
		{42,range(-4.0, 4.0, 0.1)}, --player accel on any deaths
		{1, range( 0.0,32.0, 1.0)}, --border size
		{42,range(-4.0, 4.0, 0.1)}, --border speed
		{42,range(-4.0, 4.0, 0.1)} -- border accel on any deaths
	}
end

local axisy = btn(3)-btn(2)

function boxt(s,x,y,w,h)
	local sx1=flr(s%16)*(w*8)
	local sy1=flr(s/16)*(h*8)
	local sx2=sx1+(w*8)
	local sy2=sy1+(h*8)
	local cx =4
	local cy =4

        //find 0 pixel or top
	while sget(sx1+cx,sy1+cy) != 0 or sy1+cy > sy1 do
		cy-=1
	end

	sspr(sx1,sy1,sx2-sx1,sy2-sy1,x+cx,y+cy)

	return cy+y
end

local s,x,y=22,63,63
function _draw()
	cls(1)
	if(boxt(s,x,y,1,1) > 0) then
		y-=1
	end
	//spr(s,x-4,y-4)
end

o:procx()

vec=
{	
	x=0,
	y=0,
	mag=function(o) return sqrt (o.x^2+o.y^2) end,
 ang=function(o) return atan2(o.x,  o.y  ) end,
 nrm=function(o) return vec(o:ang()/360) end,  
}
vecmeta=
{
	 __call=function(o,x,y)
	  o  =o or {} 
			o.x=y and x or cos((x+90)/360)
			o.y=y and y or-sin((x+90)/360)	
			return setmetatable(o,vec)
		end,
		__eq=function(a,b)
			a=type(a) == "number" and vec(a,a) or a
			b=type(b) == "number" and vec(b,b) or b
			return (a.x==b.x and a.y==b.y)
		end,
		__add=function(a,b)
			a=type(a) == "number" and vec(a,a) or a
			b=type(b) == "number" and vec(b,b) or b
			return vec(a.x+b.x,a.y+b.y)
		end,
		__sub=function(a,b)
			a=type(a) == "number" and vec(a,a) or a
			b=type(b) == "number" and vec(b,b) or b
			return vec(a.x-b.x,a.y-b.y)
		end,
		__mul=function(a,b)
			a=type(a) == "number" and vec(a,a) or a
			b=type(b) == "number" and vec(b,b) or b
			return vec(a.x*b.x,a.y*b.y)
		end,
		__div=function(a,b)
  	a=type(a) == "number" and vec(a,a) or a
			b=type(b) == "number" and vec(b,b) or b
			return vec(a.x/b.x,a.y/b.y)
		end,
}
setmetatable(vec, vecmeta)

local test =
{
	pos=vec(0,0),
	vel=vec(0,0),
}

local stars={}
for i=0, 16 do add(stars,{x=rnd(128),y=rnd(128),px=x,py=y,c=7}) end --px and py are equal to x and y

drwmenu=function()
	if btn(2) then menuind-=1 end
	if btn(3) then menuind+=1 end
	menuind=mid(0,4)

	for v in all(stars) do
	print(v.px) --prints nil 
	print(v.py) --prints nil
		line(v.x,v.y,v.px,v.py,v.c)
		--line(v.x,v.y-128,v.px,v.py,v.c)
		--v.py=v.y

		--v.y+=8
		if v.y > 127 then v.y-=128 end
	end
	if (time()-last > 1) then
		rectfill(0,112,127,120,1)
		print("press start!",0,114,7)
		if (time()-last > 2) then last=time() end
	end
end

function wait(t)
  for x=1,t do yield() end
end

function test()
 wait(2)
 print("test")
 wait(2)
end

function _update()
 test()
end

function ldx(d,l)  --stands for lengthdirx
    return cos(d)* l or 1
end

function ldy(d,l) --stands for lengthdiry 
    return sin(d)* l or 1
end

function ptl(x1,y1,x2,y2) --stands for point length
    return sqrt(((y2-y1)^2)+((x2-x1)^2))
end

function ptd(x1,y1,x2,y2) --stands for point direction
    return atan2(y2-y1,x2-x1)
end

function wrp(v,l,h) -- stands for wrap
    local o=v
    while(o < l) o += (h-l)
    while(o > h) o -= (h-l)
    return o
end

function rng(v, l1, h1, l2, h2) -- stands for range
    return l2 + (v - l1) * (h2 - l2) / (h1 - l1)
end

function vec(vx,vy) --stands vector
	local m=

[ [size=16][color=#ffaabb] [ Continue Reading.. ] [/color][/size] ](/bbs/?pid=55218#p)

local var = 0
      var = var + 1

local var=0 var=var+1