qzdoom/wadsrc/static/zscript/hexen/bats.txt
Christoph Oelckers ac86a535e7 - fixed: State labels were resolved in the calling function's context instead of the called function one's.
This could cause problems with functions that take states as parameters but use them to set them internally instead of passing them through the A_Jump interface back to the caller, like A_Chase or A_LookEx.
This required some quite significant refactoring because the entire state resolution logic had been baked into the compiler which turned out to be a major maintenance problem.
Fixed this by adding a new builtin type 'statelabel'. This is an opaque identifier representing a state, with the actual data either directly encoded into the number for single label state or an index into a state information table.
The state resolution is now the task of the called function as it should always have remained. Note, that this required giving back the 'action' qualifier to most state jumping functions.

- refactored most A_Jump checkers to a two stage setup with a pure checker that returns a boolean and a scripted A_Jump wrapper, for some simpler checks the checker function was entirely omitted and calculated inline in the A_Jump function. It is strongly recommended to use the boolean checkers unless using an inline function invocation in a state as they lead to vastly clearer code and offer more flexibility.

- let Min() and Max() use the OP_MIN and OP_MAX opcodes. Although these were present, these function were implemented using some grossly inefficient branching tests.
- the DECORATE 'state' cast kludge will now actually call ResolveState because a state label is not a state and needs conversion.
2016-11-14 14:12:27 +01:00

125 lines
2.2 KiB
Text

// Bat Spawner --------------------------------------------------------------
class BatSpawner : SwitchableDecoration
{
Default
{
+NOBLOCKMAP +NOSECTOR +NOGRAVITY
RenderStyle "None";
}
States
{
Spawn:
Active:
TNT1 A 2;
TNT1 A 2 A_BatSpawnInit;
TNT1 A 2 A_BatSpawn;
Wait;
Inactive:
TNT1 A -1;
Stop;
}
//===========================================================================
// Bat Spawner Variables
// special1 frequency counter
// special2
// args[0] frequency of spawn (1=fastest, 10=slowest)
// args[1] spread angle (0..255)
// args[2]
// args[3] duration of bats (in octics)
// args[4] turn amount per move (in degrees)
//
// Bat Variables
// special2 lifetime counter
// args[4] turn amount per move (in degrees)
//===========================================================================
void A_BatSpawnInit()
{
special1 = 0; // Frequency count
}
void A_BatSpawn()
{
// Countdown until next spawn
if (special1-- > 0) return;
special1 = args[0]; // Reset frequency count
int delta = args[1];
if (delta == 0) delta = 1;
double ang = Angle + (((random[BatSpawn]() % delta) - (delta >> 1)) * (360 / 256.));
Actor mo = SpawnMissileAngle ("Bat", ang, 0);
if (mo)
{
mo.args[0] = random[BatSpawn]() & 63; // floatbob index
mo.args[4] = args[4]; // turn degrees
mo.special2 = args[3] << 3; // Set lifetime
mo.target = self;
}
}
}
// Bat ----------------------------------------------------------------------
class Bat : Actor
{
Default
{
Speed 5;
Radius 3;
Height 3;
+NOBLOCKMAP +NOGRAVITY +MISSILE
+NOTELEPORT +CANPASS
}
States
{
Spawn:
ABAT ABC 2 A_BatMove;
Loop;
Death:
ABAT A 2;
Stop;
}
void A_BatMove()
{
if (special2 < 0)
{
SetStateLabel ("Death");
}
special2 -= 2; // Called every 2 tics
double newangle;
if (random[BatMove]() < 128)
{
newangle = Angle + args[4];
}
else
{
newangle = Angle - args[4];
}
// Adjust velocity vector to new direction
VelFromAngle(Speed, newangle);
if (random[BatMove]() < 15)
{
A_PlaySound ("BatScream", CHAN_VOICE, 1, false, ATTN_IDLE);
}
// Handle Z movement
SetZ(target.pos.Z + 2 * BobSin(args[0]));
args[0] = (args[0] + 3) & 63;
}
}