[1.7.10] ComputerCraft [1.74]

а теперь о главном: я решил убрать нахрен тег [сenter], и оставил его только для заголовков. имхо так лучше, а вы как думаете?

okay =/

Скрытый текст

Скрытый текст

1.Ctrl + T
2.redset Сторона true
3.*Заходите и спокойно гриферете*
4.Ctrl + R

учитесь

Скрытый текст

rightpwd="melon" --указываем правильный парольwait=5 --указываем продолжительность сигналаside="left" --указываем сторонуwhile true do	term[paste][/paste]clear()	term[paste][/paste]setCursorPos(1, 1)	term[paste][/paste]setCursorBlink(true)	write("Enter password: ")	pwd=""	while true do		event,key=os[paste][/paste]pullEvent()		if event=="char" then			write("*")			pwd=pwd[paste][/paste][paste][/paste]key		elseif event=="key" then			if key==14 and #pwd>0 then				term[paste][/paste]setCursorPos(16+#pwd,1)				write(" ")				term[paste][/paste]setCursorPos(16+#pwd,1)				pwd=string[paste][/paste]sub(pwd,1,#pwd-1)			elseif key==28 then break end		end	end	term[paste][/paste]setCursorPos(1,2)	term[paste][/paste]setCursorBlink(false)	if pwd==rightpwd then		write("Correct password")		rs[paste][/paste]setOutput(side,true)		sleep(wait)		rs[paste][/paste]setOutput(side,false)	else		write("Wrong password!")		sleep(1)	endend

спасибо всем, теперь я знаю как без проблем сделать интерфейс для Звёздных Врат

троль комнатный, напиши прогу для лифта из рп2 и прога то по навигации корабля не работает, ахах п.с. знакомый ник админа на серве

мда, такой чуши я ещё не видел. я вообще нихрена из написанного не понял.

os[paste][/paste]pullEvent=os[paste][/paste]pullEventRaw

Скрытый текст

1.Ctrl + T 2.redset Сторона true 3.*Заходите и спокойно гриферете* 4.Ctrl + R

ДОБАВИТЬ! os.pullEvent = os.pullEventRaw Заблокирует комбинацию клавиш ctrl+t

ДОБАВИТЬ! os.pullEvent = os.pullEventRaw Заблокирует комбинацию клавиш ctrl+t

Я кагбэ уже писал про эту фичу, вот тут viewtopic.php?p=184611#p184611 Зачем повторятся?

Скрытый текст

троль комнатный, напиши прогу для лифта из рп2 и прога то по навигации корабля не работает, ахах п.с. знакомый ник админа на серве

Прогу для лифта напишу, а навигация не работает из-за того что на сервере динамичная загрузка чанков(Bukkit) и gps спутники(Я строил) попросту не работают. Т.К. просто рядом никого нет.(кароче знающий человек поймёт) .

если поставить туда раилкрафт, там есть такая фигня, которая 3на3 чанка вокруг себя грузит

напишите прогу для чайника (тупо как поставить её и саму прогу без коментов) : 1. чтобы по написанию в компе "1", происходил постоянный сигнал рэда вверх 2. чтобы по написанию в компе "0", происходило выключение сигнала вверх ------- 3. если возможно чтобы по набору "+1", "+2", "+3", подавался сигнал рэда длинной равный значению после знака "+" (в секундах)

//@PROGRAM NAME "1"//@NO ARGsrs[paste][/paste]setOutput("top",true)

//@PROGRAM NAME "0"//@NO ARGslocal side=rs[paste][/paste]getSides()for n=1,#side dors[paste][/paste]setOutput(side,false)end

//@PROGRAM NAME "+"//@ ARG <TIME>, <SIDE>arg={[paste][/paste][paste][/paste][paste][/paste]}rs[paste][/paste]setOutput(arg[2],true)sleep(arg[1])rs[paste][/paste]setOutput(arg[2],false)

продолжил разработку установщика проги Stargate, вот получается примерно такое =)

думаю скоро будет готов и выпущу версию 1.2, или же запихнуть в версию 2, вместе с поисковиком врат?

может кто подскажет?

while turtle[paste][/paste]detect() do   sleep(0[paste][/paste]1)endturtle[paste][/paste]forward()

Nazdar, я так понимаю ты активируешь их с одного провода примерно так?

Он их через ред нет активирует, задержек быть не может.

хотя в случае с реднетом на порядок скорее влияет не сторона с которой идет сигнал, а id черепах

os[paste][/paste]loadAPI("GUIapi")

function writeCenter(msg,y)      if #msg<50 then         term[paste][/paste]setCursorPos((52-#msg)/2,y)         term[paste][/paste]write(msg)      end   end   function buttonAllPos(bts,x,y,btsn,sel)      local i,event,key      if sel==nil then sel=1 end      while true do         term[paste][/paste]setCursorPos(x,y)         term[paste][/paste]clearLine()         for i=1,#bts do            if i==sel then term[paste][/paste]write("["[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]"]") else term[paste][/paste]write(" "[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]" ") end         end         if sel=="break" then break end         event,key=os[paste][/paste]pullEvent("key")         if key==203 and sel>1 then sel=sel-1         elseif key==205 and sel<#bts then sel=sel+1         elseif key==28 then break end      end      if btsn==nil then return bts[sel] else return btsn[sel] end   end      function writeAsNSymbol(text,n,y)	  if n >= 0 and n <= 50 then		 for i=1,#text do		   term[paste][/paste]setCursorPos(n,y-1+i)		   write(text[i])		 end	  end   end   function buttonEachPos(bts,x,y,btsn,sel)   print(#bts)      local i,event,key, butX, butY      if sel==nil then sel=1 end	  while true do      for i=1,#bts do	     butX = x[i]		 butY = y[i]         term[paste][/paste]setCursorPos(butX,butY)            if i==sel then term[paste][/paste]write("["[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]"]") else term[paste][/paste]write(" "[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]" ") end		 end         event,key=os[paste][/paste]pullEvent("key")         if key==203 and sel>1 then sel=sel-1         elseif key==205 and sel<#bts then sel=sel+1         elseif key==28 then break end      end      if btsn==nil then return bts[sel] else return btsn[sel] end   end