Advertisement
Guest User

Untitled

a guest
Sep 20th, 2012
655
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.90 KB | None | 0 0
  1. //all by XtremeR
  2. #include <a_samp>
  3. #include <zcmd>
  4.  
  5. //news ! :p
  6. new ship[MAX_PLAYERS];
  7. new o;
  8. new SpawnedVeh[MAX_PLAYERS];
  9. new Text:Textdraw0;
  10. new asked[MAX_PLAYERS];
  11. new asked1[MAX_PLAYERS];
  12. //Define FS
  13. #if defined FILTERSCRIPT
  14.  
  15. public OnFilterScriptInit()
  16. {
  17. print("\n--------------------------------------");
  18. print("xPirateShip FS By XtremeR");
  19. print("--------------------------------------\n");
  20. return 1;
  21. }
  22.  
  23. public OnFilterScriptExit()
  24. {
  25. TextDrawHideForAll(Textdraw0);
  26. TextDrawDestroy(Textdraw0);
  27. return 1;
  28. }
  29. #endif
  30. public OnGameModeInit()
  31. {
  32. Textdraw0 = TextDrawCreate(4.000000, 160.000000, "Would u like to have Pirate Ship?? ~n~~n~~n~/Yes if u want to ~n~/No if you dont want to!~n~/Hidebox To Hide This Box");
  33. TextDrawBackgroundColor(Textdraw0, 255);
  34. TextDrawFont(Textdraw0, 1);
  35. TextDrawLetterSize(Textdraw0, 0.230000, 1.000000);
  36. TextDrawColor(Textdraw0, -1);
  37. TextDrawSetOutline(Textdraw0, 0);
  38. TextDrawSetProportional(Textdraw0, 1);
  39. TextDrawSetShadow(Textdraw0, 1);
  40. TextDrawUseBox(Textdraw0, 1);
  41. TextDrawBoxColor(Textdraw0, 0x00000033);
  42. TextDrawTextSize(Textdraw0, 137.000000, -1.000000);
  43. o = CreateObject(8493,0,0,-1000,0,0,0,100);
  44. }
  45.  
  46. //pirate cmd
  47. CMD:pirate(playerid, params[])
  48. {
  49. asked[playerid] = 1;
  50. asked1[playerid] = 1;
  51. SpawnVeh(453, playerid);
  52. SendClientMessage(playerid, 0xFF0080C8, "Reefer Spawned!");//spawning that BOAT :D
  53. TextDrawShowForPlayer(playerid,Textdraw0);
  54. return 1;
  55. }
  56. CMD:hidebox(playerid, params[])
  57. {
  58. TextDrawHideForPlayer(playerid,Textdraw0);
  59. SendClientMessage(playerid, 0xFF0080C8, "Box is Now Hidden!");
  60. return 1;
  61. }
  62. CMD:yes(playerid, params[])
  63. {
  64. if (asked[playerid] == 1)
  65. {
  66. ship[playerid] = 1;
  67. TextDrawHideForPlayer(playerid,Textdraw0);
  68. asked[playerid] = 0;
  69. AttachObjectToVehicle(o, GetPlayerVehicleID(playerid), 0.899999,30.000114,17.099996,0.000000,0.000000,0.000000);
  70. }
  71. else if (asked[playerid] == 0)
  72. {
  73. SendClientMessage(playerid,-1,"Non. Asked u a Question!");
  74. }
  75. return 1;
  76. }
  77. CMD:no(playerid, params[])
  78. {
  79. if (asked1[playerid] == 1)
  80. {
  81. TextDrawHideForPlayer(playerid,Textdraw0);
  82. asked1[playerid] = 0;
  83. SendClientMessage(playerid, 0xFF0080C8, "Use /Pirate if u wanna Use it ever again!");
  84. }
  85. else if (asked1[playerid] == 0)
  86. {
  87. SendClientMessage(playerid,-1,"Non. Asked u a Question!");
  88. }
  89. return 1;
  90. }
  91. public OnPlayerExitVehicle(playerid, vehicleid)//OnExitingTheVehicle :p
  92. {
  93. TextDrawHideForPlayer(playerid,Textdraw0);
  94. if (ship[playerid] == 1)
  95. {
  96. DestroyObject(o);
  97. ship[playerid] = 0;
  98. }
  99. }
  100. stock SpawnVeh(vehicleid, playerid)
  101. {
  102. if(SpawnedVeh[playerid] != 0)
  103. {
  104. DestroyVehicle(SpawnedVeh[playerid]);
  105. }
  106. new Float:X, Float:Y, Float:Z, Float:Angle;
  107. GetPlayerPos(playerid, Float:X, Float:Y, Float:Z);
  108. GetPlayerFacingAngle(playerid, Float:Angle);
  109. SpawnedVeh[playerid] = CreateVehicle(vehicleid, X, Y, Z + 2.0, Angle + 90.0, -1, -1, 600);
  110. SetVehicleVirtualWorld(SpawnedVeh[playerid], GetPlayerVirtualWorld(playerid));
  111. LinkVehicleToInterior(SpawnedVeh[playerid], GetPlayerInterior(playerid));
  112. PutPlayerInVehicle(playerid, SpawnedVeh[playerid], 0);
  113. }
  114. public OnPlayerConnect(playerid)
  115. {
  116. asked1[playerid] = 0;
  117. asked[playerid] = 0;
  118. ship[playerid] = 0;
  119. SendClientMessage(playerid,-1,"xPirateShip FS By XtremeR");
  120. return 1;
  121. }
  122.  
  123. public OnPlayerText(playerid, text[])
  124. {
  125. return 1;
  126. }
  127. CMD:credits(playerid, params[])
  128. {
  129. SendClientMessage(playerid,-1,"Thanks To XtremeR for the Ship System!!");
  130. return 1;
  131. }
  132.  
  133. CMD:unship(playerid, params[])
  134. {
  135. if(ship[playerid] == 1)
  136. {
  137. RemovePlayerFromVehicle(playerid);
  138. DestroyObject(o);
  139. SendClientMessage(playerid,-1,"SERVER:Pirate Ship Removed! !");
  140. }
  141. else
  142. if(ship[playerid] == 0)
  143. {
  144. SendClientMessage(playerid,-1,"SERVER:Your vehicle is not having Pirate Ship!");
  145. }
  146. return 1;
  147. }
  148. //End of File.. Dont Re Release, Dont Remove the Credits and Enjoy!
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement