equal
deleted
inserted
replaced
47 InputStrL: array[0..260] of char; // for full str + 4-byte utf-8 char |
47 InputStrL: array[0..260] of char; // for full str + 4-byte utf-8 char |
48 |
48 |
49 const colors: array[#1..#4] of Longword = ( |
49 const colors: array[#1..#4] of Longword = ( |
50 $FFFFFF, // chat message |
50 $FFFFFF, // chat message |
51 $FF00FF, // action message |
51 $FF00FF, // action message |
52 $00B000, // join/leave message |
52 $00FF00, // join/leave message |
53 $AFFFAF // team message |
53 $A0FFFF // team message |
54 ); |
54 ); |
55 |
55 |
56 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean); |
56 procedure SetLine(var cl: TChatLine; str: shortstring; isInput: boolean); |
57 var strSurface, resSurface: PSDL_Surface; |
57 var strSurface, resSurface: PSDL_Surface; |
58 w, h: LongInt; |
58 w, h: LongInt; |
64 |
64 |
65 cl.s:= str; |
65 cl.s:= str; |
66 |
66 |
67 if isInput then |
67 if isInput then |
68 begin |
68 begin |
69 color:= $00FFFF; |
69 color:= $FFFF00; |
70 str:= UserNick + '> ' + str + '_' |
70 str:= UserNick + '> ' + str + '_' |
71 end |
71 end |
72 else begin |
72 else begin |
73 color:= colors[str[1]]; |
73 color:= colors[str[1]]; |
74 delete(str, 1, 1) |
74 delete(str, 1, 1) |