API tools faq
paste
Advertisement
Guest User

hCreator In-Game Teleport Creator v1.0

a guest
Oct 26th, 2014
389
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 9.36 KB | None | 0 0
raw download clone embed print report
  1. #include <a_samp>
  2. #include <zcmd>
  3.  
  4. #define TeleportDialog1 1324
  5. #define TeleportDialog2 1325
  6. #define CommandName 1326
  7.  
  8. new
  9. Type [ MAX_PLAYERS ] ,
  10. prjName [ 200 ]
  11. ;
  12. public OnFilterScriptInit()
  13. {
  14. print("\n--------------------------------------");
  15. print(" hCreator In-Game Teleport CREATOR v1.0");
  16. print("--------------------------------------\n");
  17. return 1;
  18. }
  19.  
  20. public OnFilterScriptExit()
  21. {
  22. return 1;
  23. }
  24.  
  25. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  26. {
  27. if ( dialogid == TeleportDialog1)
  28. {
  29. if( response )
  30. {
  31. ShowPlayerDialog ( playerid , TeleportDialog2 , DIALOG_STYLE_LIST , " {FF8800}What command processor do you want to use ? " , "{FF0000}S{FFFFFF}trcmp\n{FF0000}Z{FFFFFF}CMD\n{FF0000}Y{FFFFFF}CMD\n{FF0000}D{FFFFFF}cmd","Choose","Exit");
  32. }
  33. else
  34. {
  35. SendClientMessage ( playerid , -1 , "{FF0000}Your teleport wasn't created !" );
  36. }
  37. }
  38. if( dialogid == TeleportDialog2 )
  39. {
  40. if( response )
  41. {
  42. if( listitem == 0 )
  43. {
  44. ShowPlayerDialog ( playerid , CommandName , DIALOG_STYLE_INPUT , "Teleport Name" , "{FF8800}Please write your teleport name :" , "Ok" , "Cancel" );
  45. Type [ playerid ] = 0;
  46. }
  47. if( listitem == 1 )
  48. {
  49. ShowPlayerDialog ( playerid , CommandName , DIALOG_STYLE_INPUT , "Teleport Name" , "{FF8800}Please write your teleport name :" , "Ok" , "Cancel" );
  50. Type [ playerid ] = 1;
  51. }
  52. if( listitem == 2 )
  53. {
  54. ShowPlayerDialog ( playerid , CommandName , DIALOG_STYLE_INPUT , "Teleport Name" , "{FF8800}Please write your teleport name :" , "Ok" , "Cancel" );
  55. Type [ playerid ] = 2;
  56. }
  57. if( listitem == 3 )
  58. {
  59. ShowPlayerDialog ( playerid , CommandName , DIALOG_STYLE_INPUT , "Teleport Name" , "{FF8800}Please write your teleport name :" , "Ok" , "Cancel" );
  60. Type [ playerid ] = 3;
  61. }
  62. }
  63. }
  64. if( dialogid == CommandName )
  65. {
  66. if( response )
  67. {
  68. new
  69. filename [ 40 ]
  70. ;
  71. format(filename, sizeof(filename), "%s.pwn", inputtext);
  72. new File:save = fopen ( filename , io_append );
  73. strmid(prjName, filename, 0, strlen(filename) - 4, 128);
  74. new
  75. str [ 240 ] ,
  76. Float:p_X ,
  77. Float:p_Y ,
  78. Float:p_Z ,
  79. Float:p_Ang
  80. ;
  81. if(!IsPlayerInAnyVehicle ( playerid ) )
  82. {
  83. GetPlayerPos ( playerid , p_X , p_Y , p_Z );
  84. GetPlayerFacingAngle ( playerid , p_Ang ) ;
  85. }
  86. else if(IsPlayerInAnyVehicle ( playerid ) )
  87. {
  88. GetVehiclePos ( GetPlayerVehicleID (playerid) , p_X , p_Y , p_Z );
  89. GetVehicleZAngle ( GetPlayerVehicleID (playerid) , p_Ang ) ;
  90. }
  91. if( Type [ playerid ] == 0)
  92. {
  93. fwrite(save , "/*Command creator by HY\n" ) ;
  94. fwrite(save , "Please don't remove the credits:\n" ) ;
  95. fwrite(save , "strcmp command :*/\n" ) ;
  96. fwrite(save , "#include <a_samp>\n\n\n" );
  97. fwrite(save , "public OnPlayerCommandText(playerid, cmdtext[])\n" );
  98. fwrite(save , "{\n" ) ;
  99. format(str , 800 , "\tif (strcmp(\"/%s\", cmdtext, true, 10) == 0)\n",inputtext);
  100. fwrite(save , str ) ;
  101. fwrite(save , "\t{\n" ) ;
  102. fwrite(save , "\t\tif(!IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
  103. fwrite(save , "\t\t{\n" ) ;
  104. format(str , 800 , "\t\t\tSetPlayerPos(playerid , %f , %f , %f );\n\t\t\tSetPlayerFacingAngle (playerid , %f);\n",p_X , p_Y , p_Z , p_Ang);
  105. fwrite(save , str ) ;
  106. fwrite(save , "\t\t}\n" ) ;
  107. fwrite(save , "\t\telse if(IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
  108. fwrite(save , "\t\t{\n" ) ;
  109. format(str , 800 , "\t\t\tSetVehiclePos(GetPlayerVehicleID(playerid) , %f , %f , %f );\n\t\t\tSetVehicleZAngle (GetPlayerVehicleID(playerid) , %f);\n",p_X , p_Y , p_Z , p_Ang);
  110. fwrite(save , str ) ;
  111. fwrite(save , "\t\t}\n" ) ;
  112. fwrite(save , "\t\treturn 1;\n" ) ;
  113. fwrite(save , "\t}\n" ) ;
  114. fwrite(save , "\treturn 0;\n" ) ;
  115. fwrite(save , "}\n" ) ;
  116. format ( str , 240 , "{FFFFFF}Your command {FF8800}/%s {FFFFFF}was created. {FF0000}Enter in scriptfiles to find your command !",inputtext);
  117. SendClientMessage ( playerid , -1, str );
  118. }
  119. else if( Type [ playerid ] == 1)
  120. {
  121. fwrite(save , "/*Command creator by HY\n" ) ;
  122. fwrite(save , "Please don't remove the credits:\n" ) ;
  123. fwrite(save , "zcmd command :*/\n" ) ;
  124. fwrite(save , "#include <a_samp>\n" );
  125. fwrite(save , "#include <zcmd>\n\n\n" );
  126. format(str , 800 , "CMD:%s ( playerid , params [ ] )\n",inputtext);
  127. fwrite(save , str ) ;
  128. fwrite(save , "{\n" ) ;
  129. fwrite(save , "\tif(!IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
  130. fwrite(save , "\t{\n" ) ;
  131. format(str , 800 , "\t\tSetPlayerPos(playerid , %f , %f , %f );\n\t\tSetPlayerFacingAngle (playerid , %f);\n",p_X , p_Y , p_Z , p_Ang);
  132. fwrite(save , str ) ;
  133. fwrite(save , "\t}\n" ) ;
  134. fwrite(save , "\telse if(IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
  135. fwrite(save , "\t{\n" ) ;
  136. format(str , 800 , "\t\tSetVehiclePos(GetPlayerVehicleID(playerid) , %f , %f , %f );\n\t\tSetVehicleZAngle (GetPlayerVehicleID(playerid) , %f);\n",p_X , p_Y , p_Z , p_Ang);
  137. fwrite(save , str ) ;
  138. fwrite(save , "\t}\n" ) ;
  139. fwrite(save , "\treturn 1;\n" ) ;
  140. fwrite(save , "}\n" ) ;
  141. format ( str , 240 , "{FFFFFF}Your command {FF8800}/%s {FFFFFF}was created. {FF0000}Enter in scriptfiles to find your command !",inputtext);
  142. SendClientMessage ( playerid , -1, str );
  143. }
  144. else if( Type [ playerid ] == 2)
  145. {
  146. fwrite(save , "/*Command creator by HY\n" ) ;
  147. fwrite(save , "Please don't remove the credits:\n" ) ;
  148. fwrite(save , "YCMD command :*/\n" ) ;
  149. fwrite(save , "#include <a_samp>\n" );
  150. fwrite(save , "#include <YSI\\y_commands>\n\n\n" );
  151. format(str , 800 , "YCMD:%s ( playerid , params [ ] ,help )\n",inputtext);
  152. fwrite(save , str ) ;
  153. fwrite(save , "{\n" ) ;
  154. fwrite(save , "\tif(!IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
  155. fwrite(save , "\t{\n" ) ;
  156. format(str , 800 , "\t\tSetPlayerPos(playerid , %f , %f , %f );\n\t\tSetPlayerFacingAngle (playerid , %f);\n",p_X , p_Y , p_Z , p_Ang);
  157. fwrite(save , str ) ;
  158. fwrite(save , "\t}\n" ) ;
  159. fwrite(save , "\telse if(IsPlayerInAnyVehicle ( playerid ) )\n" ) ;
  160. fwrite(save , "\t{\n" ) ;
  161. format(str , 800 , "\t\tSetVehiclePos(GetPlayerVehicleID(playerid) , %f , %f , %f );\n\t\tSetVehicleZAngle (GetPlayerVehicleID(playerid) , %f);\n",p_X , p_Y , p_Z , p_Ang);
  162. fwrite(save , str ) ;
  163. fwrite(save , "\t}\n" ) ;
  164. fwrite(save , "\treturn 1;\n" ) ;
  165. fwrite(save , "}\n" ) ;
  166. format ( str , 240 , "{FFFFFF}Your command {FF8800}/%s {FFFFFF}was created. {FF0000}Enter in scriptfiles to find your command !",inputtext);
  167. SendClientMessage ( playerid , -1, str );
  168. }
  169. else if( Type [ playerid ] == 3)
  170. {
  171. new len = strlen(inputtext);
  172. fwrite(save , "/*Command creator by HY\n" ) ;
  173. fwrite(save , "Please don't remove the credits:\n" ) ;
  174. fwrite(save , "Dcmd command :*/\n" ) ;
  175. fwrite(save , "#include <a_samp>\n\n" );
  176. fwrite(save , "#define dcmd(%1,%2,%3) if ((strcmp((%3)[1], #%1, true, (%2)) == 0) && ((((%3)[(%2) + 1] == 0) && (dcmd_%1(playerid, "")))||(((%3)[(%2) + 1] == 32) && (dcmd_%1(playerid, (%3)[(%2) + 2]))))) return 1\n" );
  177. fwrite(save,"\n\n\npublic OnPlayerCommandText(playerid,cmdtext[])\n{\n");
  178. format(str,800,"\tdcmd(%s,%d,cmdtext);\n",inputtext,len);
  179. fwrite(save,str);
  180. fwrite(save,"\treturn 1;\n");
  181. fwrite(save,"}\n");
  182. format(str , 800 , "dcmd_%s(playerid,params[])\n",inputtext);
  183. fwrite(save , str ) ;
  184. fwrite(save , "{\n" ) ;
  185. fwrite(save , "\t#pragma unused params\n" ) ;
  186. fwrite(save , "\tif(!IsPlayerInAnyVehicle(playerid))\n" ) ;
  187. fwrite(save , "\t{\n" ) ;
  188. format(str , 800 , "\t\tSetPlayerPos(playerid, %f, %f, %f);\n\t\tSetPlayerFacingAngle(playerid, %f);\n",p_X , p_Y , p_Z , p_Ang);
  189. fwrite(save , str ) ;
  190. fwrite(save , "\t}\n" ) ;
  191. fwrite(save , "\telse if(IsPlayerInAnyVehicle(playerid))\n" ) ;
  192. fwrite(save , "\t{\n" ) ;
  193. format(str , 800 , "\t\tSetVehiclePos(GetPlayerVehicleID(playerid), %f, %f, %f);\n\t\tSetVehicleZAngle(GetPlayerVehicleID(playerid), %f);\n",p_X , p_Y , p_Z , p_Ang);
  194. fwrite(save , str ) ;
  195. fwrite(save , "\t}\n" ) ;
  196. fwrite(save , "\treturn 1;\n" ) ;
  197. fwrite(save , "}\n" ) ;
  198. format ( str , 240 , "{FFFFFF}Your command {FF8800}/%s {FFFFFF}was created. {FF0000}Enter in scriptfiles to find your command !",inputtext);
  199. SendClientMessage ( playerid , -1, str );
  200. }
  201. fclose(save);
  202. }
  203. }
  204. return 1;
  205. }
  206. CMD:createteleport( playerid , params [ ] )
  207. {
  208. if(IsPlayerAdmin ( playerid ) )
  209. {
  210. ShowPlayerDialog(playerid, TeleportDialog1 , DIALOG_STYLE_MSGBOX , "Teleport Creator" , "Are you sure you want to create your teleport right here?","Yes","No");
  211. }
  212. else if( !IsPlayerAdmin ( playerid ) ) return SendClientMessage ( playerid , -1 , "You are not authorized to use this command !" );
  213. return 1 ;
  214. }
  215. stock IsNumeric(string[])
  216. {
  217. for (new i = 0, j = strlen(string); i < j; i++)
  218. {
  219. if (string[i] > '9' || string[i] < '0') return 0;
  220. }
  221. return 1;
  222. }
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!