Lines Matching refs:varlist
1046 HRESULT system_isempty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_isempty() argument
1052 (*pretvar)->lVal = (LONG)((varlist[0])->vt == VT_EMPTY ); in system_isempty()
1057 HRESULT system_NULL(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_NULL() argument
1063 HRESULT system_rand(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_rand() argument
1070 HRESULT system_getglobalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_getglobalvar() argument
1078 if(varlist[0]->vt != VT_STR) in system_getglobalvar()
1084 ptmpvar = Script_Get_Global_Variant(StrCache_Get(varlist[0]->strVal)); in system_getglobalvar()
1090 HRESULT system_maxglobalvarindex(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_maxglobalvarindex() argument
1097 HRESULT system_setglobalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_setglobalvar() argument
1103 if(varlist[0]->vt != VT_STR) in system_setglobalvar()
1111 (*pretvar)->lVal = (LONG)Script_Set_Global_Variant(StrCache_Get(varlist[0]->strVal), (varlist[1])); in system_setglobalvar()
1116 HRESULT system_getlocalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_getlocalvar() argument
1124 if(varlist[0]->vt != VT_STR) in system_getlocalvar()
1130 ptmpvar = Script_Get_Local_Variant(StrCache_Get(varlist[0]->strVal)); in system_getlocalvar()
1136 HRESULT system_setlocalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_setlocalvar() argument
1142 if(varlist[0]->vt != VT_STR) in system_setlocalvar()
1150 (*pretvar)->lVal = (LONG)Script_Set_Local_Variant(StrCache_Get(varlist[0]->strVal), varlist[1]); in system_setlocalvar()
1155 HRESULT system_clearlocalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_clearlocalvar() argument
1162 HRESULT system_clearglobalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_clearglobalvar() argument
1170 HRESULT system_clearindexedvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_clearindexedvar() argument
1179 HRESULT system_free(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_free() argument
1183 if(List_Includes(&scriptheap, varlist[0]->ptrVal)) in system_free()
1196 void mapstrings_systemvariant(ScriptVariant** varlist, int paramCount) in mapstrings_systemvariant() argument
1340 MAPSTRINGS(varlist[0], proplist, _sv_the_end, in mapstrings_systemvariant()
1346 HRESULT openbor_systemvariant(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_systemvariant() argument
1354 mapstrings_systemvariant(varlist, paramCount); in openbor_systemvariant()
1357 if(varlist[0]->vt == VT_INTEGER) in openbor_systemvariant()
1358 variantindex = varlist[0]->lVal; in openbor_systemvariant()
1376 void mapstrings_changesystemvariant(ScriptVariant** varlist, int paramCount) in mapstrings_changesystemvariant() argument
1430 MAPSTRINGS(varlist[0], proplist, _csv_the_end, in mapstrings_changesystemvariant()
1436 HRESULT openbor_changesystemvariant(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_changesystemvariant() argument
1446 mapstrings_changesystemvariant(varlist, paramCount); in openbor_changesystemvariant()
1448 arg = varlist[0]; in openbor_changesystemvariant()
1455 if(changesyspropertybyindex(variantindex, varlist[1])) in openbor_changesystemvariant()
1468 HRESULT openbor_drawstring(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawstring() argument
1479 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawstring()
1484 if(FAILED(ScriptVariant_IntegerValue(varlist[4], value+3))) in openbor_drawstring()
1488 ScriptVariant_ToString(varlist[3], buf); in openbor_drawstring()
1499 HRESULT openbor_drawstringtoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_drawstringtoscreen() argument
1509 if(varlist[0]->vt!=VT_PTR) goto drawstring_error; in openbor_drawstringtoscreen()
1510 scr = (s_screen*)varlist[0]->ptrVal; in openbor_drawstringtoscreen()
1515 if(FAILED(ScriptVariant_IntegerValue(varlist[i+1], value+i))) in openbor_drawstringtoscreen()
1519 ScriptVariant_ToString(varlist[4], buf); in openbor_drawstringtoscreen()
1530 HRESULT openbor_log(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_log() argument
1537 ScriptVariant_ToString(varlist[0], buf); in openbor_log()
1547 HRESULT openbor_drawbox(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawbox() argument
1557 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawbox()
1563 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawbox()
1582 HRESULT openbor_drawboxtoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawboxtoscreen() argument
1591 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawboxtoscreen()
1597 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawboxtoscreen()
1603 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawboxtoscreen()
1633 HRESULT openbor_drawline(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawline() argument
1643 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawline()
1649 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawline()
1668 HRESULT openbor_drawlinetoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawlinetoscreen() argument
1677 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawlinetoscreen()
1683 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawlinetoscreen()
1689 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawlinetoscreen()
1718 HRESULT openbor_drawsprite(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawsprite() argument
1726 if(varlist[0]->vt!=VT_PTR) goto drawsprite_error; in openbor_drawsprite()
1728 spr = varlist[0]->ptrVal; in openbor_drawsprite()
1734 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawsprite()
1748 HRESULT openbor_drawspritetoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_drawspritetoscreen() argument
1757 if(varlist[0]->vt!=VT_PTR) goto drawsprite_error; in openbor_drawspritetoscreen()
1758 spr = varlist[0]->ptrVal; in openbor_drawspritetoscreen()
1761 if(varlist[1]->vt!=VT_PTR) goto drawsprite_error; in openbor_drawspritetoscreen()
1762 scr = varlist[1]->ptrVal; in openbor_drawspritetoscreen()
1767 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-2))) in openbor_drawspritetoscreen()
1781 HRESULT openbor_setvertex(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setvertex() argument
1790 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_setvertex()
1813 HRESULT openbor_settexture(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_settexture() argument
1820 if(varlist[0]->vt!=VT_PTR) goto texture_error; in openbor_settexture()
1822 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &type))) in openbor_settexture()
1828 texture.screen = (s_screen*)varlist[0]->ptrVal; in openbor_settexture()
1832 texture.bitmap = (s_bitmap*)varlist[0]->ptrVal; in openbor_settexture()
1836 texture.sprite = (s_sprite*)varlist[0]->ptrVal; in openbor_settexture()
1856 HRESULT openbor_trianglelist(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_trianglelist() argument
1866 if(varlist[0]->vt!=VT_PTR && varlist[0]->vt!=VT_EMPTY) goto trianglelist_error; in openbor_trianglelist()
1867 scr = (s_screen*)varlist[0]->ptrVal; in openbor_trianglelist()
1871 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &triangle_start))) in openbor_trianglelist()
1874 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &triangle_count))) in openbor_trianglelist()
1897 HRESULT openbor_drawdot(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawdot() argument
1907 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawdot()
1913 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdot()
1932 HRESULT openbor_drawdottoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawdottoscreen() argument
1941 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawdottoscreen()
1947 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawdottoscreen()
1953 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdottoscreen()
1984 HRESULT openbor_drawscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawscreen() argument
1995 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawscreen()
2001 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawscreen()
2007 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawscreen()
2034 HRESULT openbor_getindexedvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getindexedvar() argument
2046 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getindexedvar()
2061 HRESULT openbor_setindexedvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setindexedvar() argument
2071 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_setindexedvar()
2086 ScriptVariant_Copy(indexed_var_list+ind, varlist[1]); in openbor_setindexedvar()
2093 HRESULT openbor_getscriptvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getscriptvar() argument
2103 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getscriptvar()
2120 HRESULT openbor_setscriptvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setscriptvar() argument
2130 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_setscriptvar()
2145 ScriptVariant_Copy(pcurrentscript->vars+ind, varlist[1]); in openbor_setscriptvar()
2152 HRESULT openbor_getentityvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getentityvar() argument
2165 arg = varlist[0]; in openbor_getentityvar()
2178 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_getentityvar()
2193 HRESULT openbor_setentityvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setentityvar() argument
2205 arg = varlist[0]; in openbor_setentityvar()
2221 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_setentityvar()
2230 ScriptVariant_Copy(ent->entvars+ind, varlist[2]); in openbor_setentityvar()
2237 HRESULT openbor_strinfirst(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strinfirst() argument
2249 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_STR) in openbor_strinfirst()
2254 tempstr = strstr((char*)StrCache_Get(varlist[0]->strVal), (char*)StrCache_Get(varlist[1]->strVal)); in openbor_strinfirst()
2270 HRESULT openbor_strinlast(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strinlast() argument
2282 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_STR) in openbor_strinlast()
2287 tempstr = strrchr((char*)StrCache_Get(varlist[0]->strVal), varlist[1]->strVal); in openbor_strinlast()
2303 HRESULT openbor_strleft(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strleft() argument
2312 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_INTEGER) in openbor_strleft()
2317 strncpy(tempstr, (char*)StrCache_Get(varlist[0]->strVal), varlist[1]->lVal); in openbor_strleft()
2335 HRESULT openbor_strlength(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strlength() argument
2345 if(varlist[0]->vt!=VT_STR) in openbor_strlength()
2351 (*pretvar)->lVal = strlen((char*)StrCache_Get(varlist[0]->strVal)); in openbor_strlength()
2356 HRESULT openbor_strright(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strright() argument
2366 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_INTEGER) in openbor_strright()
2372 tempstr = (char*)StrCache_Get(varlist[0]->strVal); in openbor_strright()
2377 strcpy(StrCache_Get((*pretvar)->strVal), &tempstr[varlist[1]->lVal]); in openbor_strright()
2388 HRESULT openbor_getmodelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getmodelproperty() argument
2398 if(varlist[0]->vt!=VT_INTEGER || varlist[1]->vt!=VT_INTEGER) in openbor_getmodelproperty()
2403 iArg = varlist[0]->lVal; in openbor_getmodelproperty()
2405 switch (varlist[1]->lVal) in openbor_getmodelproperty()
2441 HRESULT openbor_changemodelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_changemodelproperty() argument
2452 if(varlist[0]->vt!=VT_INTEGER || varlist[1]->vt!=VT_INTEGER) in openbor_changemodelproperty()
2457 iArg = varlist[0]->lVal; in openbor_changemodelproperty()
2459 switch (varlist[1]->lVal) in openbor_changemodelproperty()
2511 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changemodelproperty()
2860 void mapstrings_getentityproperty(ScriptVariant** varlist, int paramCount) in mapstrings_getentityproperty() argument
3191 MAPSTRINGS(varlist[1], proplist, _gep_the_end, in mapstrings_getentityproperty()
3197 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_aiflag)) in mapstrings_getentityproperty()
3199 MAPSTRINGS(varlist[2], proplist_aiflag, _gep_aiflag_the_end, in mapstrings_getentityproperty()
3204 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_attack)) in mapstrings_getentityproperty()
3206 MAPSTRINGS(varlist[2], proplist_attack, _gep_attack_the_end, in mapstrings_getentityproperty()
3211 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_defense)) in mapstrings_getentityproperty()
3215 MAPSTRINGS(varlist[3], proplist_defense, _gep_defense_the_end, in mapstrings_getentityproperty()
3221 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_dot)) in mapstrings_getentityproperty()
3223 MAPSTRINGS(varlist[2], proplist_dot, _gep_dot_the_end, in mapstrings_getentityproperty()
3228 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_edelay)) in mapstrings_getentityproperty()
3230 MAPSTRINGS(varlist[2], proplist_edelay, _gep_edelay_the_end, in mapstrings_getentityproperty()
3235 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_energycost)) in mapstrings_getentityproperty()
3237 MAPSTRINGS(varlist[2], proplist_energycost, _gep_energycost_the_end, in mapstrings_getentityproperty()
3242 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_flash)) in mapstrings_getentityproperty()
3244 MAPSTRINGS(varlist[2], proplist_flash, _gep_flash_the_end, in mapstrings_getentityproperty()
3249 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_icon)) in mapstrings_getentityproperty()
3251 MAPSTRINGS(varlist[2], proplist_icon, _gep_icon_the_end, in mapstrings_getentityproperty()
3256 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_knockdowncount)) in mapstrings_getentityproperty()
3258 MAPSTRINGS(varlist[2], proplist_knockdowncount, _gep_knockdowncount_the_end, in mapstrings_getentityproperty()
3263 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_landframe)) in mapstrings_getentityproperty()
3265 MAPSTRINGS(varlist[2], proplist_landframe, _gep_landframe_the_end, in mapstrings_getentityproperty()
3270 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_maps)) in mapstrings_getentityproperty()
3272 MAPSTRINGS(varlist[2], proplist_maps, _gep_maps_the_end, in mapstrings_getentityproperty()
3277 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_range)) in mapstrings_getentityproperty()
3279 MAPSTRINGS(varlist[2], proplist_range, _gep_range_the_end, in mapstrings_getentityproperty()
3284 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_running)) in mapstrings_getentityproperty()
3286 MAPSTRINGS(varlist[2], proplist_running, _gep_running_the_end, in mapstrings_getentityproperty()
3291 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_spritea)) in mapstrings_getentityproperty()
3293 MAPSTRINGS(varlist[2], proplist_spritea, _gep_spritea_the_end, in mapstrings_getentityproperty()
3298 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _gep_staydown)) in mapstrings_getentityproperty()
3300 MAPSTRINGS(varlist[2], proplist_staydown, _gep_running_the_end, in mapstrings_getentityproperty()
3306 HRESULT openbor_getentityproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getentityproperty() argument
3326 mapstrings_getentityproperty(varlist, paramCount); in openbor_getentityproperty()
3328 arg = varlist[0]; in openbor_getentityproperty()
3338 arg = varlist[1]; in openbor_getentityproperty()
3369 arg = varlist[2]; in openbor_getentityproperty()
3586 arg = varlist[2]; in openbor_getentityproperty()
3609 arg = varlist[2]; in openbor_getentityproperty()
3617 if(varlist[3]->vt != VT_INTEGER in openbor_getentityproperty()
3618 || varlist[4]->vt != VT_INTEGER in openbor_getentityproperty()
3619 || varlist[5]->vt != VT_INTEGER) in openbor_getentityproperty()
3626 i = varlist[4]->lVal; //Animation parameter. in openbor_getentityproperty()
3627 tempint = varlist[5]->lVal; //Frame parameter. in openbor_getentityproperty()
3648 (*pretvar)->lVal = (LONG)attack->attack_coords[varlist[6]->lVal]; in openbor_getentityproperty()
3688 (*pretvar)->dblVal = (DOUBLE)attack->dropv[varlist[6]->lVal]; in openbor_getentityproperty()
3812 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
3813 || varlist[3]->vt != VT_INTEGER in openbor_getentityproperty()
3814 || varlist[4]->vt != VT_INTEGER in openbor_getentityproperty()
3815 || varlist[5]->vt != VT_INTEGER) in openbor_getentityproperty()
3822 i = varlist[3]->lVal; //Animation parameter. in openbor_getentityproperty()
3823 tempint = varlist[4]->lVal; //Frame parameter. in openbor_getentityproperty()
3833 (*pretvar)->lVal = (LONG)coords[varlist[5]->lVal]; in openbor_getentityproperty()
3844 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
3856 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
3881 (*pretvar)->ptrVal = (VOID*)(ent->modeldata.colourmap[varlist[2]->lVal]); in openbor_getentityproperty()
3908 if(FAILED(ScriptVariant_IntegerValue(varlist[2], <emp))){ in openbor_getentityproperty()
3916 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_getentityproperty()
3979 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
3982 arg = varlist[3]; in openbor_getentityproperty()
4042 arg = varlist[2]; in openbor_getentityproperty()
4052 arg = varlist[2]; in openbor_getentityproperty()
4110 if(varlist[2]->vt != VT_INTEGER) in openbor_getentityproperty()
4112 if(varlist[2]->vt != VT_STR) in openbor_getentityproperty()
4119 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4120 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
4173 arg = varlist[2]; in openbor_getentityproperty()
4287 arg = varlist[2]; in openbor_getentityproperty()
4411 arg = varlist[2]; in openbor_getentityproperty()
4461 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4462 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
4467 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4468 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
4534 arg = varlist[2]; in openbor_getentityproperty()
4760 arg = varlist[2]; in openbor_getentityproperty()
4820 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4821 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
4826 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4827 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
4875 (*pretvar)->lVal = (LONG)coords[varlist[4]->lVal]; in openbor_getentityproperty()
4881 arg = varlist[2]; in openbor_getentityproperty()
5002 ltemp = varlist[2]->lVal; in openbor_getentityproperty()
5003 arg = varlist[3]; in openbor_getentityproperty()
5004 arg1 = varlist[4]; in openbor_getentityproperty()
5077 arg = varlist[2]; in openbor_getentityproperty()
5078 arg1 = varlist[3]; in openbor_getentityproperty()
5107 arg = varlist[2]; in openbor_getentityproperty()
5529 void mapstrings_changeentityproperty(ScriptVariant** varlist, int paramCount) in mapstrings_changeentityproperty() argument
5749 MAPSTRINGS(varlist[1], proplist, _cep_the_end, in mapstrings_changeentityproperty()
5753 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _cep_aiflag)) in mapstrings_changeentityproperty()
5755 MAPSTRINGS(varlist[2], proplist_aiflag, _cep_aiflag_the_end, in mapstrings_changeentityproperty()
5760 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _cep_energycost)) in mapstrings_changeentityproperty()
5762 MAPSTRINGS(varlist[2], proplist_energycost, _cep_energycost_the_end, in mapstrings_changeentityproperty()
5767 if((varlist[1]->vt == VT_INTEGER) && in mapstrings_changeentityproperty()
5768 …((varlist[1]->lVal == _cep_hostile) || (varlist[1]->lVal == _cep_candamage) || (varlist[1]->lVal =… in mapstrings_changeentityproperty()
5772 MAPSTRINGS(varlist[i], proplist_hostile_candamage, _cep_hcd_the_end, in mapstrings_changeentityproperty()
5778 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _cep_knockdowncount)) in mapstrings_changeentityproperty()
5780 MAPSTRINGS(varlist[2], proplist_knockdowncount, _cep_knockdowncount_the_end, in mapstrings_changeentityproperty()
5785 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _cep_spritea)) in mapstrings_changeentityproperty()
5787 MAPSTRINGS(varlist[2], proplist_spritea, _cep_spritea_the_end, in mapstrings_changeentityproperty()
5792 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _cep_staydown)) in mapstrings_changeentityproperty()
5794 MAPSTRINGS(varlist[2], proplist_staydown, _cep_staydown_the_end, in mapstrings_changeentityproperty()
5799 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _cep_takeaction)) in mapstrings_changeentityproperty()
5801 MAPSTRINGS(varlist[2], proplist_takeaction, _cep_ta_the_end, in mapstrings_changeentityproperty()
5806 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _cep_think)) in mapstrings_changeentityproperty()
5808 MAPSTRINGS(varlist[2], proplist_think, _cep_th_the_end, in mapstrings_changeentityproperty()
5814 HRESULT openbor_changeentityproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCo… in openbor_changeentityproperty() argument
5876 mapstrings_changeentityproperty(varlist, paramCount); in openbor_changeentityproperty()
5878 if(varlist[0]->vt != VT_PTR && varlist[0]->vt != VT_EMPTY) in openbor_changeentityproperty()
5883 ent = (entity*)varlist[0]->ptrVal; //retrieve the entity in openbor_changeentityproperty()
5890 if(varlist[1]->vt != VT_INTEGER) in openbor_changeentityproperty()
5892 if(varlist[1]->vt != VT_STR) in openbor_changeentityproperty()
5897 propind = varlist[1]->lVal; in openbor_changeentityproperty()
5903 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5909 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5915 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
5917 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
5923 switch(varlist[2]->lVal) in openbor_changeentityproperty()
5927 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5933 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5939 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5945 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5951 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5957 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5963 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5969 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5975 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5981 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5987 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5993 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5999 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6005 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6011 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6017 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6023 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6029 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6035 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6041 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6058 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6064 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6073 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6077 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
6089 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6098 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6104 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6110 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6119 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6128 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6134 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6143 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6152 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6161 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6167 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6176 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6182 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6192 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6194 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6211 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6217 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
6225 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6234 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6240 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6246 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6251 tempmodel = findmodel((char*)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
6264 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6271 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6277 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6283 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6289 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6295 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
6301 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[8], &dbltemp))) in openbor_changeentityproperty()
6307 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[9], &dbltemp))) in openbor_changeentityproperty()
6315 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6321 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6330 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6334 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6341 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6347 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6353 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6359 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
6365 ent->dot_owner[i] = (entity*)varlist[8]->ptrVal; in openbor_changeentityproperty()
6371 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6378 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6383 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6389 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
6395 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_changeentityproperty()
6401 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[7], <emp))) in openbor_changeentityproperty()
6417 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6428 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6430 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6435 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6439 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6445 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6451 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6463 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6472 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6481 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6487 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6493 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6499 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6505 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6511 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6517 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6526 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6537 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6543 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6550 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6562 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6564 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6578 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6580 if(paramCount>3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6586 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6595 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6601 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6610 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6612 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6621 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6625 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6634 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6641 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6656 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6663 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6671 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6673 if(paramCount>3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6679 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6685 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6694 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6703 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6712 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6722 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6731 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6741 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6746 tempstr = (char*)StrCache_Get(varlist[2]->strVal); in openbor_changeentityproperty()
6749 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6763 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6774 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6781 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6786 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6791 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6796 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6801 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
6808 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6813 strcpy(ent->name, (char*)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
6819 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6821 if(paramCount>3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6827 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6836 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6845 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6851 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6857 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6863 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6869 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6875 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6881 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6888 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6895 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6903 ent->opponent = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
6908 ent->owner = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
6913 ent->parent = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
6918 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6925 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6931 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6939 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6950 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6952 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6966 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6973 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6978 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6983 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6988 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6996 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7005 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7014 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7020 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7029 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7038 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7044 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7050 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7059 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7068 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7070 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
7081 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7086 …if(!validanim(ent, varlist[3]->lVal) || !(ent->modeldata.animation[varlist[3]->lVal]->numframes >=… in openbor_changeentityproperty()
7091 … i = ent->modeldata.animation[varlist[3]->lVal]->sprite[varlist[4]->lVal]; //Get sprite index. in openbor_changeentityproperty()
7097 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
7106 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
7115 if(varlist[5]->vt != VT_STR) in openbor_changeentityproperty()
7120 strcpy(sprite_map[i].filename, (char*)StrCache_Get(varlist[5]->strVal)); in openbor_changeentityproperty()
7126 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
7135 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7144 sprite_map[i].sprite = (VOID*)varlist[5]->ptrVal; in openbor_changeentityproperty()
7156 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7164 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7166 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7168 switch(varlist[2]->lVal) in openbor_changeentityproperty()
7183 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7185 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
7195 switch(varlist[2]->lVal) in openbor_changeentityproperty()
7199 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7205 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7211 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7223 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7230 ent->subentity = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
7236 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7245 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7254 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7263 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7272 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7281 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7290 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7299 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7308 if(varlist[2]->vt == VT_STR) in openbor_changeentityproperty()
7313 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7320 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7330 if(varlist[2]->vt == VT_STR) in openbor_changeentityproperty()
7335 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7342 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7352 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7361 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7370 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7379 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7388 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7397 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7406 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7420 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7426 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7433 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7440 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7446 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7454 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7458 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
7484 HRESULT openbor_tossentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_tossentity() argument
7498 ent = (entity*)varlist[0]->ptrVal; //retrieve the entity in openbor_tossentity()
7508 if(FAILED(ScriptVariant_DecimalValue(varlist[1], &height))) in openbor_tossentity()
7516 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &speedx))) in openbor_tossentity()
7524 if(FAILED(ScriptVariant_DecimalValue(varlist[3], &speedz))) in openbor_tossentity()
7550 void mapstrings_getplayerproperty(ScriptVariant** varlist, int paramCount) in mapstrings_getplayerproperty() argument
7570 MAPSTRINGS(varlist[1], proplist, _gpp_the_end, in mapstrings_getplayerproperty()
7575 HRESULT openbor_getplayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getplayerproperty() argument
7589 mapstrings_getplayerproperty(varlist, paramCount); in openbor_getplayerproperty()
7592 arg = varlist[0]; in openbor_getplayerproperty()
7602 arg = varlist[1]; in openbor_getplayerproperty()
7684 void mapstrings_changeplayerproperty(ScriptVariant** varlist, int paramCount) in mapstrings_changeplayerproperty() argument
7701 MAPSTRINGS(varlist[1], proplist, _cpp_the_end, in mapstrings_changeplayerproperty()
7706 HRESULT openbor_changeplayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCo… in openbor_changeplayerproperty() argument
7721 mapstrings_changeplayerproperty(varlist, paramCount); in openbor_changeplayerproperty()
7724 arg = varlist[0]; in openbor_changeplayerproperty()
7735 if(varlist[1]->vt != VT_INTEGER) in openbor_changeplayerproperty()
7737 if(varlist[1]->vt != VT_STR) in openbor_changeplayerproperty()
7741 prop = varlist[1]->lVal; in openbor_changeplayerproperty()
7743 arg = varlist[2]; in openbor_changeplayerproperty()
7753 arg = varlist[3]; in openbor_changeplayerproperty()
7824 HRESULT openbor_checkhole(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_checkhole() argument
7838 arg = varlist[0]; in openbor_checkhole()
7842 arg = varlist[1]; in openbor_checkhole()
7851 HRESULT openbor_checkwall(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_checkwall() argument
7866 arg = varlist[0]; in openbor_checkwall()
7870 arg = varlist[1]; in openbor_checkwall()
7882 HRESULT openbor_checkplatformbelow(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_checkplatformbelow() argument
7896 arg = varlist[0]; in openbor_checkplatformbelow()
7900 arg = varlist[1]; in openbor_checkplatformbelow()
7904 arg = varlist[2]; in openbor_checkplatformbelow()
7913 HRESULT openbor_openfilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_openfilestream() argument
7933 arg = varlist[0]; in openbor_openfilestream()
7945 arg = varlist[1]; in openbor_openfilestream()
8007 HRESULT openbor_getfilestreamline(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getfilestreamline() argument
8020 arg = varlist[0]; in openbor_getfilestreamline()
8042 HRESULT openbor_getfilestreamargument(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_getfilestreamargument() argument
8054 arg = varlist[0]; in openbor_getfilestreamargument()
8058 arg = varlist[1]; in openbor_getfilestreamargument()
8063 if(varlist[2]->vt != VT_STR) in openbor_getfilestreamargument()
8068 argtype = (char*)StrCache_Get(varlist[2]->strVal); in openbor_getfilestreamargument()
8094 HRESULT openbor_filestreamnextline(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_filestreamnextline() argument
8105 arg = varlist[0]; in openbor_filestreamnextline()
8114 HRESULT openbor_getfilestreamposition(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_getfilestreamposition() argument
8125 arg = varlist[0]; in openbor_getfilestreamposition()
8134 HRESULT openbor_setfilestreamposition(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_setfilestreamposition() argument
8146 arg = varlist[0]; in openbor_setfilestreamposition()
8150 arg = varlist[1]; in openbor_setfilestreamposition()
8158 HRESULT openbor_filestreamappend(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_filestreamappend() argument
8177 arg = varlist[0]; in openbor_filestreamappend()
8181 arg = varlist[1]; in openbor_filestreamappend()
8207 arg = varlist[2]; in openbor_filestreamappend()
8233 HRESULT openbor_createfilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_createfilestream() argument
8261 HRESULT openbor_savefilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_savefilestream() argument
8280 arg = varlist[0]; in openbor_savefilestream()
8284 arg = varlist[1]; in openbor_savefilestream()
8335 HRESULT openbor_closefilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_closefilestream() argument
8345 arg = varlist[0]; in openbor_closefilestream()
8358 HRESULT openbor_damageentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_damageentity() argument
8376 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_damageentity()
8386 other = (entity*)(varlist[1])->ptrVal; in openbor_damageentity()
8392 if(FAILED(ScriptVariant_IntegerValue((varlist[2]), &force))) in openbor_damageentity()
8406 if(FAILED(ScriptVariant_IntegerValue((varlist[3]), &drop))) in openbor_damageentity()
8411 if(FAILED(ScriptVariant_IntegerValue((varlist[4]), &type))) in openbor_damageentity()
8427 HRESULT openbor_killentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_killentity() argument
8439 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_killentity()
8451 HRESULT openbor_findtarget(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_findtarget() argument
8458 if(paramCount>2) ScriptVariant_IntegerValue(varlist[2], &i); in openbor_findtarget()
8468 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_findtarget()
8474 if(paramCount>1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) return E_FAIL; in openbor_findtarget()
8485 HRESULT openbor_checkrange(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_checkrange() argument
8495 if(varlist[0]->vt !=VT_PTR || varlist[1]->vt!=VT_PTR) goto checkrange_error; in openbor_checkrange()
8497 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_checkrange()
8498 target = (entity*)(varlist[1])->ptrVal; //retrieve the target in openbor_checkrange()
8502 if(paramCount >2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &ani))) goto checkrange_error; in openbor_checkrange()
8522 HRESULT openbor_clearspawnentry(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_clearspawnentry() argument
8561 void mapstrings_setspawnentry(ScriptVariant** varlist, int paramCount) in mapstrings_setspawnentry() argument
8594 MAPSTRINGS(varlist[0], proplist, _sse_the_end, in mapstrings_setspawnentry()
8599 HRESULT openbor_setspawnentry(ScriptVariant** varlist, ScriptVariant** pretvar, int paramCount) in openbor_setspawnentry() argument
8616 mapstrings_setspawnentry(varlist, paramCount); in openbor_setspawnentry()
8617 if(varlist[0]->vt != VT_INTEGER) in openbor_setspawnentry()
8619 if(varlist[0]->vt != VT_STR) in openbor_setspawnentry()
8625 prop = varlist[0]->lVal; in openbor_setspawnentry()
8627 arg = varlist[1]; in openbor_setspawnentry()
8702 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) spawnentry.z = (float)dbltemp; in openbor_setspawnentry()
8707 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) spawnentry.a = (float)dbltemp; in openbor_setspawnentry()
8744 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_setspawnentry()
8750 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_setspawnentry()
8797 HRESULT openbor_spawn(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_spawn() argument
8814 HRESULT openbor_projectile(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_projectile() argument
8822 if(varlist[0]->vt != VT_STR) goto projectile_error; in openbor_projectile()
8826 strncpy(name, StrCache_Get(varlist[0]->strVal), MAX_STR_VAR_LEN); in openbor_projectile()
8830 if(FAILED(ScriptVariant_IntegerValue(varlist[i], &value[i-1]))) in openbor_projectile()
8859 ScriptVariant_ChangeType(varlist[0], VT_INTEGER);\
8860 varlist[0]->lVal = (LONG)x;\
8863 void mapstrings_transconst(ScriptVariant** varlist, int paramCount) in mapstrings_transconst() argument
8869 if(varlist[0]->vt == VT_STR) in mapstrings_transconst()
8871 constname = (char*)StrCache_Get(varlist[0]->strVal); in mapstrings_transconst()
9205 HRESULT openbor_transconst(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_transconst() argument
9216 mapstrings_transconst(varlist, paramCount); in openbor_transconst()
9219 if(varlist[0]->vt == VT_INTEGER) // return value already determined by mapstrings in openbor_transconst()
9221 (*pretvar)->lVal = varlist[0]->lVal; in openbor_transconst()
9224 else if(varlist[0]->vt != VT_STR) in openbor_transconst()
9231 constname = StrCache_Get(varlist[0]->strVal); in openbor_transconst()
9324 HRESULT openbor_rgbcolor(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_rgbcolor() argument
9329 …if(FAILED(ScriptVariant_IntegerValue(varlist[0], &r))) goto rgbcolor_error; // decimal/integer val… in openbor_rgbcolor()
9330 …if(FAILED(ScriptVariant_IntegerValue(varlist[1], &g))) goto rgbcolor_error; // decimal/integer val… in openbor_rgbcolor()
9331 …if(FAILED(ScriptVariant_IntegerValue(varlist[2], &b))) goto rgbcolor_error; // decimal/integer val… in openbor_rgbcolor()
9362 void mapstrings_playerkeys(ScriptVariant** varlist, int paramCount) in mapstrings_playerkeys() argument
9387 MAPSTRINGS(varlist[i], proplist, _pk_the_end, in mapstrings_playerkeys()
9393 HRESULT openbor_playerkeys(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playerkeys() argument
9410 mapstrings_playerkeys(varlist, paramCount); in openbor_playerkeys()
9412 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), <emp))) in openbor_playerkeys()
9417 if(SUCCEEDED(ScriptVariant_IntegerValue((varlist[1]), <emp))) in openbor_playerkeys()
9427 arg = varlist[i]; in openbor_playerkeys()
9486 HRESULT openbor_playmusic(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playmusic() argument
9498 if(varlist[0]->vt != VT_STR) in openbor_playmusic()
9503 thename = StrCache_Get(varlist[0]->strVal); in openbor_playmusic()
9507 loop = (int)ScriptVariant_IsTrue(varlist[1]); in openbor_playmusic()
9512 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &offset))) in openbor_playmusic()
9522 HRESULT openbor_fademusic(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_fademusic() argument
9528 if(FAILED(ScriptVariant_DecimalValue(varlist[0], &value))) goto fademusic_error; in openbor_fademusic()
9534 strncpy(musicname, StrCache_Get(varlist[1]->strVal), 128); in openbor_fademusic()
9535 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &values[0]))) goto fademusic_error; in openbor_fademusic()
9536 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &values[1]))) goto fademusic_error; in openbor_fademusic()
9548 HRESULT openbor_setmusicvolume(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setmusicvolume() argument
9557 if(FAILED(ScriptVariant_IntegerValue(varlist[0], channels))) in openbor_setmusicvolume()
9562 if(FAILED(ScriptVariant_IntegerValue(varlist[1], channels+1))) in openbor_setmusicvolume()
9577 HRESULT openbor_setmusictempo(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setmusictempo() argument
9586 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &new_tempo))) in openbor_setmusictempo()
9594 HRESULT openbor_pausemusic(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_pausemusic() argument
9602 pause = (int)ScriptVariant_IsTrue(varlist[0]); in openbor_pausemusic()
9609 HRESULT openbor_playsample(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playsample() argument
9619 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_playsample()
9638 HRESULT openbor_loadsample(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_loadsample() argument
9646 if(varlist[0]->vt != VT_STR) goto loadsample_error; in openbor_loadsample()
9650 if(varlist[1]->vt == VT_INTEGER) in openbor_loadsample()
9652 arg = varlist[1]->lVal; in openbor_loadsample()
9661 (*pretvar)->lVal = (LONG)sound_load_sample(StrCache_Get(varlist[0]->strVal), packfile, arg); in openbor_loadsample()
9671 HRESULT openbor_unloadsample(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_unloadsample() argument
9677 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &id))) in openbor_unloadsample()
9689 HRESULT openbor_fadeout(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_fadeout() argument
9696 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &type))) in openbor_fadeout()
9698 if(FAILED(ScriptVariant_IntegerValue((varlist[1]), &speed))) in openbor_fadeout()
9709 HRESULT openbor_changepalette(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_changepalette() argument
9717 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &index))) in openbor_changepalette()
9730 HRESULT openbor_changelight(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_changelight() argument
9739 arg = varlist[0]; in openbor_changelight()
9747 arg = varlist[1]; in openbor_changelight()
9764 HRESULT openbor_changeshadowcolor(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_changeshadowcolor() argument
9773 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &c))) in openbor_changeshadowcolor()
9780 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &a))) in openbor_changeshadowcolor()
9803 void mapstrings_gettextobjproperty(ScriptVariant** varlist, int paramCount) in mapstrings_gettextobjproperty() argument
9819 MAPSTRINGS(varlist[1], proplist, _gtop_the_end, in mapstrings_gettextobjproperty()
9823 HRESULT openbor_gettextobjproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_gettextobjproperty() argument
9832 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_gettextobjproperty()
9839 mapstrings_gettextobjproperty(varlist, paramCount); in openbor_gettextobjproperty()
9847 if(varlist[1]->vt != VT_INTEGER) in openbor_gettextobjproperty()
9849 if(varlist[1]->vt != VT_STR) in openbor_gettextobjproperty()
9854 propind = varlist[1]->lVal; in openbor_gettextobjproperty()
9919 void mapstrings_changetextobjproperty(ScriptVariant** varlist, int paramCount) in mapstrings_changetextobjproperty() argument
9934 MAPSTRINGS(varlist[1], proplist, _ctop_the_end, in mapstrings_changetextobjproperty()
9938 HRESULT openbor_changetextobjproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_changetextobjproperty() argument
9948 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_changetextobjproperty()
9955 mapstrings_changetextobjproperty(varlist, paramCount); in openbor_changetextobjproperty()
9963 if(varlist[1]->vt != VT_INTEGER) in openbor_changetextobjproperty()
9965 if(varlist[1]->vt != VT_STR) in openbor_changetextobjproperty()
9970 propind = varlist[1]->lVal; in openbor_changetextobjproperty()
9976 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
9985 if(varlist[2]->vt != VT_STR) in openbor_changetextobjproperty()
9994 strncpy(level->textobjs[ind].text, (char*)StrCache_Get(varlist[2]->strVal), MAX_STR_VAR_LEN); in openbor_changetextobjproperty()
10001 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
10010 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
10019 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
10028 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
10049 HRESULT openbor_settextobj(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_settextobj() argument
10057 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_settextobj()
10071 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_settextobj()
10077 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_settextobj()
10083 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_settextobj()
10089 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_settextobj()
10095 if(varlist[5]->vt != VT_STR) in openbor_settextobj()
10103 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_settextobj()
10114 strncpy(level->textobjs[ind].text, (char*)StrCache_Get(varlist[5]->strVal), MAX_STR_VAR_LEN); in openbor_settextobj()
10124 HRESULT openbor_cleartextobj(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_cleartextobj() argument
10132 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_cleartextobj()
10184 void mapstrings_getbglayerproperty(ScriptVariant** varlist, int paramCount) in mapstrings_getbglayerproperty() argument
10209 MAPSTRINGS(varlist[1], proplist, _gbglp_the_end, in mapstrings_getbglayerproperty()
10213 HRESULT openbor_getbglayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_getbglayerproperty() argument
10221 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getbglayerproperty()
10228 mapstrings_getbglayerproperty(varlist, paramCount); in openbor_getbglayerproperty()
10236 if(varlist[1]->vt != VT_INTEGER) in openbor_getbglayerproperty()
10242 propind = varlist[1]->lVal; in openbor_getbglayerproperty()
10378 void mapstrings_changebglayerproperty(ScriptVariant** varlist, int paramCount) in mapstrings_changebglayerproperty() argument
10403 MAPSTRINGS(varlist[1], proplist, _cbglp_the_end, in mapstrings_changebglayerproperty()
10407 HRESULT openbor_changebglayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_changebglayerproperty() argument
10418 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_changebglayerproperty()
10425 mapstrings_changebglayerproperty(varlist, paramCount); in openbor_changebglayerproperty()
10433 if(varlist[1]->vt != VT_INTEGER) in openbor_changebglayerproperty()
10439 propind = varlist[1]->lVal; in openbor_changebglayerproperty()
10445 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10454 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10463 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changebglayerproperty()
10472 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10481 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10490 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10500 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10509 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changebglayerproperty()
10518 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10527 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changebglayerproperty()
10536 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10545 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10554 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10563 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changebglayerproperty()
10572 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10581 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changebglayerproperty()
10623 void mapstrings_getfglayerproperty(ScriptVariant** varlist, int paramCount) in mapstrings_getfglayerproperty() argument
10648 MAPSTRINGS(varlist[1], proplist, _gfglp_the_end, in mapstrings_getfglayerproperty()
10652 HRESULT openbor_getfglayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_getfglayerproperty() argument
10661 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getfglayerproperty()
10668 mapstrings_getfglayerproperty(varlist, paramCount); in openbor_getfglayerproperty()
10676 if(varlist[1]->vt != VT_INTEGER) in openbor_getfglayerproperty()
10682 propind = varlist[1]->lVal; in openbor_getfglayerproperty()
10818 void mapstrings_changefglayerproperty(ScriptVariant** varlist, int paramCount) in mapstrings_changefglayerproperty() argument
10843 MAPSTRINGS(varlist[1], proplist, _cfglp_the_end, in mapstrings_changefglayerproperty()
10847 HRESULT openbor_changefglayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_changefglayerproperty() argument
10857 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_changefglayerproperty()
10864 mapstrings_changefglayerproperty(varlist, paramCount); in openbor_changefglayerproperty()
10872 if(varlist[1]->vt != VT_INTEGER) in openbor_changefglayerproperty()
10878 propind = varlist[1]->lVal; in openbor_changefglayerproperty()
10884 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10893 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10902 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changefglayerproperty()
10911 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10920 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10929 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10939 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10948 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changefglayerproperty()
10957 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10966 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changefglayerproperty()
10975 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10984 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
10993 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
11002 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changefglayerproperty()
11011 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
11020 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changefglayerproperty()
11040 HRESULT openbor_getlevelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getlevelproperty() argument
11063 if(varlist[0]->vt != VT_STR) in openbor_getlevelproperty()
11070 propname = (char*)StrCache_Get(varlist[0]->strVal);//see what property it is in openbor_getlevelproperty()
11114 HRESULT openbor_changelevelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_changelevelproperty() argument
11126 if(varlist[0]->vt != VT_STR) in openbor_changelevelproperty()
11135 propname = (char*)StrCache_Get(varlist[0]->strVal); in openbor_changelevelproperty()
11137 arg = varlist[1]; in openbor_changelevelproperty()
11174 HRESULT openbor_jumptobranch(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_jumptobranch() argument
11182 if(varlist[0]->vt != VT_STR) goto jumptobranch_error; in openbor_jumptobranch()
11184 …strncpy(branch_name, StrCache_Get(varlist[0]->strVal), MIN(MAX_NAME_LEN, MAX_STR_VAR_LEN)); // cop… in openbor_jumptobranch()
11188 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_jumptobranch()
11204 HRESULT openbor_bindentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_bindentity() argument
11218 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_bindentity()
11221 other = (entity*)(varlist[1])->ptrVal; in openbor_bindentity()
11228 arg = varlist[2]; in openbor_bindentity()
11237 arg = varlist[3]; in openbor_bindentity()
11245 arg = varlist[4]; in openbor_bindentity()
11253 arg = varlist[5]; in openbor_bindentity()
11261 arg = varlist[6]; in openbor_bindentity()
11275 HRESULT openbor_array(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_array() argument
11282 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &size))) in openbor_array()
11313 HRESULT openbor_size(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_size() argument
11316 if(varlist[0]->vt!=VT_PTR) goto size_error; in openbor_size()
11318 ScriptVariant_Copy(*pretvar, ((ScriptVariant*)varlist[0]->ptrVal)); in openbor_size()
11329 HRESULT openbor_get(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_get() argument
11335 if(varlist[0]->vt!=VT_PTR) goto get_error; in openbor_get()
11337 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_get()
11340 ScriptVariant_IntegerValue(((ScriptVariant*)varlist[0]->ptrVal), &size); in openbor_get()
11343 ScriptVariant_Copy(*pretvar, ((ScriptVariant*)varlist[0]->ptrVal)+ind+1); in openbor_get()
11358 HRESULT openbor_set(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_set() argument
11365 if(varlist[0]->vt!=VT_PTR) goto set_error; in openbor_set()
11367 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_set()
11370 ScriptVariant_IntegerValue(((ScriptVariant*)varlist[0]->ptrVal), &size); in openbor_set()
11373 ScriptVariant_Copy(((ScriptVariant*)varlist[0]->ptrVal)+ind+1, varlist[2]); in openbor_set()
11386 HRESULT openbor_allocscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_allocscreen() argument
11393 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &w))) in openbor_allocscreen()
11395 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &h))) in openbor_allocscreen()
11420 HRESULT openbor_clearscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_clearscreen() argument
11426 if(varlist[0]->vt != VT_PTR) goto clearscreen_error; in openbor_clearscreen()
11428 screen = (s_screen*)varlist[0]->ptrVal; in openbor_clearscreen()
11445 HRESULT openbor_setdrawmethod(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setdrawmethod() argument
11455 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_setdrawmethod()
11456 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_setdrawmethod()
11465 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) goto setdrawmethod_error; in openbor_setdrawmethod()
11468 …if(paramCount>=15 && varlist[13]->vt!=VT_PTR && varlist[13]->vt!=VT_EMPTY) goto setdrawmethod_erro… in openbor_setdrawmethod()
11482 if(paramCount>=14) pmethod->table=(unsigned char*)varlist[13]->ptrVal; in openbor_setdrawmethod()
11496 HRESULT openbor_updateframe(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_updateframe() argument
11505 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_updateframe()
11506 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_updateframe()
11511 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &f))) goto updateframe_error; in openbor_updateframe()
11523 HRESULT openbor_performattack(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_performattack() argument
11531 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_performattack()
11532 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_performattack()
11547 if(paramCount>1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) goto performattack_error; in openbor_performattack()
11548 …if(paramCount>2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) goto performattack… in openbor_performattack()
11559 HRESULT openbor_setidle(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setidle() argument
11568 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_setidle()
11569 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_setidle()
11585 if(paramCount>1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) goto setidle_error; in openbor_setidle()
11586 if(paramCount>2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) goto setidle_error; in openbor_setidle()
11587 if(paramCount>3 && FAILED(ScriptVariant_IntegerValue(varlist[3], &stalladd))) goto setidle_error; in openbor_setidle()
11600 HRESULT openbor_getentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getentity() argument
11607 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) goto getentity_error; in openbor_getentity()
11627 HRESULT openbor_loadmodel(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_loadmodel() argument
11631 if(varlist[0]->vt!=VT_STR) goto loadmodel_error; in openbor_loadmodel()
11635 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &unload))) goto loadmodel_error; in openbor_loadmodel()
11637 …(*pretvar)->ptrVal = (VOID*)load_cached_model(StrCache_Get(varlist[0]->strVal), "openbor_loadmodel… in openbor_loadmodel()
11650 HRESULT openbor_loadsprite(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_loadsprite() argument
11655 if(varlist[0]->vt!=VT_STR) goto loadsprite_error; in openbor_loadsprite()
11658 if(((*pretvar)->ptrVal = (VOID*)loadsprite2(StrCache_Get(varlist[0]->strVal), NULL, NULL))) in openbor_loadsprite()
11673 HRESULT openbor_playgif(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playgif() argument
11681 if(varlist[0]->vt!=VT_STR) goto playgif_error; in openbor_playgif()
11686 if(FAILED(ScriptVariant_IntegerValue(varlist[i+1], temp+i))) goto playgif_error; in openbor_playgif()
11688 …(*pretvar)->lVal = (LONG)playgif(StrCache_Get(varlist[0]->strVal), (int)(temp[0]), (int)(temp[1]),… in openbor_playgif()
11700 HRESULT openbor_zoom(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_zoom() argument
11708 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &zoom_center_x))) in openbor_zoom()
11710 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &zoom_center_y))) in openbor_zoom()
11712 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &zoom_scale_x))) in openbor_zoom()
11714 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &zoom_scale_y))) in openbor_zoom()
11716 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &zoom_z))) in openbor_zoom()