-
Notifications
You must be signed in to change notification settings - Fork 746
/
WATR.cpp
98 lines (88 loc) · 2.26 KB
/
WATR.cpp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
#include "simulation/ElementCommon.h"
static int update(UPDATE_FUNC_ARGS);
void Element::Element_WATR()
{
Identifier = "DEFAULT_PT_WATR";
Name = "WATR";
Colour = 0x2030D0_rgb;
MenuVisible = 1;
MenuSection = SC_LIQUID;
Enabled = 1;
Advection = 0.6f;
AirDrag = 0.01f * CFDS;
AirLoss = 0.98f;
Loss = 0.95f;
Collision = 0.0f;
Gravity = 0.1f;
Diffusion = 0.00f;
HotAir = 0.000f * CFDS;
Falldown = 2;
Flammable = 0;
Explosive = 0;
Meltable = 0;
Hardness = 20;
Weight = 30;
DefaultProperties.temp = R_TEMP - 2.0f + 273.15f;
HeatConduct = 29;
LatentHeat = 7500;
Description = "Water. Conducts electricity, freezes, and extinguishes fires.";
Properties = TYPE_LIQUID | PROP_CONDUCTS | PROP_LIFE_DEC | PROP_NEUTPASS | PROP_PHOTPASS;
LowPressure = IPL;
LowPressureTransition = NT;
HighPressure = IPH;
HighPressureTransition = NT;
LowTemperature = 273.15f;
LowTemperatureTransition = PT_ICEI;
HighTemperature = 373.0f;
HighTemperatureTransition = PT_WTRV;
Update = &update;
}
static int update(UPDATE_FUNC_ARGS)
{
for (auto rx = -1; rx <= 1; rx++)
{
for (auto ry = -1; ry <= 1; ry++)
{
if (rx || ry)
{
auto r = pmap[y+ry][x+rx];
if (!r)
continue;
if (TYP(r)==PT_SALT && sim->rng.chance(1, 50))
{
sim->part_change_type(i,x,y,PT_SLTW);
// on average, convert 3 WATR to SLTW before SALT turns into SLTW
if (sim->rng.chance(1, 3))
sim->part_change_type(ID(r),x+rx,y+ry,PT_SLTW);
}
else if ((TYP(r)==PT_RBDM||TYP(r)==PT_LRBD) && (sim->legacy_enable||parts[i].temp>(273.15f+12.0f)) && sim->rng.chance(1, 100))
{
sim->part_change_type(i,x,y,PT_FIRE);
parts[i].life = 4;
parts[i].ctype = PT_WATR;
}
else if (TYP(r)==PT_FIRE && parts[ID(r)].ctype!=PT_WATR)
{
sim->kill_part(ID(r));
if (sim->rng.chance(1, 30))
{
sim->kill_part(i);
return 1;
}
}
else if (TYP(r)==PT_SLTW && sim->rng.chance(1, 2000))
{
sim->part_change_type(i,x,y,PT_SLTW);
}
else if (TYP(r)==PT_ROCK && fabs(parts[i].vx)+fabs(parts[i].vy) >= 0.5 && sim->rng.chance(1, 1000)) // ROCK erosion
{
if (sim->rng.chance(1,3))
sim->part_change_type(ID(r),x+rx,y+ry,PT_SAND);
else
sim->part_change_type(ID(r),x+rx,y+ry,PT_STNE);
}
}
}
}
return 0;
}