RenasD

Untitled

Jun 17th, 2013
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 6.70 KB | None | 0 0
  1. /*
  2. Rinkinys nr.1 by pTony [Tony_Parker]
  3. VIP sistema
  4. Komandos, kurias gali naudoti VIP nariai:
  5. • /vipk //VIP narių panelė
  6. Tai viena komanda, kurią parašius atsidaro panelė, per kurią galima atlikti štai šias funkcijas:
  7. • Oro pakeitimas, asmeniškai tam VIP nariui
  8. • Gauti ginklų su neribotu kulkų skaičiumi
  9. • Gauti VIP nario mašiną
  10. • Užsidėti VIP nario uniformą
  11. • Event vietos
  12. • Skaičiavimas
  13.  
  14.  
  15. */
  16. main(){}
  17. #include <a_samp>
  18.  
  19. #define VIP_DIALOG 1
  20. #define VIP_EVENT 1
  21. #define VIP_TRANSPORTAS 1
  22. #define VIP_DIALOG2 1
  23.  
  24. enum zaidejai
  25. {
  26. vip,
  27. }
  28. new zInfo[MAX_PLAYERS][zaidejai];
  29.  
  30. public OnPlayerCommandText(playerid, cmdtext[])
  31. {
  32. if(strcmp(cmdtext, "/v", true)==0)
  33. {
  34. zInfo[playerid][vip]=1;
  35. SendClientMessage(playerid,-1,"VIP statusas aktyvuotas.");
  36. return 1;
  37. }
  38. if(strcmp(cmdtext, "/vipk", true)==0)
  39. {
  40. if(!zInfo[playerid][vip]){ return SendClientMessage(playerid,-1,"{FF0000}Šią komandą gali vartoti tik VIP nariai!");}
  41. ShowPlayerDialog(playerid,VIP_DIALOG,DIALOG_STYLE_LIST,"{8D8D8D}VIP panelė","{079200}VIP nario {FFFFFF}panelė\n{FF0000}------------------------------\n{0DFF00}• {FFFFFF}Užsidėti VIP nario uniformą\n{0DFF00}• {FFFFFF}Gauti VIP nario ginklų su neribotu kulkų skaičiumi\n{0DFF00}• {FFFFFF}Oro pakeitimas asmeniškai VIP nariui\n{0DFF00}• {FFFFFF}Gauti VIP nario transportą\n{FF0000}---------2 puslapis----------","Pasirinkti","Atšaukti");
  42. return 1;
  43. }
  44. return SendClientMessage(playerid,-1,"{FFFFFF}[{FF0000}>{FFFFFF}]{FF0000} Įrašyta komanda mūsų serverį neveikia!");
  45. }
  46.  
  47. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  48. {
  49. if(dialogid == VIP_DIALOG)
  50. {
  51. if(response)
  52. {
  53. if(listitem == 2){SendClientMessage(playerid,-1,"Užsidėjote {079200}VIP nario{FFFFFF} uniformą."); SetPlayerSkin(playerid,296);return 1;}
  54. if(listitem == 3){SendClientMessage(playerid,-1,"Gavote {079200}VIP nario{FFFFFF} ginklus.");GivePlayerWeapon(playerid, 348, 999999999);GivePlayerWeapon(playerid, 353, 999999999);GivePlayerWeapon(playerid, 356, 999999999);return 1;}
  55. if(listitem == 4){SendClientMessage(playerid,-1,"Oras pakeistas jums asmeniškai.");SetPlayerWeather(playerid, 1);return 1;}
  56. if(listitem == 5){ShowPlayerDialog(playerid,VIP_TRANSPORTAS,DIALOG_STYLE_LIST,"{8D8D8D}VIP transportas","{FFFFFF}VIP transportas\n{FF0000}-------------------------------\n{0DFF00}• {FFFFFF}Infernus\n{0DFF00}• {FFFFFF}Elegy\n{0DFF00}• {FFFFFF}NRG 500","Pasirinkti","Atšaukti");return 1;}
  57. if(listitem == 6){ShowPlayerDialog(playerid,VIP_DIALOG2,DIALOG_STYLE_LIST,"{8D8D8D}#2 VIP panelė","{079200}VIP nario {FFFFFF}panelė\n{FF0000}-----------------------------------------\n{0DFF00}• {FFFFFF}Event vietos\n{0DFF00}• {FFFFFF}Įjungti skaičiavimą","Pasirinkti","Atšaukti");return 1;}
  58. }
  59. }
  60. if(dialogid == VIP_TRANSPORTAS)
  61. {
  62. if(response)
  63. {
  64. if(listitem == 2)
  65. {
  66. SendClientMessage(playerid,-1,"Gavote {079200}VIP nario{FFFFFF} transportą - {FF9A00}Infernus!");
  67. new Float:x, Float:y, Float:z, Float:A, car;
  68. new world = GetPlayerVirtualWorld(playerid);
  69. new interior = GetPlayerInterior(playerid);
  70. GetPlayerPos(playerid, x, y, z);
  71. GetPlayerFacingAngle(playerid, A);
  72. car = CreateVehicle(411, x, y, z+1, A, 508, 508, -1);
  73. LinkVehicleToInterior(car, interior);
  74. SetVehicleVirtualWorld(car, world);
  75. SetVehicleZAngle(car, A);
  76. PutPlayerInVehicle(playerid, car, 0);
  77. return 1;
  78. }
  79. if(listitem == 3)
  80. {
  81. SendClientMessage(playerid,-1,"Gavote {079200}VIP nario{FFFFFF} transportą - {FF9A00}Elegy!");
  82. new Float:x, Float:y, Float:z, Float:A, car;
  83. new world = GetPlayerVirtualWorld(playerid);
  84. new interior = GetPlayerInterior(playerid);
  85. GetPlayerPos(playerid, x, y, z);
  86. GetPlayerFacingAngle(playerid, A);
  87. car = CreateVehicle(562, x, y, z+1, A, 508, 508, -1);
  88. LinkVehicleToInterior(car, interior);
  89. SetVehicleVirtualWorld(car, world);
  90. SetVehicleZAngle(car, A);
  91. PutPlayerInVehicle(playerid, car, 0);
  92. return 1;
  93. }
  94. if(listitem == 4)
  95. {
  96. SendClientMessage(playerid,-1,"Gavote {079200}VIP nario{FFFFFF} transportą - {FF9A00}NRG - 500!");
  97. new Float:x, Float:y, Float:z, Float:A, car;
  98. new world = GetPlayerVirtualWorld(playerid);
  99. new interior = GetPlayerInterior(playerid);
  100. GetPlayerPos(playerid, x, y, z);
  101. GetPlayerFacingAngle(playerid, A);
  102. car = CreateVehicle(522, x, y, z+1, A, 508, 508, -1);
  103. LinkVehicleToInterior(car, interior);
  104. SetVehicleVirtualWorld(car, world);
  105. SetVehicleZAngle(car, A);
  106. PutPlayerInVehicle(playerid, car, 0);
  107. return 1;
  108. }
  109. }
  110.  
  111.  
  112. }
  113. if(dialogid == VIP_DIALOG2)
  114. {
  115. if(response)
  116. {
  117. if(listitem == 3){ShowPlayerDialog(playerid,VIP_EVENT,DIALOG_STYLE_LIST,"{8D8D8D}Event vietos","{FFFFFF}Event vietos\n{FF0000}-------------\n{0DFF00}• {FFFFFF}DRAG Event\n{0DFF00}• {FFFFFF}Drift Event\n{0DFF00}• {FFFFFF}Death Match (DM) Event\n{0DFF00}• {FFFFFF}Box (Bokso) Event","Pasirinkti","Atšaukti");return 1;}
  118. if(listitem == 4){SendClientMessage(playerid,-1,"Skaičiavimas {2ED301}įjungtas.");SetTimer("vienas", 1000, 0);SetTimer("du", 2000, 0);SetTimer("trys", 3000, 0);SetTimer("start", 4000, 0);return 1;}
  119. }
  120. }
  121. if(dialogid == VIP_EVENT)
  122. {
  123. if(response)
  124. {
  125. if(listitem == 2){SendClientMessage(playerid,-1,"Atsikėlėte iki {FF9A00}Drag Event {FFFFFF}vietos!");SetPlayerPos(playerid,-2078.3401,1363.6324,7.1007);return 1;}
  126. if(listitem == 3){SendClientMessage(playerid,-1,"Atsikėlėte iki {FF9A00}Drift Event {FFFFFF}vietos!");SetPlayerPos(playerid,-2078.3401,1363.6324,7.1007);return 1;}
  127. if(listitem == 4){SendClientMessage(playerid,-1,"Atsikėlėte iki {FF9A00}Death Match (DM) Event {FFFFFF}vietos!");SetPlayerPos(playerid,-2078.3401,1363.6324,7.1007);return 1;}
  128. if(listitem == 5){SendClientMessage(playerid,-1,"Atsikėlėte iki {FF9A00}Box (Bokso) Event {FFFFFF}vietos!");SetPlayerPos(playerid,-2078.3401,1363.6324,7.1007);return 1;}
  129. }
  130. }
  131. return 0;
  132. }
  133.  
  134. forward vienas();
  135. public vienas()
  136. {
  137. GameTextForAll("~g~3",2000,3);
  138. for(new i; i != MAX_PLAYERS; ++i)
  139. PlayerPlaySound(i, 1056, 0.0, 0.0, 10.0);
  140. return 1;
  141. }
  142. forward du();
  143. public du()
  144. {
  145. GameTextForAll("~y~2",2000,3);
  146. for(new i; i != MAX_PLAYERS; ++i)
  147. PlayerPlaySound(i, 1056, 0.0, 0.0, 10.0);
  148. return 1;
  149. }
  150. forward trys();
  151. public trys()
  152. {
  153. GameTextForAll("~r~1",2000,3);
  154. for(new i; i != MAX_PLAYERS; ++i)
  155. PlayerPlaySound(i, 1056, 0.0, 0.0, 10.0);
  156. return 1;
  157. }
  158. forward start();
  159. public start()
  160. {
  161. GameTextForAll("~r~Startas!",3000,3);
  162. for(new i; i != MAX_PLAYERS; ++i)
  163. PlayerPlaySound(i, 1057, 0.0, 0.0, 10.0);
  164. return 1;
  165. }
Advertisement
Add Comment
Please, Sign In to add comment