Update Station 2/3 Program

Now using hardware signal lamp system to prevent problems. Software programs are only used for station schedule.
This commit is contained in:
Kirigaya Kazuto 2017-10-19 11:32:37 +08:00
parent 3e9f51d49b
commit 2246868d32

View File

@ -7,15 +7,14 @@ local sides=require("sides")
local event=require("event") local event=require("event")
--[[ --[[
Redstone Signals Redstone Signals
Direction_IO_Description : number Direction_[Type][Info]: number
]] ]]
local ab_in_OutsideRoute,ab_in_OutsideSensor,ab_in_EnterSensor,ab_in_ExitSensor local ab_st,ab_sr,ab_lin,ab_lout
local ba_in_OutsideRoute,ba_in_OutsideSensor,ba_in_EnterSensor,ba_in_ExitSensor local ba_st,ba_sr,ba_lin,ba_lout
local mid_in_lamp
local ab_out_Outside,ab_out_Motor,ab_out_Stop=0,0,0 local ab_ko,ab_m,ab_ks=0,0,0
local ba_out_Outside,ba_out_Motor,ba_out_Stop=0,0,0 local ba_ko,ba_m,ba_ks=0,0,0
local mida_out_Stop,midb_out_Stop=0,0 local mid_ka,mid_kb=0,0
-- Config your update functions here (Do not change function name) -- Config your update functions here (Do not change function name)
local redin1=proxy("redstone","") local redin1=proxy("redstone","")
@ -31,26 +30,11 @@ local function updateRedstoneOutput()
end end
--[[
Network
Schedule program must connect to MC.TrainNet to send and recv train status.
Config your connect-card here
NOTICE: You must give different value to station_id (>=0)
]]
local trainnet=proxy("tunnel")
local station_id=0
local station_a_id=-1
local station_b_id=-1
-- Internal Schedule Status (Notice: Program must start without any trains in station) -- Internal Schedule Status (Notice: Program must start without any trains in station)
local ab_station_free=true local mid_direction
local ba_station_free=true
local mid_free=true
local mid_direction="ab"
local ab_next_free=true
local ba_next_free=true
local ab_station_time=0 local ab_station_time=0
local ba_station_time=0 local ba_station_time=0
local mid_time=0
local ab_exit_time=0 local ab_exit_time=0
local ba_exit_time=0 local ba_exit_time=0
@ -58,54 +42,7 @@ local ba_exit_time=0
Internal Functions Internal Functions
]] ]]
local netpack_head=string.pack("iii",6,1,1)
local function sendTrainLeaveToB()
trainnet.send(netpack_head,station_id,station_b_id,1)
end
local function sendTrainLeaveToA()
trainnet.send(netpack_head,station_id,station_a_id,1)
end
local function sendTrainArriveFromA()
trainnet.send(netpack_head,station_a_id,2)
end
local function sendTrainArriveFromB()
trainnet.send(netpack_head,station_b_id,2)
end
local function doInit() local function doInit()
-- TODO: You must change this function to fix your station
event.listen("redstone_change",
function(_event,_addr,_side,_old,_new)
-- [NOTICE] Change information here!!
-- Here: your must send an arrive message to last station
-- TODO:
end
)
event.listen("modem_message",
function(_event,_recevier,_sender,_port,_distance,...)
local apack={...}
-- netpack_head FromStationID ToStationID Message(1: Leave 2: Arrive)
if(apack[1]==netpack_head) then
if(apack[3]==station_id) then -- Train will come to this station
-- Just do nothing (We don't worry about it)
elseif(apack[2]==station_id) then -- Information about train left from this station
if(apack[4]==2) then -- Train arrives information
if(apack[3]==station_a_id) then -- Arrive at A
ba_next_free=true
elseif(apack[3]==station_b_id) then -- Arrive at B
ab_next_free=true
end
end -- We don't care about leave information
end
end
end
)
-- Flash output to zero. -- Flash output to zero.
updateRedstoneOutput() updateRedstoneOutput()
end end
@ -123,6 +60,9 @@ local function main()
if(ba_station_time>0) then if(ba_station_time>0) then
ba_station_time=ba_statiom_time+1 ba_station_time=ba_statiom_time+1
end end
if(mid_time>0) then
mid_time=mid_time+1
end
if(ab_exit_time>0) then if(ab_exit_time>0) then
ab_exit_time=ab_exit_time+1 ab_exit_time=ab_exit_time+1
if(ab_exit_time>10) then -- Exit will reset in 10 loops (5seconds) if(ab_exit_time>10) then -- Exit will reset in 10 loops (5seconds)
@ -138,69 +78,100 @@ local function main()
-- Judge Incoming bus. -- Judge Incoming bus.
if(ab_in_OutsideSensor>0) then -- New incoming bus from A to B if(ab_st>0) then -- New incoming bus from A to B
if(ab_in_OutsideRoute>0) then -- This bus want to stop if(ab_sr>0) then -- This bus want to stop
if(ab_station_free) then -- If AB Station is free if(ab_station_time==0) then -- If AB Station is free
ab_station_free=false -- Mark station busy. ab_ko=15 -- enable to allow incoming
ab_out_Outside=15 -- enable to allow incoming ab_ks=0 -- disable to let it stop
ab_out_Motor=0 -- disable to allow incoming to station ab_m=0 -- disable to allow incoming to station
ab_station_time=1 ab_station_time=1 -- Start Time Counter
else -- AB Station is not free else -- AB Station is not free
-- This train should wait outside the station -- This train should wait outside the station
end end
else -- This bus want to pass by else -- This bus want to pass by
if(mid_free) then -- Mid is free can pass if(mid_time==0) then -- Mid is free
mid_free=false -- Mark mid busy. ab_ko=15 -- enable to allow incoming
ab_out_Outside=15 -- enable to allow incoming ab_m=15 -- enable motor to let it pass.
ab_out_Motor=15 -- enable motor to let it pass. mid_ka=15 -- enable switch from A
mid_kb=0 -- disable switch to B
mid_direction="ab" mid_direction="ab"
mid_time=1 -- Start time counter
else -- Mid is busy else -- Mid is busy
-- This train should wait outside the station -- This train should wait outside the station
end end
end end
end end
if(ba_in_OutsideSensor>0) then -- New incoming bus from B to A if(ba_st>0) then -- New incoming bus from B to A
if(ba_in_OutsideRoute>0) then -- This bus want to stop if(ba_sr>0) then -- This bus want to stop
if(ba_station_free) then -- If BA Station is free if(ba_station_time==0) then -- If BA Station is free
ba_station_free=false -- Mark station busy. ba_ko=15 -- enable to allow incoming
ba_out_Outside=15 -- enable to allow incoming ba_ks=0 -- disable to let it stop
ba_out_Motor=0 -- disable to allow incoming to station ba_m=0 -- disable to allow incoming to station
ba_station_time=1 ba_station_time=1 -- Start Time Counter
else -- BA Station is not free else -- BA Station is not free
-- This train should wait outside the station -- This train should wait outside the station
end end
else -- This bus want to pass by else -- This bus want to pass by
if(mid_free) then -- Mid is free can pass if(mid_time==0) then -- Mid is free
mid_free=false -- Mark mid busy. ba_ko=15 -- enable to allow incoming
ba_out_Outside=15 -- enable to allow incoming ba_m=15 -- enable motor to let it pass.
ba_out_Motor=15 -- enable motor to let it pass. mid_ka=0
mid_kb=15
mid_direction="ba" mid_direction="ba"
mid_time=1
else -- Mid is busy else -- Mid is busy
-- This train should wait outside the station -- This train should wait outside the station
end end
end end
end end
if(ab_next_free and ab_exit_time==0) then -- AB next free if(ab_lout>0 and ab_exit_time==0) then -- AB next free
if(ab_station_time>16) then -- 8 seconds in station -- Judge which train should pass.
ab_out_Stop=15 -- enable stop to let it leave if(ab_station_time>16 and (mid_time>0 and mid_direction=="ab") ) then -- Two Trains
ab_exit_time=1 -- Start Count time if(ab_station_time>mid_time) then -- StationTrain wait longer.
elseif((not mid_free) and mid_direction=="ab") then -- Mid is busy and will leave with AB direction ab_station_time=0 -- Stop counter
midb_out_Stop=15 --enable stop to let it leave ab_ks=15 -- enable swith to let it go
ab_exit_time=1 -- Start Count time ab_exit_time=1
end else -- MidTrain wait longer
mid_time=0 -- Stop Counter
mid_kb=15
ab_exit_time=1
end end
elseif(ab_station_time>16) then --Only Station Train
ab_station_time=0
ab_ks=15
ab_exit_time=1
elseif(mid_time>0 and mid_direction=="ab") then -- Only Mid Train
mid_time=0
mid_kb=15
ab_exit_time=1
end -- No train
end -- End of AB judge
if(ba_next_free and ba_exit_time==0) then -- BA next free if(ba_lout>0 and ba_exit_time==0) then -- BA next free
if(ba_station_time>16) then -- 8 seconds in station -- Judge which train should pass.
ba_out_Stop=15 -- enable stop to let it leave if(ba_station_time>16 and (mid_time>0 and mid_direction=="ba") ) then -- Two Trains
ba_exit_time=1 -- Start count time if(ba_station_time>mid_time) then -- StationTrain wait longer.
elseif((not mid_free) and mid_direction=="ba") then -- Mid is busy and will leave with BA direction ba_station_time=0 -- Stop counter
mida_out_Stop=15 -- enable stop to let it leave ba_ks=15 -- enable swith to let it go
ba_exit_time=1 -- Start count time ba_exit_time=1
else -- MidTrain wait longer
mid_time=0 -- Stop Counter
mid_ka=15
ba_exit_time=1
end
elseif(ba_station_time>16) then --Only Station Train
ba_station_time=0
ba_ks=15
ba_exit_time=1
elseif(mid_time>0 and mid_direction=="ba") then -- Only Mid Train
mid_time=0
mid_ka=15
ba_exit_time=1
end -- No train
end end
end
-- Set output -- Set output
updateRedstoneOutput() updateRedstoneOutput()