hedgewars/uScript.pas
changeset 5825 a6eab1b7c00d
parent 5703 637fb1e6487b
child 5896 9ce1cf4e5a32
child 5897 0e0fc7e08a3d
equal deleted inserted replaced
5823:f906f6645e02 5825:a6eab1b7c00d
    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