2024-01-20 11:18:57 +00:00
|
|
|
static u64 S2_CallFunctionIndexFromString(string String)
|
|
|
|
{
|
|
|
|
u64 Result = 0;
|
|
|
|
for(u64 Index = 0; Index < ArrayCount(S2_CallNameLookup); Index += 1)
|
|
|
|
{
|
|
|
|
if(AreEqual(String, S2_CallNameLookup[Index]))
|
|
|
|
{
|
|
|
|
Result = Index;
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return(Result);
|
|
|
|
}
|
|
|
|
|
|
|
|
static scene2_call_function *S2_CallFunctionFromString(string String)
|
|
|
|
{
|
|
|
|
scene2_call_function *Result = S2_Call_Stub;
|
|
|
|
for(u64 Index = 0; Index < ArrayCount(S2_CallNameLookup); Index += 1)
|
|
|
|
{
|
|
|
|
if(AreEqual(String, S2_CallNameLookup[Index]))
|
|
|
|
{
|
|
|
|
Result = S2_CallBindingLookup[Index];
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return(Result);
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_StackSanity)
|
|
|
|
{
|
|
|
|
scene2_object Value = S2_StackPop(Runtime);
|
|
|
|
Assert(Value.Kind == S2_ObjectKind_Number && Runtime->StackPointer == (u64)Value.As.Number);
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_TextClear)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
SceneView->TextboxUsed = 0;
|
|
|
|
SceneView->TextboxRevealed = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_NewLine)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
if(SceneView->TextboxUsed < ArrayCount(SceneView->TextboxData))
|
|
|
|
{
|
|
|
|
SceneView->TextboxData[SceneView->TextboxUsed++] = '\n';
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_TextAppend)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
|
|
|
|
temp Scratch = GetScratch();
|
|
|
|
string Addend = S2_StringFromObject(Scratch.Arena, S2_StackPop(Runtime));
|
|
|
|
|
|
|
|
Addend.Count = Min(Addend.Count, ArrayCount(SceneView->TextboxData)-SceneView->TextboxUsed);
|
|
|
|
|
|
|
|
Copy(SceneView->TextboxData+SceneView->TextboxUsed, Addend.Data, Addend.Count);
|
|
|
|
SceneView->TextboxUsed += Addend.Count;
|
|
|
|
|
|
|
|
ReleaseScratch(Scratch);
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_ProcSet)
|
|
|
|
{
|
|
|
|
temp Scratch = GetScratch();
|
|
|
|
S2_SetCurrentProc(Runtime, S2_ProcFromName(Compiled, S2_StringFromObject(Scratch.Arena, S2_StackPop(Runtime))));
|
|
|
|
ReleaseScratch(Scratch);
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_CharacterSet)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
|
|
|
|
scene2_object IDObject = S2_StackPop(Runtime);
|
|
|
|
scene2_object TargetObject = S2_StackPop(Runtime);
|
|
|
|
|
|
|
|
// sixten(TODO): this should fail gracefully
|
|
|
|
Assert(IDObject.Kind == S2_ObjectKind_Number || IDObject.Kind == S2_ObjectKind_Nil);
|
|
|
|
Assert(TargetObject.Kind == S2_ObjectKind_String);
|
|
|
|
|
|
|
|
string Target = TargetObject.As.String;
|
|
|
|
asset_id ID = IDObject.Kind == S2_ObjectKind_Number ? (asset_id)IDObject.As.Number : AssetID_None;
|
|
|
|
|
|
|
|
scene_view_character_data *CharacterBegin = SceneView->Characters;
|
|
|
|
scene_view_character_data *CharacterUsedEnd = SceneView->Characters+SceneView->CharactersUsed;
|
|
|
|
scene_view_character_data *CharacterEnd = SceneView->Characters+ArrayCount(SceneView->Characters);
|
|
|
|
scene_view_character_data *Character = CharacterBegin;
|
|
|
|
|
|
|
|
for(;Character < CharacterEnd; Character += 1)
|
|
|
|
{
|
|
|
|
// sixten: check if the character doesn't exist
|
|
|
|
if(Character == CharacterUsedEnd)
|
|
|
|
{
|
|
|
|
// sixten: "create" new character
|
|
|
|
ZeroStruct(Character);
|
|
|
|
Character->Name = PushString(SceneView->SceneArena, Target);
|
|
|
|
SceneView->CharactersUsed += 1;
|
|
|
|
Character->PctP = ((r32)SceneView->CharactersUsed / (r32)(SceneView->CharactersUsed+1));
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
|
|
|
// sixten: check if character exists
|
|
|
|
if(AreEqual(Character->Name, Target))
|
|
|
|
{
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if(Character != CharacterEnd)
|
|
|
|
{
|
|
|
|
Character->Active = true;
|
|
|
|
if(ID != AssetID_None)
|
|
|
|
{
|
|
|
|
Character->Info.Texture = A_TextureFromAssetID(ID);
|
|
|
|
Character->Info.Scale = A_ScaleFromAssetID(ID);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
else
|
|
|
|
{
|
|
|
|
// sixten: we've run out of characters
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_CharacterRemove)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
|
|
|
|
scene2_object TargetObject = S2_StackPop(Runtime);
|
|
|
|
|
|
|
|
// sixten(TODO): this should fail gracefully
|
|
|
|
Assert(TargetObject.Kind == S2_ObjectKind_String);
|
|
|
|
|
|
|
|
string Target = TargetObject.As.String;
|
|
|
|
|
2024-01-21 20:01:00 +00:00
|
|
|
scene_view_character_data *CharacterBegin = SceneView->Characters;
|
|
|
|
scene_view_character_data *CharacterEnd = SceneView->Characters+SceneView->CharactersUsed;
|
|
|
|
scene_view_character_data *Character = CharacterBegin;
|
2024-01-20 11:18:57 +00:00
|
|
|
|
|
|
|
// sixten: check if the character exists
|
|
|
|
for(;Character < CharacterEnd; Character += 1)
|
|
|
|
{
|
|
|
|
if(AreEqual(Character->Name, Target))
|
|
|
|
{
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// sixten: if the character exists, request its deletion
|
|
|
|
if(Character != CharacterEnd)
|
|
|
|
{
|
|
|
|
Character->Active = false;
|
|
|
|
Character->Talking = false;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_CharacterSetTalking)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
|
|
|
|
scene2_object TargetObject = S2_StackPop(Runtime);
|
|
|
|
|
|
|
|
// sixten(TODO): this should fail gracefully
|
|
|
|
Assert(TargetObject.Kind == S2_ObjectKind_String);
|
|
|
|
|
|
|
|
string Target = TargetObject.As.String;
|
|
|
|
|
|
|
|
scene_view_character_data *CharacterBegin = SceneView->Characters;
|
|
|
|
scene_view_character_data *CharacterEnd = SceneView->Characters+SceneView->CharactersUsed;
|
|
|
|
scene_view_character_data *Character = CharacterBegin;
|
|
|
|
|
|
|
|
// sixten: check if the character exists
|
|
|
|
for(;Character < CharacterEnd; Character += 1)
|
|
|
|
{
|
|
|
|
if(AreEqual(Character->Name, Target))
|
|
|
|
{
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// sixten: if the character exists, request its deletion
|
|
|
|
if(Character != CharacterEnd)
|
|
|
|
{
|
|
|
|
Character->Talking = true;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_CharacterUnsetAllTalking)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
|
|
|
|
scene_view_character_data *CharacterBegin = SceneView->Characters;
|
|
|
|
scene_view_character_data *CharacterEnd = SceneView->Characters+SceneView->CharactersUsed;
|
|
|
|
scene_view_character_data *Character = CharacterBegin;
|
|
|
|
|
|
|
|
for(;Character < CharacterEnd; Character += 1)
|
|
|
|
{
|
|
|
|
Character->Talking = false;
|
|
|
|
}
|
|
|
|
}
|
2024-01-21 20:01:00 +00:00
|
|
|
|
|
|
|
static void SV_LoadNavItems(string FileName);
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_NavLoad)
|
|
|
|
{
|
|
|
|
scene2_object Object = S2_StackPop(Runtime);
|
|
|
|
if(Object.Kind == S2_ObjectKind_String)
|
|
|
|
{
|
|
|
|
SV_LoadNavItems(Object.As.String);
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
static S2_CALL_FUNCTION(S2_Call_Puzzle15)
|
|
|
|
{
|
|
|
|
scene_view *SceneView = (scene_view *)Runtime->Data;
|
|
|
|
SceneView->Mode = SV_Mode_P15;
|
|
|
|
SceneView->BoardOpenT = 0;
|
|
|
|
SceneView->TimeSinceBoardUpdate = 0;
|
|
|
|
SceneView->TimeSinceBoardClear = 0;
|
|
|
|
SceneView->BoardIsComplete = false;
|
|
|
|
|
|
|
|
// sixten: generate random board
|
|
|
|
for(s32 BoardY = 0; BoardY < 4; BoardY += 1)
|
|
|
|
{
|
|
|
|
for(s32 BoardX = 0; BoardX < 4; BoardX += 1)
|
|
|
|
{
|
|
|
|
SceneView->Board[BoardY][BoardX] = (1+BoardX+BoardY*4)%16;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
v2_s32 EmptyP = V2S32(3, 3);
|
|
|
|
s32 ShuffleCount = 10000;
|
|
|
|
for(s32 Index = 0; Index < ShuffleCount; Index += 1)
|
|
|
|
{
|
|
|
|
s32 DeltaX = (rand() % 2)*2-1;
|
|
|
|
s32 DeltaY = (rand() % 2)*2-1;
|
|
|
|
|
|
|
|
// sixten: apply x-action
|
|
|
|
s32 NewEmptyX = EmptyP.x+DeltaX;
|
|
|
|
if(0 <= NewEmptyX && NewEmptyX < 4)
|
|
|
|
{
|
|
|
|
SceneView->Board[EmptyP.y][EmptyP.x] = SceneView->Board[EmptyP.y][NewEmptyX];
|
|
|
|
SceneView->Board[EmptyP.y][NewEmptyX] = 0;
|
|
|
|
EmptyP.x = NewEmptyX;
|
|
|
|
}
|
|
|
|
|
|
|
|
// sixten: apply y-action
|
|
|
|
s32 NewEmptyY = EmptyP.y+DeltaY;
|
|
|
|
if(0 <= NewEmptyY && NewEmptyY < 4)
|
|
|
|
{
|
|
|
|
SceneView->Board[EmptyP.y][EmptyP.x] = SceneView->Board[NewEmptyY][EmptyP.x];
|
|
|
|
SceneView->Board[NewEmptyY][EmptyP.x] = 0;
|
|
|
|
EmptyP.y = NewEmptyY;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
Copy(SceneView->PrevBoard, SceneView->Board, sizeof(SceneView->Board));
|
|
|
|
}
|