Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- alias Dial d0
- alias Lever d1
- alias Furnace d2
- alias GasMixer d3
- alias VPW d4
- alias VPIce d5
- alias minPressure r15
- alias maxPressure r14
- alias minTemperature r13
- alias IngotHash r12
- alias FPressure r11
- alias FTemperature r10
- alias SetIngot r9
- alias Startsmelting r8
- s Dial Mode 5
- s VPIce Setting 10
- main:
- l SetIngot Dial Setting #Ice/0
- bnez SetIngot pushHashmaxP
- s db Setting 1217489948
- yield
- s db Setting -1805394113
- yield
- s db Setting 1253102035
- yield
- l Startsmelting Lever Open
- beq Startsmelting 1 SmeltingIce
- j main
- pushHashmaxP:
- push -654790771.40000 #IngotSteel/1
- push -82508479.40000 #IngotSolder/2
- push 502280180.02400 #IngotElectrum/3
- push 1058547521.40000 #IngotConstantan/4
- push -297990285.20000 #IngotInvar/5
- loadHashmaxP:
- move sp SetIngot
- peek r0
- trunc IngotHash r0
- sub r0 r0 IngotHash
- s db Setting IngotHash
- mul maxPressure r0 100000
- abs maxPressure maxPressure
- trunc maxPressure maxPressure
- ceil maxPressure maxPressure
- move sp 0
- pushminTP:
- push 900.01000 #IngotSteel/1
- push 350.01000 #IngotSolder/2
- push 600.00800 #IngotElectrum/3
- push 1000.20000 #IngotConstantan/4
- push 1200.18000 #IngotInvar/5
- loadminTP:
- move sp SetIngot
- peek r0
- trunc minTemperature r0
- sub r0 r0 minTemperature
- mul minPressure r0 100000
- ceil minPressure minPressure
- move sp 0
- waitsmeltalloys:
- l Startsmelting Lever Open
- beq Startsmelting 1 SmeltingAlloys
- j main
- offlever:
- s Lever Open 0
- off:
- s Furnace Open 0
- s GasMixer On 0
- s VPW On 0
- s VPIce On 0
- j main
- SmeltingIce:
- s VPW Setting 100
- l r0 Furnace Temperature
- slt r0 r0 274
- ls r1 Furnace 0 Occupied
- and r0 r0 r1
- s VPIce On r0
- l r0 Furnace Pressure
- sgt r0 r0 50
- s VPW On r0
- l Startsmelting Lever Setting
- beq Startsmelting 0 off
- j SmeltingIce
- SmeltingAlloys:
- seq r2 IngotHash -297990285
- select r0 r2 34 66
- select r1 r2 5 100
- s VPW Setting r1
- s GasMixer Setting r0
- s Furnace Activate 1
- l FPressure Furnace Pressure
- slt r0 FPressure minPressure
- l FTemperature Furnace Temperature
- slt r2 FTemperature minTemperature
- add r1 r0 r2
- s GasMixer On r1
- l FPressure Furnace Pressure
- sgt r0 FPressure maxPressure
- s VPW On r0
- l r4 Furnace RecipeHash
- seq r4 r4 IngotHash
- s Furnace Open r4
- yield
- beq r4 1 offlever
- l Startsmelting Lever Setting
- beq Startsmelting 0 off
- j SmeltingAlloys
Add Comment
Please, Sign In to add comment