equal
deleted
inserted
replaced
34 previousGameState: TGameState; |
34 previousGameState: TGameState; |
35 |
35 |
36 // retrieve protocol information |
36 // retrieve protocol information |
37 procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export; |
37 procedure HW_versionInfo(netProto: PShortInt; versionStr: PPChar); cdecl; export; |
38 begin |
38 begin |
39 // http://bugs.freepascal.org/view.php?id=16156 |
39 netProto^:= cNetProtoVersion; |
40 if netProto <> nil then netProto^:= cNetProtoVersion; |
40 versionStr^:= cVersionString; |
41 if versionStr <> nil then versionStr^:= cVersionString; |
|
42 end; |
41 end; |
43 |
42 |
44 procedure HW_click; cdecl; export; |
43 procedure HW_click; cdecl; export; |
45 begin |
44 begin |
46 leftClick:= true; |
45 leftClick:= true; |