Advertisement
Guest User

Untitled

a guest
Jun 24th, 2010
167
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.33 KB | None | 0 0
  1. dcmd_warn(playerid,params[])
  2. {
  3. if(PlayerInfo[playerid][AdminLevel] >= 1)
  4. {
  5. new tmp[256], tmp2[256], Index; tmp = strtok(params,Index), tmp2 = strtok(params,Index);
  6. new pName[48], ReturnUserName[24], ReturnPlayer, string[256];
  7. if(!strlen(tmp) || !strlen(tmp2)) return SendClientMessage(playerid, COLOR_BRIGHTRED, "USAGE: /warn [playerid] [reason]");
  8. new warned = strval(tmp), str[128];
  9. if(IsPlayerConnected(warned) && warned != INVALID_PLAYER_ID)
  10. {
  11. if(warned != playerid) {
  12. SendAdminMsg(playerid,"WARN");
  13. PlayerInfo[warned][Warnings]++;
  14. if( PlayerInfo[warned][Warnings] == MAX_WARNINGS)
  15. {
  16. GetPlayerName(playerid, pName, sizeof(pName));
  17. GetPlayerName(ReturnPlayer, ReturnUserName, sizeof(ReturnUserName));
  18. new File:KickFile = fopen("logs/KickLog.txt", io_append);
  19. format(str, sizeof (str), "[ADMIN]: %s (ID: %d) has kicked %s (ID: %d). (Reason: Reaching 3 Warnings.) (Warning: %d/%d)***", pName, playerid, ReturnUserName, ReturnPlayer, PlayerInfo[warned][Warnings], MAX_WARNINGS);
  20. SendClientMessageToAll(COLOR_BRIGHTRED, str);
  21. fwrite(KickFile, string);
  22. fclose(KickFile);
  23. Kick(warned);
  24. return PlayerInfo[warned][Warnings] = 0;
  25. } else
  26. {
  27. format(str, sizeof (str), "[ADMIN]: %s has given %s a warning. (Reason: %s) (Warning: %d/%d)***", pName(playerid), pName(warned), params[1+strlen(tmp)], PlayerInfo[warned][Warnings], MAX_WARNINGS);
  28. return SendClientMessageToAll(COLOR_PINK, str);
  29. }
  30. } else return SendClientMessage(playerid, COLOR_BRIGHTRED, "ERROR: You cannot warn yourself");
  31. } else return SendClientMessage(playerid, COLOR_BRIGHTRED, "ERROR: Player is not connected");
  32. } else return SendClientMessage(playerid, COLOR_BRIGHTRED,"ERROR: You are not a high enough level to use this command");
  33. }
  34.  
  35.  
  36.  
  37. ERRORS:
  38.  
  39. \filterscripts\LSRFS0.pwn(1079) : error 012: invalid function call, not a valid address
  40. \filterscripts\LSRFS0.pwn(1079) : warning 215: expression has no effect
  41. \filterscripts\LSRFS0.pwn(1079) : error 001: expected token: ";", but found ")"
  42. \filterscripts\LSRFS0.pwn(1079) : error 029: invalid expression, assumed zero
  43. \filterscripts\LSRFS0.pwn(1079) : fatal error 107: too many error messages on one line
  44.  
  45. Compilation aborted.Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase
  46.  
  47.  
  48. 4 Errors.
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement