hedgewars/uScript.pas
changeset 13747 cb2857f55130
parent 13746 e8f26bc793d9
child 13748 d7b72ea8d136
equal deleted inserted replaced
13746:e8f26bc793d9 13747:cb2857f55130
   155             + inttostr(LuaDebugInfo.currentLine) + ']: ' + s;
   155             + inttostr(LuaDebugInfo.currentLine) + ']: ' + s;
   156         end
   156         end
   157     else
   157     else
   158         s:= intro + ': ' + s;
   158         s:= intro + ': ' + s;
   159     WriteLnToConsole(s);
   159     WriteLnToConsole(s);
   160     AddChatString(#5 + s);
   160     if isWarning then
       
   161         AddChatString(#0 + s)
       
   162     else
       
   163         AddChatString(#5 + s);
   161     if cTestLua and (not isWarning) then
   164     if cTestLua and (not isWarning) then
   162         halt(HaltTestLuaError);
   165         halt(HaltTestLuaError);
   163 end;
   166 end;
   164 
   167 
   165 procedure LuaError(s: shortstring);
   168 procedure LuaError(s: shortstring);