gaming Tekkit piston Elevator

[Gaupa95 68]

Hey Just thought I'd make a topic here about this new elevator i've builded.

 

 

 

http-~~-//www.youtube.com/watch?v=dEpmF8bDR68&feature=player_detailpage

 

 

 

The system Is based of two mods mainly. Redpower (with additions) Stands for the wiring and spesial repeaters. And the System Is controlled by Computercraft (witch uses lua programming) and it's a learning project.

 

EDIT* Yea.. I know.. it's a little dark.. I don't get why.. was perfectly fine when i uploaded it?

 

Music is By "Waterflame : Skyscraper"

 

Here's the program "That" Computer is using. feel free to copy or edit.

 

 

 

function eup(color1,color2,bundleside)
rs.setBundledOutput(bundleside,color1)
sleep(0.1)
rs.setBundledOutput(bundleside,0)
sleep(0.1)
rs.setBundledOutput(bundleside,0)
sleep(0.1)
rs.setBundledOutput(bundleside,color2)
sleep(0.1)
rs.setBundledOutput(bundleside,0)
sleep(0.1)
rs.setBundledOutput(bundleside,0)
sleep(0.1)
end
function up(tu,pos)
local uleft = tu --Hvor mange ganger den fremdeles skal gå--
height = pos
tu = tonumber(tu)
height = tonumber(height)
back = "left"
uleft = tonumber(uleft)
while uleft ~= 0 do
if height == 0 then
eup(1,4,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 1 then
eup(2,8,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 2 then
eup(4,16,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 3 then
eup(8,32,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 4 then
eup(16,64,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 5 then
eup(32,128,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 6 then
eup(64,256,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 7 then
eup(128,512,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 8 then
eup(256,1024,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 9 then
eup(512,2048,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 10 then
eup(1024,1,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 11 then
eup(2048,2,back)
sleep(0.1)
print("success nr12")
height = 0
uleft = uleft-1
else
print("Problem. check program")
sleep(10)
break
end
pos1 = height
end
end
function down(t1,pos)
local uleft = t1 --Hvor mange ganger den fremdeles skal gå--
height = pos
tu = tonumber(tu)
back = "left"
height = tonumber(height)
uleft = tonumber(uleft)
while uleft ~= 0 do
if height == 0 then
eup(512,64,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 1 then
eup(256,32,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 2 then
eup(128,16,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 3 then
eup(64,8,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 4 then
eup(32,4,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 5 then
eup(16,2,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 6 then
eup(8,1,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 7 then
eup(4,2048,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 8 then
eup(2,1024,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 9 then
eup(1,512,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 10 then
eup(2048,256,back)
sleep(0.1)
print("success")
height = height+1
uleft = uleft-1
elseif height == 11 then
eup(1024,128,back)
sleep(0.1)
print("success nr12")
height = 0
uleft = uleft-1
else
print("Problem. check program")
sleep(10)
break
end
pos1 = height
end
end
function floorchk(side1)
rs.setBundledOutput(side1,1)
sleep(0.5)
floor1 = rs.testBundledInput(side1,2)
floor2 = rs.testBundledInput(side1,4)
floor3 = rs.testBundledInput(side1,8)
floor4 = rs.testBundledInput(side1,16)
floor5 = rs.testBundledInput(side1,32)
floor6 = rs.testBundledInput(side1,64)
floor7 = rs.testBundledInput(side1,128)
floor8 = rs.testBundledInput(side1,256)
sleep(0.52)
rs.setBundledOutput(side1,0)
if floor1 == true then
cfloor = 1
elseif floor2 == true then
cfloor = 2
elseif floor3 == true then
cfloor = 3
elseif floor4 == true then
cfloor = 4
elseif floor5 == true then
cfloor = 5
elseif floor6 == true then
cfloor = 6
elseif floor7 == true then
cfloor = 7
elseif floor8 == true then
cfloor = 8
end
end
function getnumb()
print(rs.testBundledInput("right",1))
side2 = "right"
print(rs.testBundledInput(side2,2))
print(rs.testBundledInput(side2,4))
print(rs.testBundledInput(side2,8))
print(rs.testBundledInput(side2,16))
print(rs.testBundledInput(side2,32))
print(rs.testBundledInput(side2,64))
print(rs.testBundledInput(side2,128))
if rs.testBundledInput(side2,1) == true then
numb = 1
elseif rs.testBundledInput(side2,2) == true then
numb = 2
elseif rs.testBundledInput(side2,4) == true then
numb = 3
elseif rs.testBundledInput(side2,8) == true then
numb = 4
elseif rs.testBundledInput(side2,16) == true then
numb = 5
elseif rs.testBundledInput(side2,32) == true then
numb = 6
elseif rs.testBundledInput(side2,64) == true then
numb = 7
elseif rs.testBundledInput(side2,128) == true then
numb = 8
else
numb = 0
end
print("Nummer: ",numb)
sleep(0.4)
end
pos1 = 0
floorchk("front")
while true do
sleep(0.2)
getnumb()
while numb ~= 0 do
floorchk("front")
print("The Elevator is at Floor:",cfloor)
print("witch floor way do you wanna go")
count = tonumber(count)
destfloor = numb
destfloor = tonumber(destfloor)
if (destfloor>0)and(destfloor<9) then
if destfloor<cfloor then
direct = "down"
count = cfloor-destfloor
elseif destfloor>cfloor then
direct = "up"
count = destfloor-cfloor
end
if direct == "up" then
dest = cfloor+count
print(dest)
sleep(3) --resultat av "dest = cfloor+count" --
if (dest < 9) and (dest >0) then
print("Rising")
rs.setBundledOutput("right",256)
while count ~= 0 do
var1 = 12
sleep(0.1)
var1 = tonumber(var1)
pos1 = tonumber(pos1)
up(var1,pos1)
pos1 = height
print("moved one floor up.")
count = count-1
end
rs.setBundledOutput("right",0)
end
elseif direct == "down" then
dest = cfloor-count
if (dest > 0) and (dest < 9) then
print("Going Down!")
rs.setBundledOutput("right",256)
while count ~= 0 do
var1 = 12
print("height:")
print(pos1)
sleep(0.1)
var1 = tonumber(var1)
pos1 = tonumber(pos1)
down(var1,pos1)
pos1 = height
print("went down one floor")
pos1 = height
count = count-1
end
rs.setBundledOutput("right",0)
end
else
print("something went wrong")
pos1 = height
write("height:")
write(pos1)
print("~~~~~~~~~~~~")
sleep(3)
end
else
print("Invalid floor")
end
numb = 0
end
end

 

Edited August 30, 2012 by Gaupa95