Mercurial Mercurial > sheepy-clone / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/uScript.pas
changeset 7030 09984acadece
parent 7010 10a0a31804f3
child 7063 a0326412e96a
equal deleted inserted replaced
7029:efbe6400fc24 7030:09984acadece 
    34 procedure ScriptPrintStack;
 
    34 procedure ScriptPrintStack;
 
    35 procedure ScriptClearStack;
 
    35 procedure ScriptClearStack;
 
    36 
    36 
    37 procedure ScriptLoad(name : shortstring);
 
    37 procedure ScriptLoad(name : shortstring);
 
    38 procedure ScriptOnGameInit;
 
    38 procedure ScriptOnGameInit;
 
    39 procedure ScriptOnScreenResize();
 
    39 procedure ScriptOnScreenResize;
 
    40 
    40 
    41 procedure ScriptCall(fname : shortstring);
 
    41 procedure ScriptCall(fname : shortstring);
 
    42 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;
 
    42 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;
 
    43 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt;
 
    43 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt;
 
    44 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;
 
    44 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;
 
    50 
    50 
    51 procedure initModule;
 
    51 procedure initModule;
 
    52 procedure freeModule;
 
    52 procedure freeModule;
 
    53 
    53 
    54 implementation
 
    54 implementation
 
    55 {$IFNDEF LUA_DISABLED}
 
    55 {$IFDEF USE_LUA_SCRIPT}
 
    56 uses LuaPas,
 
    56 uses LuaPas,
 
    57     uConsole,
 
    57     uConsole,
 
    58     uConsts,
 
    58     uConsts,
 
    59     uVisualGears,
 
    59     uVisualGears,
 
    60     uGears,
 
    60     uGears,
 
  2253 begin
 
  2253 begin
 
  2254 end;
 
  2254 end;
 
  2255 
  2255 
  2256 procedure ScriptLoad(name : shortstring);
 
  2256 procedure ScriptLoad(name : shortstring);
 
  2257 begin
 
  2257 begin
 
       
  2258     name:= name; // avoid hint
 
  2258 end;
 
  2259 end;
 
  2259 
  2260 
  2260 procedure ScriptOnGameInit;
 
  2261 procedure ScriptOnGameInit;
 
  2261 begin
 
  2262 begin
 
  2262 end;
 
  2263 end;
 
  2263 
  2264 
  2264 procedure ScriptCall(fname : shortstring);
 
  2265 procedure ScriptCall(fname : shortstring);
 
  2265 begin
 
  2266 begin
 
       
  2267     fname:= fname; // avoid hint
 
  2266 end;
 
  2268 end;
 
  2267 
  2269 
  2268 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;
 
  2270 function ScriptCall(fname : shortstring; par1, par2, par3, par4 : LongInt) : LongInt;
 
  2269 begin
 
  2271 begin
 
  2270 ScriptCall:= 0
 
  2272     // avoid hints
 
       
  2273     fname:= fname;
 
       
  2274     par1:= par1;
 
       
  2275     par2:= par2;
 
       
  2276     par3:= par3;
 
       
  2277     par4:= par4;
 
       
  2278     ScriptCall:= 0
 
  2271 end;
 
  2279 end;
 
  2272 
  2280 
  2273 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;
 
  2281 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt;
 
  2274 begin
 
  2282 begin
 
  2275 ScriptCall:= 0
 
  2283     // avoid hints
 
       
  2284     fname:= fname;
 
       
  2285     par1:= par1;
 
       
  2286     ScriptCall:= 0
 
  2276 end;
 
  2287 end;
 
  2277 
  2288 
  2278 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt;
 
  2289 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt;
 
  2279 begin
 
  2290 begin
 
  2280 ScriptCall:= 0
 
  2291     // avoid hints
 
       
  2292     fname:= fname;
 
       
  2293     par1:= par1;
 
       
  2294     par2:= par2;
 
       
  2295     ScriptCall:= 0
 
  2281 end;
 
  2296 end;
 
  2282 
  2297 
  2283 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;
 
  2298 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt;
 
  2284 begin
 
  2299 begin
 
  2285 ScriptCall:= 0
 
  2300     // avoid hints
 
       
  2301     fname:= fname;
 
       
  2302     par1:= par1;
 
       
  2303     par2:= par2;
 
       
  2304     par3:= par3;
 
       
  2305     ScriptCall:= 0
 
  2286 end;
 
  2306 end;
 
  2287 
  2307 
  2288 function ScriptExists(fname : shortstring) : boolean;
 
  2308 function ScriptExists(fname : shortstring) : boolean;
 
  2289 begin
 
  2309 begin
 
  2290 ScriptExists:= false
 
  2310     fname:= fname; // avoid hint
 
       
  2311     ScriptExists:= false
 
  2291 end;
 
  2312 end;
 
  2292 
  2313 
  2293 function ParseCommandOverride(key, value : shortstring) : shortstring;
 
  2314 function ParseCommandOverride(key, value : shortstring) : shortstring;
 
  2294 begin
 
  2315 begin
 
  2295 ParseCommandOverride:= value
 
  2316     // avoid hints
 
       
  2317     key:= key;
 
       
  2318     value:= value;
 
       
  2319     ParseCommandOverride:= ''
 
  2296 end;
 
  2320 end;
 
  2297 
  2321 
  2298 procedure ScriptOnScreenResize;
 
  2322 procedure ScriptOnScreenResize;
 
  2299 begin
 
  2323 begin
 
  2300 end;
 
  2324 end;
sheepy-clone