Lines Matching refs:varlist
137 void Varlist_Init(Varlist *varlist, int size) in Varlist_Init() argument
140 varlist->magic = varlist_magic; in Varlist_Init()
141 varlist->list = calloc(1, sizeof(*varlist->list)); in Varlist_Init()
142 List_Init(varlist->list); in Varlist_Init()
143 varlist->vars = calloc(size + 1, sizeof(*varlist->vars)); in Varlist_Init()
146 ScriptVariant_Init(varlist->vars + i); in Varlist_Init()
147 ScriptVariant_ChangeType(varlist->vars, VT_INTEGER); in Varlist_Init()
148 varlist->vars->lVal = (LONG)size; in Varlist_Init()
152 void Varlist_Clear(Varlist *varlist) in Varlist_Clear() argument
155 clear_named_var_list(varlist->list, 1); in Varlist_Clear()
156 free(varlist->list); in Varlist_Clear()
157 varlist->list = NULL; in Varlist_Clear()
159 for(i = 1; i <= varlist->vars->lVal; i++) in Varlist_Clear()
161 ScriptVariant_Clear(varlist->vars + i); in Varlist_Clear()
163 free(varlist->vars); in Varlist_Clear()
164 varlist->vars = NULL; in Varlist_Clear()
165 varlist->magic = 0; in Varlist_Clear()
168 void Varlist_Cleanup(Varlist *varlist) in Varlist_Cleanup() argument
171 clear_named_var_list(varlist->list, 0); in Varlist_Cleanup()
172 for(i = 1; i <= varlist->vars->lVal; i++) in Varlist_Cleanup()
174 ScriptVariant_Clear(varlist->vars + i); in Varlist_Cleanup()
178 ScriptVariant *Varlist_GetByName(Varlist *varlist, char *theName) in Varlist_GetByName() argument
185 if(List_FindByName(varlist->list, theName)) in Varlist_GetByName()
187 return (ScriptVariant *)List_Retrieve(varlist->list); in Varlist_GetByName()
193 int Varlist_SetByName(Varlist *varlist, char *theName, ScriptVariant *var) in Varlist_SetByName() argument
200 if(List_FindByName(varlist->list, theName)) in Varlist_SetByName()
202 ScriptVariant_Copy((ScriptVariant *)List_Retrieve(varlist->list), var); in Varlist_SetByName()
208 List_InsertAfter(varlist->list, v, theName); in Varlist_SetByName()
213 ScriptVariant *Varlist_GetByIndex(Varlist *varlist, int index) in Varlist_GetByIndex() argument
215 if(index < 0 || index >= varlist->vars->lVal) in Varlist_GetByIndex()
219 return varlist->vars + index + 1; in Varlist_GetByIndex()
222 int Varlist_SetByIndex(Varlist *varlist, int index, ScriptVariant *var) in Varlist_SetByIndex() argument
228 else if(index >= varlist->vars->lVal) in Varlist_SetByIndex()
230 __reallocto(varlist->vars, varlist->vars->lVal + 1, index + 2); in Varlist_SetByIndex()
231 varlist->vars->lVal = index + 1; in Varlist_SetByIndex()
233 ScriptVariant_Copy(varlist->vars + index + 1, var); in Varlist_SetByIndex()
328 pscript->varlist = calloc(1, sizeof(*pscript->varlist)); in alloc_script()
329 Varlist_Init(pscript->varlist, max_script_vars); in alloc_script()
339 pscript->varlist = calloc(1, sizeof(*pscript->varlist)); in Script_Init()
340 Varlist_Init(pscript->varlist, max_script_vars); in Script_Init()
434 if(localclear && pscript->varlist) in Script_Clear()
438 Varlist_Clear(pscript->varlist); in Script_Clear()
439 free(pscript->varlist); in Script_Clear()
440 pscript->varlist = NULL; in Script_Clear()
444 Varlist_Cleanup(pscript->varlist); in Script_Clear()
464 pvars = pscript->varlist; // in game clear(localclear!=2) just keep this value in Script_Clear()
466 pscript->varlist = pvars; // copy it back in Script_Clear()
1720 HRESULT system_isempty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_isempty() argument
1729 (*pretvar)->lVal = (LONG)((varlist[0])->vt == VT_EMPTY ); in system_isempty()
1734 HRESULT system_NULL(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_NULL() argument
1740 HRESULT system_exit(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_exit() argument
1746 HRESULT system_rand(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_rand() argument
1753 HRESULT system_getglobalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_getglobalvar() argument
1763 if(varlist[0]->vt == VT_STR) in system_getglobalvar()
1765 ptmpvar = Varlist_GetByName(&global_var_list, StrCache_Get(varlist[0]->strVal)); in system_getglobalvar()
1767 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_getglobalvar()
1791 HRESULT system_setglobalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_setglobalvar() argument
1801 if(varlist[0]->vt == VT_STR) in system_setglobalvar()
1803 …r)->lVal = (LONG)Varlist_SetByName(&global_var_list, StrCache_Get(varlist[0]->strVal), varlist[1]); in system_setglobalvar()
1805 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_setglobalvar()
1807 (*pretvar)->lVal = (LONG)Varlist_SetByIndex(&global_var_list, (int)ltemp, varlist[1]); in system_setglobalvar()
1820 HRESULT system_getlocalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_getlocalvar() argument
1830 if(varlist[0]->vt == VT_STR) in system_getlocalvar()
1832 ptmpvar = Varlist_GetByName(pcurrentscript->varlist, StrCache_Get(varlist[0]->strVal)); in system_getlocalvar()
1834 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_getlocalvar()
1836 ptmpvar = Varlist_GetByIndex(pcurrentscript->varlist, (int)ltemp); in system_getlocalvar()
1858 HRESULT system_setlocalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_setlocalvar() argument
1868 if(varlist[0]->vt == VT_STR) in system_setlocalvar()
1870 …r)->lVal = (LONG)Varlist_SetByName(pcurrentscript->varlist, StrCache_Get(varlist[0]->strVal), varl… in system_setlocalvar()
1872 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in system_setlocalvar()
1874 … (*pretvar)->lVal = (LONG)Varlist_SetByIndex(pcurrentscript->varlist, (int)ltemp, varlist[1]); in system_setlocalvar()
1887 HRESULT system_clearlocalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_clearlocalvar() argument
1890 Varlist_Cleanup(pcurrentscript->varlist); in system_clearlocalvar()
1894 HRESULT system_clearglobalvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_clearglobalvar() argument
1902 HRESULT system_free(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_free() argument
1909 if(List_Includes(&scriptheap, varlist[0]->ptrVal)) in system_free()
1919 HRESULT system_typeof(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in system_typeof() argument
1927 (*pretvar)->lVal = (LONG)varlist[0]->vt; in system_typeof()
1931 HRESULT math_sin(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in math_sin() argument
1934 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in math_sin()
1944 HRESULT math_cos(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in math_cos() argument
1947 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[0], <emp))) in math_cos()
1957 HRESULT math_sqrt(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in math_sqrt() argument
1961 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[0], &dbltemp))) in math_sqrt()
2086 int mapstrings_systemvariant(ScriptVariant **varlist, int paramCount) in mapstrings_systemvariant() argument
2092 MAPSTRINGS(varlist[0], svlist, _sv_the_end, in mapstrings_systemvariant()
2100 HRESULT openbor_systemvariant(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_systemvariant() argument
2111 mapstrings_systemvariant(varlist, paramCount); in openbor_systemvariant()
2114 if(varlist[0]->vt == VT_INTEGER) in openbor_systemvariant()
2116 variantindex = varlist[0]->lVal; in openbor_systemvariant()
2139 HRESULT openbor_changesystemvariant(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_changesystemvariant() argument
2152 mapstrings_systemvariant(varlist, paramCount); in openbor_changesystemvariant()
2154 arg = varlist[0]; in openbor_changesystemvariant()
2166 if(changesyspropertybyindex(variantindex, varlist[1])) in openbor_changesystemvariant()
2179 HRESULT openbor_drawstring(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawstring() argument
2193 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawstring()
2200 if(FAILED(ScriptVariant_IntegerValue(varlist[4], value + 3))) in openbor_drawstring()
2209 ScriptVariant_ToString(varlist[3], buf); in openbor_drawstring()
2220 HRESULT openbor_drawstringtoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_drawstringtoscreen() argument
2233 if(varlist[0]->vt != VT_PTR) in openbor_drawstringtoscreen()
2237 scr = (s_screen *)varlist[0]->ptrVal; in openbor_drawstringtoscreen()
2245 if(FAILED(ScriptVariant_IntegerValue(varlist[i + 1], value + i))) in openbor_drawstringtoscreen()
2251 ScriptVariant_ToString(varlist[4], buf); in openbor_drawstringtoscreen()
2262 HRESULT openbor_log(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_log() argument
2272 ScriptVariant_ToString(varlist[0], buf); in openbor_log()
2282 HRESULT openbor_drawbox(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawbox() argument
2296 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawbox()
2304 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawbox()
2337 HRESULT openbor_drawboxtoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawboxtoscreen() argument
2350 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawboxtoscreen()
2359 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawboxtoscreen()
2367 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawboxtoscreen()
2401 HRESULT openbor_drawline(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawline() argument
2415 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawline()
2423 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawline()
2456 HRESULT openbor_drawlinetoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawlinetoscreen() argument
2469 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawlinetoscreen()
2478 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawlinetoscreen()
2486 if(FAILED(ScriptVariant_IntegerValue(varlist[6], &l))) in openbor_drawlinetoscreen()
2518 HRESULT openbor_drawsprite(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawsprite() argument
2529 if(varlist[0]->vt != VT_PTR) in openbor_drawsprite()
2534 spr = varlist[0]->ptrVal; in openbor_drawsprite()
2543 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawsprite()
2559 HRESULT openbor_drawspritetoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_drawspritetoscreen() argument
2571 if(varlist[0]->vt != VT_PTR) in openbor_drawspritetoscreen()
2575 spr = varlist[0]->ptrVal; in openbor_drawspritetoscreen()
2581 if(varlist[1]->vt != VT_PTR) in openbor_drawspritetoscreen()
2585 scr = varlist[1]->ptrVal; in openbor_drawspritetoscreen()
2593 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 2))) in openbor_drawspritetoscreen()
2609 HRESULT openbor_drawdot(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawdot() argument
2623 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_drawdot()
2631 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdot()
2664 HRESULT openbor_drawdottoscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawdottoscreen() argument
2677 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawdottoscreen()
2686 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawdottoscreen()
2694 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawdottoscreen()
2729 HRESULT openbor_drawscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawscreen() argument
2742 s = (s_screen *)varlist[0]->ptrVal; in openbor_drawscreen()
2751 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawscreen()
2759 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &l))) in openbor_drawscreen()
2794 HRESULT openbor_getindexedvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getindexedvar() argument
2796 return system_getglobalvar(varlist, pretvar, paramCount); in openbor_getindexedvar()
2800 HRESULT openbor_setindexedvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setindexedvar() argument
2802 return system_setglobalvar(varlist, pretvar, paramCount); in openbor_setindexedvar()
2806 HRESULT openbor_getscriptvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getscriptvar() argument
2808 return system_getlocalvar(varlist, pretvar, paramCount); in openbor_getscriptvar()
2812 HRESULT openbor_setscriptvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setscriptvar() argument
2814 return system_setlocalvar(varlist, pretvar, paramCount); in openbor_setscriptvar()
2818 HRESULT openbor_getentityvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getentityvar() argument
2824 if(paramCount < 2 || varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_getentityvar()
2829 ent = (entity *)varlist[0]->ptrVal; in openbor_getentityvar()
2831 if(varlist[1]->vt == VT_STR) in openbor_getentityvar()
2833 ptmpvar = Varlist_GetByName(ent->varlist, StrCache_Get(varlist[1]->strVal)); in openbor_getentityvar()
2835 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_getentityvar()
2837 ptmpvar = Varlist_GetByIndex(ent->varlist, (int)ltemp); in openbor_getentityvar()
2860 HRESULT openbor_setentityvar(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setentityvar() argument
2865 if(paramCount < 3 || varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_setentityvar()
2870 ent = (entity *)varlist[0]->ptrVal; in openbor_setentityvar()
2874 if(varlist[1]->vt == VT_STR) in openbor_setentityvar()
2876 …(*pretvar)->lVal = (LONG)Varlist_SetByName(ent->varlist, StrCache_Get(varlist[1]->strVal), varlist… in openbor_setentityvar()
2878 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_setentityvar()
2880 (*pretvar)->lVal = (LONG)Varlist_SetByIndex(ent->varlist, (int)ltemp, varlist[2]); in openbor_setentityvar()
2894 HRESULT openbor_strinfirst(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_strinfirst() argument
2903 if(varlist[0]->vt != VT_STR || varlist[1]->vt != VT_STR) in openbor_strinfirst()
2909 …tempstr = strstr((char *)StrCache_Get(varlist[0]->strVal), (char *)StrCache_Get(varlist[1]->strVal… in openbor_strinfirst()
2929 HRESULT openbor_strinlast(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_strinlast() argument
2938 if(varlist[0]->vt != VT_STR || varlist[1]->vt != VT_STR) in openbor_strinlast()
2944 tempstr = strrchr((char *)StrCache_Get(varlist[0]->strVal), varlist[1]->strVal); in openbor_strinlast()
2963 HRESULT openbor_strleft(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_strleft() argument
2970 if(varlist[0]->vt != VT_STR || varlist[1]->vt != VT_INTEGER) in openbor_strleft()
2976 StrCache_NCopy((*pretvar)->strVal, (char *)StrCache_Get(varlist[0]->strVal), varlist[1]->lVal); in openbor_strleft()
2985 HRESULT openbor_strlength(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_strlength() argument
2987 if(paramCount < 1 || varlist[0]->vt != VT_STR) in openbor_strlength()
2993 (*pretvar)->lVal = strlen((char *)StrCache_Get(varlist[0]->strVal)); in openbor_strlength()
3003 HRESULT openbor_strwidth(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_strwidth() argument
3006 if(paramCount < 2 || varlist[0]->vt != VT_STR || in openbor_strwidth()
3007 FAILED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_strwidth()
3013 (*pretvar)->lVal = font_string_width((int)ltemp, (char *)StrCache_Get(varlist[0]->strVal)); in openbor_strwidth()
3023 HRESULT openbor_strright(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_strright() argument
3032 if(varlist[0]->vt != VT_STR || varlist[1]->vt != VT_INTEGER) in openbor_strright()
3038 tempstr = (char *)StrCache_Get(varlist[0]->strVal); in openbor_strright()
3043 StrCache_Copy((*pretvar)->strVal, &tempstr[varlist[1]->lVal]); in openbor_strright()
3057 HRESULT openbor_getmodelproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getmodelproperty() argument
3067 if((varlist[0]->vt != VT_INTEGER && varlist[0]->vt != VT_STR) || varlist[1]->vt != VT_INTEGER) in openbor_getmodelproperty()
3072 …iArg = varlist[0]->vt == VT_INTEGER ? varlist[0]->lVal : get_cached_model_index(StrCache_Get(varli… in openbor_getmodelproperty()
3079 switch (varlist[1]->lVal) in openbor_getmodelproperty()
3115 HRESULT openbor_changemodelproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_changemodelproperty() argument
3126 if((varlist[0]->vt != VT_INTEGER && varlist[0]->vt != VT_STR) || varlist[1]->vt != VT_INTEGER) in openbor_changemodelproperty()
3131 …iArg = varlist[0]->vt == VT_INTEGER ? varlist[0]->lVal : get_cached_model_index(StrCache_Get(varli… in openbor_changemodelproperty()
3138 switch (varlist[1]->lVal) in openbor_changemodelproperty()
3190 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changemodelproperty()
3878 int mapstrings_entityproperty(ScriptVariant **varlist, int paramCount) in mapstrings_entityproperty() argument
4063 MAPSTRINGS(varlist[1], eplist, _ep_the_end, in mapstrings_entityproperty()
4066 if(paramCount < 3 || varlist[1]->vt != VT_INTEGER) in mapstrings_entityproperty()
4071 ep = varlist[1]->lVal; in mapstrings_entityproperty()
4079 MAPSTRINGS(varlist[2], eplist_aiflag, _ep_aiflag_the_end, in mapstrings_entityproperty()
4086 MAPSTRINGS(varlist[2], eplist_attack, _ep_attack_the_end, in mapstrings_entityproperty()
4095 MAPSTRINGS(varlist[3], proplist_defense, _ep_defense_the_end, in mapstrings_entityproperty()
4103 MAPSTRINGS(varlist[2], proplist_dot, _ep_dot_the_end, in mapstrings_entityproperty()
4110 MAPSTRINGS(varlist[2], proplist_edelay, _ep_edelay_the_end, in mapstrings_entityproperty()
4117 MAPSTRINGS(varlist[2], proplist_energycost, _ep_energycost_the_end, in mapstrings_entityproperty()
4124 MAPSTRINGS(varlist[2], proplist_flash, _ep_flash_the_end, in mapstrings_entityproperty()
4131 MAPSTRINGS(varlist[2], proplist_icon, _ep_icon_the_end, in mapstrings_entityproperty()
4139 MAPSTRINGS(varlist[2], proplist_knockdowncount, _ep_knockdowncount_the_end, in mapstrings_entityproperty()
4146 MAPSTRINGS(varlist[2], proplist_landframe, _ep_landframe_the_end, in mapstrings_entityproperty()
4153 MAPSTRINGS(varlist[2], proplist_maps, _ep_maps_the_end, in mapstrings_entityproperty()
4160 MAPSTRINGS(varlist[2], proplist_range, _ep_range_the_end, in mapstrings_entityproperty()
4167 MAPSTRINGS(varlist[2], proplist_running, _ep_running_the_end, in mapstrings_entityproperty()
4175 MAPSTRINGS(varlist[2], proplist_spritea, _ep_spritea_the_end, in mapstrings_entityproperty()
4182 MAPSTRINGS(varlist[2], proplist_staydown, _ep_running_the_end, in mapstrings_entityproperty()
4193 t = varlist[i]->vt; in mapstrings_entityproperty()
4194 MAPSTRINGS(varlist[i], proplist_hostile_candamage, _ep_hcd_the_end, in mapstrings_entityproperty()
4197 if(varlist[i]->vt == VT_INTEGER && t == VT_STR) in mapstrings_entityproperty()
4199 varlist[i]->lVal |= 0x80000000; //flag it in mapstrings_entityproperty()
4207 MAPSTRINGS(varlist[2], proplist_takeaction, _ep_ta_the_end, in mapstrings_entityproperty()
4214 MAPSTRINGS(varlist[2], proplist_think, _ep_th_the_end, in mapstrings_entityproperty()
4224 HRESULT openbor_getentityproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getentityproperty() argument
4245 mapstrings_entityproperty(varlist, paramCount); in openbor_getentityproperty()
4247 arg = varlist[0]; in openbor_getentityproperty()
4260 arg = varlist[1]; in openbor_getentityproperty()
4294 arg = varlist[2]; in openbor_getentityproperty()
4444 arg = varlist[2]; in openbor_getentityproperty()
4472 arg = varlist[2]; in openbor_getentityproperty()
4480 if(varlist[3]->vt != VT_INTEGER in openbor_getentityproperty()
4481 || varlist[4]->vt != VT_INTEGER in openbor_getentityproperty()
4482 || varlist[5]->vt != VT_INTEGER) in openbor_getentityproperty()
4489 i = varlist[4]->lVal; //Animation parameter. in openbor_getentityproperty()
4490 tempint = varlist[5]->lVal; //Frame parameter. in openbor_getentityproperty()
4511 (*pretvar)->lVal = (LONG)attack->attack_coords[varlist[6]->lVal]; in openbor_getentityproperty()
4551 (*pretvar)->dblVal = (DOUBLE)attack->dropv[varlist[6]->lVal]; in openbor_getentityproperty()
4679 || varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4680 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
4688 i = varlist[2]->lVal; //Animation parameter. in openbor_getentityproperty()
4689 tempint = varlist[3]->lVal; //Frame parameter. in openbor_getentityproperty()
4698 || varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
4699 || varlist[3]->vt != VT_INTEGER in openbor_getentityproperty()
4700 || varlist[4]->vt != VT_INTEGER in openbor_getentityproperty()
4701 || varlist[5]->vt != VT_INTEGER) in openbor_getentityproperty()
4709 i = varlist[3]->lVal; //Animation parameter. in openbor_getentityproperty()
4710 tempint = varlist[4]->lVal; //Frame parameter. in openbor_getentityproperty()
4722 (*pretvar)->lVal = (LONG)coords[varlist[5]->lVal]; in openbor_getentityproperty()
4733 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
4747 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
4781 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_getentityproperty()
4828 (*pretvar)->ptrVal = (VOID *)model_get_colourmap(&(ent->modeldata), varlist[2]->lVal + 1); in openbor_getentityproperty()
4855 if(FAILED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
4866 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_getentityproperty()
4936 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_getentityproperty()
4941 arg = varlist[3]; in openbor_getentityproperty()
5001 arg = varlist[2]; in openbor_getentityproperty()
5013 arg = varlist[2]; in openbor_getentityproperty()
5074 if(varlist[2]->vt != VT_INTEGER) in openbor_getentityproperty()
5083 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
5084 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
5137 arg = varlist[2]; in openbor_getentityproperty()
5251 arg = varlist[2]; in openbor_getentityproperty()
5381 arg = varlist[2]; in openbor_getentityproperty()
5435 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
5436 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
5442 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
5443 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
5521 arg = varlist[2]; in openbor_getentityproperty()
5753 arg = varlist[2]; in openbor_getentityproperty()
5825 if(varlist[2]->vt != VT_INTEGER in openbor_getentityproperty()
5826 || varlist[3]->vt != VT_INTEGER) in openbor_getentityproperty()
5832 ltemp = varlist[2]->lVal; //Subproperty. in openbor_getentityproperty()
5833 i = varlist[3]->lVal; //Animation. in openbor_getentityproperty()
5881 (*pretvar)->lVal = (LONG)coords[varlist[4]->lVal]; in openbor_getentityproperty()
5890 arg = varlist[2]; in openbor_getentityproperty()
6017 ltemp = varlist[2]->lVal; in openbor_getentityproperty()
6018 arg = varlist[3]; in openbor_getentityproperty()
6019 arg1 = varlist[4]; in openbor_getentityproperty()
6089 arg = varlist[2]; in openbor_getentityproperty()
6090 arg1 = varlist[3]; in openbor_getentityproperty()
6120 arg = varlist[2]; in openbor_getentityproperty()
6321 HRESULT openbor_changeentityproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCo… in openbor_changeentityproperty() argument
6386 mapstrings_entityproperty(varlist, paramCount); in openbor_changeentityproperty()
6388 if(varlist[0]->vt != VT_PTR && varlist[0]->vt != VT_EMPTY) in openbor_changeentityproperty()
6393 ent = (entity *)varlist[0]->ptrVal; //retrieve the entity in openbor_changeentityproperty()
6399 if(varlist[1]->vt != VT_INTEGER) in openbor_changeentityproperty()
6401 if(varlist[1]->vt != VT_STR) in openbor_changeentityproperty()
6408 propind = varlist[1]->lVal; in openbor_changeentityproperty()
6414 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6422 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6430 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6432 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6443 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6445 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6524 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6532 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6540 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6543 if(paramCount < 4 || SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
6552 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6560 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6568 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6576 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6584 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6592 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6600 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6608 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6616 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6624 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6632 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6640 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6648 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6656 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6668 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
6670 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
6695 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6696 SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
6704 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6712 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6720 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6728 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6736 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
6741 tempmodel = findmodel((char *)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
6754 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
6756 SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6762 …if(paramCount >= 5 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltem… in openbor_changeentityproperty()
6766 …if(paramCount >= 6 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltem… in openbor_changeentityproperty()
6770 …if(paramCount >= 7 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltem… in openbor_changeentityproperty()
6774 …if(paramCount >= 8 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltem… in openbor_changeentityproperty()
6778 …if(paramCount >= 9 && ltemp2 && (ltemp2 = SUCCEEDED(ScriptVariant_DecimalValue(varlist[8], &dbltem… in openbor_changeentityproperty()
6782 … if(paramCount >= 10 && ltemp2 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[9], &dbltemp))) in openbor_changeentityproperty()
6791 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6799 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
6807 if((SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)))) in openbor_changeentityproperty()
6810 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6814 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
6818 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
6822 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
6826 if(paramCount >= 8 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
6832 ent->dot_owner[i] = (entity *)varlist[8]->ptrVal; in openbor_changeentityproperty()
6839 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6843 if(paramCount >= 3 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
6847 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6851 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
6855 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_changeentityproperty()
6859 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[7], <emp))) in openbor_changeentityproperty()
6874 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
6888 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
6894 switch(varlist[2]->lVal) in openbor_changeentityproperty()
6898 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6906 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6914 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_changeentityproperty()
6928 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6936 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6944 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6952 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6960 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6968 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6976 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6984 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
6992 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7000 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7008 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7024 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7032 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7040 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7051 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
7053 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
7074 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7078 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7086 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7094 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7102 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7110 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7118 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7120 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
7129 switch(varlist[2]->lVal) in openbor_changeentityproperty()
7133 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7141 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7147 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7161 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7165 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7173 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7177 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7185 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7193 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7201 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7209 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7217 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7225 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7233 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7245 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7253 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7265 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
7270 tempstr = (char *)StrCache_Get(varlist[2]->strVal); in openbor_changeentityproperty()
7271 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7283 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7299 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7303 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7307 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7311 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
7315 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
7319 if(paramCount >= 8 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[7], &dbltemp))) in openbor_changeentityproperty()
7327 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
7332 strcpy(ent->name, (char *)StrCache_Get(varlist[2]->strVal)); in openbor_changeentityproperty()
7337 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7341 if(paramCount > 3 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7349 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7357 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7365 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7373 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7381 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7389 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7397 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7405 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7413 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7421 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7430 SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp)) && in openbor_changeentityproperty()
7432 SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7440 ent->opponent = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
7445 ent->owner = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
7450 ent->parent = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
7455 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7463 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7467 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7471 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7479 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7487 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7495 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7503 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7515 if(varlist[i]->vt == VT_INTEGER) // known entity type in openbor_changeentityproperty()
7517 ltemp = varlist[i]->lVal; in openbor_changeentityproperty()
7538 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7542 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
7546 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7550 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp))) in openbor_changeentityproperty()
7554 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[6], &dbltemp))) in openbor_changeentityproperty()
7563 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7571 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7579 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7587 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7595 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7603 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7611 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7619 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7627 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7635 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7643 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7645 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
7656 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7661 …if(!validanim(ent, varlist[3]->lVal) || !(ent->modeldata.animation[varlist[3]->lVal]->numframes >=… in openbor_changeentityproperty()
7666 … i = ent->modeldata.animation[varlist[3]->lVal]->sprite[varlist[4]->lVal]; //Get sprite index. in openbor_changeentityproperty()
7672 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
7681 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_changeentityproperty()
7689 if(varlist[5]->vt != VT_STR) in openbor_changeentityproperty()
7694 strcpy(sprite_map[i].node->filename, (char *)StrCache_Get(varlist[5]->strVal)); in openbor_changeentityproperty()
7718 sprite_map[i].node->sprite = (VOID *)varlist[5]->ptrVal; in openbor_changeentityproperty()
7730 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7738 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7751 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7753 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
7755 switch(varlist[2]->lVal) in openbor_changeentityproperty()
7770 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7772 if(varlist[2]->vt != VT_STR) in openbor_changeentityproperty()
7785 switch(varlist[2]->lVal) in openbor_changeentityproperty()
7789 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7797 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7805 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_changeentityproperty()
7819 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7831 ent->subentity = (entity *)varlist[2]->ptrVal; in openbor_changeentityproperty()
7840 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7848 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7856 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7864 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7872 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7880 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7888 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7896 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7905 if(varlist[2]->vt == VT_EMPTY) in openbor_changeentityproperty()
7911 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7918 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7929 if(varlist[2]->vt == VT_EMPTY) in openbor_changeentityproperty()
7934 else if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
7941 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
7951 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7959 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7967 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7975 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7983 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
7991 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
7999 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
8018 if(varlist[2]->vt != VT_INTEGER) in openbor_changeentityproperty()
8024 ltemp = varlist[2]->lVal; in openbor_changeentityproperty()
8031 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeentityproperty()
8035 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeentityproperty()
8039 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[4], &dbltemp))) in openbor_changeentityproperty()
8047 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changeentityproperty()
8050 if(paramCount < 4 || SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeentityproperty()
8069 HRESULT openbor_tossentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_tossentity() argument
8079 ent = (entity *)varlist[0]->ptrVal; //retrieve the entity in openbor_tossentity()
8090 ScriptVariant_DecimalValue(varlist[1], &height); in openbor_tossentity()
8094 ScriptVariant_DecimalValue(varlist[2], &speedx); in openbor_tossentity()
8098 ScriptVariant_DecimalValue(varlist[3], &speedz); in openbor_tossentity()
8132 int mapstrings_playerproperty(ScriptVariant **varlist, int paramCount) in mapstrings_playerproperty() argument
8161 MAPSTRINGS(varlist[1], proplist, _pp_the_end, in mapstrings_playerproperty()
8168 HRESULT openbor_getplayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getplayerproperty() argument
8182 mapstrings_playerproperty(varlist, paramCount); in openbor_getplayerproperty()
8185 arg = varlist[0]; in openbor_getplayerproperty()
8198 arg = varlist[1]; in openbor_getplayerproperty()
8309 HRESULT openbor_changeplayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCo… in openbor_changeplayerproperty() argument
8326 mapstrings_playerproperty(varlist, paramCount); in openbor_changeplayerproperty()
8327 arg = varlist[0]; in openbor_changeplayerproperty()
8340 if(varlist[1]->vt != VT_INTEGER) in openbor_changeplayerproperty()
8342 if(varlist[1]->vt != VT_STR) in openbor_changeplayerproperty()
8348 prop = varlist[1]->lVal; in openbor_changeplayerproperty()
8350 arg = varlist[2]; in openbor_changeplayerproperty()
8376 if(FAILED(ScriptVariant_IntegerValue(varlist[3], <emp2))) in openbor_changeplayerproperty()
8552 HRESULT openbor_checkhole(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkhole() argument
8566 arg = varlist[0]; in openbor_checkhole()
8572 arg = varlist[1]; in openbor_checkhole()
8583 HRESULT openbor_checkwall(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkwall() argument
8598 arg = varlist[0]; in openbor_checkwall()
8604 arg = varlist[1]; in openbor_checkwall()
8618 HRESULT openbor_checkplatformbelow(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_checkplatformbelow() argument
8632 arg = varlist[0]; in openbor_checkplatformbelow()
8638 arg = varlist[1]; in openbor_checkplatformbelow()
8644 arg = varlist[2]; in openbor_checkplatformbelow()
8655 HRESULT openbor_openfilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_openfilestream() argument
8677 arg = varlist[0]; in openbor_openfilestream()
8689 arg = varlist[1]; in openbor_openfilestream()
8767 HRESULT openbor_getfilestreamline(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getfilestreamline() argument
8780 arg = varlist[0]; in openbor_getfilestreamline()
8800 HRESULT openbor_getfilestreamargument(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_getfilestreamargument() argument
8812 arg = varlist[0]; in openbor_getfilestreamargument()
8818 arg = varlist[1]; in openbor_getfilestreamargument()
8825 if(varlist[2]->vt != VT_STR) in openbor_getfilestreamargument()
8830 argtype = (char *)StrCache_Get(varlist[2]->strVal); in openbor_getfilestreamargument()
8856 HRESULT openbor_filestreamnextline(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_filestreamnextline() argument
8869 arg = varlist[0]; in openbor_filestreamnextline()
8889 HRESULT openbor_getfilestreamposition(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_getfilestreamposition() argument
8900 arg = varlist[0]; in openbor_getfilestreamposition()
8911 HRESULT openbor_setfilestreamposition(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_setfilestreamposition() argument
8923 arg = varlist[0]; in openbor_setfilestreamposition()
8929 arg = varlist[1]; in openbor_setfilestreamposition()
8939 HRESULT openbor_filestreamappend(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_filestreamappend() argument
8954 arg = varlist[0]; in openbor_filestreamappend()
8962 arg = varlist[2]; in openbor_filestreamappend()
8969 arg = varlist[1]; in openbor_filestreamappend()
9004 HRESULT openbor_createfilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_createfilestream() argument
9034 HRESULT openbor_savefilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_savefilestream() argument
9050 arg = varlist[0]; in openbor_savefilestream()
9057 arg = varlist[1]; in openbor_savefilestream()
9103 HRESULT openbor_closefilestream(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_closefilestream() argument
9115 arg = varlist[0]; in openbor_closefilestream()
9130 int mapstrings_attackproperty(ScriptVariant **varlist, int paramCount) in mapstrings_attackproperty() argument
9138 MAPSTRINGS(varlist[0], eplist_attack, _ep_attack_the_end, in mapstrings_attackproperty()
9145 HRESULT openbor_changeattackproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCo… in openbor_changeattackproperty() argument
9159 mapstrings_attackproperty(varlist, paramCount); in openbor_changeattackproperty()
9160 if(varlist[0]->vt != VT_INTEGER) in openbor_changeattackproperty()
9166 prop = varlist[0]->lVal; in openbor_changeattackproperty()
9168 arg = varlist[1]; in openbor_changeattackproperty()
9208 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_changeattackproperty()
9219 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changeattackproperty()
9289 HRESULT openbor_damageentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_damageentity() argument
9306 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_damageentity()
9315 if(paramCount >= 2 && varlist[1]->ptrVal) in openbor_damageentity()
9317 other = (entity *)(varlist[1])->ptrVal; in openbor_damageentity()
9326 if(FAILED(ScriptVariant_IntegerValue((varlist[2]), &force))) in openbor_damageentity()
9334 if(FAILED(ScriptVariant_IntegerValue((varlist[3]), &drop))) in openbor_damageentity()
9342 if(FAILED(ScriptVariant_IntegerValue((varlist[4]), &type))) in openbor_damageentity()
9389 HRESULT openbor_killentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_killentity() argument
9401 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_killentity()
9413 HRESULT openbor_findtarget(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_findtarget() argument
9422 ScriptVariant_IntegerValue(varlist[2], &i); in openbor_findtarget()
9433 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_findtarget()
9439 if(paramCount > 1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) in openbor_findtarget()
9459 HRESULT openbor_checkrange(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_checkrange() argument
9472 if(varlist[0]->vt != VT_PTR || varlist[1]->vt != VT_PTR) in openbor_checkrange()
9477 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_checkrange()
9478 target = (entity *)(varlist[1])->ptrVal; //retrieve the target in openbor_checkrange()
9485 if(paramCount > 2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &ani))) in openbor_checkrange()
9511 HRESULT openbor_clearspawnentry(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_clearspawnentry() argument
9550 int mapstrings_setspawnentry(ScriptVariant **varlist, int paramCount) in mapstrings_setspawnentry() argument
9583 MAPSTRINGS(varlist[0], proplist, _sse_the_end, in mapstrings_setspawnentry()
9590 HRESULT openbor_setspawnentry(ScriptVariant **varlist, ScriptVariant **pretvar, int paramCount) in openbor_setspawnentry() argument
9607 mapstrings_setspawnentry(varlist, paramCount); in openbor_setspawnentry()
9608 if(varlist[0]->vt != VT_INTEGER) in openbor_setspawnentry()
9610 if(varlist[0]->vt != VT_STR) in openbor_setspawnentry()
9618 prop = varlist[0]->lVal; in openbor_setspawnentry()
9620 arg = varlist[1]; in openbor_setspawnentry()
9750 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &dbltemp))) in openbor_setspawnentry()
9761 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_setspawnentry()
9834 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_setspawnentry()
9845 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp))) in openbor_setspawnentry()
9925 HRESULT openbor_spawn(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_spawn() argument
9950 HRESULT openbor_projectile(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_projectile() argument
9964 if(paramCount >= 1 && varlist[0]->vt == VT_INTEGER && varlist[0]->lVal) in openbor_projectile()
9968 varlist++; in openbor_projectile()
9975 if(paramCount >= 1 && varlist[0]->vt == VT_STR) in openbor_projectile()
9977 name = StrCache_Get(varlist[0]->strVal); in openbor_projectile()
9980 if(paramCount >= 2 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[1], &temp))) in openbor_projectile()
9992 if(paramCount >= 3 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[2], &temp))) in openbor_projectile()
10004 if(paramCount >= 4 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &temp))) in openbor_projectile()
10016 if(paramCount >= 5 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp))) in openbor_projectile()
10028 if(paramCount >= 6 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[5], <emp))) in openbor_projectile()
10032 if(paramCount >= 7 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[6], <emp))) in openbor_projectile()
10036 if(paramCount >= 8 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[7], <emp))) in openbor_projectile()
10104 int mapstrings_transconst(ScriptVariant **varlist, int paramCount) in mapstrings_transconst() argument
10115 if(varlist[0]->vt == VT_STR) in mapstrings_transconst()
10119 constname = (char *)StrCache_Get(varlist[0]->strVal); in mapstrings_transconst()
10470 ScriptVariant_Copy(varlist[0], &v); in mapstrings_transconst()
10485 HRESULT openbor_transconst(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_transconst() argument
10495 mapstrings_transconst(varlist, paramCount); in openbor_transconst()
10497 if(varlist[0]->vt == VT_INTEGER) // return value already determined by mapstrings in openbor_transconst()
10499 ScriptVariant_Copy((*pretvar), varlist[0]); in openbor_transconst()
10504 ScriptVariant_ToString(varlist[0], buf); in openbor_transconst()
10511 HRESULT openbor_rgbcolor(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_rgbcolor() argument
10519 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &r))) in openbor_rgbcolor()
10523 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &g))) in openbor_rgbcolor()
10527 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &b))) in openbor_rgbcolor()
10561 int mapstrings_playerkeys(ScriptVariant **varlist, int paramCount) in mapstrings_playerkeys() argument
10586 MAPSTRINGS(varlist[i], proplist, _pk_the_end, in mapstrings_playerkeys()
10594 HRESULT openbor_playerkeys(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playerkeys() argument
10611 mapstrings_playerkeys(varlist, paramCount); in openbor_playerkeys()
10613 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), <emp))) in openbor_playerkeys()
10622 if(SUCCEEDED(ScriptVariant_IntegerValue((varlist[1]), <emp))) in openbor_playerkeys()
10646 arg = varlist[i]; in openbor_playerkeys()
10711 HRESULT openbor_playmusic(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playmusic() argument
10723 if(varlist[0]->vt != VT_STR) in openbor_playmusic()
10728 thename = StrCache_Get(varlist[0]->strVal); in openbor_playmusic()
10732 loop = (int)ScriptVariant_IsTrue(varlist[1]); in openbor_playmusic()
10737 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &offset))) in openbor_playmusic()
10749 HRESULT openbor_fademusic(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_fademusic() argument
10758 if(FAILED(ScriptVariant_DecimalValue(varlist[0], &value))) in openbor_fademusic()
10767 strncpy(musicname, StrCache_Get(varlist[1]->strVal), 128); in openbor_fademusic()
10768 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &values[0]))) in openbor_fademusic()
10772 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &values[1]))) in openbor_fademusic()
10787 HRESULT openbor_setmusicvolume(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setmusicvolume() argument
10796 if(FAILED(ScriptVariant_IntegerValue(varlist[0], channels))) in openbor_setmusicvolume()
10803 if(FAILED(ScriptVariant_IntegerValue(varlist[1], channels + 1))) in openbor_setmusicvolume()
10822 HRESULT openbor_setmusictempo(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setmusictempo() argument
10831 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &new_tempo))) in openbor_setmusictempo()
10841 HRESULT openbor_pausemusic(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_pausemusic() argument
10849 pause = (int)ScriptVariant_IsTrue(varlist[0]); in openbor_pausemusic()
10855 HRESULT openbor_querychannel(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_querychannel() argument
10858 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_querychannel()
10871 HRESULT openbor_stopchannel(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_stopchannel() argument
10875 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_stopchannel()
10886 HRESULT openbor_playsample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playsample() argument
10893 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i))) in openbor_playsample()
10917 HRESULT openbor_loadsample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadsample() argument
10925 if(varlist[0]->vt != VT_STR) in openbor_loadsample()
10932 if(varlist[1]->vt == VT_INTEGER) in openbor_loadsample()
10934 arg = varlist[1]->lVal; in openbor_loadsample()
10943 (*pretvar)->lVal = (LONG)sound_load_sample(StrCache_Get(varlist[0]->strVal), packfile, arg); in openbor_loadsample()
10953 HRESULT openbor_unloadsample(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_unloadsample() argument
10962 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &id))) in openbor_unloadsample()
10976 HRESULT openbor_fadeout(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_fadeout() argument
10986 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &type))) in openbor_fadeout()
10990 if(FAILED(ScriptVariant_IntegerValue((varlist[1]), &speed))) in openbor_fadeout()
11003 HRESULT openbor_changepalette(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changepalette() argument
11014 if(FAILED(ScriptVariant_IntegerValue((varlist[0]), &index))) in openbor_changepalette()
11029 HRESULT openbor_changelight(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changelight() argument
11041 arg = varlist[0]; in openbor_changelight()
11051 arg = varlist[1]; in openbor_changelight()
11070 HRESULT openbor_changeshadowcolor(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changeshadowcolor() argument
11082 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &c))) in openbor_changeshadowcolor()
11091 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &a))) in openbor_changeshadowcolor()
11116 int mapstrings_textobjproperty(ScriptVariant **varlist, int paramCount) in mapstrings_textobjproperty() argument
11136 MAPSTRINGS(varlist[1], proplist, _top_the_end, in mapstrings_textobjproperty()
11142 HRESULT openbor_gettextobjproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCoun… in openbor_gettextobjproperty() argument
11153 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_gettextobjproperty()
11160 mapstrings_textobjproperty(varlist, paramCount); in openbor_gettextobjproperty()
11168 if(varlist[1]->vt != VT_INTEGER) in openbor_gettextobjproperty()
11170 if(varlist[1]->vt != VT_STR) in openbor_gettextobjproperty()
11177 propind = varlist[1]->lVal; in openbor_gettextobjproperty()
11230 HRESULT openbor_changetextobjproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramC… in openbor_changetextobjproperty() argument
11246 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_changetextobjproperty()
11252 mapstrings_textobjproperty(varlist, paramCount); in openbor_changetextobjproperty()
11265 if(varlist[1]->vt != VT_INTEGER) in openbor_changetextobjproperty()
11271 propind = varlist[1]->lVal; in openbor_changetextobjproperty()
11277 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11289 ScriptVariant_ToString(varlist[2], buf); in openbor_changetextobjproperty()
11296 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11308 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11320 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11332 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp))) in openbor_changetextobjproperty()
11351 ScriptVariant_ToString(varlist[2], buf); in openbor_changetextobjproperty()
11357 HRESULT openbor_settextobj(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_settextobj() argument
11373 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_settextobj()
11390 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &X))) in openbor_settextobj()
11394 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &Y))) in openbor_settextobj()
11398 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &F))) in openbor_settextobj()
11402 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &Z))) in openbor_settextobj()
11406 ScriptVariant_ToString(varlist[5], buf); in openbor_settextobj()
11407 if(paramCount >= 7 && FAILED(ScriptVariant_IntegerValue(varlist[6], &T))) in openbor_settextobj()
11431 HRESULT openbor_cleartextobj(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_cleartextobj() argument
11444 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_cleartextobj()
11509 int mapstrings_layerproperty(ScriptVariant **varlist, int paramCount) in mapstrings_layerproperty() argument
11553 MAPSTRINGS(varlist[0], typelist, _glt_the_end, in mapstrings_layerproperty()
11555 MAPSTRINGS(varlist[2], proplist, _glp_the_end, in mapstrings_layerproperty()
11932 HRESULT openbor_getlayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getlayerproperty() argument
11943 mapstrings_layerproperty(varlist, paramCount); in openbor_getlayerproperty()
11945 type = varlist[0]->lVal; in openbor_getlayerproperty()
11946 propind = varlist[2]->lVal; in openbor_getlayerproperty()
11948 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_getlayerproperty()
11982 HRESULT openbor_changelayerproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_changelayerproperty() argument
11994 mapstrings_layerproperty(varlist, paramCount); in openbor_changelayerproperty()
11996 type = varlist[0]->lVal; in openbor_changelayerproperty()
11997 propind = varlist[2]->lVal; in openbor_changelayerproperty()
11999 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &ind))) in openbor_changelayerproperty()
12011 if(FAILED(_changelayerproperty(layer, propind, varlist[3]))) in openbor_changelayerproperty()
12060 int mapstrings_levelproperty(ScriptVariant **varlist, int paramCount) in mapstrings_levelproperty() argument
12096 MAPSTRINGS(varlist[0], proplist, _lp_the_end, in mapstrings_levelproperty()
12099 if(paramCount >= 3 && varlist[0]->vt == VT_INTEGER && varlist[0]->lVal == _lp_basemap) in mapstrings_levelproperty()
12101 MAPSTRINGS(varlist[2], basemaplist, _lp_bm_the_end, in mapstrings_levelproperty()
12108 HRESULT openbor_getlevelproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getlevelproperty() argument
12111 mapstrings_levelproperty(varlist, paramCount); in openbor_getlevelproperty()
12113 switch(varlist[0]->lVal) in openbor_getlevelproperty()
12171 if(paramCount > 2 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp)) in openbor_getlevelproperty()
12172 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp2)) in openbor_getlevelproperty()
12186 if(paramCount > 2 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp)) in openbor_getlevelproperty()
12187 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp2)) in openbor_getlevelproperty()
12200 … printf("Property is not supported by function getlevelproperty yet. %d\n", varlist[0]->lVal); in openbor_getlevelproperty()
12213 HRESULT openbor_changelevelproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_changelevelproperty() argument
12229 mapstrings_levelproperty(varlist, paramCount); in openbor_changelevelproperty()
12231 arg = varlist[1]; in openbor_changelevelproperty()
12233 switch(varlist[0]->lVal) in openbor_changelevelproperty()
12336 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp)) && ltemp >= 0) in openbor_changelevelproperty()
12345 switch(varlist[2]->lVal) in openbor_changelevelproperty()
12348 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2)) ) in openbor_changelevelproperty()
12358 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2)) ) in openbor_changelevelproperty()
12368 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2)) ) in openbor_changelevelproperty()
12378 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2)) ) in openbor_changelevelproperty()
12388 … if(paramCount >= 6 && SUCCEEDED(ScriptVariant_IntegerValue(varlist[3], <emp2)) && in openbor_changelevelproperty()
12389 SUCCEEDED(ScriptVariant_IntegerValue(varlist[4], <emp3)) && in openbor_changelevelproperty()
12390 SUCCEEDED(ScriptVariant_DecimalValue(varlist[5], &dbltemp)) && in openbor_changelevelproperty()
12421 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp)) && ltemp >= 0) in openbor_changelevelproperty()
12430 … if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp2)) && ltemp2 >= 0 && ltemp2 < 7 in openbor_changelevelproperty()
12431 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp)) ) in openbor_changelevelproperty()
12444 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changelevelproperty()
12468 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp)) && ltemp >= 0) in openbor_changelevelproperty()
12477 … if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[2], <emp2)) && ltemp2 >= 0 && ltemp2 < 8 in openbor_changelevelproperty()
12478 && SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp)) ) in openbor_changelevelproperty()
12491 if(SUCCEEDED(ScriptVariant_DecimalValue(varlist[3], &dbltemp))) in openbor_changelevelproperty()
12525 ScriptVariant_ToString(varlist[i], buf); in openbor_changelevelproperty()
12534 HRESULT openbor_shutdown(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_shutdown() argument
12540 if(paramCount > 0 && FAILED(ScriptVariant_IntegerValue(varlist[0], <emp))) in openbor_shutdown()
12544 if(paramCount > 1 && varlist[1]->vt != VT_STR) in openbor_shutdown()
12549 …shutdown((int)ltemp, paramCount > 1 ? StrCache_Get(varlist[0]->strVal) : (DEFAULT_SHUTDOWN_MESSAG… in openbor_shutdown()
12558 HRESULT openbor_jumptobranch(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_jumptobranch() argument
12567 if(varlist[0]->vt != VT_STR) in openbor_jumptobranch()
12572 …strncpy(branch_name, StrCache_Get(varlist[0]->strVal), MIN(MAX_NAME_LEN, MAX_STR_VAR_LEN)); // cop… in openbor_jumptobranch()
12576 if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_jumptobranch()
12595 HRESULT openbor_bindentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_bindentity() argument
12609 ent = (entity *)(varlist[0])->ptrVal; //retrieve the entity in openbor_bindentity()
12615 other = (entity *)(varlist[1])->ptrVal; in openbor_bindentity()
12629 arg = varlist[2]; in openbor_bindentity()
12644 arg = varlist[3]; in openbor_bindentity()
12658 arg = varlist[4]; in openbor_bindentity()
12672 arg = varlist[5]; in openbor_bindentity()
12686 arg = varlist[6]; in openbor_bindentity()
12703 HRESULT openbor_array(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_array() argument
12708 if(paramCount < 1 || FAILED(ScriptVariant_IntegerValue(varlist[0], &size)) || size < 0) in openbor_array()
12735 HRESULT openbor_size(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_size() argument
12738 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_size()
12752 HRESULT openbor_get(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_get() argument
12758 …if(paramCount < 2 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_get()
12763 if(varlist[1]->vt == VT_STR) in openbor_get()
12765 ptmpvar = Varlist_GetByName(array, StrCache_Get(varlist[1]->strVal)); in openbor_get()
12767 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_get()
12793 HRESULT openbor_set(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_set() argument
12799 …if(paramCount < 3 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_set()
12804 if(varlist[1]->vt == VT_STR) in openbor_set()
12806 Varlist_SetByName(array, StrCache_Get(varlist[1]->strVal), varlist[2]); in openbor_set()
12808 else if(SUCCEEDED(ScriptVariant_IntegerValue(varlist[1], <emp))) in openbor_set()
12810 Varlist_SetByIndex(array, (int)ltemp, varlist[2]); in openbor_set()
12825 HRESULT openbor_reset(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_reset() argument
12828 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_reset()
12845 HRESULT openbor_next(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_next() argument
12848 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_next()
12864 HRESULT openbor_key(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_key() argument
12868 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_key()
12892 HRESULT openbor_value(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_value() argument
12896 …if(paramCount < 1 || varlist[0]->vt != VT_PTR || !(array = (Varlist *)varlist[0]->ptrVal) || array… in openbor_value()
12919 HRESULT openbor_allocscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_allocscreen() argument
12929 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &w))) in openbor_allocscreen()
12933 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &h))) in openbor_allocscreen()
12963 HRESULT openbor_clearscreen(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_clearscreen() argument
12972 if(varlist[0]->vt != VT_PTR) in openbor_clearscreen()
12977 screen = (s_screen *)varlist[0]->ptrVal; in openbor_clearscreen()
13038 int mapstrings_drawmethodproperty(ScriptVariant **varlist, int paramCount) in mapstrings_drawmethodproperty() argument
13090 MAPSTRINGS(varlist[1], proplist, _dm_the_end, in mapstrings_drawmethodproperty()
13097 HRESULT openbor_changedrawmethod(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_changedrawmethod() argument
13110 mapstrings_drawmethodproperty(varlist, paramCount); in openbor_changedrawmethod()
13112 if(varlist[0]->vt == VT_EMPTY) in openbor_changedrawmethod()
13116 else if(varlist[0]->vt == VT_PTR) in openbor_changedrawmethod()
13118 e = (entity *)varlist[0]->ptrVal; in openbor_changedrawmethod()
13134 switch(varlist[1]->lVal) in openbor_changedrawmethod()
13138 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13145 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13152 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13159 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13166 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13173 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13180 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13187 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13198 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13203 if(FAILED(ScriptVariant_IntegerValue(varlist[3], &temp))) in openbor_changedrawmethod()
13208 if(FAILED(ScriptVariant_IntegerValue(varlist[4], &temp))) in openbor_changedrawmethod()
13213 if(FAILED(ScriptVariant_IntegerValue(varlist[5], &temp))) in openbor_changedrawmethod()
13220 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13227 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13234 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13241 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13249 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13256 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13263 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13270 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13277 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13284 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13291 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13298 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13308 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13315 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13322 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13329 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13336 if(varlist[2]->vt != VT_PTR && varlist[2]->vt != VT_EMPTY ) in openbor_changedrawmethod()
13340 pmethod->table = (void *)varlist[2]->ptrVal; in openbor_changedrawmethod()
13343 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13350 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13357 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13364 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13371 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13378 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &ftemp))) in openbor_changedrawmethod()
13385 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13392 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13399 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13406 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13413 if(FAILED(ScriptVariant_IntegerValue(varlist[2], &temp))) in openbor_changedrawmethod()
13434 HRESULT openbor_setdrawmethod(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setdrawmethod() argument
13447 if(varlist[0]->vt == VT_EMPTY) in openbor_setdrawmethod()
13451 else if(varlist[0]->vt == VT_PTR) in openbor_setdrawmethod()
13453 e = (entity *)varlist[0]->ptrVal; in openbor_setdrawmethod()
13472 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_setdrawmethod()
13478 if(paramCount >= 14 && varlist[13]->vt != VT_PTR && varlist[13]->vt != VT_EMPTY) in openbor_setdrawmethod()
13485 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 2))) in openbor_setdrawmethod()
13505 pmethod->table = (unsigned char *)varlist[13]->ptrVal; in openbor_setdrawmethod()
13522 HRESULT openbor_updateframe(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_updateframe() argument
13534 if(varlist[0]->vt == VT_EMPTY) in openbor_updateframe()
13538 else if(varlist[0]->vt == VT_PTR) in openbor_updateframe()
13540 e = (entity *)varlist[0]->ptrVal; in openbor_updateframe()
13552 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &f))) in openbor_updateframe()
13567 HRESULT openbor_performattack(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_performattack() argument
13578 if(varlist[0]->vt == VT_EMPTY) in openbor_performattack()
13582 else if(varlist[0]->vt == VT_PTR) in openbor_performattack()
13584 e = (entity *)varlist[0]->ptrVal; in openbor_performattack()
13609 if(paramCount > 1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) in openbor_performattack()
13613 if(paramCount > 2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) in openbor_performattack()
13627 HRESULT openbor_setidle(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_setidle() argument
13639 if(varlist[0]->vt == VT_EMPTY) in openbor_setidle()
13643 else if(varlist[0]->vt == VT_PTR) in openbor_setidle()
13645 e = (entity *)varlist[0]->ptrVal; in openbor_setidle()
13673 if(paramCount > 1 && FAILED(ScriptVariant_IntegerValue(varlist[1], &anim))) in openbor_setidle()
13677 if(paramCount > 2 && FAILED(ScriptVariant_IntegerValue(varlist[2], &resetable))) in openbor_setidle()
13681 if(paramCount > 3 && FAILED(ScriptVariant_IntegerValue(varlist[3], &stalladd))) in openbor_setidle()
13700 HRESULT openbor_getentity(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getentity() argument
13711 if(FAILED(ScriptVariant_IntegerValue(varlist[0], &ind))) in openbor_getentity()
13734 HRESULT openbor_loadmodel(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadmodel() argument
13742 if(varlist[0]->vt != VT_STR) in openbor_loadmodel()
13749 if(FAILED(ScriptVariant_IntegerValue(varlist[1], &unload))) in openbor_loadmodel()
13754 model = load_cached_model(StrCache_Get(varlist[0]->strVal), "openbor_loadmodel", (char)unload); in openbor_loadmodel()
13758 model_cache[model->index].selectable = (char)ScriptVariant_IsTrue(varlist[2]); in openbor_loadmodel()
13775 HRESULT openbor_loadsprite(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadsprite() argument
13784 if(varlist[0]->vt != VT_STR) in openbor_loadsprite()
13790 if((spr = loadsprite2(StrCache_Get(varlist[0]->strVal), NULL, NULL))) in openbor_loadsprite()
13793 if(paramCount > 1 && (mask = loadsprite2(StrCache_Get(varlist[1]->strVal), NULL, NULL))) in openbor_loadsprite()
13810 HRESULT openbor_options(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_options() argument
13819 HRESULT openbor_playgif(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playgif() argument
13830 if(varlist[0]->vt != VT_STR) in openbor_playgif()
13838 if(FAILED(ScriptVariant_IntegerValue(varlist[i + 1], temp + i))) in openbor_playgif()
13843 …(*pretvar)->lVal = (LONG)playgif(StrCache_Get(varlist[0]->strVal), (int)(temp[0]), (int)(temp[1]),… in openbor_playgif()
13855 HRESULT openbor_openanigif(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_openanigif() argument
13859 if(varlist[0]->vt != VT_STR) in openbor_openanigif()
13865 if(anigif_open(StrCache_Get(varlist[0]->strVal), packfile, info)) in openbor_openanigif()
13884 HRESULT openbor_decodeanigif(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_decodeanigif() argument
13888 if(varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_decodeanigif()
13892 info = (anigif_info *) varlist[0]->ptrVal; in openbor_decodeanigif()
13904 HRESULT openbor_getanigifinfo(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getanigifinfo() argument
13909 if(varlist[0]->vt != VT_PTR || !varlist[0]->ptrVal) in openbor_getanigifinfo()
13913 info = (anigif_info *) varlist[0]->ptrVal; in openbor_getanigifinfo()
13915 if(varlist[1]->vt != VT_STR) in openbor_getanigifinfo()
13919 name = StrCache_Get(varlist[1]->strVal); in openbor_getanigifinfo()
13974 HRESULT openbor_adjustwalkanimation(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCou… in openbor_adjustwalkanimation() argument
13985 else if(varlist[0]->vt == VT_PTR) in openbor_adjustwalkanimation()
13987 e = (entity *)varlist[0]->ptrVal; in openbor_adjustwalkanimation()
13998 else if(varlist[1]->vt == VT_PTR) in openbor_adjustwalkanimation()
14000 t = (entity *)varlist[1]->ptrVal; in openbor_adjustwalkanimation()
14002 else if(varlist[1]->vt == VT_EMPTY) in openbor_adjustwalkanimation()
14024 HRESULT openbor_finditem(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_finditem() argument
14033 else if(varlist[0]->vt == VT_PTR) in openbor_finditem()
14035 e = (entity *)varlist[0]->ptrVal; in openbor_finditem()
14060 HRESULT openbor_pickup(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_pickup() argument
14072 if(varlist[0]->vt == VT_PTR) in openbor_pickup()
14074 e = (entity *)varlist[0]->ptrVal; in openbor_pickup()
14081 if(varlist[1]->vt == VT_PTR) in openbor_pickup()
14083 t = (entity *)varlist[1]->ptrVal; in openbor_pickup()
14109 HRESULT openbor_waypoints(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_waypoints() argument
14123 if(varlist[0]->vt == VT_PTR) in openbor_waypoints()
14125 e = (entity *)varlist[0]->ptrVal; in openbor_waypoints()
14140 if(FAILED(ScriptVariant_DecimalValue(varlist[1], &x))) in openbor_waypoints()
14145 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &z))) in openbor_waypoints()
14190 HRESULT openbor_testmove(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_testmove() argument
14203 if(varlist[0]->vt == VT_PTR) in openbor_testmove()
14205 e = (entity *)varlist[0]->ptrVal; in openbor_testmove()
14212 if(FAILED(ScriptVariant_DecimalValue(varlist[1], &x))) in openbor_testmove()
14217 if(FAILED(ScriptVariant_DecimalValue(varlist[2], &z))) in openbor_testmove()
14237 HRESULT openbor_drawspriteq(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_drawspriteq() argument
14252 if(varlist[0]->vt != VT_PTR && varlist[0]->vt != VT_EMPTY) in openbor_drawspriteq()
14257 if(varlist[0]->ptrVal) in openbor_drawspriteq()
14259 screen = (s_screen *)varlist[0]->ptrVal; in openbor_drawspriteq()
14268 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 1))) in openbor_drawspriteq()
14284 HRESULT openbor_clearspriteq(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_clearspriteq() argument
14307 int mapstrings_gfxproperty(ScriptVariant **varlist, int paramCount) in mapstrings_gfxproperty() argument
14330 MAPSTRINGS(varlist[1], proplist, _gfx_the_end, in mapstrings_gfxproperty()
14338 HRESULT openbor_getgfxproperty(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getgfxproperty() argument
14352 mapstrings_gfxproperty(varlist, paramCount); in openbor_getgfxproperty()
14354 if(varlist[0]->vt != VT_PTR) in openbor_getgfxproperty()
14359 handle = varlist[0]->ptrVal; in openbor_getgfxproperty()
14373 switch(varlist[1]->lVal) in openbor_getgfxproperty()
14507 if(FAILED(ScriptVariant_IntegerValue(varlist[i], value + i - 2))) in openbor_getgfxproperty()
14582 HRESULT openbor_allocscript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_allocscript() argument
14594 if(paramCount >= 1 && varlist[0]->vt == VT_STR) in openbor_allocscript()
14596 name = (char *)StrCache_Get(varlist[0]->strVal); in openbor_allocscript()
14598 if(paramCount >= 2 && varlist[1]->vt == VT_STR) in openbor_allocscript()
14600 comment = (char *)StrCache_Get(varlist[1]->strVal); in openbor_allocscript()
14618 HRESULT openbor_loadscript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadscript() argument
14626 if(paramCount >= 1 && varlist[0]->vt == VT_PTR) in openbor_loadscript()
14628 ns = (Script *)varlist[0]->ptrVal; in openbor_loadscript()
14634 if(paramCount >= 2 && varlist[1]->vt == VT_STR) in openbor_loadscript()
14636 path = (char *)StrCache_Get(varlist[1]->strVal); in openbor_loadscript()
14655 HRESULT openbor_compilescript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_compilescript() argument
14661 if(paramCount >= 1 && varlist[0]->vt == VT_PTR) in openbor_compilescript()
14663 ns = (Script *)varlist[0]->ptrVal; in openbor_compilescript()
14680 HRESULT openbor_executescript(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_executescript() argument
14686 if(paramCount >= 1 && varlist[0]->vt == VT_PTR) in openbor_executescript()
14688 ns = (Script *)varlist[0]->ptrVal; in openbor_executescript()
14706 HRESULT openbor_loadgamefile(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_loadgamefile() argument
14714 HRESULT openbor_playgame(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_playgame() argument
14719 if(paramCount >= 1 && FAILED(ScriptVariant_IntegerValue(varlist[0], &lset)) ) in openbor_playgame()
14723 if(paramCount >= 2 && FAILED(ScriptVariant_IntegerValue(varlist[1], &lsave)) ) in openbor_playgame()
14741 HRESULT openbor_getsaveinfo(ScriptVariant **varlist , ScriptVariant **pretvar, int paramCount) in openbor_getsaveinfo() argument
14751 if(FAILED(ScriptVariant_IntegerValue(varlist[0], <emp)) || varlist[1]->vt != VT_STR) in openbor_getsaveinfo()
14763 prop = (char *)StrCache_Get(varlist[1]->strVal); in openbor_getsaveinfo()
14784 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
14792 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
14800 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
14813 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
14822 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()
14830 if(paramCount < 3 || FAILED(ScriptVariant_IntegerValue(varlist[2], <emp)) ) in openbor_getsaveinfo()