mirror of
https://github.com/sfall-team/int2ssl.git
synced 2026-07-27 16:52:42 -07:00
18 lines
409 B
C++
18 lines
409 B
C++
#include "stdafx.h"
|
|
#include "FalloutScript.h"
|
|
|
|
CFalloutScript::CDefObject::CDefObject(ObjectType type, ULONG ulAttributes, ULONG ulObjectData)
|
|
{
|
|
m_ulAttributes = ulAttributes;
|
|
|
|
switch(m_ObjectType = type)
|
|
{
|
|
case OBJECT_VARIABLE:
|
|
m_ulVarValue = ulObjectData;
|
|
break;
|
|
|
|
case OBJECT_PROCEDURE:
|
|
m_ulProcIndex = ulObjectData;
|
|
}
|
|
}
|