hedgewars/uScript.pas
changeset 13679 3f6fae745f84
parent 13668 91d48cbae927
child 13726 61095cb5f58a
equal deleted inserted replaced
13678:1aa5e884326a 13679:3f6fae745f84
    84     uUtils,
    84     uUtils,
    85     uIO,
    85     uIO,
    86     uVisualGearsList,
    86     uVisualGearsList,
    87     uGearsHandlersMess,
    87     uGearsHandlersMess,
    88     uPhysFSLayer,
    88     uPhysFSLayer,
       
    89     uLocale,
    89     SDLh
    90     SDLh
    90 {$IFNDEF PAS2C}
    91 {$IFNDEF PAS2C}
    91     , typinfo
    92     , typinfo
    92 {$ENDIF}
    93 {$ENDIF}
    93     ;
    94     ;
  1626             if vgear <> nil then
  1627             if vgear <> nil then
  1627                begin
  1628                begin
  1628                vgear^.Text:= lua_tostring(L, 2);
  1629                vgear^.Text:= lua_tostring(L, 2);
  1629                if Gear^.Kind = gtHedgehog then
  1630                if Gear^.Kind = gtHedgehog then
  1630                    begin
  1631                    begin
  1631                    AddChatString(#9+'[' + gear^.Hedgehog^.Name + '] '+vgear^.text);
  1632                    AddChatString(#9+FormatA(trmsg[sidChatHog], [gear^.Hedgehog^.Name, vgear^.text]));
  1632                    vgear^.Hedgehog:= gear^.Hedgehog
  1633                    vgear^.Hedgehog:= gear^.Hedgehog
  1633                    end
  1634                    end
  1634                else vgear^.Frame:= gear^.uid;
  1635                else vgear^.Frame:= gear^.uid;
  1635 
  1636 
  1636                vgear^.FrameTicks:= Trunc(lua_tonumber(L, 3));
  1637                vgear^.FrameTicks:= Trunc(lua_tonumber(L, 3));