45 ; |
45 ; |
46 |
46 |
47 {$INCLUDE "config.inc"} |
47 {$INCLUDE "config.inc"} |
48 |
48 |
49 // retrieve protocol information |
49 // retrieve protocol information |
50 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; export; |
50 procedure HW_versionInfo(netProto: PLongInt; versionStr: PPChar); cdecl; |
51 begin |
51 begin |
52 netProto^:= cNetProtoVersion; |
52 netProto^:= cNetProtoVersion; |
53 versionStr^:= cVersionString; |
53 versionStr^:= cVersionString; |
54 end; |
54 end; |
55 |
55 |
56 function HW_versionString: PChar; cdecl; export; |
56 function HW_versionString: PChar; cdecl; |
57 begin |
57 begin |
58 exit(cVersionString + '-r' + cRevisionString + ' (' + cHashString + ')'); |
58 exit(cVersionString + '-r' + cRevisionString + ' (' + cHashString + ')'); |
59 end; |
59 end; |
60 |
60 |
61 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup |
61 // equivalent to esc+y; when closeFrontend = true the game exits after memory cleanup |
62 procedure HW_terminate(closeFrontend: boolean); cdecl; export; |
62 procedure HW_terminate(closeFrontend: boolean); cdecl; |
63 begin |
63 begin |
64 closeFrontend:= closeFrontend; // avoid hint |
64 closeFrontend:= closeFrontend; // avoid hint |
65 ParseCommand('forcequit', true); |
65 ParseCommand('forcequit', true); |
66 end; |
66 end; |
67 |
67 |
68 function HW_getWeaponNameByIndex(whichone: LongInt): PChar; cdecl; export; |
68 function HW_getWeaponNameByIndex(whichone: LongInt): PChar; cdecl; |
69 begin |
69 begin |
70 HW_getWeaponNameByIndex:= (str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId])); |
70 HW_getWeaponNameByIndex:= (str2pchar(trammo[Ammoz[TAmmoType(whichone+1)].NameId])); |
71 end; |
71 end; |
72 |
72 |
73 (*function HW_getWeaponCaptionByIndex(whichone: LongInt): PChar; cdecl; export; |
73 (*function HW_getWeaponCaptionByIndex(whichone: LongInt): PChar; cdecl; |
74 begin |
74 begin |
75 HW_getWeaponCaptionByIndex:= (str2pchar(trammoc[Ammoz[TAmmoType(whichone+1)].NameId])); |
75 HW_getWeaponCaptionByIndex:= (str2pchar(trammoc[Ammoz[TAmmoType(whichone+1)].NameId])); |
76 end; |
76 end; |
77 |
77 |
78 function HW_getWeaponDescriptionByIndex(whichone: LongInt): PChar; cdecl; export; |
78 function HW_getWeaponDescriptionByIndex(whichone: LongInt): PChar; cdecl; |
79 begin |
79 begin |
80 HW_getWeaponDescriptionByIndex:= (str2pchar(trammod[Ammoz[TAmmoType(whichone+1)].NameId])); |
80 HW_getWeaponDescriptionByIndex:= (str2pchar(trammod[Ammoz[TAmmoType(whichone+1)].NameId])); |
81 end;*) |
81 end;*) |
82 |
82 |
83 function HW_getNumberOfWeapons: LongInt; cdecl; export; |
83 function HW_getNumberOfWeapons: LongInt; cdecl; |
84 begin |
84 begin |
85 HW_getNumberOfWeapons:= ord(high(TAmmoType)); |
85 HW_getNumberOfWeapons:= ord(high(TAmmoType)); |
86 end; |
86 end; |
87 |
87 |
88 function HW_getMaxNumberOfHogs: LongInt; cdecl; export; |
88 function HW_getMaxNumberOfHogs: LongInt; cdecl; |
89 begin |
89 begin |
90 HW_getMaxNumberOfHogs:= cMaxHHIndex + 1; |
90 HW_getMaxNumberOfHogs:= cMaxHHIndex + 1; |
91 end; |
91 end; |
92 |
92 |
93 function HW_getMaxNumberOfTeams: LongInt; cdecl; export; |
93 function HW_getMaxNumberOfTeams: LongInt; cdecl; |
94 begin |
94 begin |
95 HW_getMaxNumberOfTeams:= cMaxTeams; |
95 HW_getMaxNumberOfTeams:= cMaxTeams; |
96 end; |
96 end; |
97 |
97 |
98 procedure HW_memoryWarningCallback; cdecl; export; |
98 procedure HW_memoryWarningCallback; cdecl; |
99 begin |
99 begin |
100 ReleaseSound(false); |
100 ReleaseSound(false); |
101 end; |
101 end; |
102 |
102 |
103 procedure flibInit(localPrefix, userPrefix: PChar); cdecl; export; |
103 procedure flibInit(localPrefix, userPrefix: PChar); cdecl; |
104 begin |
104 begin |
105 initIPC; |
105 initIPC; |
106 uPhysFSLayer.initModule(localPrefix, userPrefix); |
106 uPhysFSLayer.initModule(localPrefix, userPrefix); |
107 end; |
107 end; |
108 |
108 |
109 procedure flibFree; cdecl; export; |
109 procedure flibFree; cdecl; |
110 begin |
110 begin |
111 uPhysFSLayer.freemodule; |
111 uPhysFSLayer.freemodule; |
112 freeIPC; |
112 freeIPC; |
113 end; |
113 end; |
114 |
114 |