[1.7.10] ComputerCraft [1.74]

function exit()A=0endA=1safe="пароль для выхода"rightpwd="пароль"wait=3side="left"while A>0 do   term[paste][/paste]clear()   term[paste][/paste]setCursorPos(1, 1)   term[paste][/paste]setCursorBlink(true)   write("Введите пароль: ")   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            pwd=string[paste][/paste]sub(pwd,1,#pwd-1)            term[paste][/paste]setCursorPos(17+#pwd,1)            write(" ")            term[paste][/paste]setCursorPos(17+#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("Пароль верен[paste][/paste]")      rs[paste][/paste]setOutput(side,true)      sleep(wait)      rs[paste][/paste]setOutput(side,false)   end   if pwd~=rightpwd and pwd~=safe then      write("Пароль неверен!")      sleep(1)   end  if pwd==safe then     write("Выход из программы[paste][/paste]")     sleep(wait)     shell[paste][/paste]run("clear")     exit()   endend

ЗЫ:Народ кинте ссыль на обновление библиотек LWJGL

http://www.lwjgl.org/download.php Только запомни: Русский символ после ввода в комп крафте, надо стирать 2 раза, если курсор будет находится на строчке с русскими символами, то курсор после русской буквы будет не в том месте, на котором ты видшь курсор(обновишь-поймёшь)-всё это обычно для lua(так-же любые неприспособленные к юникоду движки)+юникод(юникод имеет 2 бита, по этому lua думает что 2 символа), если не нрвится, то делай так:редактируй программу с помощью внешнего редактора.

А это как понимать, отказ от мод лоадера?

Это значит что мод лоадер больше не нужен клиенту и если запускать foresry с мод лоадером наступит краш, т.е. мод лоадер больше нельзя ставить на клиент. И как отмазка от оффтопа Storm Whisper, думаю нужно добавить в перевод раздел "описание стандартных програм" и там написать предназначение и как пользоватся стандартными програмками ос (мне вот напиример досихпор не ясно предназначение програм label, alias и type)

function sgWriteCenter(msg,y)if #msg<50 thenterm[paste][/paste]setCursorPos((52-#msg)/2,y)write(msg)endendfunction writeAsNSymbol(text,n,y)if n >= 0 and n <= 50 thenfor i=1,#text doterm[paste][/paste]setCursorPos(n,y-1+i)write(text[i])endendendfunction sgButton(bts,y,algt,sel)local i,x,event,key	local len=#bts*2if sel==nil then sel=1 endfor i=1,#bts do len=len+#bts[i] endif algt=="left" then x=1elseif algt=="center" then x=(52-len)/2elseif algt=="right" then x=50-len endwhile true doterm[paste][/paste]setCursorPos(x,y)term[paste][/paste]clearLine()for i=1,#bts doif i==sel then write("["[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]"]") else write(" "[paste][/paste][paste][/paste]bts[i][paste][/paste][paste][/paste]" ") endendevent,key=os[paste][/paste]pullEvent("key")if key==203 and sel>1 then sel=sel-1elseif key==205 and sel<#bts then sel=sel+1elseif key==28 then break endendreturn bts[sel]endfunction form2()writeAsNSymbol({"ccccc","cccc","ssss","rrrrr","ttttt","uuuuu"},5,5)button = sgButton({"< Back","Next >","Cancel"},18,"right")if button == "< Back" thenform1()elseif button == "Next >" thenterm[paste][/paste]clear()elseif button == "Cancel" thenterm[paste][/paste]clear()endendfunction form1() button = sgButton({"< Back","Next >","Cancel"},18,"right")if button == "< Back" thenterm[paste][/paste]clear()elseif button == "Next >" thenform2()elseif button == "Cancel" thenterm[paste][/paste]clear()endendterm[paste][/paste]clear()sgWriteCenter("GateOS 1[paste][/paste]1 wizard",1)form1()