API tools faq
paste
Advertisement
Guest User

Raizer

a guest
Apr 3rd, 2009
206
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 14.28 KB | None | 0 0
raw download clone embed print report
  1. #include <a_samp>
  2. #include <core>
  3. #include <float>
  4.  
  5. new globBC;
  6.  
  7. new globC0;
  8.  
  9. new globC4;
  10.  
  11. new globC8;
  12.  
  13. new globCC;
  14.  
  15. new File:globD0;
  16.  
  17. new globD4[200];
  18.  
  19.  
  20. function8(arg0, arg1)
  21. {
  22. new File:var0 = 0, File:var1 = 0;
  23. if(!fexist(arg0))
  24. {
  25. return 0;
  26. }
  27. var0 = fopen(arg0, 0);
  28. var1 = fopen(arg1, 1);
  29. new var2[255];
  30. while(fread(var0, var2, 255))
  31. {
  32. function220(var2);
  33. format(var2, 255, "%s\r\n", var2);
  34. fwrite(var1, var2);
  35. }
  36. fclose(var0);
  37. fclose(var1);
  38. return 1;
  39. }
  40.  
  41. function220(arg0)
  42. {
  43. new var0 = strlen(arg0);
  44. if(!arg0)
  45. {
  46. return 0;
  47. }
  48. if(arg0[var0 - 1] == 10 || arg0[var0 - 1] == 13)
  49. {
  50. arg0[var0 - 1] = 0;
  51. if(!arg0)
  52. {
  53. return 0;
  54. }
  55. if(arg0[var0 - 2] == 10 || arg0[var0 - 2] == 13)
  56. {
  57. arg0[var0 - 2] = 0;
  58. }
  59. }
  60. return 0;
  61. }
  62.  
  63. function448(arg0, arg1, arg2)
  64. {
  65. new var0[255];
  66. new var1 = 0;
  67. var0[0] = 0;
  68. if(strlen(arg0) <= arg1)
  69. {
  70. return var0;
  71. }
  72. if(strlen(arg0) <= arg2 + arg1)
  73. {
  74. arg2 = strlen(arg0) - arg1;
  75. }
  76. if(0 >= arg2)
  77. {
  78. return var0;
  79. }
  80. for(var1 = arg1; arg2 + arg1 > var1; var1++)
  81. {
  82. var0[var1 - arg1] = arg0[var1];
  83. if(!arg0[var1])
  84. {
  85. return var0;
  86. }
  87. }
  88. var0[arg2] = 0;
  89. return var0;
  90. }
  91.  
  92. function708(arg0, arg1)
  93. {
  94. new var0 = strlen(arg1);
  95. new var1 = 0;
  96. for(var1 = 0; var1 < var0; var1++)
  97. {
  98. arg0[var1] = arg1[var1];
  99. }
  100. arg0[var0] = 0;
  101. return 0;
  102. }
  103.  
  104. function7FC(arg0, arg1, arg2)
  105. {
  106. if(strlen(arg0) != strlen(arg1))
  107. {
  108. return 0;
  109. }
  110. if(!strcmp(arg0, arg1, arg2))
  111. {
  112. return 1;
  113. }
  114. return 0;
  115. }
  116.  
  117. function8C0(arg0, &arg1, arg2)
  118. {
  119. new var0 = strlen(arg0);
  120. new var1 = arg1;
  121. new var2[255];
  122. while(arg1 < var0 && arg0[arg1] != arg2 && arg1 - var1 < 254)
  123. {
  124. var2[arg1 - var1] = arg0[arg1];
  125. arg1++;
  126. }
  127. var2[arg1 - var1] = 0;
  128. if(arg1 < var0 && arg0[arg1] == arg2)
  129. {
  130. arg1++;
  131. }
  132. return var2;
  133. }
  134.  
  135. functionB54(arg0)
  136. {
  137. new var0[255];
  138. var0[0] = 0;
  139. if(!arg0)
  140. {
  141. return var0;
  142. }
  143. new var1 = 0;
  144. for(var1 = 0; strlen(arg0) > var1; var1++)
  145. {
  146. var0[var1] = tolower(arg0[var1]);
  147. }
  148. var0[strlen(arg0)] = 0;
  149. return var0;
  150. }
  151.  
  152. functionD0C(arg0)
  153. {
  154. new var0[255];
  155. var0[0] = 0;
  156. if(strfind(arg0, "=", true, 0) == -1)
  157. {
  158. return var0;
  159. }
  160. function708(var0, functionB54(function448(arg0, 0, strfind(arg0, "=", true, 0))));
  161. return var0;
  162. }
  163.  
  164. functionEA0(arg0)
  165. {
  166. new var0[255];
  167. var0[0] = 0;
  168. if(strfind(arg0, "=", true, 0) == -1)
  169. {
  170. return var0;
  171. }
  172. function708(var0, function448(arg0, strfind(arg0, "=", true, 0) + 1, strlen(arg0)));
  173. return var0;
  174. }
  175.  
  176. function102C(arg0, arg1, arg2)
  177. {
  178. new File:var0 = 0, File:var1 = 0;
  179. new var2 = 0;
  180. new var3[255];
  181. if(!arg1)
  182. {
  183. return 0;
  184. }
  185. format(var3, 255, "%s.part", arg0);
  186. var0 = fopen(arg0, 0);
  187. if(!var0)
  188. {
  189. return 0;
  190. }
  191. fremove(var3);
  192. var1 = fopen(var3, 1);
  193. while(fread(var0, var3, 255))
  194. {
  195. function220(var3);
  196. if(!var2 && function7FC(functionD0C(var3), arg1, true))
  197. {
  198. format(var3, 255, "%s=%s", arg1, arg2);
  199. var2 = 1;
  200. }
  201. fwrite(var1, var3);
  202. fwrite(var1, "\r\n");
  203. }
  204. if(!var2)
  205. {
  206. format(var3, 255, "%s=%s", arg1, arg2);
  207. fwrite(var1, var3);
  208. fwrite(var1, "\r\n");
  209. }
  210. fclose(var0);
  211. fclose(var1);
  212. format(var3, 255, "%s.part", arg0);
  213. if(function8(var3, arg0))
  214. {
  215. return fremove(var3);
  216. }
  217. return 0;
  218. }
  219.  
  220. function14E4(arg0, arg1)
  221. {
  222. new File:var0 = 0;
  223. new var1[255];
  224. new var2[255];
  225. var1[0] = 0;
  226. var0 = fopen(arg0, 0);
  227. if(!var0)
  228. {
  229. return var1;
  230. }
  231. while(fread(var0, var1, 255))
  232. {
  233. function220(var1);
  234. if(function7FC(functionD0C(var1), arg1, true))
  235. {
  236. var2[0] = 0;
  237. strcat(var2, functionEA0(var1), 255);
  238. fclose(var0);
  239. return var2;
  240. }
  241. }
  242. fclose(var0);
  243. return var1;
  244. }
  245.  
  246. public OnGameModeInit()
  247. {
  248. CreateObject(4199, -1985.4645, 78.9805, 28.6365, 0.0, 0.0, 90.0);
  249. CreateObject(8947, -1972.8819, 100.9502, 29.6152, 0.0, 0.1037, 269.8963);
  250. CreateObject(11393, -1965.8124, 104.8543, 28.2125, 0.0, 0.0, 0.0);
  251. CreateObject(10282, -1966.5447, 100.0234, 27.6996, 0.0, 0.0, 270.0);
  252. CreateObject(11392, -1968.8649, 100.9085, 26.6825, 0.0, 0.0, 0.0);
  253. CreateObject(14826, -1974.9737, 91.6452, 27.4518, 0.0, 0.0, 337.5);
  254. CreateObject(12957, -1966.774, 82.889, 27.5657, 0.0, 0.0, 168.75);
  255. CreateObject(3390, -1964.4446, 102.9923, 26.6102, 0.0, 0.0, 90.0);
  256. CreateObject(1321, -2011.7438, 126.4201, 28.1718, 0.0, 0.0, 78.75);
  257. CreateObject(2714, -1985.1872, 100.72, 31.4365, 0.0, 0.0, 270.0);
  258. CreateObject(6056, -2012.1713, 98.1831, 31.9599, 0.0, 0.0, 270.0);
  259. CreateObject(987, -2000.9297, 96.2888, 25.7625, 0.0, 0.0, 270.0);
  260. CreateObject(987, -2000.8924, 85.3296, 25.7061, 0.0, 0.0, 270.0);
  261. CreateObject(987, -2000.9502, 73.4186, 25.6462, 0.0, 0.0, 0.2408);
  262. CreateObject(987, -1988.9852, 73.4854, 25.65, 0.0, 0.0, 0.2408);
  263. CreateObject(987, -1981.6259, 73.5249, 25.65, 0.0, 0.0, 0.2408);
  264. CreateObject(987, -1972.4549, 73.6351, 25.6376, 0.0, 0.0, 0.2408);
  265. CreateObject(987, -1960.5495, 73.6333, 25.6375, 0.0, 0.0, 89.6222);
  266. CreateObject(987, -1960.6111, 85.5693, 25.6541, 0.0, 0.0, 89.6222);
  267. CreateObject(4100, -1984.7015, 104.8522, 25.5391, 39.534, 269.7591, 91.4869);
  268. CreateObject(4100, -1984.3643, 97.1694, 25.5565, 39.534, 269.7591, 273.6872);
  269. globBC = CreateObject(989, -1984.6133, 101.0477, 28.5083, 0.0, 0.0, 198.1255);
  270. globC0 = CreatePickup(1495, 2, -1986.6536, 95.9776, 27.6798);
  271. globC4 = CreatePickup(1495, 2, -1983.0842, 106.2241, 27.6875);
  272. globC8 = CreatePickup(1275, 2, -1978.2422, 90.5682, 27.6875);
  273. globCC = CreatePickup(1581, 2, -1967.6036, 102.5957, 27.6875);
  274. return 1;
  275. }
  276.  
  277. public OnGameModeExit()
  278. {
  279. return 1;
  280. }
  281.  
  282. public OnPlayerPickUpPickup(playerid, pickupid)
  283. {
  284. if(pickupid == globC0)
  285. {
  286. if(1 != globD4[playerid])
  287. {
  288. return SendClientMessage(playerid, 0xFFFF00AA, "Tu ne Technikines Apziuros Specialistas!");
  289. }
  290. MoveObject(globBC, -1984.5242, 101.0729, 24.6256, 5.0);
  291. SetTimer("uzdarykit", 10000, true);
  292. return 1;
  293. }
  294. if(pickupid == globC4)
  295. {
  296. if(1 != globD4[playerid])
  297. {
  298. return SendClientMessage(playerid, 0xFFFF00AA, "Tu ne Technikines Apziuros Specialistas!");
  299. }
  300. MoveObject(globBC, -1984.5242, 101.0729, 24.6256, 5.0);
  301. SetTimer("uzdarykit", 50000, true);
  302. return 1;
  303. }
  304. if(pickupid == globC8)
  305. {
  306. SendClientMessage(playerid, 0xFFFFFF00, "TU ISIDARBINAI TECHNIKINES DARBUOTOJU");
  307. SendClientMessage(playerid, 0xFFFF00AA, "Tavo komandos: /duotitech [Zaidejo ID] /atidarytitech - ATIDARYSITE TECHNIKINE!");
  308. globD4[playerid] = 1;
  309. TogglePlayerControllable(playerid, true);
  310. SetPlayerColor(playerid, 0xFFFFFF00);
  311. return 1;
  312. }
  313. if(pickupid == globCC)
  314. {
  315. SendClientMessage(playerid, 0xFFFFFF00, "JUS APZIUREJOTE AUTOMOBILI");
  316. SendClientMessage(playerid, 0xFFFF00AA, "RASYK: /duotitech [Zaidejo ID Kurio Automobili Jus Apziurejote]");
  317. return 1;
  318. }
  319. return 1;
  320. }
  321.  
  322. public uzdarykit()
  323. {
  324. MoveObject(globBC, -1984.6133, 101.0477, 28.5083, 1.0);
  325. return 0;
  326. }
  327.  
  328. public OnPlayerEnterCheckpoint(playerid)
  329. {
  330. for(new var0 = 0; var0 < 200; var0++)
  331. {
  332. if(1 != globD4[playerid])
  333. {
  334. return SendClientMessage(playerid, 0xFFFF00AA, "Tu ne Technikines Apziuros Specialistas!");
  335. }
  336. SendClientMessage(playerid, 0xFFFF00AA, "-- DABAR PALAUKITE KELIAS MINUTES --");
  337. SendClientMessage(playerid, 0xFFFF00AA, "-- TECHNINES APZIUROS SPECIALISTAS APZIURES JUSU AUTO --");
  338. }
  339. return 1;
  340. }
  341.  
  342. public OnFilterScriptInit()
  343. {
  344. if(!fopen("Technikine", 0))
  345. {
  346. globD0 = fopen("Technikine", 2);
  347. }
  348. else
  349. {
  350. globD0 = fopen("Technikine", 2);
  351. }
  352. fclose(globD0);
  353. return 1;
  354. }
  355.  
  356. public OnFilterScriptExit()
  357. {
  358. print("\n----------------------------------");
  359. print(" TECHNIKINES FILTERSCRIPTAS BY KAMANI&&&&");
  360. print("----------------------------------\n");
  361. return 1;
  362. }
  363.  
  364. public OnPlayerConnect(playerid)
  365. {
  366. globD4[playerid] = 0;
  367. new var0[24];
  368. if(!strcmp(function14E4("Technikine", var0), "YraTechnikine", true))
  369. {
  370. fclose(globD0);
  371. }
  372. else if(!strcmp(function14E4("Technikine", var0), "NeraTechnikines", true))
  373. {
  374. fclose(globD0);
  375. }
  376. else if(!strcmp(function14E4("Technikine", var0), "AtimtaTechnikine", true))
  377. {
  378. fclose(globD0);
  379. }
  380. return 1;
  381. }
  382.  
  383. public OnPlayerSpawn(playerid)
  384. {
  385. globD4[playerid] = 0;
  386. return 1;
  387. }
  388.  
  389. public OnPlayerCommandText(playerid, cmdtext)
  390. {
  391. new var0[256];
  392. new var1[256];
  393. new var2[256];
  394. new var3 = 0;
  395. new var4 = 0;
  396. new var5[24];
  397. new var6[24];
  398. var2 = function8C0(cmdtext, var3, 32);
  399. if(!strcmp(cmdtext, "/technikine", true))
  400. {
  401. if(!strcmp(function14E4("Technikine", var6), "NeraTechnikines", true))
  402. {
  403. SendClientMessage(playerid, 0xFFFFFF00, "|__________________TECHNIKINES INFO__________________|");
  404. SendClientMessage(playerid, 0xAFAFAFAA, "Jus neturite technikines");
  405. SendClientMessage(playerid, 0xAFAFAFAA, "Prasome ja isigyti!");
  406. return 1;
  407. }
  408. if(!strcmp(function14E4("Technikine", var6), "AtimtaTechnikine", true))
  409. {
  410. SendClientMessage(playerid, 0xFFFFFF00, "|__________________TECHNIKINES INFO__________________|");
  411. SendClientMessage(playerid, 0xAFAFAFAA, "Jums atimtas technikines pazymejimas");
  412. SendClientMessage(playerid, 0xAFAFAFAA, "Jai jus pagaus policija, Sesite ilgam!");
  413. return 1;
  414. }
  415. if(!strcmp(function14E4("Technikine", var6), "YraTechnikine", true))
  416. {
  417. SendClientMessage(playerid, 0xFFFFFF00, "|__________________TECHNIKINES INFO__________________|");
  418. SendClientMessage(playerid, 0x33AA33AA, "Jus turite technikines pazymejima");
  419. SendClientMessage(playerid, 0x33AA33AA, "Daugiau informacijos: http://www.ltd.gta-online.lt Portale!!!");
  420. return 1;
  421. }
  422. }
  423. if(!strcmp("/atidaryti technikine", cmdtext, true, 10))
  424. {
  425. SetPlayerCheckpoint(playerid, -1967.3462, 99.8603, 27.6875, 3.0);
  426. SendClientMessage(playerid, 0xFFFF00AA, "Jus Atidarete technikines servisa, Dabar laukite klientu!!");
  427. SendClientMessageToAll(0xFFFF00AA, "TECHNIKINES SERVISAS JAU ATIDARYTAS!!!!!");
  428. return 1;
  429. }
  430. if(!strcmp(var2, "/paziureti", true))
  431. {
  432. var0 = function8C0(cmdtext, var3, 32);
  433. if(!strlen(var0))
  434. {
  435. SendClientMessage(playerid, 0x33AA33AA, "Serveris: /paziureti [Zaidejo ID]");
  436. return 1;
  437. }
  438. var4 = strval(var0);
  439. if(globD4[playerid] == 1)
  440. {
  441. if(IsPlayerConnected(var4))
  442. {
  443. GetPlayerName(var4, var5, 24);
  444. globD0 = fopen("Technikine", 2);
  445. if(!strcmp(function14E4("Technikine", var5), "YraTechnikine", true))
  446. {
  447. format(var1, 256, "%s (ID:%d) Turi technikines pazymejima.", var5, var4);
  448. printf("%s (ID:%d)", var5, var4);
  449. SendClientMessage(playerid, 0x33AA33AA, var1);
  450. fclose(globD0);
  451. return 1;
  452. }
  453. if(!strcmp(function14E4("Technikine", var5), "NeraTechnikines", true))
  454. {
  455. format(var1, 256, "%s (ID:%d) Neturi technikines pazymejimo.", var5, var4);
  456. SendClientMessage(playerid, 0xFF000000, var1);
  457. printf("%s (ID:%d)", var5, var4);
  458. fclose(globD0);
  459. return 1;
  460. }
  461. if(!strcmp(function14E4("Technikine", var5), "AtimtaTechnikine", true))
  462. {
  463. format(var1, 256, "Is Pono %s (ID:%d) yra atimtas technikines pazymejimas", var5, var4);
  464. SendClientMessage(playerid, 0xFF000000, var1);
  465. printf("%s (ID:%d)", var5, var4);
  466. fclose(globD0);
  467. return 1;
  468. }
  469. SendClientMessage(playerid, 0xFF000000, "Klaida.");
  470. fclose(globD0);
  471. return 1;
  472. }
  473. SendClientMessage(playerid, 0xFF000000, "Nera tokio zaidejo serveryje");
  474. }
  475. else
  476. {
  477. SendClientMessage(playerid, 0xFF000000, "Jus ne technikines pravedejas");
  478. }
  479. return 1;
  480. }
  481. if(!strcmp(var2, "/duotitech", true))
  482. {
  483. var0 = function8C0(cmdtext, var3, 32);
  484. if(!strlen(var0))
  485. {
  486. SendClientMessage(playerid, 0x33AA33AA, "Serveris: /duotitech [Zaidejo ID]");
  487. return 1;
  488. }
  489. var4 = strval(var0);
  490. if(globD4[playerid] == 1)
  491. {
  492. if(IsPlayerConnected(var4))
  493. {
  494. GetPlayerName(var4, var5, 24);
  495. GetPlayerName(playerid, var6, 24);
  496. globD0 = fopen("Technikine", 2);
  497. if(!strcmp(function14E4("Technikine", var5), "NeraTechnikines", true))
  498. {
  499. format(var1, 256, "%s (ID:%d) Jau turi Technikines apziuros dokumenta.", var5, var4);
  500. SendClientMessage(playerid, 0xFF000000, var1);
  501. printf("%s (ID:%d)", var5, var4);
  502. format(var1, 256, "%s (ID:%d) Katik gavo technines apziuros pasa, Technikine pravede: %s (ID:%d).", var5, var4, var6, playerid);
  503. SendClientMessageToAll(0xFF800000, var1);
  504. Technikine_Yra(var4);
  505. fclose(globD0);
  506. return 1;
  507. }
  508. format(var1, 256, "Sis zaidejas jau turi technikines pasa!");
  509. SendClientMessage(playerid, 0xFFFF00AA, var1);
  510. }
  511. else
  512. {
  513. format(var1, 256, "id %d Yra blogas!!", var4);
  514. SendClientMessage(playerid, 0xFFFF00AA, var1);
  515. }
  516. }
  517. else
  518. {
  519. format(var1, 256, "Tu ne technikines darbuotojas", playerid);
  520. SendClientMessage(playerid, 0xFFFFFF00, var1);
  521. }
  522. return 1;
  523. }
  524. if(!strcmp(var2, "/techdarbuotojai", true))
  525. {
  526. new var7[24];
  527. new var8 = 0;
  528. SendClientMessage(playerid, 0xFFFF00AA, "Technines Apziuros darbuotojai:");
  529. for(new var9 = 0; var9 < 200; var9++)
  530. {
  531. if(IsPlayerConnected(var9) && globD4[var9])
  532. {
  533. GetPlayerName(var9, var7, 24);
  534. format(var1, 256, "%s", var7);
  535. SendClientMessage(playerid, 0xFFFFFFAA, var1);
  536. var8++;
  537. }
  538. }
  539. if(!var8)
  540. {
  541. SendClientMessage(playerid, 0xFFFFFFAA, "Nera prisijungusiu technikines darbuotoju.");
  542. }
  543. return 1;
  544. }
  545. return 0;
  546. }
  547.  
  548. public OnPlayerStateChange(playerid, newstate, oldstate)
  549. {
  550. new var0[24];
  551. GetPlayerName(playerid, var0, 24);
  552. if(newstate == 2 && !strcmp(function14E4("Technikine", var0), "NeraTechnikines"))
  553. {
  554. SendClientMessage(playerid, 0xFF000000, "Jus vairuojate be technikines paso, Prasome isigyti!.");
  555. }
  556. else
  557. {
  558. strcmp(function14E4("Technikine", var0), "AtimtaTechnikine");
  559. }
  560. return 0;
  561. }
  562.  
  563. public Technikine_Nera(playerid)
  564. {
  565. if(newstate == 2 && !strcmp(function14E4("Technikine", var0), "AtimtaTechnikine"))
  566. {
  567. }
  568. new var0[24];
  569. GetPlayerName(playerid, var0, 24);
  570. globD0 = fopen("Technikine", 2);
  571. function102C("Technikine", var0, 9740);
  572. fclose(globD0);
  573. return 1;
  574. }
  575.  
  576. public Technikine_Yra(playerid)
  577. {
  578. new var0[24];
  579. GetPlayerName(playerid, var0, 24);
  580. globD0 = fopen("Technikine", 2);
  581. function102C("Technikine", var0, 9892);
  582. fclose(globD0);
  583. return 1;
  584. }
  585.  
  586. public Technikine_Atimt(playerid)
  587. {
  588. new var0[24];
  589. GetPlayerName(playerid, var0, 24);
  590. globD0 = fopen("Technikine", 2);
  591. function102C("Technikine", var0, 10036);
  592. fclose(globD0);
  593. return 1;
  594. }
  595.  
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!