alias avionics d0
alias light d1
alias lever d2

alias alarm r15
alias destinationcode r14
alias umbilicalopen r13

start:
yield

l destinationcode avionics DestinationCode

move umbilicalopen 0

lb r0 HASH("StructureLiquidUmbilicalMale") Open Maximum
sgtz r0 r0
max umbilicalopen umbilicalopen r0

s db Setting umbilicalopen

lb r0 HASH("StructurePowerUmbilicalMale") Open Maximum
sgtz r0 r0
max umbilicalopen umbilicalopen r0

lb r0 HASH("StructureGasUmbilicalMale") Open Maximum
sgtz r0 r0
max umbilicalopen umbilicalopen r0

lb r0 HASH("StructureChuteUmbilicalMale") Open Maximum
sgtz r0 r0
max umbilicalopen umbilicalopen r0

min r0 destinationcode umbilicalopen

s light On r0


bdns lever nolever

l r0 lever Open
sb HASH("StructureLiquidUmbilicalMale") Open r0
sb HASH("StructurePowerUmbilicalMale") Open r0
sb HASH("StructureGasUmbilicalMale") Open r0
sb HASH("StructureChuteUmbilicalMale") Open r0

nolever:

j start