[1.7.10] ComputerCraft [1.74]

Написал 14.03.2013 - 20:52

cord=textutils[paste][/paste]serialize({x,y,z})a=textutils[paste][/paste]unserialize(cord)x=a[1]y=a[2]z=a[3]

• Наверх

Написал 15.03.2013 - 02:20

a={}table[paste][/paste]insert(a, {["x"]=x, ["y"]=y, ["z"]=z})x=a[1]["x"]y=a[1]["y"]z=a[1]["z"]

• Наверх

Написал 15.03.2013 - 09:52

• Наверх

Написал 15.03.2013 - 11:09

• Наверх

Написал 15.03.2013 - 11:41

В этот раз dan200 обогнал даже таких стремительных мододелов, как sengir и CovertJaguar.Молодец

• Наверх

Написал 15.03.2013 - 14:07

local l=0function test(var)var=var+1endtest(l)print(l)

local l=0function test(var)var=var+1return varendl=test(l)print(l)

• Наверх

Написал 15.03.2013 - 14:10

• Наверх

Написал 15.03.2013 - 14:22

• Наверх

Написал 15.03.2013 - 14:24

local l=0function test()l=l+1endtest()print(l)

• Наверх

Написал 15.03.2013 - 14:36

local function tm()	while turtle[paste][/paste]suck() do	end	while not(turtle[paste][/paste]forward()) do		if turtle[paste][/paste]detect() then			if not(turtle[paste][/paste]dig()) then				processing=false				return false 			end		elseif turtle[paste][/paste]attack() then		else			sleep(0[paste][/paste]5)		end	end	return trueendlocal function tmr()	tt(1)	if tm() then		dz=dz+1	endendlocal function tml()	tt(3)	if tm() then		dz=dz-1	endendlocal function tmf()	tt(0)	if tm() then		dx=dx+1	endendlocal function tmb()	tt(2)	if tm() then		dx=dx-1	endend

local function tm(ang,dd)	if ang >= 2 then		local s=-1	else		local s=1	end	tt(ang)	while turtle[paste][/paste]suck() do	end	while not(turtle[paste][/paste]forward()) do		if turtle[paste][/paste]detect() then			if not(turtle[paste][/paste]dig()) then				processing=false				return false 			end		elseif turtle[paste][/paste]attack() then		else			sleep(0[paste][/paste]5)		end	end	dd=dd+s	return trueend

• Наверх

Написал 15.03.2013 - 14:56

function fun(a)   return a+1enda=fun(a)

• Наверх

Написал 15.03.2013 - 15:02

l=0d=0function fun(a)   a=a+1b=textutils[paste][/paste]serialize(l,d)endfun(l)fun(d)

• Наверх

Написал 15.03.2013 - 15:36

• Наверх

Написал 15.03.2013 - 16:31

• Наверх

Написал 15.03.2013 - 17:23

• Наверх

Написал 16.03.2013 - 11:35

function saverun()if fs[paste][/paste]exists("startup") then  --проверяем есть ли у нас startup  fs[paste][/paste]delete("startup")          --если да, удаляем егоendlocal nameProgram = shell[paste][/paste]getRunningProgram()   --узнаем название нашей запущенной программыlocal file = fs[paste][/paste]open("startup","w")                           --создаем новый startupfile[paste][/paste]writeLine("shell[paste][/paste]run(\""[paste][/paste][paste][/paste]nameProgram[paste][/paste][paste][/paste]"\")")   --в котором вызываем запуск нашей программыfile[paste][/paste]close()endfunction delrun()if fs[paste][/paste]exists("startup") then     fs[paste][/paste]delete("startup")endend

• Наверх

Написал 16.03.2013 - 19:06

• Наверх

Написал 16.03.2013 - 22:21

• Наверх

Написал 17.03.2013 - 01:49

• Наверх

Написал 17.03.2013 - 08:31

• Наверх