API tools faq
paste
Advertisement
Guest User

Drog Rendszer by: Lockett

a guest
Feb 25th, 2013
96
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 10.44 KB | None | 0 0
raw download clone embed print report
  1.  
  2.  
  3. #include            <       a_samp      >
  4. #include            <       zcmd        >
  5. #include            <       sscanf2     >
  6. #include            <       streamer    >
  7.  
  8. ///////////////////////////Drog azonosítók//////////////////////////////////////
  9. #define DROG_NINCS  0 // Ha már foglalt akkor lehet más szám is..
  10. #define DROG_VAN    1
  11. #define DROGY       2
  12. #define DROGN       3
  13.  
  14. ////////////////////////////////////***/////////////////////////////////////////
  15.  
  16. #define COLOR_PINK              0xFF66FFAA
  17. #define COLOR_RED               0xFF0000AA
  18. #define COLOR_BLUE              0x33AAFFFF
  19. #define COLOR_GREEN             0x33AA33AA
  20.  
  21. //////////////////////////////////Checkpoint////////////////////////////////////
  22.  
  23. new DROGCP, DROGFEL;
  24.  
  25. ////////////////////////////////////Drog/////////////////////////////////////////
  26.  
  27. public OnGameModeInit()// FilterScript esetén ' public OnFilterScriptInit()'
  28.     {
  29.     print("****************************************");
  30.     print("*                                      *");
  31.     print("*  Drog System betöltve By.: Gabor...  *");
  32.     print("*        Át alakitotta Lockett         *");
  33.     print("*                                      *");
  34.     print("****************************************");
  35.  
  36.     DROGCP = CreateDynamicCP(-1104.8046,-1617.5413,76.3672, 2, -1, -1, -1, 200);
  37.     DROGFEL = CreateDynamicCP(-1074.3137,-1625.3157,76.3672, 2, -1, -1, -1, 200);
  38.  
  39. /////////////////////////////////Drog Map///////////////////////////////////////
  40.  
  41.     CreateObject(669, -1075.00195, -1618.90930, 62.40000,   0.00000, 0.00000, 90.00000);
  42.     CreateObject(3409, -1068.45557, -1626.38831, 75.33594,   356.85840, 0.00000, 3.14159);
  43.     CreateObject(3409, -1068.56604, -1631.14551, 75.33594,   356.85840, 0.00000, 3.14159);
  44.     CreateObject(3409, -1068.58411, -1621.77856, 75.33594,   356.85840, 0.00000, 3.14159);
  45.     CreateObject(3261, -1052.38281, -1622.97656, 75.35938,   356.85840, 0.00000, 3.14159);
  46.     CreateObject(3261, -1074.74756, -1625.72632, 75.35940,   0.00000, 0.00000, 0.00000);
  47.     CreateObject(3374, -1099.48889, -1621.09167, 76.83590,   0.00000, 0.00000, 0.00000);
  48.     CreateObject(3374, -1099.43372, -1625.27527, 76.83590,   0.00000, 0.00000, 0.00000);
  49.     CreateObject(14782, -1117.37634, -1615.31494, 76.37590,   0.00000, 0.00000, 0.00000);
  50.     CreateObject(2314, -1099.39075, -1614.79773, 75.38920,   0.00000, 0.00000, 0.00000);
  51.     CreateObject(2314, -1102.53235, -1614.79578, 75.38920,   0.00000, 0.00000, 0.00000);
  52.     CreateObject(1575, -1101.16760, -1614.65271, 75.88080,   0.00000, 0.00000, 0.00000);
  53.     CreateObject(1318, -1096.78503, -1615.35950, 76.24860,   0.00000, 0.00000, 0.00000);
  54.     CreateObject(1318, -1077.11206, -1624.51501, 76.24860,   0.00000, 0.00000, 0.00000);
  55.     CreateObject(3261, -1074.74756, -1628.72632, 75.35940,   0.00000, 0.00000, 0.00000);
  56.     CreateObject(3261, -1074.74756, -1631.74634, 75.35940,   0.00000, 0.00000, 0.00000);
  57.     CreateObject(3261, -1074.74756, -1634.74634, 75.35940,   0.00000, 0.00000, 0.00000);
  58.     CreateObject(3261, -1074.72986, -1622.68457, 75.35940,   0.00000, 0.00000, 0.00000);
  59.     CreateObject(2314, -1105.67224, -1614.79578, 75.38920,   0.00000, 0.00000, 0.00000);
  60.     CreateObject(669, -1073.88513, -1622.09583, 62.40000,   0.00000, 0.00000, 90.00000);
  61.     CreateObject(669, -1074.11243, -1623.08105, 62.40000,   0.00000, 0.00000, 90.00000);
  62.     CreateObject(669, -1074.27271, -1624.40735, 62.40000,   0.00000, 0.00000, 171.00000);
  63.  
  64.     return 1;
  65.     }
  66.  
  67. public OnGameModeExit() // FilterScript esetén ' public OnFilterScriptExit()'
  68.     {
  69.     print("****************************************");
  70.     print("*                                      *");
  71.     print("*Drog System kikapcsolva By.: Gabor... *");
  72.     print("*        Át alakitotta Lockett         *");
  73.     print("*                                      *");
  74.     print("****************************************");
  75.     return 1;
  76.     }
  77.  
  78.  
  79. public OnPlayerConnect(playerid)
  80.     {
  81.          SetPVarInt(playerid, "Drog", DROG_NINCS);
  82.          SetPVarInt(playerid, "Felszed", DROGN);
  83.          return 1;
  84.     }
  85.  
  86. public OnPlayerDisconnect(playerid, reason)
  87.     {
  88.          SetPVarInt(playerid, "Drog", DROG_NINCS);
  89.          SetPVarInt(playerid, "Felszed", DROGN);
  90.          return 1;
  91.     }
  92.  
  93. #pragma tabsize 0
  94.  
  95. CMD:drogtelep(playerid, params[])
  96.     {
  97.         if(IsPlayerInAnyVehicle(playerid))
  98.         {
  99.           new tmpcar = GetPlayerVehicleID(playerid);
  100.           SetVehiclePos(tmpcar, -1085.9890,-1630.2303,76.3672);
  101.           LinkVehicleToInterior(tmpcar, 0);
  102.           SetPlayerVirtualWorld(playerid, 0);
  103.         }
  104.         else
  105.         {
  106.           SetPlayerPos(playerid, -1085.9890,-1630.2303,76.3672);
  107.         }
  108.         return 1;
  109.  
  110.     }
  111. CMD:felszed(playerid, params[])
  112.     {
  113.        if(GetPVarInt(playerid, "Drog") == DROG_NINCS)
  114.        {
  115.            if(IsPlayerInDynamicCP(playerid, DROGFEL))
  116.            {
  117.                SetPVarInt(playerid, "Felszed", DROGY);
  118.                SendClientMessage(playerid, COLOR_GREEN, "[SERVER]Felszedted a Canabist! Menj a Következő Checkpointhoz!");
  119.            }
  120.            else SendClientMessage(playerid, COLOR_RED, "[HIBA]Nem Vagy a Felszedő Checkpointban!");
  121.        }
  122.        else SendClientMessage(playerid, COLOR_RED, "[HIBA]Van már Canabisod!");
  123.        return 1;
  124.     }
  125.  
  126.  
  127. CMD:drogcsinal(playerid, params[])
  128.     {
  129.           if(GetPVarInt(playerid, "Drog") == DROG_NINCS)
  130.           {
  131.               if(GetPVarInt(playerid, "Felszed") == DROGY)
  132.               {
  133.                 if(!IsPlayerInDynamicCP(playerid, DROGCP)) return SendClientMessage(playerid, COLOR_RED, "[HIBA]Nem Vagy a Checkpointba!");
  134.  
  135.                 SetPVarInt(playerid, "Drog", DROG_VAN);
  136.                 TogglePlayerControllable(playerid, 0);
  137.                 SetTimerEx("drogcsin",4000,0,"i",playerid);
  138.                 SetTimerEx("drogido",300000,0,"i",playerid);
  139.                 SendClientMessage(playerid, COLOR_PINK, "[SERVER]Drogot Készítesz.....");
  140.               }
  141.               else SendClientMessage(playerid, COLOR_RED, "[HIBA]Nem Szedtél Fel Canabist!");
  142.           }
  143.           else SendClientMessage(playerid, COLOR_PINK, "[SERVER]Ne Legyél Drogfüggő, Pár Perc Múlva Újra Csinálhatsz!");
  144.           return 1;
  145.  
  146.     }
  147. CMD:besziv(playerid, params[])
  148.     {
  149.             if(GetPVarInt(playerid, "Drog") ==  DROG_VAN)
  150.             {
  151.                 SetPlayerDrunkLevel(playerid, 50000);
  152.                 SetPlayerWeather(playerid, 203);
  153.                 SetPVarInt(playerid, "Drog", DROG_NINCS);
  154.                 SetTimerEx("bead",60000,0,"i",playerid);
  155.                 SendClientMessage(playerid, COLOR_PINK, "[SERVER]Most Aztán Szépen Reccsen Vagy! *.*");
  156.             }
  157.             else SendClientMessage(playerid, COLOR_RED, "[HIBA]Nincs Drogod!");
  158.             return 1;
  159.     }
  160. CMD:drogelad(playerid, params[])
  161.     {
  162.         if(GetPVarInt(playerid, "Drog") ==  DROG_VAN)
  163.         {
  164.  
  165.  
  166.               new
  167.                        string[128],
  168.                        name[MAX_PLAYER_NAME],
  169.                        name2[MAX_PLAYER_NAME],
  170.                        PID;
  171.  
  172.               if(sscanf(params, "u", PID)) return SendClientMessage(playerid, COLOR_BLUE, "Használat: /drogelad <ID/Játékos név>");
  173.               if(PID == INVALID_PLAYER_ID) return SendClientMessage(playerid, COLOR_RED, "[HIBA]Rossz ID/Név!");
  174.  
  175.           GetPlayerName(playerid, name, MAX_PLAYER_NAME);
  176.           GetPlayerName(PID, name2, MAX_PLAYER_NAME);
  177.  
  178.           format(string, sizeof(string), "%s[SERVER] Elakar adni neked drogot $50000-ért, ha megakarod venni, akkor /megvesz <ID>", name);
  179.           SendClientMessage(PID, COLOR_GREEN, string);
  180.  
  181.           format(string, sizeof(string), "[SERVER] Elakarsz adni %s-nak/nek drogot!", name2);
  182.           SendClientMessage(playerid, COLOR_GREEN, string);
  183.         }
  184.         else SendClientMessage(playerid, COLOR_RED, "[HIBA]Nincsen drogod!");
  185.         return 1;
  186.     }
  187.  
  188. CMD:drogmegvesz(playerid, params[])
  189.     {
  190.         if(GetPVarInt(playerid, "Drog") ==  DROG_NINCS)
  191.         {
  192.  
  193.               new
  194.                        string[128],
  195.                        name[MAX_PLAYER_NAME],
  196.                        name2[MAX_PLAYER_NAME],
  197.                        PID;
  198.  
  199.               if(sscanf(params, "u", PID)) return SendClientMessage(playerid, COLOR_BLUE, "Használat: /drogmegvesz <ID/Játékos név>");
  200.               if(PID == INVALID_PLAYER_ID) return SendClientMessage(playerid, COLOR_RED, "[HIBA]Rossz ID/Név!");
  201.               if(GetPVarInt(PID, "Drog") == DROG_NINCS) return SendClientMessage(playerid, COLOR_RED, "[HIBA]Nincs drog az illetőnél!");
  202.  
  203.               SetPVarInt(playerid, "Drog", DROG_VAN);
  204.               SetPVarInt(PID, "Drog", DROG_NINCS);
  205.  
  206.               GivePlayerMoney(playerid, -50000);
  207.               GivePlayerMoney(PID, 50000);
  208.  
  209.  
  210.               GetPlayerName(playerid,name, MAX_PLAYER_NAME);
  211.               format(string, sizeof(string), "[SERVER]%s Megvette tőled a drogot!", name);
  212.               SendClientMessage(PID, COLOR_GREEN, string);
  213.  
  214.               GetPlayerName(PID, name2, MAX_PLAYER_NAME);
  215.               format(string, sizeof(string), "[SERVER]%s-től/tól Megvetted a drogot!", name2);
  216.               SendClientMessage(playerid, COLOR_GREEN, string);
  217.         }
  218.         else SendClientMessage(playerid, COLOR_RED, "[HIBA]Van már drogot!");
  219.         return 1;
  220.     }
  221.  
  222.  
  223.  
  224. public OnPlayerEnterDynamicCP(playerid, checkpointid)
  225.     {
  226.         if(checkpointid == DROGCP) return SendClientMessage(playerid, COLOR_BLUE, "[SERVER]Ha Drogot Szeretnél Csinálni, Akkor /drogcsinal!");
  227.         if(checkpointid == DROGFEL) return SendClientMessage(playerid, COLOR_BLUE, "[SERVER]Ha Felszeretnéd Szedni a Canabist, akkor /felszed ");
  228.         return 1;
  229.     }
  230.  
  231.  
  232. ////////////////// Drog timerekhez kapcsolódó eljárások/////////////////////////
  233.     forward bead(playerid);
  234.     public bead(playerid)
  235.     {
  236.             SetPlayerDrunkLevel(playerid, 0);
  237.             SetPlayerWeather(playerid, 2);
  238.             SendClientMessage(playerid, COLOR_GREEN, "[SERVER]Már nem vagy beszívva, aztán óvatosan a füvezéssel!");
  239.         return 1;
  240.     }
  241.     forward drogido(playerid);
  242.     public drogido(playerid)
  243.     {
  244.             SetPVarInt(playerid, "Drog", DROG_NINCS);
  245.             SendClientMessage(playerid, COLOR_GREEN, "[SERVER]Ember, mostmár újra csinálhatsz drogot.");
  246.         return 1;
  247.     }
  248.  
  249.     forward drogcsin(playerid);
  250.     public drogcsin(playerid)
  251.     {
  252.         SetPVarInt(playerid, "Drog", DROG_VAN);
  253.         TogglePlayerControllable(playerid, 1);
  254.         SendClientMessage(playerid, COLOR_GREEN, "[SERVER]Csináltál Drogot! Ha eladni akarod, akkor /drogelad, ha elszívni, akkor /besziv!");
  255.         return 1;
  256.     }
  257.  
  258. ///////////////////////////////////////***//////////////////////////////////////
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!