Advertisement
Guest User

VIP System by James_Barnes(OfekEfron)

a guest
Aug 29th, 2017
693
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 5.39 KB | None | 0 0
  1. /*
  2. System created by: James_Barnes (OfekEfron),
  3. System using RCON Admin!
  4. You need to open a folder name: VIP in scriptfiles.
  5. */
  6.  
  7. #include <a_samp>
  8. #include <zcmd>
  9. #include <sscanf>
  10. #include <DOF2>
  11. //====<new>====
  12. new str[500];
  13.  
  14. public OnFilterScriptInit()
  15. {
  16. DOF2_Exit();
  17. return 1;
  18. }
  19. CMD:setvipmanager(playerid,params[])
  20. {
  21. if(!SVIP(playerid) && !IsPlayerAdmin(playerid)) return SendClientMessage(playerid,COLOR_RED,"You dont have access to this command");
  22. if(sscanf(params,"u",params[0])) return SendClientMessage(playerid,COLOR_RED,"Usage: /SetVipManager [ID]");
  23. if(!IsPlayerConnected(params[0])) return SendClientMessage(playerid,-1,"Worng ID");
  24. if(!DOF2_FileExists(VIPFile(params[0]))) DOF2_CreateFile(VIPFile(params[0]));
  25. DOF2_SetString(VIPFile(params[0]),"Name",GetName(params[0]));
  26. DOF2_SetString(VIPFile(params[0]),"VIP" , "Yes");
  27. DOF2_SaveFile();
  28. format(str,sizeof str,"{ffaa00}%s became a vip manager",GetName(params[0]));
  29. SendClientMessageToAll(-1,str);
  30. return 1;
  31. }
  32. CMD:delvipmanager(playerid,params[])
  33. {
  34. if(!SVIP(playerid) && !IsPlayerAdmin(playerid)) return SendClientMessage(playerid,COLOR_RED,"You dont have access to this command");
  35. if(sscanf(params,"u",params[0])) return SendClientMessage(playerid,COLOR_RED,"Usage: /RemoveVipManager [ID]");
  36. if(!IsPlayerConnected(params[0])) return SendClientMessage(playerid,-1,"Worng ID");
  37. if(!SVIP(params[0])) return SendClientMessage(playerid,COLOR_RED,"This player isnt a VIP");
  38. DOF2_RemoveFile(VIPFile(params[0]));
  39. format(str,sizeof str,"{ffaa00}%s removed from vip manager",GetName(params[0]));
  40. SendClientMessageToAll(-1,str);
  41. return 1;
  42. }
  43. CMD:setvip(playerid,params[])
  44. {
  45. if(!SVIP(playerid)) return SendClientMessage(playerid,COLOR_RED,"You dont have access to this command");
  46. if(sscanf(params,"u",params[0])) return SendClientMessage(playerid,COLOR_RED,"Usage: /SetVip [ID]");
  47. if(!IsPlayerConnected(params[0])) return SendClientMessage(playerid,-1,"Worng ID");
  48. if(!DOF2_FileExists(VIPFile(params[0]))) DOF2_CreateFile(VIPFile(params[0]));
  49. DOF2_SetString(VIPFile(params[0]),"Name",GetName(params[0]));
  50. DOF2_SetString(VIPFile(params[0]),"VIP" , "Yes");
  51. DOF2_SaveFile();
  52. format(str,sizeof str,"{ffaa00}%s became a vip",GetName(params[0]));
  53. SendClientMessageToAll(-1,str);
  54. return 1;
  55. }
  56. CMD:delvip(playerid,params[])
  57. {
  58. if(!SVIP(playerid)) return SendClientMessage(playerid,COLOR_RED,"You dont have access to this command");
  59. if(sscanf(params,"u",params[0])) return SendClientMessage(playerid,COLOR_RED,"Usage: /DelVip [ID]");
  60. if(!IsPlayerConnected(params[0])) return SendClientMessage(playerid,-1,"Worng ID");
  61. if(!SVIP(params[0])) return SendClientMessage(playerid,COLOR_RED,"This player isnt a VIP");
  62. DOF2_RemoveFile(VIPFile(params[0]));
  63. format(str,sizeof str,"{ffaa00}%s has removed from VIP",GetName(params[0]));
  64. SendClientMessageToAll(-1,str);
  65. return 1;
  66. }
  67. CMD:vsay(playerid,params[])
  68. {
  69. if(!SVIP(playerid)) return SendClientMessage(playerid,COLOR_RED,"You arent VIP");
  70. if(sscanf(params,"s",params[0])) return SendClientMessage(playerid,COLOR_RED,"Usage: /Vsay - [Text]");
  71. format(str,sizeof str,"{00aaff}VIP Say {ffaa00}%s: %s",GetName(playerid),(params[0]));
  72. SendClientMessageToAll(-1,str);
  73. return 1;
  74. }
  75. CMD:vgoto(playerid,params[])
  76. {
  77. if(!SVIP(playerid)) return SendClientMessage(playerid,COLOR_RED,"You arent VIP");
  78. if(sscanf(params,"u",params[0])) return SendClientMessage(playerid,COLOR_RED,"Usage: /VGoto [ID]");
  79. if(!IsPlayerConnected(params[0])) return SendClientMessage(playerid,-1,"Worng ID");
  80. new Float:X, Float:Y, Float:Z;
  81. GetPlayerPos(params[0],X,Y,Z);
  82. SetPlayerPos(params[0],X+2,Y,Z);
  83. format(str,sizeof str,"Vip %s teleported to %s",GetName(params[0]),GetName(playerid));
  84. SendClientMessageToAll(-1,str);
  85. return 1;
  86. }
  87. CMD:vipcolor(playerid,params[])
  88. {
  89. if(!SVIP(playerid)) return SendClientMessage(playerid,COLOR_RED,"You arent VIP");
  90. SetPlayerColor(playerid,0xffff00AA);
  91. format(str,sizeof str,"{ffaa00}You have change your color to VIP color.");
  92. SendClientMessage(playerid,-1,str);
  93. return 1;
  94. }
  95. CMD:viphelp(playerid)
  96. {
  97. if(!SVIP(playerid)) return SendClientMessage(playerid,COLOR_RED,"You arent VIP");
  98. ShowPlayerDialog(playerid,555,DIALOG_STYLE_MSGBOX,"{00aaff}~ {ffaa00}V.I.P System {00aaff}~","{00ffff}# /SetVipManager - Give VIPManager to player\n# /DelVipManager - Remove VIPManager from player\n# /SetVip - Invite someone to VIP\n# /Vsay - Saying in global chat like VIP\n# /SetVipColor - Set your color to VIP color\n# /Vgoto - Teleport to someone\n# /VipList - List of VIP players online","OK","");
  99. return 1;
  100. }
  101. CMD:viplist(playerid,params[])
  102. {
  103. new players,str2[500];
  104. for(new i; i<MAX_PLAYERS; i++) if(IsPlayerConnected(i))
  105. {
  106. if(SVIP(i))
  107. {
  108. players++;
  109. format(str,sizeof str,"{00aaff}%d. %s [ID: %i | {ffaa00}V.I.P{00aaff}]",players,GetName(i),i);
  110. strcat(str2,str);
  111. }
  112. }
  113. return ShowPlayerDialog(playerid,444, DIALOG_STYLE_MSGBOX,"{ffaa00}V.I.P List", (!players)?("{ff0000}There are no VIP's players online"):(str2),"OK","");
  114. }
  115. //=======================<stock>=======================
  116. stock GetName(playerid)
  117. {
  118. new pName[MAX_PLAYER_NAME+1];
  119. GetPlayerName(playerid,pName,sizeof(pName));
  120. return pName;
  121. }
  122. stock VIPFile(playerid)
  123. {
  124. new File[50];
  125. format(File, sizeof File, "VIP/%s.ini", GetName(playerid));
  126. return File;
  127. }
  128.  
  129. stock SVIP(playerid) return DOF2_FileExists(VIPFile(playerid)) ? true:false;
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement