Lines Matching refs:varlist
143 void Varlist_Init(Varlist *varlist, int size) in Varlist_Init() argument
147 varlist->magic = varlist_magic; in Varlist_Init()
148 varlist->list = calloc(1, sizeof(*varlist->list)); in Varlist_Init()
149 List_Init(varlist->list); in Varlist_Init()
150 varlist->vars = calloc(size + 1, sizeof(*varlist->vars)); in Varlist_Init()
153 ScriptVariant_Init(varlist->vars + i); in Varlist_Init()
154 ScriptVariant_ChangeType(varlist->vars, VT_INTEGER); in Varlist_Init()
155 varlist->vars->lVal = (LONG)size; in Varlist_Init()
159 void Varlist_Clear(Varlist *varlist) in Varlist_Clear() argument
162 clear_named_var_list(varlist->list, 1); in Varlist_Clear()
163 free(varlist->list); in Varlist_Clear()
164 varlist->list = NULL; in Varlist_Clear()
166 for(i = 1; i <= varlist->vars->lVal; i++) in Varlist_Clear()
168 ScriptVariant_Clear(varlist->vars + i); in Varlist_Clear()
170 free(varlist->vars); in Varlist_Clear()
171 varlist->vars = NULL; in Varlist_Clear()
172 varlist->magic = 0; in Varlist_Clear()
175 void Varlist_Cleanup(Varlist *varlist) in Varlist_Cleanup() argument
178 clear_named_var_list(varlist->list, 0); in Varlist_Cleanup()
179 for(i = 1; i <= varlist->vars->lVal; i++) in Varlist_Cleanup()
181 ScriptVariant_Clear(varlist->vars + i); in Varlist_Cleanup()
185 ScriptVariant *Varlist_GetByName(Varlist *varlist, char *theName) in Varlist_GetByName() argument
192 if(List_FindByName(varlist->list, theName)) in Varlist_GetByName()
194 return (ScriptVariant *)List_Retrieve(varlist->list); in Varlist_GetByName()
200 int Varlist_SetByName(Varlist *varlist, char *theName, ScriptVariant *var) in Varlist_SetByName() argument
207 if(List_FindByName(varlist->list, theName)) in Varlist_SetByName()
209 ScriptVariant_Copy((ScriptVariant *)List_Retrieve(varlist->list), var); in Varlist_SetByName()
215 List_InsertAfter(varlist->list, v, theName); in Varlist_SetByName()
220 ScriptVariant *Varlist_GetByIndex(Varlist *varlist, int index) in Varlist_GetByIndex() argument
222 if(index < 0 || index >= varlist->vars->lVal) in Varlist_GetByIndex()
226 return varlist->vars + index + 1; in Varlist_GetByIndex()
229 int Varlist_SetByIndex(Varlist *varlist, int index, ScriptVariant *var) in Varlist_SetByIndex() argument
235 else if(index >= varlist->vars->lVal) in Varlist_SetByIndex()
237 __reallocto(varlist->vars, varlist->vars->lVal + 1, index + 2); in Varlist_SetByIndex()
238 varlist->vars->lVal = index + 1; in Varlist_SetByIndex()
240 ScriptVariant_Copy(varlist->vars + index + 1, var); in Varlist_SetByIndex()
430 pscript->varlist = calloc(1, sizeof(*pscript->varlist)); in alloc_script()
431 Varlist_Init(pscript->varlist, max_script_vars); in alloc_script()
441 pscript->varlist = calloc(1, sizeof(*pscript->varlist)); in Script_Init()
442 Varlist_Init(pscript->varlist, max_script_vars); in Script_Init()
536 if(localclear && pscript->varlist) in Script_Clear()
540 Varlist_Clear(pscript->varlist); in Script_Clear()
541 free(pscript->varlist); in Script_Clear()
542 pscript->varlist = NULL; in Script_Clear()
546 Varlist_Cleanup(pscript->varlist); in Script_Clear()
566 pvars = pscript->varlist; // in game clear(localclear!=2) just keep this value in Script_Clear()
568 pscript->varlist = pvars; // copy it back in Script_Clear()
684 HRESULT system_isempty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_isempty() argument
694 (*pretvar)->lVal = (LONG)( (varlist[0])->vt == VT_EMPTY ); in system_isempty()
699 HRESULT system_NULL(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_NULL() argument
705 HRESULT system_exit(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_exit() argument
711 HRESULT system_rand(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_rand() argument
717 HRESULT system_srand(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_srand() argument
726 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_srand()
735 HRESULT system_getglobalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_getglobalvar() argument
745 if(varlist[0]->vt == VT_STR) in system_getglobalvar()
747 ptmpvar = Varlist_GetByName(&global_var_list, StrCache_Get(varlist[0]->strVal)); in system_getglobalvar()
749 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_getglobalvar()
773 HRESULT system_setglobalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_setglobalvar() argument
783 if(varlist[0]->vt == VT_STR) in system_setglobalvar()
785 …r)->lVal = (LONG)Varlist_SetByName(&global_var_list, StrCache_Get(varlist[0]->strVal), varlist[1]); in system_setglobalvar()
787 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_setglobalvar()
789 (*pretvar)->lVal = (LONG)Varlist_SetByIndex(&global_var_list, (LONG)ltemp, varlist[1]); in system_setglobalvar()
802 HRESULT system_getlocalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_getlocalvar() argument
812 if(varlist[0]->vt == VT_STR) in system_getlocalvar()
814 ptmpvar = Varlist_GetByName(pcurrentscript->varlist, StrCache_Get(varlist[0]->strVal)); in system_getlocalvar()
816 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_getlocalvar()
818 ptmpvar = Varlist_GetByIndex(pcurrentscript->varlist, (LONG)ltemp); in system_getlocalvar()
840 HRESULT system_setlocalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_setlocalvar() argument
850 if(varlist[0]->vt == VT_STR) in system_setlocalvar()
852 …r)->lVal = (LONG)Varlist_SetByName(pcurrentscript->varlist, StrCache_Get(varlist[0]->strVal), varl… in system_setlocalvar()
854 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_setlocalvar()
856 … (*pretvar)->lVal = (LONG)Varlist_SetByIndex(pcurrentscript->varlist, (LONG)ltemp, varlist[1]); in system_setlocalvar()
869 HRESULT system_clearlocalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_clearlocalvar() argument
872 Varlist_Cleanup(pcurrentscript->varlist); in system_clearlocalvar()
876 HRESULT system_clearglobalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_clearglobalvar() argument
884 HRESULT system_free(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_free() argument
891 if(List_Includes(&scriptheap, varlist[0]->ptrVal)) in system_free()
896 List_Includes(&scriptheap, varlist[0]->ptrVal); in system_free()
904 HRESULT system_typeof(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_typeof() argument
912 (*pretvar)->lVal = (LONG)varlist[0]->vt; in system_typeof()
1052 int mapstrings_systemvariant(ScriptVariant **varlist, int paramCount) in mapstrings_systemvariant() argument
1058 MAPSTRINGS(varlist[0], svlist, _sv_the_end, in mapstrings_systemvariant()
1066 HRESULT openbor_systemvariant(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_systemvariant() argument
1077 mapstrings_systemvariant(varlist, paramCount); in openbor_systemvariant()
1080 if(varlist[0]->vt == VT_INTEGER) in openbor_systemvariant()
1082 variantindex = varlist[0]->lVal; in openbor_systemvariant()
1105 HRESULT openbor_setsystemvariant(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setsystemvariant() argument
1118 mapstrings_systemvariant(varlist, paramCount); in openbor_setsystemvariant()
1120 arg = varlist[0]; in openbor_setsystemvariant()
1132 if(changesyspropertybyindex(variantindex, varlist[1])) in openbor_setsystemvariant()
1145 HRESULT openbor_drawstring(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawstring() argument
1159 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawstring()
1166 if(FAILED(ScriptVariant_IntegerValue(varlist[4], value + 3))) in openbor_drawstring()
1175 ScriptVariant_ToString(varlist[3], buf); in openbor_drawstring()
1186 HRESULT openbor_drawstringtoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_drawstringtoscreen() argument
1199 if(varlist[0]->vt != VT_PTR) in openbor_drawstringtoscreen()
1203 scr = (s_screen *)varlist[0]->ptrVal; in openbor_drawstringtoscreen()
1211 if(FAILED(ScriptVariant_IntegerValue(varlist[i + 1], value + i))) in openbor_drawstringtoscreen()
1217 ScriptVariant_ToString(varlist[4], buf); in openbor_drawstringtoscreen()
1228 HRESULT openbor_log(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_log() argument
1238 ScriptVariant_ToString(varlist[0], buf); in openbor_log()
1248 HRESULT openbor_drawbox(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawbox() argument
1262 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawbox()
1270 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawbox()
1303 HRESULT openbor_drawboxtoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawboxtoscreen() argument
1316 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawboxtoscreen()
1325 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawboxtoscreen()
1333 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawboxtoscreen()
1367 HRESULT openbor_drawline(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawline() argument
1381 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawline()
1389 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawline()
1422 HRESULT openbor_drawlinetoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawlinetoscreen() argument
1435 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawlinetoscreen()
1444 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawlinetoscreen()
1452 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawlinetoscreen()
1484 HRESULT openbor_drawsprite(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawsprite() argument
1495 if(varlist[0]->vt != VT_PTR) in openbor_drawsprite()
1500 spr = varlist[0]->ptrVal; in openbor_drawsprite()
1509 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawsprite()
1525 HRESULT openbor_drawspritetoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_drawspritetoscreen() argument
1537 if(varlist[0]->vt != VT_PTR) in openbor_drawspritetoscreen()
1541 spr = varlist[0]->ptrVal; in openbor_drawspritetoscreen()
1547 if(varlist[1]->vt != VT_PTR) in openbor_drawspritetoscreen()
1551 scr = varlist[1]->ptrVal; in openbor_drawspritetoscreen()
1559 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 2))) in openbor_drawspritetoscreen()
1575 HRESULT openbor_drawdot(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawdot() argument
1589 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawdot()
1597 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdot()
1630 HRESULT openbor_drawdottoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawdottoscreen() argument
1643 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawdottoscreen()
1652 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawdottoscreen()
1660 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdottoscreen()
1695 HRESULT openbor_drawscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawscreen() argument
1708 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawscreen()
1717 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawscreen()
1725 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawscreen()
1760 HRESULT openbor_getindexedvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getindexedvar() argument
1762 return system_getglobalvar(varlist, pretvar, paramCount); in openbor_getindexedvar()
1766 HRESULT openbor_setindexedvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setindexedvar() argument
1768 return system_setglobalvar(varlist, pretvar, paramCount); in openbor_setindexedvar()
1772 HRESULT openbor_getscriptvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getscriptvar() argument
1774 return system_getlocalvar(varlist, pretvar, paramCount); in openbor_getscriptvar()
1778 HRESULT openbor_setscriptvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setscriptvar() argument
1780 return system_setlocalvar(varlist, pretvar, paramCount); in openbor_setscriptvar()
1784 HRESULT openbor_getentityvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getentityvar() argument
1790 if(paramCount < 2 || varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_getentityvar()
1795 ent = (entity *)varlist[0]->ptrVal; in openbor_getentityvar()
1797 if(varlist[1]->vt == VT_STR) in openbor_getentityvar()
1799 ptmpvar = Varlist_GetByName(ent->varlist, StrCache_Get(varlist[1]->strVal)); in openbor_getentityvar()
1801 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_getentityvar()
1803 ptmpvar = Varlist_GetByIndex(ent->varlist, (LONG)ltemp); in openbor_getentityvar()
1826 HRESULT openbor_setentityvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setentityvar() argument
1831 if(paramCount < 3 || varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_setentityvar()
1836 ent = (entity *)varlist[0]->ptrVal; in openbor_setentityvar()
1840 if(varlist[1]->vt == VT_STR) in openbor_setentityvar()
1842 …(*pretvar)->lVal = (LONG)Varlist_SetByName(ent->varlist, StrCache_Get(varlist[1]->strVal), varlist… in openbor_setentityvar()
1844 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_setentityvar()
1846 (*pretvar)->lVal = (LONG)Varlist_SetByIndex(ent->varlist, (LONG)ltemp, varlist[2]); in openbor_setentityvar()
1859 HRESULT openbor_getmodelproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getmodelproperty() argument
1869 if((varlist[0]->vt != VT_INTEGER && varlist[0]->vt != VT_STR) || varlist[1]->vt != VT_INTEGER) in openbor_getmodelproperty()
1874 …iArg = varlist[0]->vt == VT_INTEGER ? varlist[0]->lVal : get_cached_model_index(StrCache_Get(varli… in openbor_getmodelproperty()
1881 switch (varlist[1]->lVal) in openbor_getmodelproperty()
1917 HRESULT openbor_changemodelproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_changemodelproperty() argument
1928 if((varlist[0]->vt != VT_INTEGER && varlist[0]->vt != VT_STR) || varlist[1]->vt != VT_INTEGER) in openbor_changemodelproperty()
1933 …iArg = varlist[0]->vt == VT_INTEGER ? varlist[0]->lVal : get_cached_model_index(StrCache_Get(varli… in openbor_changemodelproperty()
1940 switch (varlist[1]->lVal) in openbor_changemodelproperty()
1992 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changemodelproperty()
2881 int mapstrings_animationproperty(ScriptVariant **varlist, int paramCount) in mapstrings_animationproperty() argument
2905 int mapstrings_entityproperty(ScriptVariant **varlist, int paramCount) in mapstrings_entityproperty() argument
3080 MAPSTRINGS(varlist[1], eplist, _ep_the_end, in mapstrings_entityproperty()
3083 if(paramCount < 3 || varlist[1]->vt != VT_INTEGER) in mapstrings_entityproperty()
3088 ep = varlist[1]->lVal; in mapstrings_entityproperty()
3102 MAPSTRINGS(varlist[2], eplist_aiflag, _ep_aiflag_the_end, in mapstrings_entityproperty()
3109 MAPSTRINGS(varlist[2], eplist_edgerange, _ep_edgerange_the_end, in mapstrings_entityproperty()
3118 MAPSTRINGS(varlist[3], proplist_defense, _ep_defense_the_end, in mapstrings_entityproperty()
3126 MAPSTRINGS(varlist[2], proplist_edelay, _ep_edelay_the_end, in mapstrings_entityproperty()
3133 MAPSTRINGS(varlist[2], proplist_energycost, _ep_energycost_the_end, in mapstrings_entityproperty()
3140 MAPSTRINGS(varlist[2], proplist_flash, _ep_flash_the_end, in mapstrings_entityproperty()
3147 MAPSTRINGS(varlist[2], proplist_icon, _ep_icon_the_end, in mapstrings_entityproperty()
3155 MAPSTRINGS(varlist[2], proplist_knockdowncount, _ep_knockdowncount_the_end, in mapstrings_entityproperty()
3162 MAPSTRINGS(varlist[2], proplist_landframe, _ep_landframe_the_end, in mapstrings_entityproperty()
3169 MAPSTRINGS(varlist[2], proplist_maps, _ep_maps_the_end, in mapstrings_entityproperty()
3176 MAPSTRINGS(varlist[2], proplist_range, _ep_range_the_end, in mapstrings_entityproperty()
3183 MAPSTRINGS(varlist[2], proplist_running, _ep_running_the_end, in mapstrings_entityproperty()
3191 MAPSTRINGS(varlist[2], proplist_spritea, _ep_spritea_the_end, in mapstrings_entityproperty()
3198 MAPSTRINGS(varlist[2], proplist_staydown, _ep_running_the_end, in mapstrings_entityproperty()
3209 t = varlist[i]->vt; in mapstrings_entityproperty()
3210 MAPSTRINGS(varlist[i], proplist_hostile_candamage, _ep_hcd_the_end, in mapstrings_entityproperty()
3213 if(varlist[i]->vt == VT_INTEGER && t == VT_STR) in mapstrings_entityproperty()
3215 varlist[i]->lVal |= 0x80000000; //flag it in mapstrings_entityproperty()
3223 MAPSTRINGS(varlist[2], proplist_takeaction, _ep_ta_the_end, in mapstrings_entityproperty()
3230 MAPSTRINGS(varlist[2], proplist_think, _ep_th_the_end, in mapstrings_entityproperty()
3240 HRESULT openbor_getentityproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getentityproperty() argument
3258 mapstrings_entityproperty(varlist, paramCount); in openbor_getentityproperty()
3260 arg = varlist[0]; in openbor_getentityproperty()
3273 arg = varlist[1]; in openbor_getentityproperty()
3308 arg = varlist[2]; in openbor_getentityproperty()
3434 arg = varlist[ARG_ANIMATION_ID]; in openbor_getentityproperty()
3497 arg = varlist[2]; in openbor_getentityproperty()
3551 || varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
3552 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
3560 i = varlist[2]->lVal; //Animation parameter. in openbor_getentityproperty()
3561 tempint = varlist[3]->lVal; //Frame parameter. in openbor_getentityproperty()
3625 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_getentityproperty()
3678 (*pretvar)->ptrVal = (VOID *)model_get_colourmap(&(ent->modeldata), varlist[2]->lVal + 1); in openbor_getentityproperty()
3707 if(FAILED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
3718 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_getentityproperty()
3804 arg = varlist[2]; in openbor_getentityproperty()
3822 arg = varlist[2]; in openbor_getentityproperty()
3889 arg = varlist[2]; in openbor_getentityproperty()
3919 if(varlist[2]->vt != VT_INTEGER) in openbor_getentityproperty()
3928 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
3929 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
3998 arg = varlist[2]; in openbor_getentityproperty()
4142 arg = varlist[2]; in openbor_getentityproperty()
4290 arg = varlist[2]; in openbor_getentityproperty()
4344 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4345 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
4351 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4352 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
4436 arg = varlist[2]; in openbor_getentityproperty()
4474 if(FAILED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
4715 arg = varlist[2]; in openbor_getentityproperty()
4806 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4807 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
4813 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4814 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
4867 arg = varlist[2]; in openbor_getentityproperty()
4994 ltemp = varlist[2]->lVal; in openbor_getentityproperty()
4995 arg = varlist[3]; in openbor_getentityproperty()
4996 arg1 = varlist[4]; in openbor_getentityproperty()
5074 arg = varlist[2]; in openbor_getentityproperty()
5274 if(FAILED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
5324 HRESULT openbor_changeentityproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCo… in openbor_changeentityproperty() argument
5389 mapstrings_entityproperty(varlist, paramCount); in openbor_changeentityproperty()
5391 if(varlist[0]->vt != VT_PTR && varlist[0]->vt != VT_EMPTY) in openbor_changeentityproperty()
5396 ent = (entity *)varlist[0]->ptrVal; //retrieve the entity in openbor_changeentityproperty()
5402 if(varlist[1]->vt != VT_INTEGER) in openbor_changeentityproperty()
5404 if(varlist[1]->vt != VT_STR) in openbor_changeentityproperty()
5411 propind = varlist[1]->lVal; in openbor_changeentityproperty()
5417 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5425 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5433 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
5435 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
5446 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5448 switch(varlist[2]->lVal) in openbor_changeentityproperty()
5537 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5545 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5553 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5556 if(paramCount < 4 || SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
5565 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5573 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5581 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5589 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
5598 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5606 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5614 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5622 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
5630 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5638 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5646 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5654 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5662 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5670 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5682 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
5684 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
5709 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
5710 SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
5718 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5726 ent->collided_entity = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
5731 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5739 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5747 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5755 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
5760 tempmodel = findmodel((char *)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
5773 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
5775 SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
5781 …if(paramCount >= 5 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltem… in openbor_changeentityproperty()
5785 …if(paramCount >= 6 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltem… in openbor_changeentityproperty()
5789 …if(paramCount >= 7 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltem… in openbor_changeentityproperty()
5793 …if(paramCount >= 8 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltem… in openbor_changeentityproperty()
5797 …if(paramCount >= 9 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[8], &dbltem… in openbor_changeentityproperty()
5801 … if(paramCount >= 10 && ltemp2 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[9], &dbltemp))) in openbor_changeentityproperty()
5810 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
5818 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
5826 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5834 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5842 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5846 if(paramCount >= 3 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
5850 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
5854 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
5858 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_changeentityproperty()
5862 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[7], <emp))) in openbor_changeentityproperty()
5871 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5879 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
5881 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
5892 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
5894 switch(varlist[2]->lVal) in openbor_changeentityproperty()
5917 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5931 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
5937 switch(varlist[2]->lVal) in openbor_changeentityproperty()
5941 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
5953 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
5964 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
5981 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5989 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5997 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6005 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6013 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6021 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6029 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6037 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6045 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6053 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6061 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6069 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6077 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6085 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6101 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6109 ent->hithead = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
6114 ent->landed_on_platform = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
6119 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6127 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6135 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6146 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6148 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6169 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6173 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6181 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6189 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6197 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6205 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6213 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6221 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6229 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6237 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6239 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6248 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6252 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6260 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6266 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6280 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6284 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6292 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6296 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6304 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6312 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6320 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6328 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6336 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6344 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6352 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6364 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6372 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6384 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6389 tempstr = (char *)StrCache_Get(varlist[2]->strVal); in openbor_changeentityproperty()
6390 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6402 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6410 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6418 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6426 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6434 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6450 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6454 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6458 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6462 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6466 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6470 if(paramCount >= 8 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
6478 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6483 strcpy(ent->name, (char *)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
6488 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6492 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6500 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6508 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6516 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6524 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6532 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6540 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6548 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6556 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6564 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6572 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6580 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6589 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6591 SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6599 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6607 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6615 ent->opponent = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
6620 ent->custom_target = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
6625 ent->owner = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
6630 ent->parent = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
6635 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6643 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6647 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6651 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6659 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6667 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6676 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6684 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6696 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6698 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6719 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6723 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6727 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6731 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6735 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6744 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6752 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6760 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6768 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6776 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6784 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6792 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6800 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6808 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6816 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6824 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6826 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6837 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
6842 …if(!validanim(ent, varlist[3]->lVal) || !(ent->modeldata.animation[varlist[3]->lVal]->numframes >=… in openbor_changeentityproperty()
6847 … i = ent->modeldata.animation[varlist[3]->lVal]->sprite[varlist[4]->lVal]; //Get sprite index. in openbor_changeentityproperty()
6853 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
6862 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
6870 if(varlist[5]->vt != VT_STR) in openbor_changeentityproperty()
6875 strcpy(sprite_map[i].node->filename, (char *)StrCache_Get(varlist[5]->strVal)); in openbor_changeentityproperty()
6899 sprite_map[i].node->sprite = (VOID *)varlist[5]->ptrVal; in openbor_changeentityproperty()
6911 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6919 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6927 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6929 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6942 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6946 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6954 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6962 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6976 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6988 ent->subentity = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
6997 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7005 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7013 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7021 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7029 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7037 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7045 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7053 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7061 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7069 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7078 if(varlist[2]->vt == VT_EMPTY) in openbor_changeentityproperty()
7084 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7091 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7102 if(varlist[2]->vt == VT_EMPTY) in openbor_changeentityproperty()
7107 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7114 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7124 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7132 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7140 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7148 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7156 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7164 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7172 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7191 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7197 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7204 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7208 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7212 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7220 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7228 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7236 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7244 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7251 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
7263 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7266 if(paramCount < 4 || SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
7285 HRESULT openbor_tossentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_tossentity() argument
7295 ent = (entity *)varlist[0]->ptrVal; //retrieve the entity in openbor_tossentity()
7306 ScriptVariant_DecimalValue(varlist[1], &height); in openbor_tossentity()
7310 ScriptVariant_DecimalValue(varlist[2], &speedx); in openbor_tossentity()
7314 ScriptVariant_DecimalValue(varlist[3], &speedz); in openbor_tossentity()
7359 int mapstrings_playerproperty(ScriptVariant **varlist, int paramCount) in mapstrings_playerproperty() argument
7399 MAPSTRINGS(varlist[1], proplist, _pp_the_end, in mapstrings_playerproperty()
7406 HRESULT openbor_getplayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getplayerproperty() argument
7420 mapstrings_playerproperty(varlist, paramCount); in openbor_getplayerproperty()
7423 arg = varlist[0]; in openbor_getplayerproperty()
7436 arg = varlist[1]; in openbor_getplayerproperty()
7586 frm = varlist[2]; in openbor_getplayerproperty()
7606 frm = varlist[2]; in openbor_getplayerproperty()
7700 HRESULT openbor_changeplayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCo… in openbor_changeplayerproperty() argument
7717 mapstrings_playerproperty(varlist, paramCount); in openbor_changeplayerproperty()
7718 arg = varlist[0]; in openbor_changeplayerproperty()
7731 if(varlist[1]->vt != VT_INTEGER) in openbor_changeplayerproperty()
7733 if(varlist[1]->vt != VT_STR) in openbor_changeplayerproperty()
7739 prop = varlist[1]->lVal; in openbor_changeplayerproperty()
7741 arg = varlist[2]; in openbor_changeplayerproperty()
7767 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeplayerproperty()
7983 value = varlist[3]; in openbor_changeplayerproperty()
8015 value = varlist[3]; in openbor_changeplayerproperty()
8930 HRESULT openbor_checkhole(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkhole() argument
8944 arg = varlist[0]; in openbor_checkhole()
8950 arg = varlist[1]; in openbor_checkhole()
8958 arg = varlist[2]; in openbor_checkhole()
8972 HRESULT openbor_checkholeindex(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkholeindex() argument
8986 arg = varlist[0]; in openbor_checkholeindex()
8992 arg = varlist[1]; in openbor_checkholeindex()
9002 arg = varlist[2]; in openbor_checkholeindex()
9017 HRESULT openbor_checkbase(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkbase() argument
9033 arg = varlist[0]; in openbor_checkbase()
9039 arg = varlist[1]; in openbor_checkbase()
9045 arg = varlist[2]; in openbor_checkbase()
9053 arg = varlist[3]; in openbor_checkbase()
9071 HRESULT openbor_checkwall(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkwall() argument
9087 arg = varlist[0]; in openbor_checkwall()
9093 arg = varlist[1]; in openbor_checkwall()
9101 arg = varlist[2]; in openbor_checkwall()
9117 HRESULT openbor_checkwallindex(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkwallindex() argument
9133 arg = varlist[0]; in openbor_checkwallindex()
9139 arg = varlist[1]; in openbor_checkwallindex()
9147 arg = varlist[2]; in openbor_checkwallindex()
9163 HRESULT openbor_checkplatformbelow(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_checkplatformbelow() argument
9179 arg = varlist[0]; in openbor_checkplatformbelow()
9185 arg = varlist[1]; in openbor_checkplatformbelow()
9191 arg = varlist[2]; in openbor_checkplatformbelow()
9203 HRESULT openbor_checkplatformabove(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_checkplatformabove() argument
9219 arg = varlist[0]; in openbor_checkplatformabove()
9225 arg = varlist[1]; in openbor_checkplatformabove()
9231 arg = varlist[2]; in openbor_checkplatformabove()
9243 HRESULT openbor_checkplatformbetween(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCo… in openbor_checkplatformbetween() argument
9259 arg = varlist[0]; in openbor_checkplatformbetween()
9265 arg = varlist[1]; in openbor_checkplatformbetween()
9271 arg = varlist[2]; in openbor_checkplatformbetween()
9277 arg = varlist[3]; in openbor_checkplatformbetween()
9289 HRESULT openbor_checkbasemap(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkbasemap() argument
9303 arg = varlist[0]; in openbor_checkbasemap()
9309 arg = varlist[1]; in openbor_checkbasemap()
9321 HRESULT openbor_checkbasemapindex(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkbasemapindex() argument
9335 arg = varlist[0]; in openbor_checkbasemapindex()
9341 arg = varlist[1]; in openbor_checkbasemapindex()
9353 HRESULT openbor_generatebasemap(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_generatebasemap() argument
9365 if ( FAILED(ScriptVariant_IntegerValue(varlist[0], &index)) ) in openbor_generatebasemap()
9372 if ( FAILED(ScriptVariant_IntegerValue(varlist[7], &x_cont)) ) in openbor_generatebasemap()
9378 …if ( FAILED(ScriptVariant_DecimalValue(varlist[1], &rx)) || FAILED(ScriptVariant_DecimalValue(varl… in openbor_generatebasemap()
9379 …FAILED(ScriptVariant_DecimalValue(varlist[3], &x_size)) || FAILED(ScriptVariant_DecimalValue(varli… in openbor_generatebasemap()
9380 …FAILED(ScriptVariant_DecimalValue(varlist[5], &min_y)) || FAILED(ScriptVariant_DecimalValue(varlis… in openbor_generatebasemap()
9392 HRESULT openbor_openfilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_openfilestream() argument
9414 arg = varlist[0]; in openbor_openfilestream()
9426 arg = varlist[1]; in openbor_openfilestream()
9504 HRESULT openbor_getfilestreamline(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getfilestreamline() argument
9518 arg = varlist[0]; in openbor_getfilestreamline()
9541 HRESULT openbor_getfilestreamargument(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_getfilestreamargument() argument
9553 arg = varlist[0]; in openbor_getfilestreamargument()
9559 arg = varlist[1]; in openbor_getfilestreamargument()
9566 if(varlist[2]->vt != VT_STR) in openbor_getfilestreamargument()
9571 argtype = (char *)StrCache_Get(varlist[2]->strVal); in openbor_getfilestreamargument()
9602 HRESULT openbor_filestreamnextline(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_filestreamnextline() argument
9615 arg = varlist[0]; in openbor_filestreamnextline()
9635 HRESULT openbor_getfilestreamposition(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_getfilestreamposition() argument
9646 arg = varlist[0]; in openbor_getfilestreamposition()
9657 HRESULT openbor_setfilestreamposition(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_setfilestreamposition() argument
9669 arg = varlist[0]; in openbor_setfilestreamposition()
9675 arg = varlist[1]; in openbor_setfilestreamposition()
9685 HRESULT openbor_filestreamappend(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_filestreamappend() argument
9700 arg = varlist[0]; in openbor_filestreamappend()
9708 arg = varlist[2]; in openbor_filestreamappend()
9715 arg = varlist[1]; in openbor_filestreamappend()
9724 if ( varlist[3]->vt != VT_STR ) goto append_error; in openbor_filestreamappend()
9726 argtype = (char *)StrCache_Get(varlist[3]->strVal); in openbor_filestreamappend()
9738 byte = (unsigned char)varlist[1]->lVal; in openbor_filestreamappend()
9786 HRESULT openbor_createfilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_createfilestream() argument
9816 HRESULT openbor_savefilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_savefilestream() argument
9833 arg = varlist[0]; in openbor_savefilestream()
9840 arg = varlist[1]; in openbor_savefilestream()
9849 patharg = (char *)StrCache_Get(varlist[2]->strVal); in openbor_savefilestream()
9850 if( varlist[2]->vt != VT_STR ) in openbor_savefilestream()
9859 bytearg = (char *)StrCache_Get(varlist[3]->strVal); in openbor_savefilestream()
9914 HRESULT openbor_closefilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_closefilestream() argument
9926 arg = varlist[0]; in openbor_closefilestream()
9941 HRESULT openbor_damageentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_damageentity() argument
9958 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_damageentity()
9967 if(paramCount >= 2 && varlist[1]->ptrVal) in openbor_damageentity()
9969 other = (entity *)(varlist[1])->ptrVal; in openbor_damageentity()
9978 if(FAILED(ScriptVariant_IntegerValue((varlist[2]), &force))) in openbor_damageentity()
9986 if(FAILED(ScriptVariant_IntegerValue((varlist[3]), &drop))) in openbor_damageentity()
9994 if(FAILED(ScriptVariant_IntegerValue((varlist[4]), &type))) in openbor_damageentity()
10041 HRESULT openbor_getcomputeddamage(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getcomputeddamage() argument
10062 defender = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_getcomputeddamage()
10069 if(varlist[1]->ptrVal) in openbor_getcomputeddamage()
10071 attacker = (entity *)(varlist[1])->ptrVal; in openbor_getcomputeddamage()
10074 if(FAILED(ScriptVariant_IntegerValue((varlist[2]), &force))) in openbor_getcomputeddamage()
10082 if(FAILED(ScriptVariant_IntegerValue((varlist[3]), &drop))) in openbor_getcomputeddamage()
10090 if(FAILED(ScriptVariant_IntegerValue((varlist[4]), &type))) in openbor_getcomputeddamage()
10121 HRESULT openbor_killentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_killentity() argument
10133 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_killentity()
10156 HRESULT openbor_dograb(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_dograb() argument
10181 ScriptVariant_IntegerValue(varlist[ARG_ADJUST], &adjust); in openbor_dograb()
10185 attacker = (entity *)(varlist[ARG_ATTACKER])->ptrVal; in openbor_dograb()
10186 target = (entity *)(varlist[ARG_TARGET])->ptrVal; in openbor_dograb()
10218 HRESULT openbor_findtarget(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_findtarget() argument
10227 ScriptVariant_IntegerValue(varlist[2], &i); in openbor_findtarget()
10238 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_findtarget()
10244 if(paramCount > 1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) in openbor_findtarget()
10264 HRESULT openbor_checkrange(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkrange() argument
10277 if(varlist[0]->vt != VT_PTR || varlist[1]->vt != VT_PTR) in openbor_checkrange()
10282 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_checkrange()
10283 target = (entity *)(varlist[1])->ptrVal; //retrieve the target in openbor_checkrange()
10290 if(paramCount > 2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &ani))) in openbor_checkrange()
10316 HRESULT openbor_clearspawnentry(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_clearspawnentry() argument
10357 int mapstrings_setspawnentry(ScriptVariant **varlist, int paramCount) in mapstrings_setspawnentry() argument
10392 MAPSTRINGS(varlist[0], proplist, _sse_the_end, in mapstrings_setspawnentry()
10399 HRESULT openbor_setspawnentry(ScriptVariant **varlist, ScriptVariant **pretvar, int paramCount) in openbor_setspawnentry() argument
10416 mapstrings_setspawnentry(varlist, paramCount); in openbor_setspawnentry()
10417 if(varlist[0]->vt != VT_INTEGER) in openbor_setspawnentry()
10419 if(varlist[0]->vt != VT_STR) in openbor_setspawnentry()
10427 prop = varlist[0]->lVal; in openbor_setspawnentry()
10429 arg = varlist[1]; in openbor_setspawnentry()
10559 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_setspawnentry()
10570 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_setspawnentry()
10643 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_setspawnentry()
10654 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_setspawnentry()
10754 HRESULT openbor_spawn(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_spawn() argument
10780 HRESULT openbor_projectile(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_projectile() argument
10794 if(paramCount >= 1 && varlist[0]->vt == VT_INTEGER && varlist[0]->lVal) in openbor_projectile()
10798 varlist++; in openbor_projectile()
10805 if(paramCount >= 1 && varlist[0]->vt == VT_STR) in openbor_projectile()
10807 name = StrCache_Get(varlist[0]->strVal); in openbor_projectile()
10811 if(paramCount >= 2 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[1], &temp))) in openbor_projectile()
10825 if(paramCount >= 3 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &temp))) in openbor_projectile()
10839 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &temp))) in openbor_projectile()
10853 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_projectile()
10867 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_projectile()
10886 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_projectile()
10892 if(paramCount >= 8 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[7], <emp))) in openbor_projectile()
10934 HRESULT openbor_rgbcolor(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_rgbcolor() argument
10942 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &r))) in openbor_rgbcolor()
10946 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &g))) in openbor_rgbcolor()
10950 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &b))) in openbor_rgbcolor()
10984 int mapstrings_playerkeys(ScriptVariant **varlist, int paramCount) in mapstrings_playerkeys() argument
11009 MAPSTRINGS(varlist[i], proplist, _pk_the_end, in mapstrings_playerkeys()
11017 HRESULT openbor_playerkeys(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playerkeys() argument
11034 mapstrings_playerkeys(varlist, paramCount); in openbor_playerkeys()
11036 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), <emp))) in openbor_playerkeys()
11045 if(SUCCEEDED(ScriptVariant_IntegerValue((varlist[1]), <emp))) in openbor_playerkeys()
11069 arg = varlist[i]; in openbor_playerkeys()
11134 HRESULT openbor_playmusic(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playmusic() argument
11146 if(varlist[0]->vt != VT_STR) in openbor_playmusic()
11151 thename = StrCache_Get(varlist[0]->strVal); in openbor_playmusic()
11155 loop = (int)ScriptVariant_IsTrue(varlist[1]); in openbor_playmusic()
11160 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &offset))) in openbor_playmusic()
11172 HRESULT openbor_fademusic(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_fademusic() argument
11181 if(FAILED(ScriptVariant_DecimalValue(varlist[0], &value))) in openbor_fademusic()
11190 strncpy(musicname, StrCache_Get(varlist[1]->strVal), MAX_STR_LEN - 1); in openbor_fademusic()
11191 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &values[0]))) in openbor_fademusic()
11195 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &values[1]))) in openbor_fademusic()
11210 HRESULT openbor_setmusicvolume(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setmusicvolume() argument
11219 if(FAILED(ScriptVariant_IntegerValue(varlist[0], channels))) in openbor_setmusicvolume()
11226 if(FAILED(ScriptVariant_IntegerValue(varlist[1], channels + 1))) in openbor_setmusicvolume()
11245 HRESULT openbor_setmusictempo(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setmusictempo() argument
11254 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &new_tempo))) in openbor_setmusictempo()
11264 HRESULT openbor_pausemusic(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_pausemusic() argument
11272 pause = (int)ScriptVariant_IsTrue(varlist[0]); in openbor_pausemusic()
11279 HRESULT openbor_pausesamples(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_pausesamples() argument
11287 pause = (int)ScriptVariant_IsTrue(varlist[0]); in openbor_pausesamples()
11294 HRESULT openbor_pausesample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_pausesample() argument
11303 pause = (int)ScriptVariant_IsTrue(varlist[0]); in openbor_pausesample()
11304 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &channel))) in openbor_pausesample()
11313 HRESULT openbor_querychannel(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_querychannel() argument
11316 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_querychannel()
11330 HRESULT openbor_stopchannel(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_stopchannel() argument
11334 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_stopchannel()
11347 HRESULT openbor_isactivesample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_isactivesample() argument
11350 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_isactivesample()
11365 HRESULT openbor_sampleid(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_sampleid() argument
11368 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_sampleid()
11383 HRESULT openbor_playsample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playsample() argument
11390 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_playsample()
11414 HRESULT openbor_loadsample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadsample() argument
11422 if(varlist[0]->vt != VT_STR) in openbor_loadsample()
11429 if(varlist[1]->vt == VT_INTEGER) in openbor_loadsample()
11431 arg = varlist[1]->lVal; in openbor_loadsample()
11440 (*pretvar)->lVal = (LONG)sound_load_sample(StrCache_Get(varlist[0]->strVal), packfile, arg); in openbor_loadsample()
11450 HRESULT openbor_unloadsample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_unloadsample() argument
11459 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &id))) in openbor_unloadsample()
11473 HRESULT openbor_fadeout(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_fadeout() argument
11483 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &type))) in openbor_fadeout()
11487 if(FAILED(ScriptVariant_IntegerValue((varlist[1]), &speed))) in openbor_fadeout()
11500 HRESULT openbor_changepalette(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changepalette() argument
11511 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &index))) in openbor_changepalette()
11526 HRESULT openbor_changelight(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changelight() argument
11538 arg = varlist[0]; in openbor_changelight()
11548 arg = varlist[1]; in openbor_changelight()
11567 HRESULT openbor_changeshadowcolor(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changeshadowcolor() argument
11579 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &c))) in openbor_changeshadowcolor()
11588 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &a))) in openbor_changeshadowcolor()
11614 int mapstrings_textobjproperty(ScriptVariant **varlist, int paramCount) in mapstrings_textobjproperty() argument
11635 MAPSTRINGS(varlist[1], proplist, _top_the_end, in mapstrings_textobjproperty()
11641 HRESULT openbor_gettextobjproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_gettextobjproperty() argument
11652 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_gettextobjproperty()
11659 mapstrings_textobjproperty(varlist, paramCount); in openbor_gettextobjproperty()
11667 if(varlist[1]->vt != VT_INTEGER) in openbor_gettextobjproperty()
11669 if(varlist[1]->vt != VT_STR) in openbor_gettextobjproperty()
11676 propind = varlist[1]->lVal; in openbor_gettextobjproperty()
11730 HRESULT openbor_changetextobjproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_changetextobjproperty() argument
11746 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_changetextobjproperty()
11752 mapstrings_textobjproperty(varlist, paramCount); in openbor_changetextobjproperty()
11765 if(varlist[1]->vt != VT_INTEGER) in openbor_changetextobjproperty()
11771 propind = varlist[1]->lVal; in openbor_changetextobjproperty()
11777 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11789 ScriptVariant_ToString(varlist[2], buf); in openbor_changetextobjproperty()
11796 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11808 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11821 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11833 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11852 ScriptVariant_ToString(varlist[2], buf); in openbor_changetextobjproperty()
11858 HRESULT openbor_settextobj(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_settextobj() argument
11874 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_settextobj()
11891 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &X))) in openbor_settextobj()
11895 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &Y))) in openbor_settextobj()
11899 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &F))) in openbor_settextobj()
11903 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &Z))) in openbor_settextobj()
11907 ScriptVariant_ToString(varlist[5], buf); in openbor_settextobj()
11908 if(paramCount >= 7 && FAILED(ScriptVariant_IntegerValue(varlist[6], &T))) in openbor_settextobj()
11932 HRESULT openbor_cleartextobj(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_cleartextobj() argument
11945 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_cleartextobj()
12010 int mapstrings_layerproperty(ScriptVariant **varlist, int paramCount) in mapstrings_layerproperty() argument
12054 MAPSTRINGS(varlist[0], typelist, _glt_the_end, in mapstrings_layerproperty()
12056 MAPSTRINGS(varlist[2], proplist, _glp_the_end, in mapstrings_layerproperty()
12433 HRESULT openbor_getlayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getlayerproperty() argument
12444 mapstrings_layerproperty(varlist, paramCount); in openbor_getlayerproperty()
12446 type = varlist[0]->lVal; in openbor_getlayerproperty()
12447 propind = varlist[2]->lVal; in openbor_getlayerproperty()
12449 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_getlayerproperty()
12483 HRESULT openbor_changelayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_changelayerproperty() argument
12495 mapstrings_layerproperty(varlist, paramCount); in openbor_changelayerproperty()
12497 type = varlist[0]->lVal; in openbor_changelayerproperty()
12498 propind = varlist[2]->lVal; in openbor_changelayerproperty()
12500 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_changelayerproperty()
12512 if(FAILED(_changelayerproperty(layer, propind, varlist[3]))) in openbor_changelayerproperty()
12531 HRESULT openbor_shutdown(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_shutdown() argument
12537 if(paramCount > 0 && FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_shutdown()
12541 if(paramCount > 1 && varlist[1]->vt != VT_STR) in openbor_shutdown()
12546 …borShutdown((LONG)ltemp, paramCount > 1 ? StrCache_Get(varlist[1]->strVal) : (DEFAULT_SHUTDOWN_ME… in openbor_shutdown()
12555 HRESULT openbor_jumptobranch(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_jumptobranch() argument
12564 if(varlist[0]->vt != VT_STR) in openbor_jumptobranch()
12569 …strncpy(branch_name, StrCache_Get(varlist[0]->strVal), MIN(MAX_NAME_LEN, MAX_STR_VAR_LEN)); // cop… in openbor_jumptobranch()
12573 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_jumptobranch()
12592 HRESULT openbor_bindentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_bindentity() argument
12606 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_bindentity()
12612 other = (entity *)(varlist[1])->ptrVal; in openbor_bindentity()
12630 arg = varlist[2]; in openbor_bindentity()
12646 arg = varlist[3]; in openbor_bindentity()
12661 arg = varlist[4]; in openbor_bindentity()
12676 arg = varlist[5]; in openbor_bindentity()
12690 arg = varlist[6]; in openbor_bindentity()
12704 arg = varlist[7]; in openbor_bindentity()
12721 HRESULT openbor_array(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_array() argument
12726 if(paramCount < 1 || FAILED(ScriptVariant_IntegerValue(varlist[0], &size)) || size < 0) in openbor_array()
12753 HRESULT openbor_size(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_size() argument
12756 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_size()
12780 HRESULT openbor_get(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_get() argument
12786 …if(paramCount < 2 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_get()
12791 if(varlist[1]->vt == VT_STR) in openbor_get()
12793 ptmpvar = Varlist_GetByName(array, StrCache_Get(varlist[1]->strVal)); in openbor_get()
12795 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_get()
12821 HRESULT openbor_set(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_set() argument
12827 …if(paramCount < 3 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_set()
12832 if(varlist[1]->vt == VT_STR) in openbor_set()
12834 Varlist_SetByName(array, StrCache_Get(varlist[1]->strVal), varlist[2]); in openbor_set()
12836 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_set()
12838 Varlist_SetByIndex(array, (LONG)ltemp, varlist[2]); in openbor_set()
12853 HRESULT openbor_delete(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_delete() argument
12859 …if(paramCount < 2 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_delete()
12864 if(varlist[1]->vt == VT_STR) in openbor_delete()
12866 if ( !Varlist_DeleteByName(array, StrCache_Get(varlist[1]->strVal)) ) goto set_error; in openbor_delete()
12868 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], &index))) in openbor_delete()
12885 HRESULT openbor_add(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_add() argument
12891 …if(paramCount < 2 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_add()
12896 if(varlist[1]->vt == VT_STR) in openbor_add()
12898 Varlist_SetByName(array, StrCache_Get(varlist[1]->strVal), varlist[2]); in openbor_add()
12900 else if( SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], &index)) ) in openbor_add()
12902 if ( !Varlist_AddByIndex(array, (int)index, varlist[2]) ) goto add_error; in openbor_add()
12917 HRESULT openbor_reset(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_reset() argument
12920 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_reset()
12937 HRESULT openbor_next(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_next() argument
12940 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_next()
12956 HRESULT openbor_previous(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_previous() argument
12959 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_previous()
12975 HRESULT openbor_islast(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_islast() argument
12978 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_islast()
12994 HRESULT openbor_isfirst(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_isfirst() argument
12997 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_isfirst()
13013 HRESULT openbor_key(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_key() argument
13017 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_key()
13041 HRESULT openbor_value(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_value() argument
13045 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_value()
13068 HRESULT openbor_allocscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_allocscreen() argument
13078 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &w))) in openbor_allocscreen()
13082 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &h))) in openbor_allocscreen()
13112 HRESULT openbor_clearscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_clearscreen() argument
13121 if(varlist[0]->vt != VT_PTR) in openbor_clearscreen()
13126 screen = (s_screen *)varlist[0]->ptrVal; in openbor_clearscreen()
13142 int mapstrings_drawmethodproperty(ScriptVariant **varlist, int paramCount) in mapstrings_drawmethodproperty() argument
13195 MAPSTRINGS(varlist[1], proplist, _dm_the_end, in mapstrings_drawmethodproperty()
13202 HRESULT openbor_changedrawmethod(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changedrawmethod() argument
13215 mapstrings_drawmethodproperty(varlist, paramCount); in openbor_changedrawmethod()
13217 if(varlist[0]->vt == VT_EMPTY) in openbor_changedrawmethod()
13221 else if(varlist[0]->vt == VT_PTR) in openbor_changedrawmethod()
13223 e = (entity *)varlist[0]->ptrVal; in openbor_changedrawmethod()
13239 switch(varlist[1]->lVal) in openbor_changedrawmethod()
13243 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13250 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13257 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13264 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13271 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13278 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13285 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13292 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13303 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13308 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &temp))) in openbor_changedrawmethod()
13313 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &temp))) in openbor_changedrawmethod()
13318 if(FAILED(ScriptVariant_IntegerValue(varlist[5], &temp))) in openbor_changedrawmethod()
13325 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13332 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13339 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13346 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13354 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13361 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13368 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13375 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13382 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13389 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13396 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13403 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13410 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13420 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13427 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13434 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13441 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13448 if(varlist[2]->vt != VT_PTR && varlist[2]->vt != VT_EMPTY ) in openbor_changedrawmethod()
13452 pmethod->table = (void *)varlist[2]->ptrVal; in openbor_changedrawmethod()
13455 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13462 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13469 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13476 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13483 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13490 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13497 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13504 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13511 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13518 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13525 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13544 HRESULT openbor_getdrawmethod(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getdrawmethod() argument
13562 mapstrings_drawmethodproperty(varlist, paramCount); in openbor_getdrawmethod()
13564 if(varlist[0]->vt == VT_EMPTY) in openbor_getdrawmethod()
13568 else if(varlist[0]->vt == VT_PTR) in openbor_getdrawmethod()
13570 e = (entity *)varlist[0]->ptrVal; in openbor_getdrawmethod()
13588 switch(varlist[1]->lVal) in openbor_getdrawmethod()
13717 HRESULT openbor_setdrawmethod(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setdrawmethod() argument
13730 if(varlist[0]->vt == VT_EMPTY) in openbor_setdrawmethod()
13734 else if(varlist[0]->vt == VT_PTR) in openbor_setdrawmethod()
13736 e = (entity *)varlist[0]->ptrVal; in openbor_setdrawmethod()
13755 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_setdrawmethod()
13761 if(paramCount >= 14 && varlist[13]->vt != VT_PTR && varlist[13]->vt != VT_EMPTY) in openbor_setdrawmethod()
13768 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 2))) in openbor_setdrawmethod()
13788 pmethod->table = (unsigned char *)varlist[13]->ptrVal; in openbor_setdrawmethod()
13805 HRESULT openbor_updateframe(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_updateframe() argument
13817 if(varlist[0]->vt == VT_EMPTY) in openbor_updateframe()
13821 else if(varlist[0]->vt == VT_PTR) in openbor_updateframe()
13823 e = (entity *)varlist[0]->ptrVal; in openbor_updateframe()
13835 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &f))) in openbor_updateframe()
13850 HRESULT openbor_executeanimation(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_executeanimation() argument
13861 if(varlist[0]->vt == VT_EMPTY) in openbor_executeanimation()
13865 else if(varlist[0]->vt == VT_PTR) in openbor_executeanimation()
13867 e = (entity *)varlist[0]->ptrVal; in openbor_executeanimation()
13896 if(paramCount > 1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) in openbor_executeanimation()
13900 if(paramCount > 2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) in openbor_executeanimation()
13914 HRESULT openbor_performattack(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_performattack() argument
13925 if(varlist[0]->vt == VT_EMPTY) in openbor_performattack()
13929 else if(varlist[0]->vt == VT_PTR) in openbor_performattack()
13931 e = (entity *)varlist[0]->ptrVal; in openbor_performattack()
13959 if(paramCount > 1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) in openbor_performattack()
13963 if(paramCount > 2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) in openbor_performattack()
13977 HRESULT openbor_setidle(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setidle() argument
13989 if(varlist[0]->vt == VT_EMPTY) in openbor_setidle()
13993 else if(varlist[0]->vt == VT_PTR) in openbor_setidle()
13995 e = (entity *)varlist[0]->ptrVal; in openbor_setidle()
14027 if(paramCount > 1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) in openbor_setidle()
14031 if(paramCount > 2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) in openbor_setidle()
14035 if(paramCount > 3 && FAILED(ScriptVariant_IntegerValue(varlist[3], &stalladd))) in openbor_setidle()
14054 HRESULT openbor_getentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getentity() argument
14065 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getentity()
14088 HRESULT openbor_loadmodel(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadmodel() argument
14096 if(varlist[0]->vt != VT_STR) in openbor_loadmodel()
14103 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &unload))) in openbor_loadmodel()
14108 model = load_cached_model(StrCache_Get(varlist[0]->strVal), "openbor_loadmodel", (char)unload); in openbor_loadmodel()
14112 model_cache[model->index].selectable = (char)ScriptVariant_IsTrue(varlist[2]); in openbor_loadmodel()
14128 HRESULT openbor_unload_model(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_unload_model() argument
14136 if(varlist[0]->vt != VT_STR) in openbor_unload_model()
14141 model = load_cached_model(StrCache_Get(varlist[0]->strVal), "openbor_loadmodel", (char)unload); in openbor_unload_model()
14163 HRESULT openbor_loadsprite(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadsprite() argument
14172 if(varlist[0]->vt != VT_STR) in openbor_loadsprite()
14178 if((spr = loadsprite2(StrCache_Get(varlist[0]->strVal), NULL, NULL))) in openbor_loadsprite()
14181 if(paramCount > 1 && (mask = loadsprite2(StrCache_Get(varlist[1]->strVal), NULL, NULL))) in openbor_loadsprite()
14198 HRESULT openbor_menu_options(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_menu_options() argument
14208 HRESULT openbor_hallfame(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_hallfame() argument
14217 HRESULT openbor_playwebm(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playwebm() argument
14227 if(varlist[0]->vt != VT_STR) in openbor_playwebm()
14234 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &temp))) in openbor_playwebm()
14242 (*pretvar)->lVal = (LONG)playwebm(StrCache_Get(varlist[0]->strVal), (int)temp); in openbor_playwebm()
14257 HRESULT openbor_playgif(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playgif() argument
14269 if(varlist[0]->vt != VT_STR) in openbor_playgif()
14276 if(FAILED(ScriptVariant_IntegerValue(varlist[i + 1], temp + i))) in openbor_playgif()
14283 …(*pretvar)->lVal = (LONG)playgif(StrCache_Get(varlist[0]->strVal), (int)(temp[0]), (int)(temp[1]),… in openbor_playgif()
14295 HRESULT openbor_openanigif(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_openanigif() argument
14299 if(varlist[0]->vt != VT_STR) in openbor_openanigif()
14305 if(anigif_open(StrCache_Get(varlist[0]->strVal), packfile, info)) in openbor_openanigif()
14324 HRESULT openbor_decodeanigif(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_decodeanigif() argument
14328 if(varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_decodeanigif()
14332 info = (anigif_info *) varlist[0]->ptrVal; in openbor_decodeanigif()
14344 HRESULT openbor_getanigifinfo(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getanigifinfo() argument
14349 if(varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_getanigifinfo()
14353 info = (anigif_info *) varlist[0]->ptrVal; in openbor_getanigifinfo()
14355 if(varlist[1]->vt != VT_STR) in openbor_getanigifinfo()
14359 name = StrCache_Get(varlist[1]->strVal); in openbor_getanigifinfo()
14414 HRESULT openbor_adjustwalkanimation(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_adjustwalkanimation() argument
14425 else if(varlist[0]->vt == VT_PTR) in openbor_adjustwalkanimation()
14427 e = (entity *)varlist[0]->ptrVal; in openbor_adjustwalkanimation()
14438 else if(varlist[1]->vt == VT_PTR) in openbor_adjustwalkanimation()
14440 t = (entity *)varlist[1]->ptrVal; in openbor_adjustwalkanimation()
14442 else if(varlist[1]->vt == VT_EMPTY) in openbor_adjustwalkanimation()
14464 HRESULT openbor_finditem(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_finditem() argument
14473 else if(varlist[0]->vt == VT_PTR) in openbor_finditem()
14475 e = (entity *)varlist[0]->ptrVal; in openbor_finditem()
14500 HRESULT openbor_pickup(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_pickup() argument
14512 if(varlist[0]->vt == VT_PTR) in openbor_pickup()
14514 e = (entity *)varlist[0]->ptrVal; in openbor_pickup()
14521 if(varlist[1]->vt == VT_PTR) in openbor_pickup()
14523 t = (entity *)varlist[1]->ptrVal; in openbor_pickup()
14549 HRESULT openbor_waypoints(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_waypoints() argument
14563 if(varlist[0]->vt == VT_PTR) in openbor_waypoints()
14565 e = (entity *)varlist[0]->ptrVal; in openbor_waypoints()
14580 if(FAILED(ScriptVariant_DecimalValue(varlist[1], &x))) in openbor_waypoints()
14585 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &z))) in openbor_waypoints()
14630 HRESULT openbor_testmove(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_testmove() argument
14643 if(varlist[0]->vt == VT_PTR) in openbor_testmove()
14645 e = (entity *)varlist[0]->ptrVal; in openbor_testmove()
14652 if(FAILED(ScriptVariant_DecimalValue(varlist[1], &x))) in openbor_testmove()
14657 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &z))) in openbor_testmove()
14677 HRESULT openbor_drawspriteq(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawspriteq() argument
14692 if(varlist[0]->vt != VT_PTR && varlist[0]->vt != VT_EMPTY) in openbor_drawspriteq()
14697 if(varlist[0]->ptrVal) in openbor_drawspriteq()
14699 screen = (s_screen *)varlist[0]->ptrVal; in openbor_drawspriteq()
14708 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawspriteq()
14724 HRESULT openbor_clearspriteq(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_clearspriteq() argument
14747 int mapstrings_gfxproperty(ScriptVariant **varlist, int paramCount) in mapstrings_gfxproperty() argument
14770 MAPSTRINGS(varlist[1], proplist, _gfx_the_end, in mapstrings_gfxproperty()
14777 HRESULT openbor_getgfxproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getgfxproperty() argument
14791 mapstrings_gfxproperty(varlist, paramCount); in openbor_getgfxproperty()
14793 if(varlist[0]->vt != VT_PTR) in openbor_getgfxproperty()
14798 handle = varlist[0]->ptrVal; in openbor_getgfxproperty()
14812 switch(varlist[1]->lVal) in openbor_getgfxproperty()
14946 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 2))) in openbor_getgfxproperty()
15021 HRESULT openbor_allocscript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_allocscript() argument
15033 if(paramCount >= 1 && varlist[0]->vt == VT_STR) in openbor_allocscript()
15035 name = (char *)StrCache_Get(varlist[0]->strVal); in openbor_allocscript()
15037 if(paramCount >= 2 && varlist[1]->vt == VT_STR) in openbor_allocscript()
15039 comment = (char *)StrCache_Get(varlist[1]->strVal); in openbor_allocscript()
15057 HRESULT openbor_loadscript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadscript() argument
15065 if(paramCount >= 1 && varlist[0]->vt == VT_PTR) in openbor_loadscript()
15067 ns = (Script *)varlist[0]->ptrVal; in openbor_loadscript()
15073 if(paramCount >= 2 && varlist[1]->vt == VT_STR) in openbor_loadscript()
15075 path = (char *)StrCache_Get(varlist[1]->strVal); in openbor_loadscript()
15094 HRESULT openbor_compilescript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_compilescript() argument
15100 if(paramCount >= 1 && varlist[0]->vt == VT_PTR) in openbor_compilescript()
15102 ns = (Script *)varlist[0]->ptrVal; in openbor_compilescript()
15119 HRESULT openbor_executescript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_executescript() argument
15125 if(paramCount >= 1 && varlist[0]->vt == VT_PTR) in openbor_executescript()
15127 ns = (Script *)varlist[0]->ptrVal; in openbor_executescript()
15145 HRESULT openbor_loadgamefile(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadgamefile() argument
15153 HRESULT openbor_finishlevel(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_finishlevel() argument
15161 HRESULT openbor_gameover(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_gameover() argument
15169 HRESULT openbor_gotomainmenu(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_gotomainmenu() argument
15175 if(paramCount >= 1 && FAILED(ScriptVariant_IntegerValue(varlist[0], <emp)) ) in openbor_gotomainmenu()
15186 HRESULT openbor_playgame(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playgame() argument
15191 if(paramCount >= 1 && FAILED(ScriptVariant_IntegerValue(varlist[0], &lset)) ) in openbor_playgame()
15195 if(paramCount >= 2 && FAILED(ScriptVariant_IntegerValue(varlist[1], &lsave)) ) in openbor_playgame()
15213 HRESULT openbor_getrecordingstatus(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_getrecordingstatus() argument
15221 HRESULT openbor_recordinputs(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_recordinputs() argument
15226 if( paramCount < 1 && varlist[0]->vt != VT_INTEGER ) in openbor_recordinputs()
15231 ltemp = (int)varlist[0]->lVal; in openbor_recordinputs()
15238 if( paramCount < 3 || varlist[1]->vt != VT_STR || varlist[2]->vt != VT_STR ) in openbor_recordinputs()
15243 strcpy(playrecstatus->path,(char*)StrCache_Get(varlist[1]->strVal)); in openbor_recordinputs()
15244 strcpy(playrecstatus->filename,(char*)StrCache_Get(varlist[2]->strVal)); in openbor_recordinputs()
15251 if( paramCount < 3 || varlist[1]->vt != VT_STR || varlist[2]->vt != VT_STR ) in openbor_recordinputs()
15256 strcpy(playrecstatus->path,(char*)StrCache_Get(varlist[1]->strVal)); in openbor_recordinputs()
15257 strcpy(playrecstatus->filename,(char*)StrCache_Get(varlist[2]->strVal)); in openbor_recordinputs()
15271 HRESULT openbor_getsaveinfo(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getsaveinfo() argument
15281 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp)) || varlist[1]->vt != VT_STR) in openbor_getsaveinfo()
15293 prop = (char *)StrCache_Get(varlist[1]->strVal); in openbor_getsaveinfo()
15318 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
15326 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
15334 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
15347 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
15356 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
15364 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()