equal
deleted
inserted
replaced
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 procedure ScriptSetInteger(name : shortstring; value : LongInt); |
40 procedure ScriptSetInteger(name : shortstring; value : LongInt); |
|
41 procedure ScriptSetString(name : shortstring; value : shortstring); |
41 |
42 |
42 procedure ScriptCall(fname : shortstring); |
43 procedure ScriptCall(fname : shortstring); |
43 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
44 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
44 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
45 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
45 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
46 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
2068 ScriptSetInteger('HealthDecrease', cHealthDecrease); |
2069 ScriptSetInteger('HealthDecrease', cHealthDecrease); |
2069 ScriptSetInteger('GetAwayTime', cGetAwayTime); |
2070 ScriptSetInteger('GetAwayTime', cGetAwayTime); |
2070 ScriptSetString('Map', cMapName); |
2071 ScriptSetString('Map', cMapName); |
2071 ScriptSetString('Theme', ''); |
2072 ScriptSetString('Theme', ''); |
2072 ScriptSetString('Goals', ''); |
2073 ScriptSetString('Goals', ''); |
2073 ScriptSetString('ScriptParam', cScriptParam); |
|
2074 |
2074 |
2075 ScriptCall('onGameInit'); |
2075 ScriptCall('onGameInit'); |
2076 |
2076 |
2077 // pop game variables |
2077 // pop game variables |
2078 ParseCommand('seed ' + ScriptGetString('Seed'), true, true); |
2078 ParseCommand('seed ' + ScriptGetString('Seed'), true, true); |