API tools faq
paste
Guest User

Sistema de Pedágio v1

a guest
Sep 29th, 2013
342
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.09 KB | None | 0 0
raw download clone embed print report
  1. #include <a_samp>
  2. #include <sscanf2>
  3. #include <ZCMD>
  4. //=============[Variaveis]============//
  5. //---Cancelas---//
  6. new Cancelas[6];
  7. //============[Forwards]==============//
  8. forward FecharCancela1();
  9. forward FecharCancela2();
  10. forward FecharCancela3();
  11. forward FecharCancela4();
  12. //===================================//
  13.  
  14. public OnFilterScriptInit()
  15. {
  16. //============================[Suportes SF]===============================//
  17. CreateObject(966,-2682.8999000,1264.5999800,54.6000000,0.0000000,0.0000000,0.0000000); //object(bar_gatebar01) (1)
  18. CreateObject(966,-2690.8000500,1286.3000500,54.4000000,0.0000000,0.0000000,0.0000000); //object(bar_gatebar01) (2)
  19. CreateObject(966,-2671.5000000,1285.6999500,54.4000000,0.0000000,0.0000000,180.0000000); //object(bar_gatebar01) (3)
  20. CreateObject(966,-2680.5996100,1264.5996100,54.6000000,0.0000000,0.0000000,179.9950000); //object(bar_gatebar01) (5)
  21. //=============================[Cancelas SF]============================//
  22. Cancelas[0] = CreateObject(968,-2690.8000500,1286.3000500,55.4000000,0.0000000,270.0000000,0.0000000); //object(barrierturn) (1)
  23. Cancelas[1] = CreateObject(968,-2671.5000000,1285.6999500,55.4000000,0.0000000,90.0000000,0.0000000); //object(barrierturn) (2)
  24. Cancelas[2] = CreateObject(968,-2680.6001000,1264.5999800,55.6000000,0.0000000,90.0000000,0.0000000); //object(barrierturn) (3)
  25. Cancelas[3] = CreateObject(968,-2682.8999000,1264.5999800,55.6000000,0.0000000,270.0000000,0.0000000); //object(barrierturn) (4)
  26. //========================[Texts SF]=================================//
  27. Create3DTextLabel("{FFFFFF}Pedágio San Fierro\n {FFEC8B}(Pressione |H|) \n{FFFFFF}para Usa-lo", 0xFFFFFFAA, -2694.8396,1280.2086,55.4297, 20, 0);
  28. Create3DTextLabel("{FFFFFF}Pedágio San Fierro\n {FFEC8B}(Pressione |H|) \n{FFFFFF}para Usa-lo", 0xFFFFFFAA, -2668.2437,1279.8798,55.4297, 20, 0);
  29. Create3DTextLabel("{FFFFFF}Pedágio San Fierro\n {FFEC8B}(Pressione |H|) \n{FFFFFF}para Usa-lo", 0xFFFFFFAA, -2677.4023,1269.8563,55.4297, 20, 0);
  30. Create3DTextLabel("{FFFFFF}Pedágio San Fierro\n {FFEC8B}(Pressione |H|) \n{FFFFFF}para Usa-lo", 0xFFFFFFAA, -2686.6621,1273.0547,55.4297, 20, 0);
  31. }
  32.  
  33. public OnFilterScriptExit()
  34. {
  35. return 1;
  36. }
  37.  
  38. COMMAND:ircancela1(playerid, params[])
  39. {
  40. SetPlayerPos(playerid,-2690.8000500,1286.3000500,55.4000000);
  41. return 1;
  42. }
  43. COMMAND:ircancela2(playerid, params[])
  44. {
  45. SetPlayerPos(playerid,-2671.5000000,1285.6999500,55.4000000);
  46. return 1;
  47. }
  48. COMMAND:ircancela3(playerid, params[])
  49. {
  50. SetPlayerPos(playerid,-2680.6001000,1264.5999800,55.6000000);
  51. return 1;
  52. }
  53. COMMAND:ircancela4(playerid, params[])
  54. {
  55. SetPlayerPos(playerid,-2682.8999000,1264.5999800,55.6000000);
  56. return 1;
  57. }
  58. COMMAND:cancela1(playerid)
  59. {
  60. MoveObject(Cancelas[0],-2690.8000500,1286.3000500,55.4000000,0.0000000,0.0000000,0.0000000,3);
  61. SendClientMessage(playerid, 0xFFFFFFAA, "========================================");
  62. SendClientMessage(playerid, 0xFF0000AA, "[PEDAGIO]Você tem 3 Segundos para Passar");
  63. SendClientMessage(playerid, 0xFFFFFFAA, "========================================");
  64. SetTimer("FecharCancela1", 3000, false);
  65. return 1;
  66. }
  67. COMMAND:cancela2(playerid)
  68. {
  69. MoveObject(Cancelas[1],-2671.5000000,1285.6999500,55.4000000,0.0000000,0.0000000,0.0000000,3);
  70. SendClientMessage(playerid, 0xFFFFFFAA, "========================================");
  71. SendClientMessage(playerid, 0xFF0000AA, "[PEDAGIO]Você tem 3 Segundos para Passar");
  72. SendClientMessage(playerid, 0xFFFFFFAA, "========================================");
  73. SetTimer("FecharCancela2", 3000, false);
  74. return 1;
  75. }
  76. COMMAND:cancela3(playerid)
  77. {
  78. MoveObject(Cancelas[2],-2680.6001000,1264.5999800,55.6000000,0.0000000,0.0000000,0.0000000,3);
  79. SendClientMessage(playerid, 0xFFFFFFAA, "========================================");
  80. SendClientMessage(playerid, 0xFF0000AA, "[PEDAGIO]Você tem 3 Segundos para Passar");
  81. SendClientMessage(playerid, 0xFFFFFFAA, "========================================");
  82. SetTimer("FecharCancela3", 3000, false);
  83. return 1;
  84. }
  85. COMMAND:cancela4(playerid)
  86. {
  87. MoveObject(Cancelas[3],-2682.8999000,1264.5999800,55.6000000,0.0000000,0.0000000,0.0000000,3);
  88. SendClientMessage(playerid, 0xFFFFFFAA, "=========================================");
  89. SendClientMessage(playerid, 0xFF0000AA, "[PEDAGIO]Você tem 3 Segundos para Passar");
  90. SendClientMessage(playerid, 0xFFFFFFAA, "=========================================");
  91. SetTimer("FecharCancela4", 3000, false);
  92. return 1;
  93. }
  94. COMMAND:pedagio(playerid)
  95. {
  96. if(IsPlayerInAnyVehicle(playerid))
  97. {
  98. if(IsPlayerInRangeOfPoint(playerid, 7.0, -2694.8396,1280.2086,55.4297))
  99. {
  100. ShowPlayerDialog(playerid, 75, DIALOG_STYLE_MSGBOX," Pedágio Forum SA:MP ","Deseja Pagar o Pedágio","Pagar","Não Pagar");
  101. }
  102. if(IsPlayerInRangeOfPoint(playerid, 7.0, -2668.2437,1279.8798,55.4297))
  103. {
  104. ShowPlayerDialog(playerid, 76, DIALOG_STYLE_MSGBOX," Pedágio Forum SA:MP ","Deseja Pagar o Pedágio","Pagar","Não Pagar");
  105. }
  106. if(IsPlayerInRangeOfPoint(playerid, 7.0, -2677.4023,1269.8563,55.4297))
  107. {
  108. ShowPlayerDialog(playerid, 77, DIALOG_STYLE_MSGBOX," Pedágio Forum SA:MP ","Deseja Pagar o Pedágio","Pagar","Não Pagar");
  109. }
  110. if(IsPlayerInRangeOfPoint(playerid, 7.0, -2686.6621,1273.0547,55.4297))
  111. {
  112. ShowPlayerDialog(playerid, 78, DIALOG_STYLE_MSGBOX," Pedágio Forum SA:MP ","Deseja Pagar o Pedágio","Pagar","Não Pagar");
  113. }
  114. }
  115. return 1;
  116. }
  117.  
  118. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  119. {
  120. switch(dialogid)
  121. {
  122. case 75:
  123. {
  124. if(response)// Se ele escolher masculino...
  125. {
  126. if(GetPlayerMoney(playerid) < 150)
  127. {
  128. GameTextForPlayer(playerid, "~r~Nao tem Dinheiro Suficiente", 8000, 3);
  129. }
  130. if(GetPlayerMoney(playerid) >= 150)
  131. {
  132. GameTextForPlayer(playerid, "~r~Pedágio Pago Bom Jogo", 8000, 3);
  133. GivePlayerMoney(playerid, -150);
  134. cmd_cancela1(playerid);
  135. }
  136. if(!response) // funcoes se clicar em Nao Pagar
  137. {
  138. GameTextForPlayer(playerid, "~r~Optou por Nao Pagar", 8000, 3);
  139. }
  140. }
  141. }
  142. case 76:
  143. {
  144. if(response)// Se ele escolher masculino...
  145. {
  146. if(GetPlayerMoney(playerid) < 150)
  147. {
  148. GameTextForPlayer(playerid, "~r~Nao tem Dinheiro Suficiente", 8000, 3);
  149. }
  150. if(GetPlayerMoney(playerid) > 150)
  151. {
  152. GameTextForPlayer(playerid, "~r~Pedágio Pago Bom Jogo", 8000, 3);
  153. GivePlayerMoney(playerid, -150);
  154. cmd_cancela2(playerid);
  155. }
  156. else if(!response) // funcoes se clicar em Nao Pagar
  157. {
  158. GameTextForPlayer(playerid, "~r~Optou por Nao Pagar", 8000, 3);
  159. }
  160. }
  161. }
  162. case 77:
  163. {
  164. if(response)// Se ele escolher masculino...
  165. {
  166. if(GetPlayerMoney(playerid) < 150)
  167. {
  168. GameTextForPlayer(playerid, "~r~Nao tem Dinheiro Suficiente", 8000, 3);
  169. }
  170. if(GetPlayerMoney(playerid) > 150)
  171. {
  172. GameTextForPlayer(playerid, "~r~Pedágio Pago Bom Jogo", 8000, 3);
  173. GivePlayerMoney(playerid, -150);
  174. cmd_cancela3(playerid);
  175. }
  176. else if(!response) // funcoes se clicar em Nao Pagar
  177. {
  178. GameTextForPlayer(playerid, "~r~Optou por Nao Pagar", 8000, 3);
  179. }
  180. }
  181. }
  182. case 78:
  183. {
  184. if(response)// Se ele escolher masculino...
  185. {
  186. if(GetPlayerMoney(playerid) < 150)
  187. {
  188. GameTextForPlayer(playerid, "~r~Nao tem Dinheiro Suficiente", 8000, 3);
  189. }
  190. if(GetPlayerMoney(playerid) > 150)
  191. {
  192. GameTextForPlayer(playerid, "~r~Pedágio Pago Bom Jogo", 8000, 3);
  193. GivePlayerMoney(playerid, -150);
  194. cmd_cancela4(playerid);
  195. }
  196. else if(!response) // funcoes se clicar em Nao Pagar
  197. {
  198. GameTextForPlayer(playerid, "~r~Optou por Nao Pagar", 8000, 3);
  199. }
  200. }
  201. }
  202. }
  203. return 1;
  204. }
  205. public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
  206. {
  207. if((newkeys == 2) && (IsPlayerInAnyVehicle(playerid)))// H
  208. {
  209. cmd_pedagio(playerid);
  210. return 1;
  211. }
  212. return 1;
  213. }
  214. public FecharCancela1()
  215. {
  216. MoveObject(Cancelas[0], -2690.8000500,1286.3000500,55.4000000,0.0000000,90.0000000,-90.0000000,2);
  217. return 1;
  218. }
  219. public FecharCancela2()
  220. {
  221. MoveObject(Cancelas[1], -2671.5000000,1285.6999500,55.4000000,0.0000000,90.0000000,90.0000000,2);
  222. return 1;
  223. }
  224. public FecharCancela3()
  225. {
  226. MoveObject(Cancelas[2], -2680.6001000,1264.5999800,55.6000000,0.0000000,90.0000000,90.0000000,2);
  227. return 1;
  228. }
  229. public FecharCancela4()
  230. {
  231. MoveObject(Cancelas[3], -2682.8999000,1264.5999800,55.6000000,0.0000000,90.0000000,-90.0000000,2);
  232. return 1;
  233. }
Advertisement
Add Comment
Please, Sign In to add comment
Public Pastes
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!