173 

   173 

   174 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture;

   174 function RenderSpeechBubbleTex(s: ansistring; SpeechType: Longword; font: THWFont): PTexture;

   175 var textWidth, textHeight, x, y, w, h, i, j, pos, prevpos, line, numLines, edgeWidth, edgeHeight, cornerWidth, cornerHeight: LongInt;

   175 var textWidth, textHeight, x, y, w, h, i, j, pos, prevpos, line, numLines, edgeWidth, edgeHeight, cornerWidth, cornerHeight: LongInt;

   176     finalSurface, tmpsurf, rotatedEdge: PSDL_Surface;

   176     finalSurface, tmpsurf, rotatedEdge: PSDL_Surface;

   177     rect: TSDL_Rect;

   177     rect: TSDL_Rect;

   179     substr: shortstring;

   179     substr: shortstring;

   180     edge, corner, tail: TSPrite;

   180     edge, corner, tail: TSPrite;

   181 begin

   181 begin

   182     case SpeechType of

   182     case SpeechType of

   183         1: begin;

   183         1: begin;