2 Copyright (C) 1998 BJ Eirich (aka vecna)
\r
3 This program is free software; you can redistribute it and/or
\r
4 modify it under the terms of the GNU General Public License
\r
5 as published by the Free Software Foundation; either version 2
\r
6 of the License, or (at your option) any later version.
\r
7 This program is distributed in the hope that it will be useful,
\r
8 but WITHOUT ANY WARRANTY; without even the implied warranty of
\r
9 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
\r
10 See the GNU General Public Lic
\r
11 See the GNU General Public License for more details.
\r
12 You should have received a copy of the GNU General Public License
\r
13 along with this program; if not, write to the Free Software
\r
14 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
\r
17 // ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿
\r
18 // ³ The VergeC Compiler version 2.01 ³
\r
19 // ³ Copyright (C)1998 BJ Eirich (aka vecna) ³
\r
20 // ³ Standard Function Library module ³
\r
21 // ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ
\r
26 #include "compile.h"
\r
27 #include "funclib.h"
\r
30 #include "lexical.h"
\r
32 // ================================= Data ====================================
\r
34 // ================================= Code ====================================
\r
62 void vc_AllocateEntity()
\r
98 void vc_PrintString()
\r
116 void vc_EntityMove()
\r
144 void vc_SetRString()
\r
152 void vc_PartyMove()
\r
160 void vc_PlayMusic()
\r
176 void vc_HookRetrace()
\r
184 if (token_subtype == op_UFUNC)
\r
198 void vc_HookTimer()
\r
206 if (token_subtype == op_UFUNC)
\r
230 if (token_subtype == op_UFUNC)
\r
244 void vc_QuickRead()
\r
251 if (varcategory == op_STRING)
\r
254 EmitW(str[varidx].vsofs);
\r
260 if (varcategory == op_SARRAY)
\r
263 EmitW(str[varidx].vsofs);
\r
272 vcerr("String variable expected.");
\r
275 void vc_CacheSound()
\r
304 if (varcategory == op_STRING)
\r
307 EmitW(str[varidx].vsofs);
\r
313 if (varcategory == op_SARRAY)
\r
316 EmitW(str[varidx].vsofs);
\r
325 vcerr("String variable expected.");
\r
328 void vc_fgettoken()
\r
333 if (varcategory == op_STRING)
\r
336 EmitW(str[varidx].vsofs);
\r
342 if (varcategory == op_SARRAY)
\r
345 EmitW(str[varidx].vsofs);
\r
354 vcerr("String variable expected.");
\r
357 void vc_fwritestring()
\r
401 void vc_NumForScript()
\r
406 if (token_subtype == op_UFUNC)
\r
408 else vcerr("system script expected.");
\r
420 void GenericFunc(unsigned char idcode, int numargs)
\r
438 for (i=1; i<numargs; i++)
\r