Ewolutions

AntiMoneyCheat

Mar 23rd, 2012
200
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 1.46 KB | None | 0 0
  1. #include <a_samp>
  2. #define HardReset
  3.  
  4. new Sloty;
  5. public OnFilterScriptInit()
  6. {
  7.     SetTimer("CheckMoneyCheat",1500,true);
  8.     Sloty = GetMaxPlayers( );
  9.     return 1;
  10. }
  11.  
  12.  
  13. stock DatHraciPenize(playerid,kolik)
  14. {
  15.     SetPVarInt(playerid,"Penize",GetPVarInt(playerid,"Penize") + kolik);
  16.     GivePlayerMoney(playerid,kolik);
  17. }
  18.  
  19. stock StavPenezHrace(playerid)
  20. {
  21.     return GetPVarInt(playerid,"Penize");
  22. }
  23.  
  24. stock ResetPenezHrace(playerid)
  25. {
  26.     SetPVarInt(playerid,"Penize",0);
  27.     ResetPlayerMoney(playerid);
  28. }
  29.  
  30. forward CheckMoneyCheat();
  31. public CheckMoneyCheat()
  32. {
  33.     new name[21],string[111];
  34.     for (new i; i < Sloty; i++ )
  35.     {
  36.         if (!IsPlayerConnected( i ))
  37.         continue;
  38.         if(GetPlayerMoney(i) != StavPenezHrace(i))
  39.         {
  40.             GetPlayerName(i,name,21);
  41.             #if defined HardReset
  42.             ResetPenezHrace(i);
  43.             #else
  44.             ResetPlayerMoney(i);
  45.             DatHraciPenize(i,StavPenezHrace(i));
  46.             #endif
  47.             format(string,111,"[E-Admin] {FFFFFF}Hráč {FF0000}%s {FFFFFF}má pravděpodobně {FF0000}Money Cheat{FFFFFF}!!!",name);
  48.             SendMessageToAdmins(0xFF0000FF,string);
  49.         }
  50.     }
  51.     return 1;
  52. }
  53.  
  54.  
  55. stock SendMessageToAdmins(color,const string[])
  56. {
  57.         for (new i; i < Sloty; i++ )
  58.         {
  59.             if (!IsPlayerConnected( i ))
  60.             continue;
  61.             if (IsPlayerAdmin(i))
  62.             {
  63.                 SendClientMessage(i, color, string);
  64.             }
  65.         }
  66.         return 1;
  67. }
Add Comment
Please, Sign In to add comment