I moved to gist instead of pastebin because it very nice

Not yielding?

c = coroutine.wrap(function() 
	for i = 1,40 do 
		print(i) 
		if getfenv(c).yield==true then 
			print("HELLOOO") coroutine.yield()
		 end 
		print(getfenv().yield)
		 wait(1)
		 end end)
c()
wait(5)
getfenv(c).yield=true