AXV09

[PAWN] Counter brackest

Oct 8th, 2013
203
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.95 KB | None | 0 0
  1. /* Licznik klamer (Counter Brackets)
  2. *
  3. * > Autor: l0nger
  4. * > Data utworzenia: 2013-10-08 21:47
  5. * > Ostatnia edycja: 2013-10-08 22:01
  6. * > Wersja: 0.1.2992a
  7. *
  8. * All rights reserved
  9. */
  10.  
  11. #include <a_samp>
  12.  
  13. static stock
  14. File:gFile,
  15. cBrackets,
  16. bOpening,
  17. bClosing;
  18.  
  19. public OnFilterScriptInit() {
  20. print("---------------");
  21. print(" - Licznik klamer (Counter Brackets) by l0nger");
  22. print(" - Podaj nazwe pliku i jego rozszerzenie (np. test.p)");
  23. print(" - Uwaga! Plik musi znajdowac sie w katalogu /scriptfiles/");
  24. return 1;
  25. }
  26.  
  27. public OnFilterScriptExit() return 1;
  28.  
  29. public OnRconCommand(cmd[]) {
  30. static
  31. s_buf[160];
  32.  
  33. if((gFile=fopen(cmd, io_read))) {
  34. new s_len, iterator;
  35. while(fread(gFile, s_buf)) {
  36. s_len=strlen(s_buf);
  37. for(iterator=0; iterator<s_len; iterator++) if(s_buf[iterator]=='{') cBrackets++, bOpening++;
  38. for(iterator=0; iterator<s_len; iterator++) if(s_buf[iterator]=='}') cBrackets++, bClosing++;
  39. }
  40. fclose(gFile);
  41. if(bOpening<bClosing) {
  42. printf(" > Klamer otwierajacych '{' (%d) jest mniej niz klamer zamykajacych '}' (%d)", bOpening, bClosing);
  43. } else if(bOpening>bClosing) {
  44. printf(" > Klamer otwierajacych '{' (%d) jest wiecej niz klamer zamykajacych '}' (%d)", bOpening, bClosing);
  45. } else if(bOpening==bClosing) {
  46. printf(" > Klamry sie zgadzaja! Klamer otwierajacych '{' jest %d, a klamer zamknietych '}' %d\n > Wszystkich klamer jest %d", bOpening, bClosing, cBrackets);
  47. } else {
  48. printf(" Wystapil nieoczekiwany blad - nie mozna policzyc klamer. Sprobuj ponownie.");
  49. }
  50.  
  51. bOpening=0, bClosing=0, cBrackets=0;
  52. return 1;
  53. } else {
  54. printf(" [BLAD] %s nie istnieje", cmd);
  55. //fclose(gFile); -- crash server
  56. gFile=File:0;
  57. return 1;
  58. }
  59. }
  60. // eof
  61. // wydano na Pawno.PL - inne portale zawierające ten skrypt łamią prawo jakim jest Copyright i All rights reserved.
Advertisement
Add Comment
Please, Sign In to add comment