1. ВКонтакте
  2. Facebook

CheaterPunishment

Супер Админ
  1. Оффлайн
  2. VIP
  3. 117 сообщений
  4. Сообщение
  5. Личные данные
Полезность: 0 | сообщение № 1 отправлено 08:49, 19.10.2011
CheaterPunishment


php code:
  1. -- =============================================================================
  2. -- File: Patriot/PermaScore.lua
  3. -- Date: 23/11/09
  4. -- =============================================================================
  5. -- This file is maintained as part of the SSM Patriot project. All additions
  6. -- are the sole work of their authors with whom all copyright and ownership
  7. -- resides. However, each author grants license for the use of his or her
  8. -- work to be a part of the SSM Patriot project.
  9. --
  10. --      Developers:     Richard 'DarkLite' May          -(Development Lead)
  11. --              Daniel 'Rod-Serling' Phelps             -(Creator)
  12. --                              Fraser 'Sitting-Duc' Molyneux   -(Developer)
  13. -- =============================================================================
  14.  
  15. -- ===============================================
  16. -- Functions:
  17. -- ===============================================
  18. function BanSystem:PermaBan(player, reason, bannedBy, noBan)
  19.         if (type(player)=="string") then
  20.                 player = GetPlayer(player);
  21.                 if (not player) then
  22.                         return false, "player not found";
  23.                 end
  24.         end
  25.  
  26.                 if (not reason or reason == "" or reason == " " or reason == null) then
  27.                         reason = "ADMIN DECISION";
  28.                 end
  29.                 if (not bannedBy) then
  30.                         bannedBy = "ADMIN";
  31.                 end
  32.  
  33.                 local Domain = GetDomain(player);
  34.                 Ban =
  35.                 {
  36.                         Name = player:GetName();
  37.                         Profile = player.actor:GetProfileId(),
  38.                         IP = GetIP(player),
  39.                         Domain = Domain,
  40.                         Reason = reason,
  41.                         BanDate = os.date("%d/%m/%Y | %H:%M:%S",time);
  42.                         BannedBy = bannedBy,
  43.                         Banned   = true,
  44.                 }
  45.                 Patriot.Bans[#Patriot.Bans+1] = Ban;
  46.                 local ban =  "Name: \""..Ban.Name.."\"  Profile: \""..Ban.Profile.."\"  IP: \""..Ban.IP.."\"  Domain: \""..Ban.Domain.."\"  Reason: \""..Ban.Reason.."\"  BanDate: \""..Ban.BanDate.."\"  BannedBy: \""..Ban.BannedBy.."\"";
  47.                 LogToFile(Patriot.rootDir.."Patriot/Server/Bans.txt", ban);
  48.  
  49.         player.isBanned = true;
  50.         if (not noBan) then
  51.                         CryAction.BanPlayer(player.id, reason);
  52.                 end
  53.  
  54.                 LogToFile(Patriot.EventLog, "[BanSystem] Player "..player:GetName().." was permabanned for "..reason.." by "..bannedBy, true);
  55.                 ConsoleMessage:ToAll("$9[$4BAN$9] Player "..player:GetName().." was permabanned for "..reason.." by "..bannedBy);
  56.                 System.LogAlways("[Patriot] Player "..player:GetName().." permabanned for "..reason.." by "..bannedBy);
  57.                 ChatEntity:SayToAll(player:GetName().." has been banned for "..reason..".");
  58.  
  59.                 return true;
  60. end
  61. --------------------------------------------------
  62.     function PatriotPlayers.OnCheat(cheaterId, cheat)
  63.         if (conf.CheatLogging) then
  64.                 local player = System.GetEntity(cheaterId);
  65.                 if (conf.CheatLogging.FileLog) then
  66.                         LogToFile(Patriot.EventLog, "[CheatProtection] "..player:GetName().." detected using: "..cheat.. " hack with profile ID "..player.actor:GetProfileId()..", IP:"..GetIP(player)..", and Domain:"..GetDomain(player), true);
  67.                 end
  68.                 if (conf.CheatLogging.ChatAnnounce and ChatEntity) then
  69.                         ChatEntity:SayToAll("CHEAT: "..player:GetName().." detected using "..cheat.." hack!");
  70.                 end
  71.                 if (conf.CheatLogging.AdminConsole) then
  72.                         ConsoleMessage:ToAdmins("$9[$4HCK$9] "..player:GetName().." detected using $4"..cheat.." hack!");
  73.                 end
  74.                 if(conf.CheatLogging.AutoBanHacker) then
  75.                         if (not player.banned) then
  76.                                 local bannedBy = "PHOENIX ANTICHEAT";
  77.                                 player.banned = true;
  78.                                 BanSystem:PermaBan(player, "CHEAT: "..cheat, bannedBy, true);
  79.                         end
  80.                 end
  81.                 CheaterPunishment(player, cheat);
  82.         end
  83.     end
  84. --------------------------------------------------
  85.     function CheaterPunishment(player, cheat)
  86.         local r = string.upper(cheat);
  87.         for i=1, 100 do
  88.             Script.SetTimer(40*i, function()
  89.                 local sR = 101 - i;
  90.                 g_gameRules.game:SendTextMessage(TextMessageBig, "<font color = \"#FF0000\"> CHEATER : ["..string.upper(cheat).."] </font>", TextMessageToClient, player.id);
  91.                 g_gameRules.game:SendTextMessage(TextMessageBig, "<font color = \"#FF0000\"> CHEATER PUNISHMENT! ["..sR.."] SUICIDES REMAINING!</font>", TextMessageToOtherClients, player.id);
  92.                     g_gameRules:KillPlayer(player);
  93.             end);
  94.         end
  95.         Script.SetTimer(40*101, function()
  96.             g_gameRules.game:SendTextMessage(TextMessageBig, "<font color = \"#FF0000\"> CHEATER OWNED!</font>", TextMessageToAllRemote);
  97.             g_gameRules:CreateExplosion(player.id,nuke,0,player:GetWorldPos(),g_Vectors.up,1 00,100,100,100,"explosions.TAC.rifle_close",6, 6, 6, 6);
  98.             CryAction.BanPlayer(player.id, "CHEATER : "..r)
  99.         end);
  100.     end
  101. --------------------------------------------------

У Вас недостаточно прав для скачивания файлов.


------------------------------------------
DDR3 8G (4*2G), 1600МГц Это мало?
 
Поделиться темой:
Перейти

Доступ закрыт.

  1. Вам запрещено отвечать в темах данного форума.

Последние темы

  1. Настройка серверного мода Crysis
    Автор: dimas824 18:04, 12.01.2013
  2. Crysis 2 обсуждение
    Автор: PGJA44 23:01, 07.01.2013
  3. Crysis 2 Настройка Servera (Вопросы)
    Автор: seregas 13:18, 29.12.2012
  4. Crysis Wars обсуждение
    Автор: coody55 12:22, 21.11.2012
  5. AEGISX Как убрать бесконечные (40) патро...
    Автор: coody55 12:10, 21.11.2012
  6. Pioneer
    Автор: coody55 18:05, 08.11.2012

Изменения статуса

  1. профиль Воин будущего 20:35, 10.12.2012
  2. профиль ИЩЮ КЛЮЧЬ НА CRYSIS 2 ЕСЛИ ЕСТЬ ТО ДАЙ 23:39, 04.05.2012
  3. профиль как делать серийный номер ключ 23:56, 24.02.2012
  4. профиль ыца! 11:04, 30.01.2012
  5. профиль DDR3 8G (4*2G), 1600МГц Это мало? 22:56, 29.01.2012
  6. профиль i5-2500k gigabyte z68x GTX 580 msi 8 гб оперативной памят... 23:14, 21.12.2011

За последние 10 минут эту тему посетило 1 человек (0 пользователей, 1 гостей, 0 скрытых пользователей)
Полный список по: последнему действию или именам пользователей