//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CBKeyboardState::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// IsKeyDown
//////////////////////////////////////////////////////////////////////////
if (strcmp(Name, "IsKeyDown")==0)
{
Stack->CorrectParams(1);
CScValue* val = Stack->Pop();
int vKey;
if (val->m_Type==VAL_STRING && strlen(val->GetString())>0)
{
char* str = val->GetString();
if(str[0]>='A' && str[0]<='Z') str[0] += ('a' - 'A');
vKey = (int)str[0];
}
else vKey = val->GetInt();
const Uint8* state = SDL_GetKeyboardState(NULL);
SDL_Scancode scanCode = SDL_GetScancodeFromKey(VKeyToKeyCode(vKey));
bool isDown = state[scanCode] > 0;
Stack->PushBool(isDown);
return S_OK;
}
else return CBScriptable::ScCallMethod(Script, Stack, ThisStack, Name);
}
char* CSXArray::ScToString()
{
static char Dummy[32768];
strcpy(Dummy, "");
char PropName[20];
for(int i=0; i<m_Length; i++){
sprintf(PropName, "%d", i);
CScValue* val = m_Values->GetProp(PropName);
if(val){
if(strlen(Dummy) + strlen(val->GetString()) < 32768){
strcat(Dummy, val->GetString());
}
}
if(i<m_Length-1 && strlen(Dummy)+1 < 32768) strcat(Dummy, ",");
}
return Dummy;
}
CSXFile::CSXFile(CBGame *inGame, CScStack *Stack): CBScriptable(inGame) {
Stack->CorrectParams(1);
CScValue *Val = Stack->Pop();
m_Filename = NULL;
if (!Val->IsNULL()) CBUtils::SetString(&m_Filename, Val->GetString());
m_ReadFile = NULL;
m_WriteFile = NULL;
m_Mode = 0;
m_TextMode = false;
}
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CUIButton::ScCallMethod(CScScript *Script, CScStack *Stack, CScStack *ThisStack, char *Name) {
//////////////////////////////////////////////////////////////////////////
// SetDisabledFont
//////////////////////////////////////////////////////////////////////////
if (strcmp(Name, "SetDisabledFont") == 0) {
Stack->CorrectParams(1);
CScValue *Val = Stack->Pop();
if (m_FontDisable) Game->m_FontStorage->RemoveFont(m_FontDisable);
if (Val->IsNULL()) {
m_FontDisable = NULL;
Stack->PushBool(true);
} else {
m_FontDisable = Game->m_FontStorage->AddFont(Val->GetString());
Stack->PushBool(m_FontDisable != NULL);
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetHoverFont
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "SetHoverFont") == 0) {
Stack->CorrectParams(1);
CScValue *Val = Stack->Pop();
if (m_FontHover) Game->m_FontStorage->RemoveFont(m_FontHover);
if (Val->IsNULL()) {
m_FontHover = NULL;
Stack->PushBool(true);
} else {
m_FontHover = Game->m_FontStorage->AddFont(Val->GetString());
Stack->PushBool(m_FontHover != NULL);
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetPressedFont
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "SetPressedFont") == 0) {
Stack->CorrectParams(1);
CScValue *Val = Stack->Pop();
if (m_FontPress) Game->m_FontStorage->RemoveFont(m_FontPress);
if (Val->IsNULL()) {
m_FontPress = NULL;
Stack->PushBool(true);
} else {
m_FontPress = Game->m_FontStorage->AddFont(Val->GetString());
Stack->PushBool(m_FontPress != NULL);
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetFocusedFont
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "SetFocusedFont") == 0) {
Stack->CorrectParams(1);
CScValue *Val = Stack->Pop();
if (m_FontFocus) Game->m_FontStorage->RemoveFont(m_FontFocus);
if (Val->IsNULL()) {
m_FontFocus = NULL;
Stack->PushBool(true);
} else {
m_FontFocus = Game->m_FontStorage->AddFont(Val->GetString());
Stack->PushBool(m_FontFocus != NULL);
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetDisabledImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "SetDisabledImage") == 0) {
Stack->CorrectParams(1);
delete m_ImageDisable;
m_ImageDisable = new CBSprite(Game);
char *Filename = Stack->Pop()->GetString();
if (!m_ImageDisable || FAILED(m_ImageDisable->LoadFile(Filename))) {
delete m_ImageDisable;
m_ImageDisable = NULL;
Stack->PushBool(false);
} else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetDisabledImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetDisabledImage") == 0) {
Stack->CorrectParams(0);
if (!m_ImageDisable || !m_ImageDisable->m_Filename) Stack->PushNULL();
else Stack->PushString(m_ImageDisable->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetDisabledImageObject
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetDisabledImageObject") == 0) {
Stack->CorrectParams(0);
if (!m_ImageDisable) Stack->PushNULL();
else Stack->PushNative(m_ImageDisable, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetHoverImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "SetHoverImage") == 0) {
Stack->CorrectParams(1);
delete m_ImageHover;
m_ImageHover = new CBSprite(Game);
char *Filename = Stack->Pop()->GetString();
if (!m_ImageHover || FAILED(m_ImageHover->LoadFile(Filename))) {
delete m_ImageHover;
m_ImageHover = NULL;
Stack->PushBool(false);
} else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetHoverImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetHoverImage") == 0) {
Stack->CorrectParams(0);
if (!m_ImageHover || !m_ImageHover->m_Filename) Stack->PushNULL();
else Stack->PushString(m_ImageHover->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetHoverImageObject
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetHoverImageObject") == 0) {
Stack->CorrectParams(0);
if (!m_ImageHover) Stack->PushNULL();
else Stack->PushNative(m_ImageHover, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetPressedImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "SetPressedImage") == 0) {
Stack->CorrectParams(1);
delete m_ImagePress;
m_ImagePress = new CBSprite(Game);
char *Filename = Stack->Pop()->GetString();
if (!m_ImagePress || FAILED(m_ImagePress->LoadFile(Filename))) {
delete m_ImagePress;
m_ImagePress = NULL;
Stack->PushBool(false);
} else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetPressedImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetPressedImage") == 0) {
Stack->CorrectParams(0);
if (!m_ImagePress || !m_ImagePress->m_Filename) Stack->PushNULL();
else Stack->PushString(m_ImagePress->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetPressedImageObject
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetPressedImageObject") == 0) {
Stack->CorrectParams(0);
if (!m_ImagePress) Stack->PushNULL();
else Stack->PushNative(m_ImagePress, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetFocusedImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "SetFocusedImage") == 0) {
Stack->CorrectParams(1);
delete m_ImageFocus;
m_ImageFocus = new CBSprite(Game);
char *Filename = Stack->Pop()->GetString();
if (!m_ImageFocus || FAILED(m_ImageFocus->LoadFile(Filename))) {
delete m_ImageFocus;
m_ImageFocus = NULL;
Stack->PushBool(false);
} else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetFocusedImage
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetFocusedImage") == 0) {
Stack->CorrectParams(0);
if (!m_ImageFocus || !m_ImageFocus->m_Filename) Stack->PushNULL();
else Stack->PushString(m_ImageFocus->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetFocusedImageObject
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "GetFocusedImageObject") == 0) {
Stack->CorrectParams(0);
if (!m_ImageFocus) Stack->PushNULL();
else Stack->PushNative(m_ImageFocus, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Press
//////////////////////////////////////////////////////////////////////////
else if (strcmp(Name, "Press") == 0) {
Stack->CorrectParams(0);
if (m_Visible && !m_Disable) {
m_OneTimePress = true;
m_OneTimePressTime = CBPlatform::GetTime();
}
Stack->PushNULL();
return S_OK;
}
else return CUIObject::ScCallMethod(Script, Stack, ThisStack, Name);
}
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CBScriptHolder::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// DEBUG_CrashMe
//////////////////////////////////////////////////////////////////////////
if(strcmp(Name, "DEBUG_CrashMe")==0)
{
Stack->CorrectParams(0);
BYTE* p = 0;
*p = 10;
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// ApplyEvent
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "ApplyEvent")==0)
{
Stack->CorrectParams(1);
CScValue* val = Stack->Pop();
HRESULT ret;
ret = ApplyEvent(val->GetString());
if(SUCCEEDED(ret)) Stack->PushBool(true);
else Stack->PushBool(false);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// CanHandleEvent
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "CanHandleEvent")==0)
{
Stack->CorrectParams(1);
Stack->PushBool(CanHandleEvent(Stack->Pop()->GetString()));
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// CanHandleMethod
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "CanHandleMethod")==0)
{
Stack->CorrectParams(1);
Stack->PushBool(CanHandleMethod(Stack->Pop()->GetString()));
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// AttachScript
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "AttachScript")==0)
{
Stack->CorrectParams(1);
Stack->PushBool(SUCCEEDED(AddScript(Stack->Pop()->GetString())));
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// DetachScript
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "DetachScript")==0)
{
Stack->CorrectParams(2);
char* Filename = Stack->Pop()->GetString();
bool KillThreads = Stack->Pop()->GetBool(false);
bool ret = false;
for(int i=0; i<m_Scripts.GetSize(); i++)
{
if(CBPlatform::stricmp(m_Scripts[i]->m_Filename, Filename)==0)
{
m_Scripts[i]->Finish(KillThreads);
ret = true;
break;
}
}
Stack->PushBool(ret);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// IsScriptRunning
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "IsScriptRunning")==0)
{
Stack->CorrectParams(1);
char* Filename = Stack->Pop()->GetString();
bool ret = false;
for(int i=0; i<m_Scripts.GetSize(); i++)
{
if(CBPlatform::stricmp(m_Scripts[i]->m_Filename, Filename)==0 && m_Scripts[i]->m_State!=SCRIPT_FINISHED && m_Scripts[i]->m_State!=SCRIPT_ERROR)
{
ret = true;
break;
}
}
Stack->PushBool(ret);
return S_OK;
}
else return CBScriptable::ScCallMethod(Script, Stack, ThisStack, Name);
}
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CAdTalkHolder::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// SetSprite
//////////////////////////////////////////////////////////////////////////
if(strcmp(Name, "SetSprite")==0){
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
bool SetCurrent = false;
if(m_CurrentSprite && m_CurrentSprite == m_Sprite) SetCurrent = true;
SAFE_DELETE(m_Sprite);
if(Val->IsNULL())
{
m_Sprite = NULL;
if(SetCurrent) m_CurrentSprite = NULL;
Stack->PushBool(true);
}
else
{
char* Filename = Val->GetString();
CBSprite* spr = new CBSprite(Game, this);
if(!spr || FAILED(spr->LoadFile(Filename))){
Script->RuntimeError("SetSprite method failed for file '%s'", Filename);
Stack->PushBool(false);
}
else {
m_Sprite = spr;
if(SetCurrent) m_CurrentSprite = m_Sprite;
Stack->PushBool(true);
}
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetSprite
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetSprite")==0){
Stack->CorrectParams(0);
if(!m_Sprite || !m_Sprite->m_Filename) Stack->PushNULL();
else Stack->PushString(m_Sprite->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetSpriteObject
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetSpriteObject")==0){
Stack->CorrectParams(0);
if(!m_Sprite) Stack->PushNULL();
else Stack->PushNative(m_Sprite, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// AddTalkSprite
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "AddTalkSprite")==0){
Stack->CorrectParams(2);
char* Filename = Stack->Pop()->GetString();
bool Ex = Stack->Pop()->GetBool();
CBSprite* spr = new CBSprite(Game, this);
if(!spr || FAILED(spr->LoadFile(Filename))){
Stack->PushBool(false);
Script->RuntimeError("AddTalkSprite method failed for file '%s'", Filename);
}
else {
if(Ex) m_TalkSpritesEx.Add(spr);
else m_TalkSprites.Add(spr);
Stack->PushBool(true);
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// RemoveTalkSprite
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "RemoveTalkSprite")==0){
Stack->CorrectParams(2);
char* Filename = Stack->Pop()->GetString();
bool Ex = Stack->Pop()->GetBool();
int i;
bool SetCurrent = false;
bool SetTemp2 = false;
if(Ex){
for(i=0; i<m_TalkSpritesEx.GetSize(); i++){
if(stricmp(m_TalkSpritesEx[i]->m_Filename, Filename)==0){
if(m_CurrentSprite==m_TalkSpritesEx[i]) SetCurrent = true;
if(m_TempSprite2==m_TalkSpritesEx[i]) SetTemp2 = true;
delete m_TalkSpritesEx[i];
m_TalkSpritesEx.RemoveAt(i);
break;
}
}
}
else{
for(i=0; i<m_TalkSprites.GetSize(); i++){
if(stricmp(m_TalkSprites[i]->m_Filename, Filename)==0){
if(m_CurrentSprite==m_TalkSprites[i]) SetCurrent = true;
if(m_TempSprite2==m_TalkSprites[i]) SetTemp2 = true;
delete m_TalkSprites[i];
m_TalkSprites.RemoveAt(i);
break;
}
}
}
Stack->PushBool(true);
if(SetCurrent) m_CurrentSprite = m_Sprite;
if(SetTemp2) m_TempSprite2 = m_Sprite;
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetTalkSprite
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetTalkSprite")==0){
Stack->CorrectParams(2);
char* Filename = Stack->Pop()->GetString();
bool Ex = Stack->Pop()->GetBool();
bool SetCurrent = false;
bool SetTemp2 = false;
CBSprite* spr = new CBSprite(Game, this);
if(!spr || FAILED(spr->LoadFile(Filename))){
Stack->PushBool(false);
Script->RuntimeError("SetTalkSprite method failed for file '%s'", Filename);
}
else {
// delete current
int i;
if(Ex){
for(i=0; i<m_TalkSpritesEx.GetSize(); i++){
if(m_TalkSpritesEx[i]==m_CurrentSprite) SetCurrent = true;
if(m_TalkSpritesEx[i]==m_TempSprite2) SetTemp2 = true;
delete m_TalkSpritesEx[i];
}
m_TalkSpritesEx.RemoveAll();
}
else{
for(i=0; i<m_TalkSprites.GetSize(); i++){
if(m_TalkSprites[i]==m_CurrentSprite) SetCurrent = true;
if(m_TalkSprites[i]==m_TempSprite2) SetTemp2 = true;
delete m_TalkSprites[i];
}
m_TalkSprites.RemoveAll();
}
// set new
if(Ex) m_TalkSpritesEx.Add(spr);
else m_TalkSprites.Add(spr);
Stack->PushBool(true);
if(SetCurrent) m_CurrentSprite = spr;
if(SetTemp2) m_TempSprite2 = spr;
}
return S_OK;
}
else return CAdObject::ScCallMethod(Script, Stack, ThisStack, Name);
}
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CBObject::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// SkipTo
//////////////////////////////////////////////////////////////////////////
if(strcmp(Name, "SkipTo")==0){
Stack->CorrectParams(2);
m_PosX = Stack->Pop()->GetInt();
m_PosY = Stack->Pop()->GetInt();
AfterMove();
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Caption
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "Caption")==0){
Stack->CorrectParams(1);
Stack->PushString(GetCaption(Stack->Pop()->GetInt()));
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetCursor
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetCursor")==0){
Stack->CorrectParams(1);
if(SUCCEEDED(SetCursor(Stack->Pop()->GetString()))) Stack->PushBool(true);
else Stack->PushBool(false);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// RemoveCursor
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "RemoveCursor")==0){
Stack->CorrectParams(0);
if(!m_SharedCursors) SAFE_DELETE(m_Cursor);
else m_Cursor = NULL;
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetCursor
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetCursor")==0){
Stack->CorrectParams(0);
if(!m_Cursor || !m_Cursor->m_Filename) Stack->PushNULL();
else Stack->PushString(m_Cursor->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetCursorObject
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetCursorObject")==0){
Stack->CorrectParams(0);
if(!m_Cursor) Stack->PushNULL();
else Stack->PushNative(m_Cursor, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// HasCursor
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "HasCursor")==0){
Stack->CorrectParams(0);
if(m_Cursor) Stack->PushBool(true);
else Stack->PushBool(false);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetCaption
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetCaption")==0){
Stack->CorrectParams(2);
SetCaption(Stack->Pop()->GetString(), Stack->Pop()->GetInt());
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// LoadSound
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "LoadSound")==0){
Stack->CorrectParams(1);
char* Filename = Stack->Pop()->GetString();
if(SUCCEEDED(PlaySFX(Filename, false, false)))
Stack->PushBool(true);
else
Stack->PushBool(false);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// PlaySound
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "PlaySound")==0){
Stack->CorrectParams(3);
char* Filename;
bool Looping;
DWORD LoopStart;
CScValue* val1 = Stack->Pop();
CScValue* val2 = Stack->Pop();
CScValue* val3 = Stack->Pop();
if(val1->m_Type==VAL_BOOL){
Filename=NULL;
Looping = val1->GetBool();
LoopStart = val2->GetInt();
}
else{
if(val1->IsNULL()) Filename = NULL;
else Filename = val1->GetString();
Looping = val2->IsNULL()?false:val2->GetBool();
LoopStart = val3->GetInt();
}
if(FAILED(PlaySFX(Filename, Looping, true, NULL, LoopStart))) Stack->PushBool(false);
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// PlaySoundEvent
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "PlaySoundEvent")==0){
Stack->CorrectParams(2);
char* Filename;
char* EventName;
CScValue* val1 = Stack->Pop();
CScValue* val2 = Stack->Pop();
if(val2->IsNULL()){
Filename=NULL;
EventName = val1->GetString();
}
else{
Filename = val1->GetString();
EventName = val2->GetString();
}
if(FAILED(PlaySFX(Filename, false, true, EventName))) Stack->PushBool(false);
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// StopSound
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "StopSound")==0){
Stack->CorrectParams(0);
if(FAILED(StopSFX())) Stack->PushBool(false);
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// PauseSound
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "PauseSound")==0){
Stack->CorrectParams(0);
if(FAILED(PauseSFX())) Stack->PushBool(false);
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// ResumeSound
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "ResumeSound")==0){
Stack->CorrectParams(0);
if(FAILED(ResumeSFX())) Stack->PushBool(false);
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// IsSoundPlaying
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "IsSoundPlaying")==0){
Stack->CorrectParams(0);
if(m_SFX && m_SFX->IsPlaying()) Stack->PushBool(true);
else Stack->PushBool(false);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetSoundPosition
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetSoundPosition")==0){
Stack->CorrectParams(1);
DWORD Time = Stack->Pop()->GetInt();
if(FAILED(SetSFXTime(Time))) Stack->PushBool(false);
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetSoundPosition
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetSoundPosition")==0){
Stack->CorrectParams(0);
if(!m_SFX) Stack->PushInt(0);
else Stack->PushInt(m_SFX->GetPositionTime());
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetSoundVolume
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetSoundVolume")==0){
Stack->CorrectParams(1);
int Volume = Stack->Pop()->GetInt();
if(FAILED(SetSFXVolume(Volume))) Stack->PushBool(false);
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetSoundVolume
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetSoundVolume")==0){
Stack->CorrectParams(0);
if(!m_SFX) Stack->PushInt(m_SFXVolume);
else Stack->PushInt(m_SFX->GetVolume());
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetShadowImage
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetShadowImage")==0){
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
if(m_ShadowImage) Game->m_SurfaceStorage->RemoveSurface(m_ShadowImage);
m_ShadowImage = NULL;
if(Val->IsString())
{
m_ShadowImage = Game->m_SurfaceStorage->AddSurface(Val->GetString());
Stack->PushBool(m_ShadowImage!=NULL);
}
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetShadowImage
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetShadowImage")==0){
Stack->CorrectParams(0);
if(m_ShadowImage && m_ShadowImage->m_Filename) Stack->PushString(m_ShadowImage->m_Filename);
else Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetLightPosition
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetLightPosition")==0){
Stack->CorrectParams(3);
double x = Stack->Pop()->GetFloat();
double y = Stack->Pop()->GetFloat();
double z = Stack->Pop()->GetFloat();
m_ShadowLightPos = D3DXVECTOR3(x, y, z);
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SoundFXNone
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SoundFXNone")==0)
{
Stack->CorrectParams(0);
m_SFXType = SFX_NONE;
m_SFXParam1 = 0;
m_SFXParam2 = 0;
m_SFXParam3 = 0;
m_SFXParam4 = 0;
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SoundFXEcho
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SoundFXEcho")==0)
{
Stack->CorrectParams(4);
m_SFXType = SFX_ECHO;
m_SFXParam1 = (float)Stack->Pop()->GetFloat(0); // Wet/Dry Mix [%] (0-100)
m_SFXParam2 = (float)Stack->Pop()->GetFloat(0); // Feedback [%] (0-100)
m_SFXParam3 = (float)Stack->Pop()->GetFloat(333.0f); // Left Delay [ms] (1-2000)
m_SFXParam4 = (float)Stack->Pop()->GetFloat(333.0f); // Right Delay [ms] (1-2000)
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SoundFXReverb
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SoundFXReverb")==0)
{
Stack->CorrectParams(4);
m_SFXType = SFX_REVERB;
m_SFXParam1 = (float)Stack->Pop()->GetFloat(0); // In Gain [dB] (-96 - 0)
m_SFXParam2 = (float)Stack->Pop()->GetFloat(0); // Reverb Mix [dB] (-96 - 0)
m_SFXParam3 = (float)Stack->Pop()->GetFloat(1000.0f); // Reverb Time [ms] (0.001 - 3000)
m_SFXParam4 = (float)Stack->Pop()->GetFloat(0.001f); // HighFreq RT Ratio (0.001 - 0.999)
Stack->PushNULL();
return S_OK;
}
else return CBScriptHolder::ScCallMethod(Script, Stack, ThisStack, Name);
}
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CBSprite::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// GetFrame
//////////////////////////////////////////////////////////////////////////
if(strcmp(Name, "GetFrame")==0)
{
Stack->CorrectParams(1);
int Index = Stack->Pop()->GetInt(-1);
if(Index<0 || Index>=m_Frames.GetSize())
{
Script->RuntimeError("Sprite.GetFrame: Frame index %d is out of range.", Index);
Stack->PushNULL();
}
else Stack->PushNative(m_Frames[Index], true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// DeleteFrame
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "DeleteFrame")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
if(Val->IsInt())
{
int Index = Val->GetInt(-1);
if(Index<0 || Index>=m_Frames.GetSize())
{
Script->RuntimeError("Sprite.DeleteFrame: Frame index %d is out of range.", Index);
}
}
else
{
CBFrame* Frame = (CBFrame*)Val->GetNative();
for(int i=0; i<m_Frames.GetSize(); i++)
{
if(m_Frames[i]==Frame)
{
if(i==m_CurrentFrame) m_LastFrameTime = 0;
delete m_Frames[i];
m_Frames.RemoveAt(i);
break;
}
}
}
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Reset
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "Reset")==0)
{
Stack->CorrectParams(0);
Reset();
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// AddFrame
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "AddFrame")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
char* Filename = NULL;
if(!Val->IsNULL()) Filename = Val->GetString();
CBFrame* Frame = new CBFrame(Game);
if(Filename!=NULL)
{
CBSubFrame* Sub = new CBSubFrame(Game);
if(SUCCEEDED(Sub->SetSurface(Filename)))
{
Sub->SetDefaultRect();
Frame->m_Subframes.Add(Sub);
}
else delete Sub;
}
m_Frames.Add(Frame);
Stack->PushNative(Frame, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// InsertFrame
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "InsertFrame")==0)
{
Stack->CorrectParams(2);
int Index = Stack->Pop()->GetInt();
if(Index<0) Index = 0;
CScValue* Val = Stack->Pop();
char* Filename = NULL;
if(!Val->IsNULL()) Filename = Val->GetString();
CBFrame* Frame = new CBFrame(Game);
if(Filename!=NULL)
{
CBSubFrame* Sub = new CBSubFrame(Game);
if(SUCCEEDED(Sub->SetSurface(Filename))) Frame->m_Subframes.Add(Sub);
else delete Sub;
}
if(Index>=m_Frames.GetSize()) m_Frames.Add(Frame);
else m_Frames.InsertAt(Index, Frame);
Stack->PushNative(Frame, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Pause
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "Pause")==0)
{
Stack->CorrectParams(0);
m_Paused = true;
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Play
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "Play")==0)
{
Stack->CorrectParams(0);
m_Paused = false;
Stack->PushNULL();
return S_OK;
}
else return CBScriptHolder::ScCallMethod(Script, Stack, ThisStack, Name);
}
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CUIWindow::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// GetWidget / GetControl
//////////////////////////////////////////////////////////////////////////
if(strcmp(Name, "GetWidget")==0 || strcmp(Name, "GetControl")==0)
{
Stack->CorrectParams(1);
CScValue* val = Stack->Pop();
if(val->GetType()==VAL_INT)
{
int widget= val->GetInt();
if(widget<0 || widget>=m_Widgets.GetSize()) Stack->PushNULL();
else Stack->PushNative(m_Widgets[widget], true);
}
else
{
for(int i=0; i<m_Widgets.GetSize(); i++)
{
if(CBPlatform::stricmp(m_Widgets[i]->m_Name, val->GetString())==0)
{
Stack->PushNative(m_Widgets[i], true);
return S_OK;
}
}
Stack->PushNULL();
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetInactiveFont
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetInactiveFont")==0)
{
Stack->CorrectParams(1);
if(m_FontInactive) Game->m_FontStorage->RemoveFont(m_FontInactive);
m_FontInactive = Game->m_FontStorage->AddFont(Stack->Pop()->GetString());
Stack->PushBool(m_FontInactive!=NULL);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetInactiveImage
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetInactiveImage")==0)
{
Stack->CorrectParams(1);
SAFE_DELETE(m_ImageInactive);
m_ImageInactive = new CBSprite(Game);
char* Filename = Stack->Pop()->GetString();
if(!m_ImageInactive || FAILED(m_ImageInactive->LoadFile(Filename)))
{
SAFE_DELETE(m_ImageInactive);
Stack->PushBool(false);
}
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetInactiveImage
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetInactiveImage")==0)
{
Stack->CorrectParams(0);
if(!m_ImageInactive || !m_ImageInactive->m_Filename) Stack->PushNULL();
else Stack->PushString(m_ImageInactive->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetInactiveImageObject
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetInactiveImageObject")==0)
{
Stack->CorrectParams(0);
if(!m_ImageInactive) Stack->PushNULL();
else Stack->PushNative(m_ImageInactive, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Close
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "Close")==0)
{
Stack->CorrectParams(0);
Stack->PushBool(SUCCEEDED(Close()));
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GoExclusive
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GoExclusive")==0)
{
Stack->CorrectParams(0);
GoExclusive();
Script->WaitFor(this);
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GoSystemExclusive
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GoSystemExclusive")==0)
{
Stack->CorrectParams(1);
char* Event = Stack->Pop()->GetString();
GoSystemExclusive();
if (Event != NULL)
{
ApplyEvent(Event);
}
Script->WaitFor(this);
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Center
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "Center")==0)
{
Stack->CorrectParams(0);
m_PosX = (Game->m_Renderer->m_Width - m_Width) / 2;
m_PosY = (Game->m_Renderer->m_Height - m_Height) / 2;
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// LoadFromFile
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "LoadFromFile")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
Cleanup();
if(!Val->IsNULL())
{
Stack->PushBool(SUCCEEDED(LoadFile(Val->GetString())));
}
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// CreateButton
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "CreateButton")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
CUIButton* Btn = new CUIButton(Game);
if(!Val->IsNULL()) Btn->SetName(Val->GetString());
Stack->PushNative(Btn, true);
Btn->m_Parent = this;
m_Widgets.Add(Btn);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// CreateStatic
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "CreateStatic")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
CUIText* Sta = new CUIText(Game);
if(!Val->IsNULL()) Sta->SetName(Val->GetString());
Stack->PushNative(Sta, true);
Sta->m_Parent = this;
m_Widgets.Add(Sta);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// CreateEditor
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "CreateEditor")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
CUIEdit* Edi = new CUIEdit(Game);
if(!Val->IsNULL()) Edi->SetName(Val->GetString());
Stack->PushNative(Edi, true);
Edi->m_Parent = this;
m_Widgets.Add(Edi);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// CreateWindow
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "CreateWindow")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
CUIWindow* Win = new CUIWindow(Game);
if(!Val->IsNULL()) Win->SetName(Val->GetString());
Stack->PushNative(Win, true);
Win->m_Parent = this;
m_Widgets.Add(Win);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// DeleteControl / DeleteButton / DeleteStatic / DeleteEditor / DeleteWindow
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "DeleteControl")==0 || strcmp(Name, "DeleteButton")==0 || strcmp(Name, "DeleteStatic")==0 || strcmp(Name, "DeleteEditor")==0 || strcmp(Name, "DeleteWindow")==0)
{
Stack->CorrectParams(1);
CScValue* val = Stack->Pop();
CUIObject* obj = (CUIObject*)val->GetNative();
for(int i=0; i<m_Widgets.GetSize(); i++)
{
if(m_Widgets[i]==obj)
{
delete m_Widgets[i];
m_Widgets.RemoveAt(i);
if(val->GetType()==VAL_VARIABLE_REF) val->SetNULL();
}
}
Stack->PushNULL();
return S_OK;
}
else if SUCCEEDED(Game->WindowScriptMethodHook(this, Script, Stack, Name)) return S_OK;
else return CUIObject::ScCallMethod(Script, Stack, ThisStack, Name);
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CUIObject::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// SetFont
//////////////////////////////////////////////////////////////////////////
if(strcmp(Name, "SetFont")==0){
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
if(m_Font) Game->m_FontStorage->RemoveFont(m_Font);
if(Val->IsNULL())
{
m_Font = NULL;
Stack->PushBool(true);
}
else
{
m_Font = Game->m_FontStorage->AddFont(Val->GetString());
Stack->PushBool(m_Font!=NULL);
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// SetImage
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "SetImage")==0){
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
SAFE_DELETE(m_Image);
if(Val->IsNULL()){
Stack->PushBool(true);
return S_OK;
}
m_Image = new CBSprite(Game);
if(!m_Image || FAILED(m_Image->LoadFile(Val->GetString()))){
SAFE_DELETE(m_Image);
Stack->PushBool(false);
}
else Stack->PushBool(true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetImage
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetImage")==0){
Stack->CorrectParams(0);
if(!m_Image || !m_Image->m_Filename) Stack->PushNULL();
else Stack->PushString(m_Image->m_Filename);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// GetImageObject
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "GetImageObject")==0){
Stack->CorrectParams(0);
if(!m_Image) Stack->PushNULL();
else Stack->PushNative(m_Image, true);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// Focus
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "Focus")==0){
Stack->CorrectParams(0);
Focus();
Stack->PushNULL();
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// MoveAfter / MoveBefore
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "MoveAfter")==0 || strcmp(Name, "MoveBefore")==0){
Stack->CorrectParams(1);
if(m_Parent && m_Parent->m_Type == UI_WINDOW){
CUIWindow* win = (CUIWindow*)m_Parent;
int i;
bool found = false;
CScValue* val = Stack->Pop();
// find directly
if(val->IsNative()){
CUIObject* widget = (CUIObject*)val->GetNative();
for(i=0; i<win->m_Widgets.GetSize(); i++){
if(win->m_Widgets[i]==widget){
found = true;
break;
}
}
}
// find by name
else{
char* name = val->GetString();
for(i=0; i<win->m_Widgets.GetSize(); i++){
if(CBPlatform::stricmp(win->m_Widgets[i]->m_Name, name)==0){
found = true;
break;
}
}
}
if(found){
bool done=false;
for(int j=0; j<win->m_Widgets.GetSize(); j++){
if(win->m_Widgets[j]==this){
if(strcmp(Name, "MoveAfter")==0) i++;
if(j>=i) j++;
win->m_Widgets.InsertAt(i, this);
win->m_Widgets.RemoveAt(j);
done = true;
Stack->PushBool(true);
break;
}
}
if(!done) Stack->PushBool(false);
}
else Stack->PushBool(false);
}
else Stack->PushBool(false);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// MoveToBottom
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "MoveToBottom")==0){
Stack->CorrectParams(0);
if(m_Parent && m_Parent->m_Type == UI_WINDOW){
CUIWindow* win = (CUIWindow*)m_Parent;
for(int i=0; i<win->m_Widgets.GetSize(); i++){
if(win->m_Widgets[i]==this){
win->m_Widgets.RemoveAt(i);
win->m_Widgets.InsertAt(0, this);
break;
}
}
Stack->PushBool(true);
}
else Stack->PushBool(false);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// MoveToTop
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "MoveToTop")==0){
Stack->CorrectParams(0);
if(m_Parent && m_Parent->m_Type == UI_WINDOW){
CUIWindow* win = (CUIWindow*)m_Parent;
for(int i=0; i<win->m_Widgets.GetSize(); i++){
if(win->m_Widgets[i]==this){
win->m_Widgets.RemoveAt(i);
win->m_Widgets.Add(this);
break;
}
}
Stack->PushBool(true);
}
else Stack->PushBool(false);
return S_OK;
}
else return CBObject::ScCallMethod(Script, Stack, ThisStack, Name);
}
//////////////////////////////////////////////////////////////////////////
// high level scripting interface
//////////////////////////////////////////////////////////////////////////
HRESULT CAdLayer::ScCallMethod(CScScript* Script, CScStack *Stack, CScStack *ThisStack, char *Name)
{
//////////////////////////////////////////////////////////////////////////
// GetNode
//////////////////////////////////////////////////////////////////////////
if(strcmp(Name, "GetNode")==0)
{
Stack->CorrectParams(1);
CScValue* val = Stack->Pop();
int node = -1;
if(val->m_Type==VAL_INT) node = val->GetInt();
else{ // get by name
for(int i=0; i<m_Nodes.GetSize(); i++){
if( (m_Nodes[i]->m_Type==OBJECT_ENTITY && CBPlatform::stricmp(m_Nodes[i]->m_Entity->m_Name, val->GetString())==0) ||
(m_Nodes[i]->m_Type==OBJECT_REGION && CBPlatform::stricmp(m_Nodes[i]->m_Region->m_Name, val->GetString())==0)){
node = i;
break;
}
}
}
if(node<0 || node>= m_Nodes.GetSize()) Stack->PushNULL();
else{
switch(m_Nodes[node]->m_Type){
case OBJECT_ENTITY:
Stack->PushNative(m_Nodes[node]->m_Entity, true);
break;
case OBJECT_REGION:
Stack->PushNative(m_Nodes[node]->m_Region, true);
break;
default:
Stack->PushNULL();
}
}
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// AddRegion / AddEntity
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "AddRegion")==0 || strcmp(Name, "AddEntity")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
CAdSceneNode* Node = new CAdSceneNode(Game);
if(strcmp(Name, "AddRegion")==0)
{
CAdRegion* Region = new CAdRegion(Game);
if(!Val->IsNULL()) Region->SetName(Val->GetString());
Node->SetRegion(Region);
Stack->PushNative(Region, true);
}
else
{
CAdEntity* Entity = new CAdEntity(Game);
if(!Val->IsNULL()) Entity->SetName(Val->GetString());
Node->SetEntity(Entity);
Stack->PushNative(Entity, true);
}
m_Nodes.Add(Node);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// InsertRegion / InsertEntity
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "InsertRegion")==0 || strcmp(Name, "InsertEntity")==0)
{
Stack->CorrectParams(2);
int Index = Stack->Pop()->GetInt();
CScValue* Val = Stack->Pop();
CAdSceneNode* Node = new CAdSceneNode(Game);
if(strcmp(Name, "InsertRegion")==0)
{
CAdRegion* Region = new CAdRegion(Game);
if(!Val->IsNULL()) Region->SetName(Val->GetString());
Node->SetRegion(Region);
Stack->PushNative(Region, true);
}
else
{
CAdEntity* Entity = new CAdEntity(Game);
if(!Val->IsNULL()) Entity->SetName(Val->GetString());
Node->SetEntity(Entity);
Stack->PushNative(Entity, true);
}
if(Index < 0) Index = 0;
if(Index <= m_Nodes.GetSize() - 1) m_Nodes.InsertAt(Index, Node);
else m_Nodes.Add(Node);
return S_OK;
}
//////////////////////////////////////////////////////////////////////////
// DeleteNode
//////////////////////////////////////////////////////////////////////////
else if(strcmp(Name, "DeleteNode")==0)
{
Stack->CorrectParams(1);
CScValue* Val = Stack->Pop();
CAdSceneNode* ToDelete = NULL;
if(Val->IsNative())
{
CBScriptable* Temp = Val->GetNative();
for(int i=0; i<m_Nodes.GetSize(); i++)
{
if(m_Nodes[i]->m_Region==Temp || m_Nodes[i]->m_Entity==Temp)
{
ToDelete = m_Nodes[i];
break;
}
}
}
else
{
int Index = Val->GetInt();
if(Index >= 0 && Index < m_Nodes.GetSize())
{
ToDelete = m_Nodes[Index];
}
}
if(ToDelete==NULL)
{
Stack->PushBool(false);
return S_OK;
}
for(int i=0; i<m_Nodes.GetSize(); i++)
{
if(m_Nodes[i]==ToDelete)
{
SAFE_DELETE(m_Nodes[i]);
m_Nodes.RemoveAt(i);
break;
}
}
Stack->PushBool(true);
return S_OK;
}
else return CBObject::ScCallMethod(Script, Stack, ThisStack, Name);
}