[1.4.6] RedPower 2 [Prerelease 6]

Строка - последовательность байт, заканчивающиеся нулевым. Каждый байт представляет собой 1 литеру. (т.е. как в Си)

10 CONSTANT lenlen ALLOT CONSTANT password

len ALLOT CONSTANT buf

password len ACCEPT {Нажимаем Enter} {Вводим пароль} {Еще раз Enter}

: lockBEGIN  PAGE  [paste][/paste]" PC is blocked[paste][/paste]" CR  [paste][/paste]" Enter password: "  buf len  ACCEPT CR     \Запрашиваем ввод пароля  password STRCMP 0= DUP \Логическое значение понадобится дважды  IF    [paste][/paste]" You are right!"  ELSE    [paste][/paste]" Wrong passwor!" CR    [paste][/paste]" You can try after " \10 секунд    10 0 DO      18 3 AT-XY \Это положение я вычислил отдельно      10 I - [paste][/paste]   \предыдущее число заменяется      20 TICKS   \1 секунда    LOOP  THENUNTIL ;

func @ EXECUTE

' rec2 func !

: COMCREATE TIBWORD ,S ;COM OPEN   OpendoorCOM CHANGE ChangepassCOM FT     FORTH20 CONSTANT LEN: STRVAR (-->)CREATE LEN ALLOT DROP ;STRVAR PASSWORDSTRVAR ROOTPASSSTRVAR BUFSTRVAR BUF2: BLK (delay-->) \ В секундах769 @ \Запоминаем положение курсораOVER 0 DO  DUP 769 !  \Перемещаем курсор  OVER I - [paste][/paste] \Выводим число  20 TICKS   \1 секундаLOOP 2DROP ;: ENTER (addr-->addr)LEN ACCEPT CR ;: CHP[paste][/paste]" Enter root password: "BUF ENTERROOTPASS STRCMPIF  [paste][/paste]" Wrong rootpass!" CR  [paste][/paste]" You can try after " 60 BLK CRELSE  [paste][/paste]" Set new password: "  BUF ENTER  [paste][/paste]" Cunfirm new password: "  BUF2 ENTER  STRCMP IF    [paste][/paste]" Password not canged!" CR  ELSE    BUF PASSWORD LEN MOVE    [paste][/paste]" Changing the password was successful" CR  THENTHEN ;: OPD[paste][/paste]" Enter password: "BUF ENTERPASSWORD STRCMPIF  [paste][/paste]" Wrong password!" CR  [paste][/paste]" You can try after " 60 BLK CRELSE 1 IOX! [paste][/paste]" Door will be open " 1200 BLK CRTHEN ;: OUT[paste][/paste]" Enter root password: "BUF ENTERROOTPASS STRCMPIF  [paste][/paste]" Wrong rootpass!" CR  [paste][/paste]" You can try after " 60 BLK CRELSE  [paste][/paste]" You can do enyfing!" QUITTHEN ;: INTERPRET (addr-->)DUP OPEN STRCMP0= IF OPD EXIT THENDUP CHANGE STRCMP0= IF CHP EXIT THENFT STRCMP0= IF OUT EXIT THEN[paste][/paste]" Unknown Token: " BUF TYPE;: MAINBEGIN  PAGE  CR [paste][/paste]" > "  BUF ENTER  INTERPRET  60 TICKSAGAIN ;

Если в одиночке, то создаёшь дискету, вставляешь в дисковод, пишешь DISKID. Компьютер тебе выдаст набор букв и цифр. Залезаешь в папку ...\.minecraft\saves\World\redpower и ищешь файл disk_<набор букв>.img Далее переименовываешь LockDoor на это имя и заменяешь файл в сохранении.

Если на сервере, то ищеш ь в этой теме программу, которая позволяет сделать это через терминал (где-то не далеко).

Код (для LockDoor) писал посреди ночи и сделал пару ошибок, образ диска - скорее демонстрация (хотя паузу в 20 минут можно исправить в HEX-эдиторе). Доделаю секретную прогу для *******, потом доведу до ума эту.

VARIABLE FUNCNUM0 FUNCNUM !25 CONSTANT MAXFUNCMAXFUNC CELLS ALLOT CONSTANT FUNCS\Поиск во внутреннем словаре: FINDID \(addr_str-->n)FUNCNUM @ 0 ?DO  FUNCS I 2* + @  >NAME OVER STRCMP  0= IF DROP  I LEAVE THENLOOP ;: FINDF  \(addr_str-->addr_func)FINDID DUPMAXFUNC > IF DROP 0 ELSE2* FUNCS + @THEN ;: INTERPRET  \(addr_str-->) Принимается адрес строки с командамиTIBPTR !BEGIN  TIBWORD DUP STRLEN \Признак конца строки с командами  0<> WHILE  DUP FINDF ?DUP  \Ищем функцию  IF NIP EXECUTE  \Если не 0, то исполняем   ELSE           \иначе, пытаемся представить как число    DUP C@ ISNUM IF      ATOI    ELSE      [paste][/paste]"Unknown Token: " \Можно заменить на 6140 TYPE	  TYPE CR      EXIT    THEN  THENREPEAT DROP ;: WITHIN   \(N,A,B-->b) TRUE, если A<N<B2 PICK > -ROT > AND ;: MAINRP0 RP! \Отчищаем стек возвратовBEGIN  DEPTH -1 100 \Проверка заполненности стека  WITHIN 0= IF    [paste][/paste]" Empty Stack" \Можно заменить на 6208 TYPE    0SP THEN  CR [paste][/paste]" > "  TIB 120 ACCEPT  SPACE INTERPRETAGAIN ;

: ARUN \Замена COLD0 C@ DISKADDR !1 C@ TERMADDR !PROBE TOP !CR [paste][/paste]" ProtectOS Initialized"MAIN ;' ARUN 1304 ! \Меняем ссылку для автозапуска: HELP \Выводит содержание внутреннего словаряCR FUNCNUM @ DUP [paste][/paste][paste][/paste]"  words found" CR0 ?DO  FUNCS I 2* + @  >NAME TYPE SPACELOOP ;: REGISTER \<Слово>FUNCNUM @ MAXFUNC > IF[paste][/paste]" Not enough slots!"QUIT THENTIBWORD DUP FINDFIF DROP  [paste][/paste]" Alredy registred!"ELSE  FIND ?DUP IF    FUNCNUM @ 2*	FUNCS + !	1 FUNCNUM +!	[paste][/paste]" Registred"  ELSE    [paste][/paste]" Not found!"  THENTHEN ;: UNREGISTER \<Слово>TIBWORD DUPFINDF 0= IF  [paste][/paste]" Not registred!"  DROP EXIT THENFINDID DUP >R2* FUNCS + DUP2 + SWAPMAXFUNC R> 1+- 2* MOVE1 FUNCNUM -![paste][/paste]" Unregistred";

20 CONSTANT LEN: STRVAR \(-->)CREATE LEN ALLOT DROP ;STRVAR PASSWORDSTRVAR ROOTPASSSTRVAR BUFSTRVAR BUF2: ENTPASS  \(addr-->addr) Заменяет введённую часть звёздочками769 @ SWAPLEN ACCEPTSWAP 769 !DUP STRLEN 0 DO 42 EMITLOOP CR ;: ADMIN \(-->b)[paste][/paste]" Enter root password: "BUF ENTPASSROOTPASS STRCMP 0= ;: USER \(-->b)[paste][/paste]" Enter password: "BUF ENTPASSPASSWORD STRCMP 0= ;: BLK \(delay-->)  В секундах769 @        \Запоминаем положение курсораOVER 0 DO  DUP 769 !  \Перемещаем курсор  OVER I - [paste][/paste] \Выводим число  20 TICKS   \1 секундаLOOP 2DROP ;: WRPS \Стандартная реакция на неправильный пароль[paste][/paste][paste][/paste]" Wrong password!" CR[paste][/paste]" You can try after "60 BLK CR ;: FORTH \Выход в ФОРТADMIN IF  [paste][/paste]" You can do enyfing!"QUIT THENWRPS ;: CHANGEPASSADMIN IF  [paste][/paste]" Set new password: "  BUF ENTPASS  [paste][/paste]" Cunfirm new password: "  BUF2 ENTPASS  STRCMP IF    [paste][/paste]" Password not canged!" CR  ELSE    BUF PASSWORD LEN MOVE    [paste][/paste]" Changing the password was successful" CR  THENELSE  WRPSTHEN ;