Advertisement
Guest User

Untitled

a guest
Mar 30th, 2013
113
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.29 KB | None | 0 0
  1. #define FILTERSCRIPT
  2. #include <a_samp>
  3. #define PFAD "test2.txt"
  4. #define NEWPFAD "test25.txt"
  5. #define Textur "SetDynamicObjectMaterial(LSPD,0,5810,\"lawnstripm\", \"sl_lavicdtwall1\", 0);"
  6. #define ID "19454"
  7. #define VARRIABLE "LSPD"
  8.  
  9. public OnFilterScriptInit() {
  10. print("\n--------------------------------------");
  11. print(" Arendiums Textur Converter (c) by Arendium Loaded...");
  12. print("--------------------------------------\n");
  13. new string[200];
  14. new string2[350];
  15. new oscan[12];
  16. format(oscan,12,"(%s",ID);
  17. new File:writenew = fopen(NEWPFAD, io_append);
  18. new nstring[15];
  19. format(nstring,15,"new %s",VARRIABLE);
  20. fwrite(writenew,nstring);
  21. fclose(writenew);
  22. new File:data = fopen(PFAD, io_readwrite);
  23. while(fread(data,string)) {
  24. if(strfind(string, ID, true) != -1) {
  25. new File:write = fopen(NEWPFAD, io_append);
  26. format(string2,200,"%s = %s",VARRIABLE,string);
  27. strdel(string2,strlen(string2)-3,strlen(string2));
  28. strcat(string2,", ");
  29. strcat(string2,Textur);
  30. strcat(string2,"\r\n");
  31. fwrite(write,string2);
  32. fclose(write);
  33. }
  34. else {
  35. new File:write = fopen(NEWPFAD, io_append);
  36. format(string2,350,"%s",string);
  37. fwrite(write,string2);
  38. fclose(write);
  39. }
  40. }
  41. fclose(data);
  42. return 1;
  43. }
  44.  
  45. public OnFilterScriptExit()
  46. {
  47. return 1;
  48. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement