97 obj:= obj; // avoid hint |
97 obj:= obj; // avoid hint |
98 envderef:= @env; |
98 envderef:= @env; |
99 JNI_HW_versionInfoVersion := envderef^.NewStringUTF(env, PChar(cVersionString)); |
99 JNI_HW_versionInfoVersion := envderef^.NewStringUTF(env, PChar(cVersionString)); |
100 end; |
100 end; |
101 |
101 |
102 function JNI_HW_GenLandPreview(env: PJNIEnv; c: JClass; port: JInt):JInt; cdecl; |
102 procedure JNI_HW_GenLandPreview(env: PJNIEnv; c: JClass; port: JInt); cdecl; |
103 begin |
103 begin |
104 GenLandPreview(port); |
104 GenLandPreview(port); |
105 JNI_HW_GenLandPreview := port; |
105 end; |
|
106 |
|
107 procedure JNI_HW_Terminate(env: PJNIEnv; c: JClass); cdecl; |
|
108 begin |
|
109 HW_terminate(false); |
106 end; |
110 end; |
107 |
111 |
108 exports |
112 exports |
109 JNI_HW_versionInfoNet name Java_Prefix+'HWversionInfoNetProto', |
113 JNI_HW_versionInfoNet name Java_Prefix+'HWversionInfoNetProto', |
110 JNI_HW_versionInfoVersion name Java_Prefix+'HWversionInfoVersion', |
114 JNI_HW_versionInfoVersion name Java_Prefix+'HWversionInfoVersion', |
111 JNI_HW_GenLandPreview name Java_Prefix + 'HWGenLandPreview', |
115 JNI_HW_GenLandPreview name Java_Prefix + 'HWGenLandPreview', |
112 HW_getNumberOfweapons name Java_Prefix + 'HWgetNumberOfWeapons', |
116 HW_getNumberOfweapons name Java_Prefix + 'HWgetNumberOfWeapons', |
113 HW_getMaxNumberOfHogs name Java_Prefix + 'HWgetMaxNumberOfHogs', |
117 HW_getMaxNumberOfHogs name Java_Prefix + 'HWgetMaxNumberOfHogs', |
114 HW_getMaxNumberOfTeams name Java_Prefix + 'HWgetMaxNumberOfTeams', |
118 HW_getMaxNumberOfTeams name Java_Prefix + 'HWgetMaxNumberOfTeams', |
115 HW_terminate name Java_Prefix + 'HWterminate', |
119 JNI_HW_Terminate name Java_Prefix + 'HWterminate', |
116 Game; |
120 Game; |
117 {$ELSE} |
121 {$ELSE} |
118 exports |
122 exports |
119 Game, |
123 Game, |
120 GenLandPreview, |
124 GenLandPreview, |