nacsl/viruslabs
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

add stuff

Browse source
This commit is contained in:
abbie 2022-03-28 19:25:39 +01:00
parent b74dca584f
commit be7152475c
No known key found for this signature in database
GPG key ID: 04DDE463F9200F87
2 changed files with 63 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
nacsl.manifest.txt
View file

@ -1,5 +1,5 @@
VirusLabs VirusLabs
0.0.2 0.0.3
threeoh6000 threeoh6000
Elements that are experimental and scary! VirusLabs brings the best in elemental technology! Elements that are experimental and scary! VirusLabs brings the best in elemental technology!
0.2.0 0.2.0

66
run.lua
View file

@ -26,6 +26,7 @@ local function updatesettings()
io.close() io.close()
end end
local bluevirus = elements.allocate("VIRUSLABS","BVIR") local bluevirus = elements.allocate("VIRUSLABS","BVIR")
elements.element(bluevirus, elements.element(elements.DEFAULT_PT_VIRS)) elements.element(bluevirus, elements.element(elements.DEFAULT_PT_VIRS))
elements.property(bluevirus, "Name", "BVIR") elements.property(bluevirus, "Name", "BVIR")
@ -50,23 +51,80 @@ local superheat = elements.allocate("VIRUSLABS","FLSA")
elements.element(superheat, elements.element(elements.DEFAULT_PT_SAND)) elements.element(superheat, elements.element(elements.DEFAULT_PT_SAND))
elements.property(superheat, "Name", "FLSA") elements.property(superheat, "Name", "FLSA")
elements.property(superheat, "Description", "Flaming sand, extremely hot.") elements.property(superheat, "Description", "Flaming sand, extremely hot.")
elements.property(superheat, "Temperature", 10000) elements.property(superheat, "Temperature", 10000+273.15)
elements.property(superheat, "Colour", 0xBC544B) elements.property(superheat, "Colour", 0xBC544B)
elements.property(superheat, "Meltable", 0) elements.property(superheat, "Meltable", 0)
elements.property(superheat, "LowTemperature", 75+273.15)
elements.property(superheat, "LowTemperatureTransition", elements.DEFAULT_PT_SAND)
local tap = elements.allocate("VIRUSLABS","TAP")
elements.property(tap, "Name", "TAP")
elements.property(tap, "Description", "Generates water around it.")
elements.property(tap, "Colour", 0xAAAAAA)
elements.property(tap, "MenuSection", elem.SC_SPECIAL)
elements.property(tap, "MenuVisible", 1)
elements.property(tap, "Properties", TYPE_SOLID)
local function spawnwater(i,x,y,s,nt)
sim.partCreate(-1, x+1, y, elements.DEFAULT_PT_WATR)
end
elements.property(tap, "Update", spawnwater)
local superbattery = elements.allocate("VIRUSLABS","HYBT") local superbattery = elements.allocate("VIRUSLABS","HYBT")
elements.element(superbattery, elements.element(elements.DEFAULT_PT_BTRY)) elements.element(superbattery, elements.element(elements.DEFAULT_PT_BTRY))
elements.property(superbattery, "HighTemperature", ITH)
elements.property(superbattery, "HighTemperatureTransition", NT)
elements.property(superbattery, "HighPressure", IPH)
elements.property(superbattery, "HighPressureTransition", NT)
elements.property(superbattery, "HeatConduct", 0)
elements.property(superbattery, "Name", "HYBT") elements.property(superbattery, "Name", "HYBT")
elements.property(superbattery, "Description", "Hyper Battery, can't melt.") elements.property(superbattery, "Description", "Hyper Battery, can't melt.")
elements.property(superbattery, "HighTemperature", ITL) elements.property(superbattery, "Meltable", 0)
local function spark(i,x,y,s,nt) local function spark(i,x,y,s,nt)
for r in sim.neighbors(x,y,1,1) do for r in sim.neighbors(x,y,1,1) do
if sim.partProperty(r,"type") ~= elem.VIRUSLABS_PT_HYBT then if sim.partProperty(r,"type") ~= elem.VIRUSLABS_PT_HYBT and sim.partProperty(r,"type") ~= elem.DEFAULT_PT_SPRK then
sim.partChangeType(r,DEFAULT_PT_SPRK) local rt = sim.partProperty(r,"type")
if rt ~= elem.DEFAULT_PT_WATR and rt~=elem.DEFAULT_PT_SLTW and rt~=elem.DEFAULT_PT_NTCT and rt~=elem.DEFAULT_PT_PTCT and rt~=elem.DEFAULT_PT_INWR then
sim.partProperty(r, "life", 4)
sim.partProperty(r, "ctype", sim.partProperty(r,"type"))
sim.partChangeType(r, elements.DEFAULT_PT_SPRK)
end
end end
end end
end end
elements.property(superbattery, "Update", spark) elements.property(superbattery, "Update", spark)
local carbon = elements.allocate("VIRUSLABS","CRBN")
elements.property(carbon, "Name", "CRBN")
elements.property(carbon, "Description", "Carbon, Extremely versatile and light, has many forms.")
elements.property(carbon, "Colour", 0x323232)
elements.property(carbon, "MenuSection", elem.SC_GAS)
elements.property(carbon, "Advection", 1)
elements.property(carbon, "AirDrag", 0.01)
elements.property(carbon, "AirLoss", 1)
elements.property(carbon, "Loss", 0.70)
elements.property(carbon, "Collision", 0)
elements.property(carbon, "Gravity", -0.02)
elements.property(carbon, "Diffusion", 0.75)
elements.property(carbon, "Falldown", 0)
elements.property(carbon, "Weight", 1)
elements.property(carbon, "HeatConduct", 5)
elements.property(carbon, "HighPressure", 100)
elements.property(carbon, "HighPressureTransition", elements.DEFAULT_PT_DMND)
elements.property(carbon, "MenuVisible", 1)
if not vanilla then
elements.property(elements.DEFAULT_PT_TUNG, "LowTemperature", -4000+273.15)
elements.property(elements.DEFAULT_PT_TUNG, "LowTemperatureTransition", elements.VIRUSLABS_PT_TAP)
elements.property(elements.DEFAULT_PT_DMND, "HighTemperature", 5250+273.15)
elements.property(elements.DEFAULT_PT_DMND, "HighTemperatureTransition", elements.VIRUSLABS_PT_CRBN)
elements.property(elements.DEFAULT_PT_COAL, "Explosive", 1)
elements.property(elements.DEFAULT_PT_COAL, "LowPressure", 0)
elements.property(elements.DEFAULT_PT_COAL, "LowPressureTransition", elements.VIRUSLABS_PT_CRBN)
elements.property(elements.DEFAULT_PT_SAND, "HighTemperature", 1000+273.15)
elements.property(elements.DEFAULT_PT_SAND, "HighTemperatureTransition", elements.VIRUSLABS_PT_FLSA)
end
local modmenu = Window:new(-1,-1,92,48) local modmenu = Window:new(-1,-1,92,48)
local vanillabox = Checkbox:new(6,24,16,16,"Vanilla Mode") local vanillabox = Checkbox:new(6,24,16,16,"Vanilla Mode")
local closebut = Button:new(77,0,15,15,"X") local closebut = Button:new(77,0,15,15,"X")