Lines Matching refs:varlist
1138 HRESULT system_isempty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_isempty() argument
1144 (*pretvar)->lVal = (LONG)((varlist[0])->vt == VT_EMPTY ); in system_isempty()
1149 HRESULT system_NULL(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_NULL() argument
1155 HRESULT system_rand(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_rand() argument
1162 HRESULT system_getglobalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_getglobalvar() argument
1170 if(varlist[0]->vt != VT_STR) in system_getglobalvar()
1176 ptmpvar = Script_Get_Global_Variant(StrCache_Get(varlist[0]->strVal)); in system_getglobalvar()
1182 HRESULT system_maxglobalvarindex(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_maxglobalvarindex() argument
1189 HRESULT system_setglobalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_setglobalvar() argument
1195 if(varlist[0]->vt != VT_STR) in system_setglobalvar()
1203 (*pretvar)->lVal = (LONG)Script_Set_Global_Variant(StrCache_Get(varlist[0]->strVal), (varlist[1])); in system_setglobalvar()
1208 HRESULT system_getlocalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_getlocalvar() argument
1216 if(varlist[0]->vt != VT_STR) in system_getlocalvar()
1222 ptmpvar = Script_Get_Local_Variant(pcurrentscript, StrCache_Get(varlist[0]->strVal)); in system_getlocalvar()
1228 HRESULT system_setlocalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_setlocalvar() argument
1234 if(varlist[0]->vt != VT_STR) in system_setlocalvar()
1242 …Val = (LONG)Script_Set_Local_Variant(pcurrentscript, StrCache_Get(varlist[0]->strVal), varlist[1]); in system_setlocalvar()
1247 HRESULT system_clearlocalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_clearlocalvar() argument
1254 HRESULT system_clearglobalvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_clearglobalvar() argument
1262 HRESULT system_clearindexedvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_clearindexedvar() argument
1271 HRESULT system_free(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in system_free() argument
1275 if(List_Includes(&scriptheap, varlist[0]->ptrVal)) in system_free()
1384 void mapstrings_systemvariant(ScriptVariant** varlist, int paramCount) in mapstrings_systemvariant() argument
1390 MAPSTRINGS(varlist[0], svlist, _sv_the_end, in mapstrings_systemvariant()
1396 HRESULT openbor_systemvariant(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_systemvariant() argument
1404 mapstrings_systemvariant(varlist, paramCount); in openbor_systemvariant()
1407 if(varlist[0]->vt == VT_INTEGER) in openbor_systemvariant()
1408 variantindex = varlist[0]->lVal; in openbor_systemvariant()
1427 HRESULT openbor_changesystemvariant(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_changesystemvariant() argument
1437 mapstrings_systemvariant(varlist, paramCount); in openbor_changesystemvariant()
1439 arg = varlist[0]; in openbor_changesystemvariant()
1446 if(changesyspropertybyindex(variantindex, varlist[1])) in openbor_changesystemvariant()
1459 HRESULT openbor_drawstring(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawstring() argument
1470 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawstring()
1475 if(FAILED(ScriptVariant_IntegerValue(varlist[4], value+3))) in openbor_drawstring()
1479 ScriptVariant_ToString(varlist[3], buf); in openbor_drawstring()
1490 HRESULT openbor_drawstringtoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_drawstringtoscreen() argument
1500 if(varlist[0]->vt!=VT_PTR) goto drawstring_error; in openbor_drawstringtoscreen()
1501 scr = (s_screen*)varlist[0]->ptrVal; in openbor_drawstringtoscreen()
1506 if(FAILED(ScriptVariant_IntegerValue(varlist[i+1], value+i))) in openbor_drawstringtoscreen()
1510 ScriptVariant_ToString(varlist[4], buf); in openbor_drawstringtoscreen()
1521 HRESULT openbor_log(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_log() argument
1528 ScriptVariant_ToString(varlist[0], buf); in openbor_log()
1538 HRESULT openbor_drawbox(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawbox() argument
1548 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawbox()
1554 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawbox()
1573 HRESULT openbor_drawboxtoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawboxtoscreen() argument
1582 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawboxtoscreen()
1588 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawboxtoscreen()
1594 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawboxtoscreen()
1624 HRESULT openbor_drawline(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawline() argument
1634 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawline()
1640 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawline()
1659 HRESULT openbor_drawlinetoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawlinetoscreen() argument
1668 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawlinetoscreen()
1674 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawlinetoscreen()
1680 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawlinetoscreen()
1709 HRESULT openbor_drawsprite(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawsprite() argument
1717 if(varlist[0]->vt!=VT_PTR) goto drawsprite_error; in openbor_drawsprite()
1719 spr = varlist[0]->ptrVal; in openbor_drawsprite()
1725 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawsprite()
1739 HRESULT openbor_drawspritetoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_drawspritetoscreen() argument
1748 if(varlist[0]->vt!=VT_PTR) goto drawsprite_error; in openbor_drawspritetoscreen()
1749 spr = varlist[0]->ptrVal; in openbor_drawspritetoscreen()
1752 if(varlist[1]->vt!=VT_PTR) goto drawsprite_error; in openbor_drawspritetoscreen()
1753 scr = varlist[1]->ptrVal; in openbor_drawspritetoscreen()
1758 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-2))) in openbor_drawspritetoscreen()
1772 HRESULT openbor_setvertex(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setvertex() argument
1781 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_setvertex()
1804 HRESULT openbor_settexture(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_settexture() argument
1811 if(varlist[0]->vt!=VT_PTR) goto texture_error; in openbor_settexture()
1813 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &type))) in openbor_settexture()
1818 texture.screen = (s_screen*)varlist[0]->ptrVal; in openbor_settexture()
1821 texture.bitmap = (s_bitmap*)varlist[0]->ptrVal; in openbor_settexture()
1824 texture.sprite = (s_sprite*)varlist[0]->ptrVal; in openbor_settexture()
1844 HRESULT openbor_trianglelist(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_trianglelist() argument
1854 if(varlist[0]->vt!=VT_PTR && varlist[0]->vt!=VT_EMPTY) goto trianglelist_error; in openbor_trianglelist()
1855 scr = (s_screen*)varlist[0]->ptrVal; in openbor_trianglelist()
1859 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &triangle_start))) in openbor_trianglelist()
1862 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &triangle_count))) in openbor_trianglelist()
1885 HRESULT openbor_drawdot(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawdot() argument
1895 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_drawdot()
1901 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdot()
1920 HRESULT openbor_drawdottoscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawdottoscreen() argument
1929 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawdottoscreen()
1935 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawdottoscreen()
1941 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdottoscreen()
1972 HRESULT openbor_drawscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_drawscreen() argument
1982 s = (s_screen*)varlist[0]->ptrVal; in openbor_drawscreen()
1988 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawscreen()
1994 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawscreen()
2021 HRESULT openbor_getindexedvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getindexedvar() argument
2033 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getindexedvar()
2048 HRESULT openbor_setindexedvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setindexedvar() argument
2058 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_setindexedvar()
2073 ScriptVariant_Copy(indexed_var_list+ind, varlist[1]); in openbor_setindexedvar()
2080 HRESULT openbor_getscriptvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getscriptvar() argument
2090 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getscriptvar()
2107 HRESULT openbor_setscriptvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setscriptvar() argument
2117 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_setscriptvar()
2132 ScriptVariant_Copy(pcurrentscript->vars+ind, varlist[1]); in openbor_setscriptvar()
2139 HRESULT openbor_getentityvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getentityvar() argument
2152 arg = varlist[0]; in openbor_getentityvar()
2165 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_getentityvar()
2180 HRESULT openbor_setentityvar(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setentityvar() argument
2192 arg = varlist[0]; in openbor_setentityvar()
2208 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_setentityvar()
2217 ScriptVariant_Copy(ent->entvars+ind, varlist[2]); in openbor_setentityvar()
2224 HRESULT openbor_strinfirst(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strinfirst() argument
2236 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_STR) in openbor_strinfirst()
2241 tempstr = strstr((char*)StrCache_Get(varlist[0]->strVal), (char*)StrCache_Get(varlist[1]->strVal)); in openbor_strinfirst()
2257 HRESULT openbor_strinlast(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strinlast() argument
2269 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_STR) in openbor_strinlast()
2274 tempstr = strrchr((char*)StrCache_Get(varlist[0]->strVal), varlist[1]->strVal); in openbor_strinlast()
2290 HRESULT openbor_strleft(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strleft() argument
2299 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_INTEGER) in openbor_strleft()
2304 strncpy(tempstr, (char*)StrCache_Get(varlist[0]->strVal), varlist[1]->lVal); in openbor_strleft()
2322 HRESULT openbor_strlength(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strlength() argument
2324 if(paramCount < 1 || varlist[0]->vt!=VT_STR) goto strlength_error; in openbor_strlength()
2327 (*pretvar)->lVal = strlen((char*)StrCache_Get(varlist[0]->strVal)); in openbor_strlength()
2337 HRESULT openbor_strwidth(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strwidth() argument
2340 if(paramCount < 2 || varlist[0]->vt!=VT_STR || in openbor_strwidth()
2341 FAILED(ScriptVariant_IntegerValue(varlist[1], <emp))) goto strwidth_error; in openbor_strwidth()
2344 (*pretvar)->lVal = font_string_width((int)ltemp, (char*)StrCache_Get(varlist[0]->strVal)); in openbor_strwidth()
2354 HRESULT openbor_strright(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_strright() argument
2364 if(varlist[0]->vt!=VT_STR || varlist[1]->vt!=VT_INTEGER) in openbor_strright()
2370 tempstr = (char*)StrCache_Get(varlist[0]->strVal); in openbor_strright()
2375 strcpy(StrCache_Get((*pretvar)->strVal), &tempstr[varlist[1]->lVal]); in openbor_strright()
2386 HRESULT openbor_getmodelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getmodelproperty() argument
2396 if(varlist[0]->vt!=VT_INTEGER || varlist[1]->vt!=VT_INTEGER) in openbor_getmodelproperty()
2401 iArg = varlist[0]->lVal; in openbor_getmodelproperty()
2403 switch (varlist[1]->lVal) in openbor_getmodelproperty()
2439 HRESULT openbor_changemodelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_changemodelproperty() argument
2450 if(varlist[0]->vt!=VT_INTEGER || varlist[1]->vt!=VT_INTEGER) in openbor_changemodelproperty()
2455 iArg = varlist[0]->lVal; in openbor_changemodelproperty()
2457 switch (varlist[1]->lVal) in openbor_changemodelproperty()
2509 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changemodelproperty()
3075 void mapstrings_getentityproperty(ScriptVariant** varlist, int paramCount) in mapstrings_getentityproperty() argument
3236 MAPSTRINGS(varlist[1], eplist, _ep_the_end, in mapstrings_getentityproperty()
3242 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_aiflag)) in mapstrings_getentityproperty()
3244 MAPSTRINGS(varlist[2], eplist_aiflag, _ep_aiflag_the_end, in mapstrings_getentityproperty()
3249 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_attack)) in mapstrings_getentityproperty()
3251 MAPSTRINGS(varlist[2], proplist_attack, _gep_attack_the_end, in mapstrings_getentityproperty()
3256 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_defense)) in mapstrings_getentityproperty()
3260 MAPSTRINGS(varlist[3], proplist_defense, _gep_defense_the_end, in mapstrings_getentityproperty()
3266 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_dot)) in mapstrings_getentityproperty()
3268 MAPSTRINGS(varlist[2], proplist_dot, _gep_dot_the_end, in mapstrings_getentityproperty()
3273 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_edelay)) in mapstrings_getentityproperty()
3275 MAPSTRINGS(varlist[2], proplist_edelay, _gep_edelay_the_end, in mapstrings_getentityproperty()
3280 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_energycost)) in mapstrings_getentityproperty()
3282 MAPSTRINGS(varlist[2], proplist_energycost, _gep_energycost_the_end, in mapstrings_getentityproperty()
3287 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_flash)) in mapstrings_getentityproperty()
3289 MAPSTRINGS(varlist[2], proplist_flash, _gep_flash_the_end, in mapstrings_getentityproperty()
3294 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_icon)) in mapstrings_getentityproperty()
3296 MAPSTRINGS(varlist[2], proplist_icon, _gep_icon_the_end, in mapstrings_getentityproperty()
3301 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_knockdowncount)) in mapstrings_getentityproperty()
3303 MAPSTRINGS(varlist[2], proplist_knockdowncount, _gep_knockdowncount_the_end, in mapstrings_getentityproperty()
3308 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_landframe)) in mapstrings_getentityproperty()
3310 MAPSTRINGS(varlist[2], proplist_landframe, _gep_landframe_the_end, in mapstrings_getentityproperty()
3315 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_maps)) in mapstrings_getentityproperty()
3317 MAPSTRINGS(varlist[2], proplist_maps, _gep_maps_the_end, in mapstrings_getentityproperty()
3322 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_range)) in mapstrings_getentityproperty()
3324 MAPSTRINGS(varlist[2], proplist_range, _gep_range_the_end, in mapstrings_getentityproperty()
3329 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_running)) in mapstrings_getentityproperty()
3331 MAPSTRINGS(varlist[2], proplist_running, _gep_running_the_end, in mapstrings_getentityproperty()
3336 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_spritea)) in mapstrings_getentityproperty()
3338 MAPSTRINGS(varlist[2], proplist_spritea, _gep_spritea_the_end, in mapstrings_getentityproperty()
3343 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_staydown)) in mapstrings_getentityproperty()
3345 MAPSTRINGS(varlist[2], proplist_staydown, _gep_running_the_end, in mapstrings_getentityproperty()
3351 HRESULT openbor_getentityproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getentityproperty() argument
3371 mapstrings_getentityproperty(varlist, paramCount); in openbor_getentityproperty()
3373 arg = varlist[0]; in openbor_getentityproperty()
3383 arg = varlist[1]; in openbor_getentityproperty()
3414 arg = varlist[2]; in openbor_getentityproperty()
3631 arg = varlist[2]; in openbor_getentityproperty()
3654 arg = varlist[2]; in openbor_getentityproperty()
3662 if(varlist[3]->vt != VT_INTEGER in openbor_getentityproperty()
3663 || varlist[4]->vt != VT_INTEGER in openbor_getentityproperty()
3664 || varlist[5]->vt != VT_INTEGER) in openbor_getentityproperty()
3671 i = varlist[4]->lVal; //Animation parameter. in openbor_getentityproperty()
3672 tempint = varlist[5]->lVal; //Frame parameter. in openbor_getentityproperty()
3693 (*pretvar)->lVal = (LONG)attack->attack_coords[varlist[6]->lVal]; in openbor_getentityproperty()
3733 (*pretvar)->dblVal = (DOUBLE)attack->dropv[varlist[6]->lVal]; in openbor_getentityproperty()
3860 || varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
3861 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
3866 i = varlist[2]->lVal; //Animation parameter. in openbor_getentityproperty()
3867 tempint = varlist[3]->lVal; //Frame parameter. in openbor_getentityproperty()
3876 || varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
3877 || varlist[3]->vt != VT_INTEGER in openbor_getentityproperty()
3878 || varlist[4]->vt != VT_INTEGER in openbor_getentityproperty()
3879 || varlist[5]->vt != VT_INTEGER) in openbor_getentityproperty()
3886 i = varlist[3]->lVal; //Animation parameter. in openbor_getentityproperty()
3887 tempint = varlist[4]->lVal; //Frame parameter. in openbor_getentityproperty()
3899 (*pretvar)->lVal = (LONG)coords[varlist[5]->lVal]; in openbor_getentityproperty()
3910 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
3922 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
3953 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))){ in openbor_getentityproperty()
3995 (*pretvar)->ptrVal = (VOID*)(ent->modeldata.colourmap[varlist[2]->lVal]); in openbor_getentityproperty()
4022 if(FAILED(ScriptVariant_IntegerValue(varlist[2], <emp))){ in openbor_getentityproperty()
4030 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_getentityproperty()
4093 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
4096 arg = varlist[3]; in openbor_getentityproperty()
4156 arg = varlist[2]; in openbor_getentityproperty()
4166 arg = varlist[2]; in openbor_getentityproperty()
4224 if(varlist[2]->vt != VT_INTEGER) in openbor_getentityproperty()
4226 if(varlist[2]->vt != VT_STR) in openbor_getentityproperty()
4233 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4234 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
4287 arg = varlist[2]; in openbor_getentityproperty()
4401 arg = varlist[2]; in openbor_getentityproperty()
4525 arg = varlist[2]; in openbor_getentityproperty()
4575 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4576 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
4581 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4582 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
4660 arg = varlist[2]; in openbor_getentityproperty()
4886 arg = varlist[2]; in openbor_getentityproperty()
4953 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4954 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
4959 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
4960 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
5008 (*pretvar)->lVal = (LONG)coords[varlist[4]->lVal]; in openbor_getentityproperty()
5014 arg = varlist[2]; in openbor_getentityproperty()
5135 ltemp = varlist[2]->lVal; in openbor_getentityproperty()
5136 arg = varlist[3]; in openbor_getentityproperty()
5137 arg1 = varlist[4]; in openbor_getentityproperty()
5198 arg = varlist[2]; in openbor_getentityproperty()
5199 arg1 = varlist[3]; in openbor_getentityproperty()
5224 arg = varlist[2]; in openbor_getentityproperty()
5500 void mapstrings_changeentityproperty(ScriptVariant** varlist, int paramCount) in mapstrings_changeentityproperty() argument
5576 MAPSTRINGS(varlist[1], eplist, _ep_the_end, in mapstrings_changeentityproperty()
5580 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_aiflag)) in mapstrings_changeentityproperty()
5582 MAPSTRINGS(varlist[2], eplist_aiflag, _ep_aiflag_the_end, in mapstrings_changeentityproperty()
5587 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_energycost)) in mapstrings_changeentityproperty()
5589 MAPSTRINGS(varlist[2], proplist_energycost, _cep_energycost_the_end, in mapstrings_changeentityproperty()
5594 if((varlist[1]->vt == VT_INTEGER) && in mapstrings_changeentityproperty()
5595 …((varlist[1]->lVal == _ep_hostile) || (varlist[1]->lVal == _ep_candamage) || (varlist[1]->lVal == … in mapstrings_changeentityproperty()
5599 MAPSTRINGS(varlist[i], proplist_hostile_candamage, _cep_hcd_the_end, in mapstrings_changeentityproperty()
5605 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_knockdowncount)) in mapstrings_changeentityproperty()
5607 MAPSTRINGS(varlist[2], proplist_knockdowncount, _cep_knockdowncount_the_end, in mapstrings_changeentityproperty()
5612 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_spritea)) in mapstrings_changeentityproperty()
5614 MAPSTRINGS(varlist[2], proplist_spritea, _cep_spritea_the_end, in mapstrings_changeentityproperty()
5619 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_staydown)) in mapstrings_changeentityproperty()
5621 MAPSTRINGS(varlist[2], proplist_staydown, _cep_staydown_the_end, in mapstrings_changeentityproperty()
5626 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_takeaction)) in mapstrings_changeentityproperty()
5628 MAPSTRINGS(varlist[2], proplist_takeaction, _cep_ta_the_end, in mapstrings_changeentityproperty()
5633 if((varlist[1]->vt == VT_INTEGER) && (varlist[1]->lVal == _ep_think)) in mapstrings_changeentityproperty()
5635 MAPSTRINGS(varlist[2], proplist_think, _cep_th_the_end, in mapstrings_changeentityproperty()
5641 HRESULT openbor_changeentityproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCo… in openbor_changeentityproperty() argument
5703 mapstrings_changeentityproperty(varlist, paramCount); in openbor_changeentityproperty()
5705 if(varlist[0]->vt != VT_PTR && varlist[0]->vt != VT_EMPTY) in openbor_changeentityproperty()
5710 ent = (entity*)varlist[0]->ptrVal; //retrieve the entity in openbor_changeentityproperty()
5716 if(varlist[1]->vt != VT_INTEGER) in openbor_changeentityproperty()
5718 if(varlist[1]->vt != VT_STR) in openbor_changeentityproperty()
5723 propind = varlist[1]->lVal; in openbor_changeentityproperty()
5729 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5735 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5741 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
5743 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
5749 switch(varlist[2]->lVal) in openbor_changeentityproperty()
5753 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5759 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5765 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5771 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5777 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5783 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5789 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5795 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5801 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5807 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5813 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5819 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5825 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5831 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5837 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5843 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5849 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5855 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5861 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5867 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
5884 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5890 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5896 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5899 if(paramCount < 4 || SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
5906 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5912 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5918 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5924 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
5930 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5936 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5942 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5948 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
5954 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5960 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5966 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5972 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5978 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5984 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
5990 …if(varlist[2]->vt == VT_INTEGER && paramCount==3 && (varlist[2]->lVal&TYPE_RESERVED)){ //trick for… in openbor_changeentityproperty()
5991 ent->modeldata.candamage = varlist[2]->lVal; in openbor_changeentityproperty()
5999 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6001 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6018 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6019 SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
6025 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6031 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6037 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6043 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6049 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6054 tempmodel = findmodel((char*)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
6067 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6069 SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6073 …if(paramCount >= 5 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltem… in openbor_changeentityproperty()
6075 …if(paramCount >= 6 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltem… in openbor_changeentityproperty()
6077 …if(paramCount >= 7 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltem… in openbor_changeentityproperty()
6079 …if(paramCount >= 8 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltem… in openbor_changeentityproperty()
6081 …if(paramCount >= 9 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[8], &dbltem… in openbor_changeentityproperty()
6083 if(paramCount >= 10 && ltemp2 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[9], &dbltemp))) in openbor_changeentityproperty()
6090 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6096 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6102 if((SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)))) in openbor_changeentityproperty()
6105 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6107 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6109 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6111 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6113 if(paramCount >= 8 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
6116 ent->dot_owner[i] = (entity*)varlist[8]->ptrVal; in openbor_changeentityproperty()
6122 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6124 if(paramCount >= 3 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6126 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6128 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
6130 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_changeentityproperty()
6132 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[7], <emp))) in openbor_changeentityproperty()
6145 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6159 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6165 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6169 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6175 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6181 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6193 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6199 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6205 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6211 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6217 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6223 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6229 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6235 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6241 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6247 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6253 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6263 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6269 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6275 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6282 …if(varlist[2]->vt == VT_INTEGER && paramCount==3 && (varlist[2]->lVal&TYPE_RESERVED)){ //trick for… in openbor_changeentityproperty()
6283 ent->modeldata.hostile = varlist[2]->lVal; in openbor_changeentityproperty()
6290 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6292 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6306 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6308 if(paramCount>3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6314 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6320 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6326 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6332 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6334 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6343 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6347 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6353 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6357 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6369 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6371 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6377 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6379 if(paramCount>3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6385 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6391 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6397 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6403 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6409 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6415 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6421 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6430 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6436 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6445 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6450 tempstr = (char*)StrCache_Get(varlist[2]->strVal); in openbor_changeentityproperty()
6451 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6460 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6470 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6472 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6474 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6476 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6478 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6480 if(paramCount >= 8 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
6486 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6491 strcpy(ent->name, (char*)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
6496 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6498 if(paramCount>3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6504 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6510 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6516 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6522 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6528 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6534 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6540 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6546 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6552 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6559 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6561 SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6567 ent->opponent = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
6572 ent->owner = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
6577 ent->parent = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
6582 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6588 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6590 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6592 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6598 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6604 …if(varlist[2]->vt == VT_INTEGER && paramCount==3 && (varlist[2]->lVal&TYPE_RESERVED)){ //trick for… in openbor_changeentityproperty()
6605 ent->modeldata.projectilehit = varlist[2]->lVal; in openbor_changeentityproperty()
6613 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6615 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6629 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6631 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6633 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6635 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6637 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6644 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6650 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6656 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6662 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6668 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6674 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6680 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6686 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6692 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6698 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6700 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6711 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
6716 …if(!validanim(ent, varlist[3]->lVal) || !(ent->modeldata.animation[varlist[3]->lVal]->numframes >=… in openbor_changeentityproperty()
6721 … i = ent->modeldata.animation[varlist[3]->lVal]->sprite[varlist[4]->lVal]; //Get sprite index. in openbor_changeentityproperty()
6727 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
6734 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
6740 if(varlist[5]->vt != VT_STR) in openbor_changeentityproperty()
6745 strcpy(sprite_map[i].node->filename, (char*)StrCache_Get(varlist[5]->strVal)); in openbor_changeentityproperty()
6769 sprite_map[i].node->sprite = (VOID*)varlist[5]->ptrVal; in openbor_changeentityproperty()
6781 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6789 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6791 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6793 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6808 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6810 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6820 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6824 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6830 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6836 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6848 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6855 ent->subentity = (entity*)varlist[2]->ptrVal; in openbor_changeentityproperty()
6861 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6867 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6873 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6879 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6885 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6891 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6897 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6903 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6909 if(varlist[2]->vt == VT_STR) in openbor_changeentityproperty()
6914 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6921 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
6931 if(varlist[2]->vt == VT_STR) in openbor_changeentityproperty()
6936 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6943 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
6953 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6959 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6965 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6971 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6977 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6983 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6989 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7002 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7008 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7015 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7017 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7019 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7025 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7028 if(paramCount < 4 || SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
7045 HRESULT openbor_tossentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_tossentity()
7052 ent = (entity*)varlist[0]->ptrVal; //retrieve the entity in openbor_tossentity()
7058 if(paramCount >= 2) ScriptVariant_DecimalValue(varlist[1], &height); in openbor_tossentity()
7059 if(paramCount >= 3) ScriptVariant_DecimalValue(varlist[2], &speedx); in openbor_tossentity()
7060 if(paramCount >= 4) ScriptVariant_DecimalValue(varlist[3], &speedz); in openbor_tossentity()
7089 void mapstrings_playerproperty(ScriptVariant** varlist, int paramCount)
7111 MAPSTRINGS(varlist[1], proplist, _pp_the_end,
7116 HRESULT openbor_getplayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getplayerproperty()
7130 mapstrings_playerproperty(varlist, paramCount); in openbor_getplayerproperty()
7133 arg = varlist[0]; in openbor_getplayerproperty()
7142 arg = varlist[1]; in openbor_getplayerproperty()
7223 HRESULT openbor_changeplayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCo… in openbor_changeplayerproperty()
7238 mapstrings_playerproperty(varlist, paramCount); in openbor_changeplayerproperty()
7241 arg = varlist[0]; in openbor_changeplayerproperty()
7249 if(varlist[1]->vt != VT_INTEGER) in openbor_changeplayerproperty()
7251 if(varlist[1]->vt != VT_STR) in openbor_changeplayerproperty()
7255 prop = varlist[1]->lVal; in openbor_changeplayerproperty()
7257 arg = varlist[2]; in openbor_changeplayerproperty()
7281 arg = varlist[3]; in openbor_changeplayerproperty()
7359 HRESULT openbor_checkhole(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_checkhole()
7373 arg = varlist[0]; in openbor_checkhole()
7377 arg = varlist[1]; in openbor_checkhole()
7386 HRESULT openbor_checkwall(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_checkwall()
7401 arg = varlist[0]; in openbor_checkwall()
7405 arg = varlist[1]; in openbor_checkwall()
7417 HRESULT openbor_checkplatformbelow(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_checkplatformbelow()
7431 arg = varlist[0]; in openbor_checkplatformbelow()
7435 arg = varlist[1]; in openbor_checkplatformbelow()
7439 arg = varlist[2]; in openbor_checkplatformbelow()
7448 HRESULT openbor_openfilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount)
7470 arg = varlist[0];
7482 arg = varlist[1];
7555 HRESULT openbor_getfilestreamline(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getfilestreamline()
7568 arg = varlist[0]; in openbor_getfilestreamline()
7590 HRESULT openbor_getfilestreamargument(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC…
7602 arg = varlist[0];
7606 arg = varlist[1];
7611 if(varlist[2]->vt != VT_STR)
7616 argtype = (char*)StrCache_Get(varlist[2]->strVal);
7642 HRESULT openbor_filestreamnextline(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_filestreamnextline()
7653 arg = varlist[0]; in openbor_filestreamnextline()
7662 HRESULT openbor_getfilestreamposition(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC…
7673 arg = varlist[0];
7682 HRESULT openbor_setfilestreamposition(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_setfilestreamposition()
7694 arg = varlist[0]; in openbor_setfilestreamposition()
7698 arg = varlist[1]; in openbor_setfilestreamposition()
7706 HRESULT openbor_filestreamappend(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount)
7725 arg = varlist[0];
7729 arg = varlist[1];
7755 arg = varlist[2];
7781 HRESULT openbor_createfilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_createfilestream()
7809 HRESULT openbor_savefilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount)
7825 arg = varlist[0];
7831 arg = varlist[1];
7872 HRESULT openbor_closefilestream(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_closefilestream()
7882 arg = varlist[0]; in openbor_closefilestream()
7895 HRESULT openbor_damageentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_damageentity()
7913 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_damageentity()
7923 other = (entity*)(varlist[1])->ptrVal; in openbor_damageentity()
7929 if(FAILED(ScriptVariant_IntegerValue((varlist[2]), &force))) in openbor_damageentity()
7943 if(FAILED(ScriptVariant_IntegerValue((varlist[3]), &drop))) in openbor_damageentity()
7948 if(FAILED(ScriptVariant_IntegerValue((varlist[4]), &type))) in openbor_damageentity()
7964 HRESULT openbor_killentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_killentity()
7976 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_killentity()
7988 HRESULT openbor_findtarget(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_findtarget()
7995 if(paramCount>2) ScriptVariant_IntegerValue(varlist[2], &i); in openbor_findtarget()
8005 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_findtarget()
8011 if(paramCount>1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) return E_FAIL; in openbor_findtarget()
8022 HRESULT openbor_checkrange(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_checkrange()
8032 if(varlist[0]->vt !=VT_PTR || varlist[1]->vt!=VT_PTR) goto checkrange_error; in openbor_checkrange()
8034 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_checkrange()
8035 target = (entity*)(varlist[1])->ptrVal; //retrieve the target in openbor_checkrange()
8039 if(paramCount >2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &ani))) goto checkrange_error; in openbor_checkrange()
8059 HRESULT openbor_clearspawnentry(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_clearspawnentry()
8098 void mapstrings_setspawnentry(ScriptVariant** varlist, int paramCount)
8131 MAPSTRINGS(varlist[0], proplist, _sse_the_end,
8136 HRESULT openbor_setspawnentry(ScriptVariant** varlist, ScriptVariant** pretvar, int paramCount) in openbor_setspawnentry()
8153 mapstrings_setspawnentry(varlist, paramCount); in openbor_setspawnentry()
8154 if(varlist[0]->vt != VT_INTEGER) in openbor_setspawnentry()
8156 if(varlist[0]->vt != VT_STR) in openbor_setspawnentry()
8162 prop = varlist[0]->lVal; in openbor_setspawnentry()
8164 arg = varlist[1]; in openbor_setspawnentry()
8239 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) spawnentry.z = (float)dbltemp; in openbor_setspawnentry()
8244 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) spawnentry.a = (float)dbltemp; in openbor_setspawnentry()
8281 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_setspawnentry()
8287 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_setspawnentry()
8334 HRESULT openbor_spawn(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_spawn()
8353 HRESULT openbor_projectile(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_projectile()
8367 if(paramCount>=1 && varlist[0]->vt==VT_INTEGER && varlist[0]->lVal){ in openbor_projectile()
8370 varlist++; in openbor_projectile()
8373 if(paramCount>=1 && varlist[0]->vt == VT_STR) name = StrCache_Get(varlist[0]->strVal); in openbor_projectile()
8375 if(paramCount>=2 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[1], &temp))) x = (float)temp; in openbor_projectile()
8378 if(paramCount>=3 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &temp))) z = (float)temp; in openbor_projectile()
8381 if(paramCount>=4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &temp))) a = (float)temp; in openbor_projectile()
8384 …if(paramCount>=5 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) direction = (int)lt… in openbor_projectile()
8387 if(paramCount>=6 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) ptype = (int)ltemp; in openbor_projectile()
8388 if(paramCount>=7 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) type = (int)ltemp; in openbor_projectile()
8389 if(paramCount>=8 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[7], <emp))) map = (int)ltemp; in openbor_projectile()
8422 ScriptVariant_ChangeType(varlist[0], VT_INTEGER);\
8423 varlist[0]->lVal = (LONG)x;\
8426 void mapstrings_transconst(ScriptVariant** varlist, int paramCount)
8432 if(varlist[0]->vt == VT_STR)
8434 constname = (char*)StrCache_Get(varlist[0]->strVal);
8772 HRESULT openbor_transconst(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_transconst()
8783 mapstrings_transconst(varlist, paramCount); in openbor_transconst()
8786 if(varlist[0]->vt == VT_INTEGER) // return value already determined by mapstrings in openbor_transconst()
8788 (*pretvar)->lVal = varlist[0]->lVal; in openbor_transconst()
8791 else if(varlist[0]->vt != VT_STR) in openbor_transconst()
8798 constname = StrCache_Get(varlist[0]->strVal); in openbor_transconst()
8891 HRESULT openbor_rgbcolor(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_rgbcolor()
8896 …if(FAILED(ScriptVariant_IntegerValue(varlist[0], &r))) goto rgbcolor_error; // decimal/integer val… in openbor_rgbcolor()
8897 …if(FAILED(ScriptVariant_IntegerValue(varlist[1], &g))) goto rgbcolor_error; // decimal/integer val… in openbor_rgbcolor()
8898 …if(FAILED(ScriptVariant_IntegerValue(varlist[2], &b))) goto rgbcolor_error; // decimal/integer val… in openbor_rgbcolor()
8929 void mapstrings_playerkeys(ScriptVariant** varlist, int paramCount)
8954 MAPSTRINGS(varlist[i], proplist, _pk_the_end,
8960 HRESULT openbor_playerkeys(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playerkeys()
8977 mapstrings_playerkeys(varlist, paramCount); in openbor_playerkeys()
8979 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), <emp))) in openbor_playerkeys()
8984 if(SUCCEEDED(ScriptVariant_IntegerValue((varlist[1]), <emp))) in openbor_playerkeys()
8994 arg = varlist[i]; in openbor_playerkeys()
9053 HRESULT openbor_playmusic(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playmusic()
9065 if(varlist[0]->vt != VT_STR) in openbor_playmusic()
9070 thename = StrCache_Get(varlist[0]->strVal); in openbor_playmusic()
9074 loop = (int)ScriptVariant_IsTrue(varlist[1]); in openbor_playmusic()
9079 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &offset))) in openbor_playmusic()
9089 HRESULT openbor_fademusic(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_fademusic()
9095 if(FAILED(ScriptVariant_DecimalValue(varlist[0], &value))) goto fademusic_error; in openbor_fademusic()
9101 strncpy(musicname, StrCache_Get(varlist[1]->strVal), 128); in openbor_fademusic()
9102 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &values[0]))) goto fademusic_error; in openbor_fademusic()
9103 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &values[1]))) goto fademusic_error; in openbor_fademusic()
9115 HRESULT openbor_setmusicvolume(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setmusicvolume()
9124 if(FAILED(ScriptVariant_IntegerValue(varlist[0], channels))) in openbor_setmusicvolume()
9129 if(FAILED(ScriptVariant_IntegerValue(varlist[1], channels+1))) in openbor_setmusicvolume()
9144 HRESULT openbor_setmusictempo(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setmusictempo()
9153 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &new_tempo))) in openbor_setmusictempo()
9161 HRESULT openbor_pausemusic(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_pausemusic()
9169 pause = (int)ScriptVariant_IsTrue(varlist[0]); in openbor_pausemusic()
9176 HRESULT openbor_playsample(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playsample()
9184 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i))) in openbor_playsample()
9203 HRESULT openbor_loadsample(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_loadsample()
9211 if(varlist[0]->vt != VT_STR) goto loadsample_error; in openbor_loadsample()
9215 if(varlist[1]->vt == VT_INTEGER) in openbor_loadsample()
9217 arg = varlist[1]->lVal; in openbor_loadsample()
9226 (*pretvar)->lVal = (LONG)sound_load_sample(StrCache_Get(varlist[0]->strVal), packfile, arg); in openbor_loadsample()
9236 HRESULT openbor_unloadsample(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_unloadsample()
9242 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &id))) in openbor_unloadsample()
9254 HRESULT openbor_fadeout(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_fadeout()
9261 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &type))) in openbor_fadeout()
9263 if(FAILED(ScriptVariant_IntegerValue((varlist[1]), &speed))) in openbor_fadeout()
9274 HRESULT openbor_changepalette(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_changepalette()
9282 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &index))) in openbor_changepalette()
9295 HRESULT openbor_changelight(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_changelight()
9304 arg = varlist[0]; in openbor_changelight()
9312 arg = varlist[1]; in openbor_changelight()
9329 HRESULT openbor_changeshadowcolor(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_changeshadowcolor()
9338 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &c))) in openbor_changeshadowcolor()
9345 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &a))) in openbor_changeshadowcolor()
9368 void mapstrings_gettextobjproperty(ScriptVariant** varlist, int paramCount)
9384 MAPSTRINGS(varlist[1], proplist, _gtop_the_end,
9388 HRESULT openbor_gettextobjproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun… in openbor_gettextobjproperty()
9397 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_gettextobjproperty()
9404 mapstrings_gettextobjproperty(varlist, paramCount); in openbor_gettextobjproperty()
9412 if(varlist[1]->vt != VT_INTEGER) in openbor_gettextobjproperty()
9414 if(varlist[1]->vt != VT_STR) in openbor_gettextobjproperty()
9419 propind = varlist[1]->lVal; in openbor_gettextobjproperty()
9484 void mapstrings_changetextobjproperty(ScriptVariant** varlist, int paramCount)
9499 MAPSTRINGS(varlist[1], proplist, _ctop_the_end,
9503 HRESULT openbor_changetextobjproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramC… in openbor_changetextobjproperty()
9513 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_changetextobjproperty()
9520 mapstrings_changetextobjproperty(varlist, paramCount); in openbor_changetextobjproperty()
9528 if(varlist[1]->vt != VT_INTEGER) in openbor_changetextobjproperty()
9530 if(varlist[1]->vt != VT_STR) in openbor_changetextobjproperty()
9535 propind = varlist[1]->lVal; in openbor_changetextobjproperty()
9541 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
9550 if(varlist[2]->vt != VT_STR) in openbor_changetextobjproperty()
9559 strncpy(level->textobjs[ind].text, (char*)StrCache_Get(varlist[2]->strVal), MAX_STR_VAR_LEN); in openbor_changetextobjproperty()
9566 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
9575 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
9584 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
9593 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
9614 HRESULT openbor_settextobj(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_settextobj()
9622 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_settextobj()
9636 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_settextobj()
9642 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_settextobj()
9648 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_settextobj()
9654 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_settextobj()
9660 if(varlist[5]->vt != VT_STR) in openbor_settextobj()
9668 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_settextobj()
9679 strncpy(level->textobjs[ind].text, (char*)StrCache_Get(varlist[5]->strVal), MAX_STR_VAR_LEN); in openbor_settextobj()
9689 HRESULT openbor_cleartextobj(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount)
9697 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind)))
9767 void mapstrings_layerproperty(ScriptVariant** varlist, int paramCount)
9806 MAPSTRINGS(varlist[0], typelist, _glt_the_end,
9808 MAPSTRINGS(varlist[2], proplist, _glp_the_end,
10100 HRESULT openbor_getlayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getlayerproperty()
10109 mapstrings_layerproperty(varlist, paramCount); in openbor_getlayerproperty()
10111 type = varlist[0]->lVal; in openbor_getlayerproperty()
10112 propind = varlist[2]->lVal; in openbor_getlayerproperty()
10114 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_getlayerproperty()
10141 HRESULT openbor_changelayerproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_changelayerproperty()
10151 mapstrings_layerproperty(varlist, paramCount); in openbor_changelayerproperty()
10153 type = varlist[0]->lVal; in openbor_changelayerproperty()
10154 propind = varlist[2]->lVal; in openbor_changelayerproperty()
10156 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_changelayerproperty()
10163 if(FAILED(_changelayerproperty(layer, propind, varlist[3]))) in openbor_changelayerproperty()
10195 void mapstrings_levelproperty(ScriptVariant** varlist, int paramCount) in mapstrings_levelproperty()
10213 MAPSTRINGS(varlist[0], proplist, _lp_the_end, in mapstrings_levelproperty()
10217 HRESULT openbor_getlevelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount)
10219 mapstrings_drawmethodproperty(varlist, paramCount);
10221 switch(varlist[0]->lVal)
10279 HRESULT openbor_changelevelproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_changelevelproperty()
10291 mapstrings_drawmethodproperty(varlist, paramCount); in openbor_changelevelproperty()
10293 arg = varlist[1]; in openbor_changelevelproperty()
10295 switch(varlist[0]->lVal) in openbor_changelevelproperty()
10349 HRESULT openbor_shutdown(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_shutdown()
10355 if(paramCount > 0 && FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) goto shutdown_error; in openbor_shutdown()
10356 if(paramCount > 1 && varlist[1]->vt != VT_STR) goto shutdown_error; in openbor_shutdown()
10358 shutdown((int)ltemp, paramCount > 1?StrCache_Get(varlist[0]->strVal):(DEFAULT_SHUTDOWN_MESSAGE)); in openbor_shutdown()
10367 HRESULT openbor_jumptobranch(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_jumptobranch()
10375 if(varlist[0]->vt != VT_STR) goto jumptobranch_error; in openbor_jumptobranch()
10377 …strncpy(branch_name, StrCache_Get(varlist[0]->strVal), MIN(MAX_NAME_LEN, MAX_STR_VAR_LEN)); // cop… in openbor_jumptobranch()
10381 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_jumptobranch()
10397 HRESULT openbor_bindentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_bindentity()
10411 ent = (entity*)(varlist[0])->ptrVal; //retrieve the entity in openbor_bindentity()
10414 other = (entity*)(varlist[1])->ptrVal; in openbor_bindentity()
10421 arg = varlist[2]; in openbor_bindentity()
10430 arg = varlist[3]; in openbor_bindentity()
10438 arg = varlist[4]; in openbor_bindentity()
10446 arg = varlist[5]; in openbor_bindentity()
10454 arg = varlist[6]; in openbor_bindentity()
10468 HRESULT openbor_array(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_array()
10475 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &size))) in openbor_array()
10506 HRESULT openbor_size(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_size()
10509 if(varlist[0]->vt!=VT_PTR) goto size_error; in openbor_size()
10511 ScriptVariant_Copy(*pretvar, ((ScriptVariant*)varlist[0]->ptrVal)); in openbor_size()
10522 HRESULT openbor_get(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_get()
10528 if(varlist[0]->vt!=VT_PTR) goto get_error; in openbor_get()
10530 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_get()
10533 ScriptVariant_IntegerValue(((ScriptVariant*)varlist[0]->ptrVal), &size); in openbor_get()
10536 ScriptVariant_Copy(*pretvar, ((ScriptVariant*)varlist[0]->ptrVal)+ind+1); in openbor_get()
10551 HRESULT openbor_set(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_set()
10558 if(varlist[0]->vt!=VT_PTR) goto set_error; in openbor_set()
10560 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_set()
10563 ScriptVariant_IntegerValue(((ScriptVariant*)varlist[0]->ptrVal), &size); in openbor_set()
10566 ScriptVariant_Copy(((ScriptVariant*)varlist[0]->ptrVal)+ind+1, varlist[2]); in openbor_set()
10579 HRESULT openbor_allocscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_allocscreen()
10586 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &w))) in openbor_allocscreen()
10588 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &h))) in openbor_allocscreen()
10613 HRESULT openbor_clearscreen(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_clearscreen()
10619 if(varlist[0]->vt != VT_PTR) goto clearscreen_error; in openbor_clearscreen()
10621 screen = (s_screen*)varlist[0]->ptrVal; in openbor_clearscreen()
10672 void mapstrings_drawmethodproperty(ScriptVariant** varlist, int paramCount) in mapstrings_drawmethodproperty()
10710 MAPSTRINGS(varlist[1], proplist, _dm_the_end, in mapstrings_drawmethodproperty()
10715 HRESULT openbor_changedrawmethod(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_changedrawmethod()
10726 mapstrings_drawmethodproperty(varlist, paramCount); in openbor_changedrawmethod()
10728 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_changedrawmethod()
10729 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_changedrawmethod()
10735 switch(varlist[1]->lVal){ in openbor_changedrawmethod()
10738 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10742 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10746 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) return E_FAIL; in openbor_changedrawmethod()
10750 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10754 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10759 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10763 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) return E_FAIL; in openbor_changedrawmethod()
10767 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10771 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10775 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10779 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10783 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10787 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10791 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10795 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10799 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10803 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10807 if(varlist[2]->vt != VT_PTR && varlist[2]->vt != VT_EMPTY ) return E_FAIL; in openbor_changedrawmethod()
10808 pmethod->table = (void*)varlist[2]->ptrVal; in openbor_changedrawmethod()
10811 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10815 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10819 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) return E_FAIL; in openbor_changedrawmethod()
10823 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) return E_FAIL; in openbor_changedrawmethod()
10827 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10831 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10835 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10839 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10843 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) return E_FAIL; in openbor_changedrawmethod()
10861 HRESULT openbor_setdrawmethod(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setdrawmethod()
10871 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_setdrawmethod()
10872 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_setdrawmethod()
10881 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) goto setdrawmethod_error; in openbor_setdrawmethod()
10884 …if(paramCount>=14 && varlist[13]->vt!=VT_PTR && varlist[13]->vt!=VT_EMPTY) goto setdrawmethod_erro… in openbor_setdrawmethod()
10888 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-2))) goto setdrawmethod_error; in openbor_setdrawmethod()
10903 if(paramCount>=14) pmethod->table=(unsigned char*)varlist[13]->ptrVal; in openbor_setdrawmethod()
10916 HRESULT openbor_updateframe(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_updateframe()
10925 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_updateframe()
10926 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_updateframe()
10931 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &f))) goto updateframe_error; in openbor_updateframe()
10943 HRESULT openbor_performattack(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_performattack()
10951 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_performattack()
10952 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_performattack()
10967 if(paramCount>1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) goto performattack_error; in openbor_performattack()
10968 …if(paramCount>2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) goto performattack… in openbor_performattack()
10979 HRESULT openbor_setidle(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_setidle()
10988 if(varlist[0]->vt==VT_EMPTY) e = NULL; in openbor_setidle()
10989 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_setidle()
11007 if(paramCount>1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) goto setidle_error; in openbor_setidle()
11008 if(paramCount>2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) goto setidle_error; in openbor_setidle()
11009 if(paramCount>3 && FAILED(ScriptVariant_IntegerValue(varlist[3], &stalladd))) goto setidle_error; in openbor_setidle()
11022 HRESULT openbor_getentity(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getentity()
11030 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) goto getentity_error; in openbor_getentity()
11050 HRESULT openbor_loadmodel(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_loadmodel()
11055 if(varlist[0]->vt!=VT_STR) goto loadmodel_error; in openbor_loadmodel()
11059 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &unload))) goto loadmodel_error; in openbor_loadmodel()
11061 model = load_cached_model(StrCache_Get(varlist[0]->strVal), "openbor_loadmodel", (char)unload); in openbor_loadmodel()
11063 …amCount>=3 && model) model_cache[model->index].selectable = (char)ScriptVariant_IsTrue(varlist[2]); in openbor_loadmodel()
11079 HRESULT openbor_loadsprite(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_loadsprite()
11084 if(varlist[0]->vt!=VT_STR) goto loadsprite_error; in openbor_loadsprite()
11087 if(((*pretvar)->ptrVal = (VOID*)loadsprite2(StrCache_Get(varlist[0]->strVal), NULL, NULL))) in openbor_loadsprite()
11102 HRESULT openbor_options(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_options()
11111 HRESULT openbor_playgif(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_playgif()
11119 if(varlist[0]->vt!=VT_STR) goto playgif_error; in openbor_playgif()
11124 if(FAILED(ScriptVariant_IntegerValue(varlist[i+1], temp+i))) goto playgif_error; in openbor_playgif()
11126 …(*pretvar)->lVal = (LONG)playgif(StrCache_Get(varlist[0]->strVal), (int)(temp[0]), (int)(temp[1]),… in openbor_playgif()
11138 HRESULT openbor_aicheckwarp(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){ in openbor_aicheckwarp()
11144 HRESULT openbor_aichecklie(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11150 HRESULT openbor_aicheckgrabbed(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11156 HRESULT openbor_aicheckgrab(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11162 HRESULT openbor_aicheckescape(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11168 HRESULT openbor_aicheckbusy(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11174 HRESULT openbor_aicheckattack(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11180 HRESULT openbor_aicheckmove(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11186 HRESULT openbor_aicheckjump(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11192 HRESULT openbor_aicheckpathblocked(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCoun…
11201 HRESULT openbor_adjustwalkanimation(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCou… in openbor_adjustwalkanimation()
11208 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_adjustwalkanimation()
11212 else if(varlist[1]->vt==VT_PTR) t = (entity*)varlist[1]->ptrVal; in openbor_adjustwalkanimation()
11213 else if(varlist[1]->vt==VT_EMPTY) t = NULL; in openbor_adjustwalkanimation()
11229 HRESULT openbor_finditem(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){ in openbor_finditem()
11234 else if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_finditem()
11255 HRESULT openbor_pickup(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){ in openbor_pickup()
11263 if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_pickup()
11266 if(varlist[1]->vt==VT_PTR) t = (entity*)varlist[1]->ptrVal; in openbor_pickup()
11285 HRESULT openbor_waypoints(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){ in openbor_waypoints()
11295 if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_waypoints()
11304 if(FAILED(ScriptVariant_DecimalValue(varlist[1], &x))) in openbor_waypoints()
11307 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &z))) in openbor_waypoints()
11337 HRESULT openbor_testmove(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){ in openbor_testmove()
11346 if(varlist[0]->vt==VT_PTR) e = (entity*)varlist[0]->ptrVal; in openbor_testmove()
11349 if(FAILED(ScriptVariant_DecimalValue(varlist[1], &x))) in openbor_testmove()
11352 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &z))) in openbor_testmove()
11367 HRESULT openbor_drawspriteq(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){ in openbor_drawspriteq()
11378 if(varlist[0]->vt!=VT_PTR && varlist[0]->vt!=VT_EMPTY) goto drawsq_error; in openbor_drawspriteq()
11380 if(varlist[0]->ptrVal) screen = (s_screen*)varlist[0]->ptrVal; in openbor_drawspriteq()
11384 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-1))) in openbor_drawspriteq()
11398 HRESULT openbor_clearspriteq(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount){
11420 void mapstrings_gfxproperty(ScriptVariant** varlist, int paramCount)
11439 MAPSTRINGS(varlist[1], proplist, _gfx_the_end,
11445 HRESULT openbor_getgfxproperty(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_getgfxproperty()
11457 mapstrings_gfxproperty(varlist, paramCount); in openbor_getgfxproperty()
11459 if(varlist[0]->vt!=VT_PTR) goto ggp_error; in openbor_getgfxproperty()
11461 handle = varlist[0]->ptrVal; in openbor_getgfxproperty()
11472 switch(varlist[1]->lVal){ in openbor_getgfxproperty()
11593 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value+i-2))) in openbor_getgfxproperty()
11656 HRESULT openbor_allocscript(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_allocscript()
11665 if(paramCount>=1 && varlist[0]->vt==VT_STR) name = (char*)StrCache_Get(varlist[0]->strVal); in openbor_allocscript()
11666 if(paramCount>=2 && varlist[1]->vt==VT_STR) comment = (char*)StrCache_Get(varlist[1]->strVal); in openbor_allocscript()
11683 HRESULT openbor_loadscript(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_loadscript()
11691 if(paramCount>=1 && varlist[0]->vt==VT_PTR) ns = (Script*)varlist[0]->ptrVal; in openbor_loadscript()
11693 if(paramCount>=2 && varlist[1]->vt==VT_STR) path = (char*)StrCache_Get(varlist[1]->strVal); in openbor_loadscript()
11708 HRESULT openbor_compilescript(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_compilescript()
11714 if(paramCount>=1 && varlist[0]->vt==VT_PTR) ns = (Script*)varlist[0]->ptrVal; in openbor_compilescript()
11727 HRESULT openbor_executescript(ScriptVariant** varlist , ScriptVariant** pretvar, int paramCount) in openbor_executescript()
11733 if(paramCount>=1 && varlist[0]->vt==VT_PTR) ns = (Script*)varlist[0]->ptrVal; in openbor_executescript()