[1.7.10] ComputerCraft [1.74]

function readf(id)write("read ") print(id)local fileAlocal intAlocal numA = 0local lenA = #idlocal boolA = truelocal strAfileA = fs[paste][/paste]open("data","r")while boolA do  numA = numA + "1"   strA = fileA[paste][/paste]readLine()  intA = string[paste][/paste]sub(strA,"1",lenA)  if intA == id then   strA = string[paste][/paste]sub(strA,lenA+2,"-1")   boolA = false write("found \"")  write(strA) print("\"") elseif numA == "9001" then write("ERROR id \"")write(id)print("\" not found on over 9000 lines")  boolA = false  return "not found error" endendfileA[paste][/paste]close()return strAendlocal id, cmd, subcmd, sendlocal arrSides = {"top","left","front","back","bottom","right"}for i = 1 , 6,1 dorednet[paste][/paste]open(arrSides[i])endwhile true doid, cmd = rednet[paste][/paste]receive() write("get is \"")write(cmd)print("\"") subcmd = string[paste][/paste]sub(cmd,"1","5")  if subcmd == "read " then   subcmd = string[paste][/paste]sub(cmd,"6","-1")   send = readf(subcmd)   write("send \"") write(send) write("\" to ")print(id)   if  rednet[paste][/paste]send(id, send) then   print("transfer comlite")   else    print("transfer error")   end else   rednet[paste][/paste]send(id,"sintax error") endend

local function printUsage()	print( "Usages:" )	print( "pastebin put <filename>" )	print( "pastebin get <code> <filename>" )endlocal tArgs = { [paste][/paste][paste][/paste][paste][/paste] }if #tArgs < 2 then	printUsage()  	returnendlocal sCommand = tArgs[1]if sCommand == "put" then	-- Upload a file to pastebin[paste][/paste]com	-- Determine file to upload	local sFile = tArgs[2]	local sPath = shell[paste][/paste]resolve( sFile )	if not fs[paste][/paste]exists( sPath ) or fs[paste][/paste]isDir( sPath ) then		print( "No such file" )		return	end		-- Read in the file	local sName = fs[paste][/paste]getName( sPath )	local file = fs[paste][/paste]open( sPath, "r" )	local sText = file[paste][/paste]readAll()	file[paste][/paste]close()		-- POST the contents to pastebin	write( "Connecting to pastebin[paste][/paste]com[paste][/paste][paste][/paste][paste][/paste] " )	local key = "0ec2eb25b6166c0c27a394ae118ad829"	local response = http[paste][/paste]post(		"http://pastebin[paste][/paste]com/api/api_post[paste][/paste]php", 		"api_option=paste&"[paste][/paste][paste][/paste]		"api_dev_key="[paste][/paste][paste][/paste]key[paste][/paste][paste][/paste]"&"[paste][/paste][paste][/paste]		"api_paste_format=lua&"[paste][/paste][paste][/paste]		"api_paste_name="[paste][/paste][paste][/paste]textutils[paste][/paste]urlEncode(sName)[paste][/paste][paste][/paste]"&"[paste][/paste][paste][/paste]		"api_paste_code="[paste][/paste][paste][/paste]textutils[paste][/paste]urlEncode(sText)		)			if response then		print( "Success[paste][/paste]" )				local sResponse = response[paste][/paste]readAll()		response[paste][/paste]close()						local sCode = string[paste][/paste]match( sResponse, "[^/]+$" )		print( "Uploaded as "[paste][/paste][paste][/paste]sResponse )		print( "Run \"pastebin get "[paste][/paste][paste][/paste]sCode[paste][/paste][paste][/paste]"\" to download anywhere" )	else		print( "Failed[paste][/paste]" )	end	elseif sCommand == "get" then	-- Download a file from pastebin[paste][/paste]com	if #tArgs < 3 then		printUsage()		return	end	-- Determine file to download	local sCode = tArgs[2]	local sFile = tArgs[3]	local sPath = shell[paste][/paste]resolve( sFile )	if fs[paste][/paste]exists( sPath ) then		print( "File already exists" )		return	end		-- GET the contents from pastebin	write( "Connecting to pastebin[paste][/paste]com[paste][/paste][paste][/paste][paste][/paste] " )	local response = http[paste][/paste]get(		"http://pastebin[paste][/paste]com/raw[paste][/paste]php?i="[paste][/paste][paste][/paste]textutils[paste][/paste]urlEncode( sCode )		)			if response then		print( "Success[paste][/paste]" )				local sResponse = response[paste][/paste]readAll()		response[paste][/paste]close()				local file = fs[paste][/paste]open( sPath, "w" )		file[paste][/paste]write( sResponse )		file[paste][/paste]close()				print( "Downloaded as "[paste][/paste][paste][/paste]sFile )			else		print( "Failed[paste][/paste]" )	end	else	printUsage()	returnend

Люди, посмотрел описание мода, очень понравился, только вот один вопрос, а для чего он вообще нужен, есть ли практическая польза от мода? (например ИК позволяет автоматически добывать руду..., БК удобный менеджмент вещей, Планс понятно, быстрое и красивое перемещение по карте... а этот?) =)