Recent Changes

Friday, June 20

  1. page home edited ... You DO NOT need to be a member to see all the content of this wiki. The message Please sign in…
    ...
    You DO NOT need to be a member to see all the content of this wiki. The message Please sign in or create an account to continue is shown when the page is blank.
    The wiki is not finished yet, some recipes are missing and it is being worked on, sorry for the inconvenience.
    In the meantime check theThe un-official Redpower
    ...
    Recipe list, all the recipes are listed there.no longer is online.
    RedPower by Eloraam is a mod for minecraft which introduces redstone-like wires, cables, integrated circuits, lights, and more.
    It is split into nine separate mod parts, which are divided into four downloads:
    (view changes)
    7:29 pm

Saturday, October 12

  1. msg Minecraft MS-BASIC control program message posted Minecraft MS-BASIC control program Here's the current version I've finished. It no longer takes directional inputs, instead now workin…
    Minecraft MS-BASIC control program
    Here's the current version I've finished. It no longer takes directional inputs, instead now working on a coordinate-based system. I haven't gone through and cleaned up the line numbers yet, there are some gaps, although it runs in the current state.
    When run, it first sets initial values and waits for initial position input. Next, it will allow destination input, all coordinates are required, even if not moving on a given axis. After destination entry, it will allow for verification and other commands:
    Y= confirm destination
    N= re-enter destination
    X= exits program
    P= displays current position
    C= change current position

    10 REM navcomp v0.5.1
    20 PRINT "setting initial values, please wait"
    30 IOSET 3,0
    40 ST=0:PRINT "ST=0/Steps"
    60 PW=20:PRINT "PW=20/Pulse Wait"
    70 SW=40:PRINT "SW=40/State Wait"
    80 AC=50:PRINT "AC=50/Axle Charge Wait"
    100 PRINT "ENTER CURRENT POSITION"
    110 PRINT "X":INPUT CX
    120 PRINT "Z":INPUT CZ
    130 PRINT "Y":INPUT CY
    140 DELAY 40:CLRSCR
    150 GOSUB 720:GOTO 100
    290 REM STEP NORTH/XN
    300 REM IOSET 3,256:DELAY PW:IOSET 3,0
    310 GOSUB 590
    320 DELAY AC:IOSET 3,512:DELAY SW:IOSET 3,0:CX=CX-1
    330 RETURN
    340 REM STEP SOUTH/XP
    350 REM IOSET 3,4096:DELAY PW:IOSET 3,0
    360 GOSUB 590
    370 DELAY AC:IOSET 3,8192:DELAY SW:IOSET 3,0:CX=CX+1
    380 RETURN
    390 REM STEP WEST/ZP
    400 REM IOSET 3,1024:DELAY PW:IOSET 3,0
    410 GOSUB 590
    420 DELAY AC:IOSET 3,2048:DELAY SW:IOSET 3,0:CZ=CZ+1
    430 RETURN
    440 REM STEP EAST/ZN
    450 REM IOSET 3,16384:DELAY PW:IOSET 3,0
    460 GOSUB 590
    470 DELAY AC:IOSET 3,32768:DELAY SW:IOSET 3,0:CZ=CZ-1
    480 RETURN
    490 REM STEP UP/YP
    500 REM IOSET 3,16:DELAY PW:IOSET 3,0
    510 GOSUB 590
    520 DELAY AC:IOSET 3,32:DELAY SW:IOSET 3,0:CY=CY+1
    530 RETURN
    540 REM STEP DOWN/YN
    550 REM IOSET 3,64:DELAY PW:IOSET 3,0
    560 GOSUB 590
    570 DELAY AC:IOSET 3,128:DELAY SW:IOSET 3,0:CY=CY-1
    580 RETURN
    590 REM AXLE SHIFT
    600 FOR LP=0 TO 18
    610 CP=IOGET(3) AND 15
    620 IF CP=DP THEN GOTO 690
    630 IF CP=8 THEN IOSET 3,64:DELAY PW:IOSET 3,0
    640 IF CP=4 THEN IOSET 3,4096:DELAY PW:IOSET 3,0
    650 IF CP=3 THEN IOSET 3,1024:DELAY PW:IOSET 3,0
    660 IF CP=2 THEN IOSET 3,256:DELAY PW:IOSET 3,0
    670 IF CP=1 AND DP=8 THEN IOSET 3,16:DELAY PW:IOSET 3,0
    680 IF CP=1 AND DP<>8 THEN IOSET 3,16384:DELAY PW:IOSET 3,0
    690 CP=IOGET(3) AND 15
    700 NEXT
    710 RETURN
    720 REM INTERNAL NAV SYSTEM
    730 PRINT "ENTER X COORD:":INPUT DX
    740 PRINT "ENTER Z COORD:":INPUT DZ
    750 PRINT "ENTER Y COORD:":INPUT DY
    760 PRINT "ENTRY CORRECT(Y/N/X/P/C)? X:"DX" Z:"DZ" Y:"DY:INPUT CF$
    770 IF CF$="N" THEN GOTO 1010
    780 IF CF$="P" THEN PRINT "CURRENT POSITION:"
    790 IF CF$="P" THEN PRINT "X:"CX" Z:"CZ" Y:"CY:GOTO 720
    800 IF CF$="X" THEN PRINT "EXITING PROGRAM":END
    810 IF CF$="C" THEN GOTO 100
    820 IF CX>DX THEN MX=-1
    830 IF CX<DX THEN MX=1
    840 IF CZ>DZ THEN MZ=-1
    850 IF CZ<DZ THEN MZ=1
    860 IF CY>DY THEN MY=-1
    870 IF CY<DY THEN MY=1
    880 GY=CY:GZ=CZ:GX=CX
    890 FOR GY=CY TO DY STEP MY
    900 FOR GZ=CZ TO DZ STEP MZ
    910 FOR GX=CX TO DX STEP MX
    920 IF CX>DX THEN DP=1:GOSUB 290
    930 IF CX<DX THEN DP=3:GOSUB 340
    940 IF CX=DX THEN GOTO 950
    950 NEXT GX
    960 IF CZ>DZ THEN DP=4:GOSUB 440
    970 IF CZ<DZ THEN DP=2:GOSUB 390
    980 IF CX=DX THEN GOTO 990
    990 NEXT GZ
    1000 IF CY>DY THEN DP=1:GOSUB 540
    1010 IF CY<DY THEN DP=8:GOSUB 490
    1020 IF CY=DY THEN GOTO 1030
    1030 NEXT GY
    1040 RETURN
    1050 END
    4:47 pm

Friday, October 11

  1. msg Minecraft MS-BASIC control program message posted Minecraft MS-BASIC control program Oh, I'm unsure as to how much RAM is required to run this, as the computer onboard my platform has …
    Minecraft MS-BASIC control program
    Oh, I'm unsure as to how much RAM is required to run this, as the computer onboard my platform has the full 64k. It takes up 19 sectors on disk.
    11:43 pm
  2. msg Minecraft MS-BASIC control program message posted Minecraft MS-BASIC control program Well, I went a different route and installed Minecraft MS-BASIC. I've managed to develop a similar …
    Minecraft MS-BASIC control program
    Well, I went a different route and installed Minecraft MS-BASIC. I've managed to develop a similar program to the FORTH example, though it does not currently have coordinate based navigation. It is still in testing, but seems stable so far. I reccomend using RPC Paste to get this into your game.

    The version posted below features a simple command-line interface, capable of user-defined steps in one direction at a time. The engine also is capable of shifting the axle into the correct position for the direction command issued. It assumes that the wiring follows the 6-directional moving platform design, including orientation when building and wiring.

    10 REM navcomp v0.4.2A
    20 PRINT "setting initial values, please wait"
    25 IOSET 3,0
    30 ST=0:PRINT "ST=0/Steps"
    40 SE=0:PRINT "SE=0/Steps End"
    50 PW=20:PRINT "PW=20/Pulse Wait"
    60 SW=40:PRINT "SW=40/State Wait"
    70 AC=50:PRINT "AC=50/Axle Charge Wait"
    80 REM COMMAND-LINE DRIVE CONTROL
    90 DELAY 40:CLRSCR
    100 PRINT "Direction(NORTH/SOUTH/EAST/WEST/UP/DOWN/END: ":INPUT DR$
    110 IF DR$="END" THEN PRINT "EXITING CONTROL":GOTO 1000
    120 PRINT "Steps(NON-NEGATIVE/NON-ZERO; 0=END): ":INPUT ST
    125 IF ST=0 THEN PRINT "EXITING CONTROL":GOTO 1000
    130 FOR SE=0 TO ST
    140 IF DR$="NORTH" THEN DP=1:GOSUB 220
    150 IF DR$="SOUTH" THEN DP=3:GOSUB 260
    160 IF DR$="WEST" THEN DP=2:GOSUB 300
    170 IF DR$="EAST" THEN DP=4:GOSUB 340
    180 IF DR$="UP" THEN DP=8:GOSUB 380
    190 IF DR$="DOWN" THEN DP=1:GOSUB 420
    200 NEXT
    210 PRINT "OPERATION COMPLETE":DELAY 40:GOTO 100
    220 REM STEP NORTH
    230 REM IOSET 3,256:DELAY PW:IOSET 3,0
    235 GOSUB 500
    240 DELAY AC:IOSET 3,512:DELAY SW:IOSET 3,0
    250 RETURN
    260 REM STEP SOUTH
    270 REM IOSET 3,4096:DELAY PW:IOSET 3,0
    275 GOSUB 500
    280 DELAY AC:IOSET 3,8192:DELAY SW:IOSET 3,0
    290 RETURN
    300 REM STEP WEST
    310 REM IOSET 3,1024:DELAY PW:IOSET 3,0
    315 GOSUB 500
    320 DELAY AC:IOSET 3,2048:DELAY SW:IOSET 3,0
    330 RETURN
    340 REM STEP EAST
    350 REM IOSET 3,16384:DELAY PW:IOSET 3,0
    355 GOSUB 500
    360 DELAY AC:IOSET 3,32768:DELAY SW:IOSET 3,0
    370 RETURN
    380 REM STEP UP
    390 REM IOSET 3,16:DELAY PW:IOSET 3,0
    395 GOSUB 500
    400 DELAY AC:IOSET 3,32:DELAY SW:IOSET 3,0
    410 RETURN
    420 REM STEP DOWN
    430 REM IOSET 3,64:DELAY PW:IOSET 3,0
    435 GOSUB 500
    440 DELAY AC:IOSET 3,128:DELAY SW:IOSET 3,0
    450 RETURN
    500 REM AXLE SHIFT
    510 FOR LP=0 TO 18
    520 CP=IOGET(3) AND 15
    530 IF CP=DP THEN GOTO 610
    540 IF CP=8 THEN IOSET 3,64:DELAY PW:IOSET 3,0
    550 IF CP=4 THEN IOSET 3,4096:DELAY PW:IOSET 3,0
    560 IF CP=3 THEN IOSET 3,1024:DELAY PW:IOSET 3,0
    570 IF CP=2 THEN IOSET 3,256:DELAY PW:IOSET 3,0
    580 IF CP=1 AND DP=8 THEN IOSET 3,16:DELAY PW:IOSET 3,0
    590 IF CP=1 AND DP<>8 THEN IOSET 3,16384:DELAY PW:IOSET 3,0
    595 CP=IOGET(3) AND 15
    600 NEXT
    610 RETURN
    1000 END
    11:40 pm

Friday, September 13

  1. msg Nav program issues message posted Nav program issues Also, I'd put it down for a while, and I forgot how I coded my own attempt at a drive control syste…
    Nav program issues
    Also, I'd put it down for a while, and I forgot how I coded my own attempt at a drive control system, so I'd have to re-do it from scratch if I tried to build upon it. Although I might be able to pull that off if I can eek a bit more inspiration out of my attempts to understand more of the control program that goes with the design here on the wiki.
    9:45 pm

More