Advertisement
leingod

Leingod's Team Chooser System. v.1.0 (ZCMD)

Aug 14th, 2011
534
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 3.81 KB | None | 0 0
  1. /*
  2.                         Copyright(c), leingod - 2011
  3. ________________________________________________________________________________
  4.  
  5.                    ##     ##### ## ###  #  #####   ##  ###
  6.                    ##     ##    ## ###  # ##      #  # #  #
  7.                    ##     ####  ## ## # # ##  ### #  # #   #
  8.                    ##     ##    ## ##  ## ##    # #  # #  #
  9.                    ############ ## ##   #  #####   ##  ###
  10.  
  11.                            Team Chooser System v1.0
  12.                          ---------------------------
  13. ________________________________________________________________________________
  14.  
  15. FORUM SA:MP PROFILE: http://forum.sa-mp.com/member.php?u=120914
  16.  
  17. Credits:
  18. -Me for coding
  19. -SAMP TEAM
  20. -ZCMD
  21. -DINI
  22. -SSCANF
  23.  
  24. ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
  25. */
  26.  
  27. #include <a_samp>
  28. #include <zcmd>
  29. #include <dini>
  30. #include <sscanf>
  31.  
  32. // COLORS
  33. #define usage 0xFFEEC1AA
  34. #define error 0xFF3434AA
  35. #define lancar 0x34C6FFAA
  36.  
  37. // DEFINES
  38. #define version_team_chooser        "1.0"
  39.  
  40. enum LData
  41. {
  42.     Team
  43. };
  44.  
  45. new TeamInfo[MAX_PLAYERS][LData];
  46. new LGDTeam[MAX_PLAYERS];
  47.  
  48.  
  49. public OnFilterScriptInit()
  50. {
  51.     print("\n----------------------------------------------------");
  52.     print(" Running FilterScript Leingod's team chooser v"#version_team_chooser"");
  53.     print("----------------------------------------------------\n");
  54.     return 1;
  55. }
  56.  
  57. public OnPlayerConnect(playerid)
  58. {
  59.     new LName[MAX_PLAYER_NAME], file[128];
  60.     GetPlayerName(playerid,LName,sizeof(LName));
  61.     format(file,sizeof(file),"Teams/%s.ini",LName);
  62.     if(!dini_Exists(file))
  63.     {
  64.         dini_Create(file);
  65.         dini_IntSet(file,"Team",TeamInfo[playerid][Team]);
  66.         new rteam = random(-999999999999);
  67.         LGDTeam[playerid] = rteam;
  68.     }
  69.     if(dini_Exists(file))
  70.     {
  71.         TeamInfo[playerid][Team] = dini_Int(file,"Team");
  72.         LGDTeam[playerid] = dini_Int(file,"Team");
  73.     }
  74.     return 1;
  75. }
  76.  
  77.  
  78. // ZCMD COMMANDS
  79. COMMAND:setteam(playerid, params[])
  80. {
  81.     new LTeam;
  82.     #pragma unused params
  83.     if(sscanf(params, "d", LTeam)) return SendClientMessage(playerid, usage, "[USAGE]: /setteam [1-999,999]");
  84.     else if (LTeam >= 999999 || LTeam == 0) return SendClientMessage(playerid, error, "[ERROR]: Team id must between 1 and 999,999");
  85.     else
  86.     {
  87.         new string[128], LName[MAX_PLAYER_NAME], file[128];
  88.         format(string, sizeof(string), "[SERVER]: Success choosing team id -> '%d'.", LTeam);
  89.         SendClientMessage(playerid, lancar, string);
  90.         LGDTeam[playerid] = LTeam;
  91.         SetPlayerTeam(playerid, LGDTeam[playerid]);
  92.         SetPlayerTeam(playerid, LTeam);
  93.         GetPlayerName(playerid,LName,sizeof(LName));
  94.         format(file,sizeof(file),"Teams/%s.ini",LName);
  95.         dini_IntSet(file,"Team",LGDTeam[playerid]);
  96.     }
  97.     return 1;
  98. }
  99.  
  100. COMMAND:myteam(playerid, params[])
  101. {
  102.     new str[256];
  103.     #pragma unused params
  104.     format(str, sizeof(str), "[SERVER]: Your team id -> '%d'.", LGDTeam);
  105.     SendClientMessage(playerid, lancar, str);
  106.     return 1;
  107. }
  108.  
  109. COMMAND:resetteam(playerid, params[])
  110. {
  111.     new rteam = random(-999999999999), LName[MAX_PLAYER_NAME], file[128];
  112.     #pragma unused params
  113.     LGDTeam[playerid] = rteam;
  114.     SetPlayerTeam(playerid, LGDTeam[playerid]);
  115.     SendClientMessage(playerid, usage, "[SERVER]: Success make your team to netral, Everybody are enemy!.");
  116.     GetPlayerName(playerid,LName,sizeof(LName));
  117.     format(file,sizeof(file),"Teams/%s.ini",LName);
  118.     dini_IntSet(file,"Team",LGDTeam[playerid]);
  119.     return 1;
  120. }
  121.  
  122. COMMAND:teamhelp(playerid, params[])
  123. {
  124.     #pragma unused params
  125.     SendClientMessage(playerid, usage, "Team Set Helps:");
  126.     SendClientMessage(playerid, lancar, "/setteam = for selecting teams with the numbered id");
  127.     SendClientMessage(playerid, lancar, "/myteam = for see your team id");
  128.     SendClientMessage(playerid, lancar, "/resetteam = for setting your team to netral");
  129.     SendClientMessage(playerid, error, "TeamChooser credits: leingod the creator of this command");
  130.     return 1;
  131. }
  132.  
  133. // ©leingod 2011 - All rights Reserved
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement