# HG changeset patch
# User nemo
# Date 1313545030 14400
# Node ID 63b274a4fb012b26049d34c9aed432b0f9fd943c
# Parent  48ced03a9949a35dbf7311d9f127e62546f4614b
At mikade's request, expose screenheight/screenwidth and allow setting tag zoom level

diff -r 48ced03a9949 -r 63b274a4fb01 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Tue Aug 16 21:57:58 2011 +0400
+++ b/hedgewars/uScript.pas	Tue Aug 16 21:37:10 2011 -0400
@@ -1539,6 +1539,8 @@
 // push game variables so they may be modified by the script
 ScriptSetInteger('GameFlags', GameFlags);
 ScriptSetString('Seed', cSeed);
+ScriptSetInteger('ScreenHeight', cScreenHeight);
+ScriptSetInteger('ScreenWidth', cScreenWidth);
 ScriptSetInteger('TurnTime', cHedgehogTurnTime);
 ScriptSetInteger('CaseFreq', cCaseFactor);
 ScriptSetInteger('HealthCaseProb', cHealthCaseProb);
diff -r 48ced03a9949 -r 63b274a4fb01 hedgewars/uVisualGears.pas
--- a/hedgewars/uVisualGears.pas	Tue Aug 16 21:57:58 2011 +0400
+++ b/hedgewars/uVisualGears.pas	Tue Aug 16 21:37:10 2011 -0400
@@ -484,8 +484,9 @@
                             if Gear^.Frame = 0 then 
                                 DrawCentered(round(Gear^.X) + WorldDx, round(Gear^.Y) + WorldDy, Gear^.Tex)
                             else
-                                begin 
-                                SetScale(cDefaultZoomLevel); 
+                                begin
+                                if Gear^.Angle <> 0 then SetScale(Gear^.Angle)
+                                else SetScale(cDefaultZoomLevel); 
                                 DrawTexture(round(Gear^.X), round(Gear^.Y), Gear^.Tex); 
                                 SetScale(zoom)
                                 end