equal
deleted
inserted
replaced
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 |
40 |
40 procedure ScriptCall(fname : shortstring); |
41 procedure ScriptCall(fname : shortstring); |
41 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
42 function ScriptCall(fname : shortstring; par1: LongInt) : LongInt; |
42 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
43 function ScriptCall(fname : shortstring; par1, par2: LongInt) : LongInt; |
43 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
44 function ScriptCall(fname : shortstring; par1, par2, par3: LongInt) : LongInt; |
1621 end; |
1622 end; |
1622 |
1623 |
1623 ScriptSetInteger('ClansCount', ClansCount); |
1624 ScriptSetInteger('ClansCount', ClansCount); |
1624 ScriptSetInteger('TeamsCount', TeamsCount) |
1625 ScriptSetInteger('TeamsCount', TeamsCount) |
1625 end; |
1626 end; |
|
1627 |
|
1628 |
|
1629 // Update values of screen dimensions and allow script to react to resolution change |
|
1630 procedure ScriptOnScreenResize(); |
|
1631 begin |
|
1632 ScriptSetInteger('ScreenHeight', cScreenHeight); |
|
1633 ScriptSetInteger('ScreenWidth', cScreenWidth); |
|
1634 ScriptCall('onScreenResize'); |
|
1635 end; |
|
1636 |
1626 |
1637 |
1627 procedure ScriptLoad(name : shortstring); |
1638 procedure ScriptLoad(name : shortstring); |
1628 var ret : LongInt; |
1639 var ret : LongInt; |
1629 s : shortstring; |
1640 s : shortstring; |
1630 begin |
1641 begin |