equal
deleted
inserted
replaced
103 procedure AddFileLog(s: shortstring); |
103 procedure AddFileLog(s: shortstring); |
104 function RectToStr(Rect: TSDL_Rect): shortstring; |
104 function RectToStr(Rect: TSDL_Rect): shortstring; |
105 {$ENDIF} |
105 {$ENDIF} |
106 procedure SetKB(n: Longword); |
106 procedure SetKB(n: Longword); |
107 procedure SendKB; |
107 procedure SendKB; |
|
108 procedure SetLittle(var r: Double); |
108 |
109 |
109 var CursorPoint: TPoint; |
110 var CursorPoint: TPoint; |
110 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
111 TargetPoint: TPoint = (X: NoPointX; Y: 0); |
111 |
112 |
112 implementation |
113 implementation |
203 s:= 'K' + inttostr(KBnum); |
204 s:= 'K' + inttostr(KBnum); |
204 SendIPCRaw(@s, Length(s) + 1) |
205 SendIPCRaw(@s, Length(s) + 1) |
205 end |
206 end |
206 end; |
207 end; |
207 |
208 |
|
209 procedure SetLittle(var r: Double); |
|
210 begin |
|
211 if r >= 0 then r:= cLittle else r:= - cLittle |
|
212 end; |
|
213 |
208 {$IFDEF DEBUGFILE} |
214 {$IFDEF DEBUGFILE} |
209 procedure AddFileLog(s: shortstring); |
215 procedure AddFileLog(s: shortstring); |
210 begin |
216 begin |
211 writeln(f, GameTicks: 6, ': ', s); |
217 writeln(f, GameTicks: 6, ': ', s); |
212 flush(f) |
218 flush(f) |