-
set (enabled) of (buildings) to (@dagger)
-
set seisan @dagger
sensor flg switch1 @enabled
jump 11 equal flg 1
printflush message1
set i 1
getlink Link i
control enabled Link 0 0 0 0
op add i i 1
jump 6 lessThanEq i 8
end
printflush message1
set y 1
getlink Link y
control enabled Link @dagger 0 0 0
op add y y 1
jump 14 lessThanEq y 8
end
+
| |
|
set flag 0000
set UType @flare
set Item @graphite
jump 8 notEqual @unit null
ubind UType
sensor f @unit @flag
jump 8 equal f flag
jump 4 notEqual f 0
ucontrol flag flag dy 0 0 0
sensor hold @unit @totalItems
sensor capa @unit @itemCapacity
jump 17 equal hold 0
sensor dx container1 @x
sensor dy container1 @y
ucontrol move dx dy 0 0 0
ucontrol itemDrop container1 999 capa 0 0
end
ulocate building core false @copper cx cy c core
ucontrol move cx cy 0 0 0
ucontrol itemTake core Item capa 0 0
end
|
+
| |
|
set item @graphite
set UType @poly
set UNum 2
getlink from 0
jump 0 equal from null
sensor thisX @this @x
op floor thisX thisX 0
sensor thisY @this @y
op floor thisY thisY 0
op mul thisX2 thisX 1e4
op add flagBase thisX2 thisY
op rand r 999 0
op floor r r 0
op mul r r 1e8
op add flag r flagBase
set cnt -1
op add cnt cnt 1
jump 26 greaterThanEq cnt UNum
ubind UType
sensor f @unit @flag
op mod fBase f 1e8
jump 24 equal f null
jump 18 notEqual fBase flagBase
jump 33 equal f flag
ucontrol flag flag 0 0 0 0
jump 16 always 0 0
ubind UType
sensor f @unit @flag
op mod fBase f 1e8
jump 26 notEqual fBase flagBase
jump 33 equal f flag
ucontrol flag 0 0 0 0 0
jump 26 always 0 0
ubind UType
sensor f @unit @flag
jump 33 notEqual f flag
sensor hold @unit item
jump 42 notEqual hold 0
ulocate building core false 0 coreX coreY found core
ucontrol move coreX coreY 0 0 0
ucontrol itemTake core item 999 0 0
jump 33 always 0 0
sensor x from @x
sensor y from @y
ucontrol move x y 0 0 0
ucontrol itemDrop from 999 999 0 0
jump 33 always 0 0
|
draw clear 0 0 0 0 0 0
sensor cf reactor1 @cryofluid
op mul res cf 2.66
draw color 0 255 255 255 0 0
draw rect 0 0 40 res 0 0
sensor he reactor1 @heat
op mul heat 80 he
draw color 255 00 00 255 0 0
draw rect 40 0 80 heat 0 0
drawflush display1
set seisan @dagger
sensor flg switch1 @enabled
jump 11 equal flg 1
printflush message1
control enabled factory1 0 0 0 0
control enabled factory2 0 0 0 0
control enabled factory3 0 0 0 0
control enabled factory4 0 0 0 0
end
printflush message1
control enabled factory1 seisan 0 0 0
control enabled factory2 seisan 0 0 0
control enabled factory3 seisan 0 0 0
control enabled factory4 seisan 0 0 0
end
set value 1000
sensor silicon foundation1 @silicon
jump 6 lessThan silicon value
sensor graphite foundation1 @graphite
jump 6 lessThan graphite value
end
control enabled switch1 0 0 0 0
+
| | ... |
drawflush display2
set tank tank2
jump 5 notEqual loaded 1
set loaded 1
draw clear 35 35 35 0 0 0
draw color 70 70 70 255 0 0
draw lineRect 2 2 76 76 0 0
set tmp 0
sensor tmp tank @water
set type @water
jump 21 greaterThan tmp 1
sensor tmp tank @slag
set type @slag
jump 21 greaterThan tmp 1
sensor tmp tank @oil
set type @oil
jump 21 greaterThan tmp 1
sensor tmp tank @cryofluid
set type @cryofluid
jump 21 greaterThan tmp 1
set type "none"
print type
printflush message2
draw color 255 255 255 255 0 0
draw rect 0 0 24 24 0 0
draw image 12 12 type 24 0 0
sensor now tank type
sensor capa tank @liquidCapacity
op mul height now 74
op div height height capa
op add x1 i 1
op add x2 x1 1
draw line x1 h_tmp x2 height 0 0
set h_tmp height
jump 37 lessThan i 80
set i 0
draw clear 35 35 35 0 0 0
op add i i 1
|
#include(): No such page: