开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 外挂编程 > 查看源码
fastutils.xs
资源名称：openkore-2.0.7.zip　[点击查看]
上传用户：market2
上传日期：2018-11-18
资源大小：18786k
文件大小：7k
源码类别：

外挂编程

开发平台：

Windows_Unix

fastutils.xs：源码内容
  1. /* Utility functions rewritten in C for speed */
  2. #include "EXTERN.h"
  3. #include "perl.h"
  4. #include "XSUB.h"
  5. #include <stdio.h>
  6. #include <string.h>
  7. #include <string>
  9. typedef double (*NVtime_t) ();
  10. static void *NVtime = NULL;
  12. using namespace std;
  15. MODULE = FastUtils PACKAGE = Utils
  16. PROTOTYPES: ENABLE
  19. SV *
  20. binFind(r_array, ID)
  21. SV *r_array
  22. SV *ID
  23. INIT:
  24. int ok;
  25. SV *ref;
  26. AV *array;
  27. I32 len;
  28. CODE:
  29. /* Sanity check */
  30. ok = SvOK (r_array);
  31. if (ok) {
  32. ref = SvRV (r_array);
  33. ok = SvTYPE (ref) == SVt_PVAV;
  34. }
  35. if (ok) {
  36. array = (AV *) SvRV (r_array);
  37. len = av_len (array);
  38. if (len < 0)
  39. ok = 0;
  40. }
  42. if (ok) {
  43. I32 i;
  44. int found = 0;
  45. char *IDstr;
  46. STRLEN IDlen;
  48. /* Loop through the array and stop if one item matches */
  49. IDstr = SvPV (ID, IDlen);
  50. for (i = 0; i <= len; i++) {
  51. SV **currentSV;
  52. char *current;
  53. STRLEN currentlen;
  55. currentSV = av_fetch (array, i, 0);
  56. if (!currentSV)
  57. continue;
  58. current = SvPV (*currentSV, currentlen);
  60. if (currentlen == IDlen && memcmp (current, IDstr, currentlen) == 0) {
  61. found = 1;
  62. break;
  63. }
  64. }
  66. if (found)
  67. RETVAL = newSViv (i);
  68. else
  69. XSRETURN_UNDEF;
  71. } else
  72. XSRETURN_UNDEF;
  73. OUTPUT:
  74. RETVAL
  77. int
  78. timeOut(r_time, compare_time = NULL)
  79. SV *r_time
  80. SV *compare_time
  81. PREINIT:
  82. NV current_time, v_time, v_timeout;
  83. CODE:
  84. if (compare_time) {
  85. /* r_time is a number */
  87. if (!(v_time = SvNV (r_time)))
  88. XSRETURN_YES;
  89. if (!(v_timeout = SvNV (compare_time)))
  90. XSRETURN_YES;
  92. if (!NVtime) {
  93. SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
  94. if (!svp)
  95. croak("Time::HiRes is required");
  96. if (!SvIOK (*svp))
  97. croak("Time::NVtime isn't a function pointer");
  98. NVtime = INT2PTR (void *, SvIV (*svp));
  99. }
  100. current_time = ((NVtime_t) NVtime) ();
  102. } else {
  103. /* r_time is a hash */
  104. HV *hash;
  105. SV **sv_time, **sv_timeout;
  107. if (!r_time || !SvOK (r_time) || !SvTYPE (r_time) == SVt_PV)
  108. XSRETURN_YES;
  109. if (!(hash = (HV *) SvRV (r_time)))
  110. XSRETURN_YES;
  111. if (!(sv_time = hv_fetch (hash, "time", 4, 0)) || !(v_time = SvNV (*sv_time)))
  112. XSRETURN_YES;
  113. if (!(sv_timeout = hv_fetch (hash, "timeout", 7, 0)) || !(v_timeout = SvNV (*sv_timeout)))
  114. XSRETURN_YES;
  116. if (!NVtime) {
  117. SV **svp = hv_fetch (PL_modglobal, "Time::NVtime", 12, 0);
  118. if (!svp)
  119. croak("Time::HiRes is required");
  120. if (!SvIOK (*svp))
  121. croak("Time::NVtime isn't a function pointer");
  122. NVtime = INT2PTR (void *, SvIV (*svp));
  123. }
  124. current_time = ((NVtime_t) NVtime) ();
  125. }
  127. RETVAL = (current_time - v_time > v_timeout);
  128. OUTPUT:
  129. RETVAL
  132. char *
  133. xpmmake(width, height, field_data)
  134. int width
  135. int height
  136. char *field_data
  137. CODE:
  138. // Create an XPM from raw field data.
  139. // Written in C++ for speed.
  140. string data;
  141. int y, x;
  142. char tmp[10], *buf, *line;
  144. data.reserve (width * height + 1024);
  145. data.append (
  146. "/* XPM */n"
  147. "static char * my_xpm[] = {n"
  148. """);
  149. snprintf (tmp, sizeof (tmp), "%d %d", width, height);
  150. data.append (tmp);
  151. data.append (" 8 1",n"
  152. ""Atc #F4F4F4",n"
  153. ""Btc #505050",n"
  154. ""Ctc #6060B0",n"
  155. ""Dtc #8080B0",n"
  156. ""Etc #7070B0",n"
  157. ""Ftc #B0B0B0",n"
  158. ""Gtc #808080",n"
  159. ""Htc #600000",n");
  161. line = (char *) malloc (width);
  162. for (y = height - 1; y >= 0; y--) {
  163. for (x = 0; x < width; x++) {
  164. switch (field_data[y * width + x]) {
  165. case '':
  166. line[x] = 'A';
  167. break;
  168. case '1':
  169. line[x] = 'B';
  170. break;
  171. case '2':
  172. line[x] = 'C';
  173. break;
  174. case '3':
  175. line[x] = 'D';
  176. break;
  177. case '4':
  178. line[x] = 'E';
  179. break;
  180. case '5':
  181. line[x] = 'F';
  182. break;
  183. case '6':
  184. line[x] = 'G';
  185. break;
  186. default:
  187. line[x] = 'H';
  188. break;
  189. }
  190. }
  191. data.append (""");
  192. data.append (line, width);
  193. data.append ("",n");
  194. }
  195. free (line);
  196. data.append ("};n");
  198. // I hope sizeof(char) == 1...
  199. New (0, buf, data.size () + 1, char);
  200. Copy (data.c_str (), buf, data.size (), char);
  201. buf[data.size ()] = '';
  202. RETVAL = buf;
  203. OUTPUT:
  204. RETVAL
  207. SV *
  208. makeDistMap(rawMap, width, height)
  209. SV *rawMap
  210. int width
  211. int height
  212. INIT:
  213. STRLEN len;
  214. int i, x, y;
  215. int dist, val;
  216. unsigned char *c_rawMap, *data;
  217. bool done;
  218. CODE:
  219. if (!SvOK (rawMap))
  220. XSRETURN_UNDEF;
  222. c_rawMap = (unsigned char *) SvPV (rawMap, len);
  223. if ((int) len != width * height)
  224. XSRETURN_UNDEF;
  226. /* Simplify the raw map data. Each byte in the raw map data
  227.    represents a block on the field, but only some bytes are
  228.    interesting to pathfinding. */
  229. New (0, data, len, unsigned char);
  230. Copy (c_rawMap, data, len, unsigned char);
  231. for (i = 0; i < (int) len; i++) {
  232. // 0 is open, 3 is walkable water
  233. switch (data[i]) {
  234. case 0:
  235. case 3:
  236. data[i] = 255;
  237. break;
  238. default:
  239. data[i] = 0;
  240. break;
  241. }
  242. }
  244. done = false;
  245. while (!done) {
  246. done = true;
  248. // 'push' wall distance right and up
  249. for (y = 0; y < height; y++) {
  250. for (x = 0; x < width; x++) {
  251. i = y * width + x;
  252. dist = data[i];
  253. if (x != width - 1) {
  254. int ir = y * width + x + 1;
  255. int distr = (int) data[ir];
  256. int comp = dist - distr;
  257. if (comp > 1) {
  258. val = distr + 1;
  259. if (val > 255)
  260. val = 255;
  261. data[i] = val;
  262. done = false;
  263. } else if (comp < -1) {
  264. val = dist + 1;
  265. if (val > 255)
  266. val = 255;
  267. data[ir] = val;
  268. done = false;
  269. }
  270. }
  272. if (y != height - 1) {
  273. int iu = (y + 1) * width + x;
  274. int distu = (int) data[iu];
  275. int comp = dist - distu;
  276. if (comp > 1) {
  277. int val = distu + 1;
  278. if (val > 255)
  279. val = 255;
  280. data[i] = (char) val;
  281. done = false;
  282. } else if (comp < -1) {
  283. int val = dist + 1;
  284. if (val > 255)
  285. val = 255;
  286. data[iu] = (char) val;
  287. done = true;
  288. }
  289. }
  290. }
  291. }
  293. // 'push' wall distance left and down
  294. for (y = height - 1; y >= 0; y--) {
  295. for (x = width - 1; x >= 0 ; x--) {
  296. i = y * width + x;
  297. dist = data[i];
  298. if (x != 0) {
  299. int il = y * width + x - 1;
  300. int distl = data[il];
  301. int comp = dist - distl;
  302. if (comp > 1) {
  303. val = distl + 1;
  304. if (val > 255)
  305. val = 255;
  306. data[i] = val;
  307. done = false;
  308. } else if (comp < -1) {
  309. val = dist + 1;
  310. if (val > 255)
  311. val = 255;
  312. data[il] = val;
  313. done = false;
  314. }
  315. }
  316. if (y != 0) {
  317. int id = (y - 1) * width + x;
  318. int distd = data[id];
  319. int comp = dist - distd;
  320. if (comp > 1) {
  321. val = distd + 1;
  322. if (val > 255)
  323. val = 255;
  324. data[i] = val;
  325. done = false;
  326. } else if (comp < -1) {
  327. val = dist + 1;
  328. if (val > 255)
  329. val = 255;
  330. data[id] = val;
  331. done = false;
  332. }
  333. }
  334. }
  335. }
  336. }
  338. RETVAL = newSVpv ((const char *) data, len);
  339. OUTPUT:
  340. RETVAL