Advertisement
LoriYagami

H-Pickup 1.2

Jan 30th, 2017
159
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Pawn 2.18 KB | None | 0 0
  1. //===============================================================================
  2. //|                 This Script Originaly Made by Haikal Bintang                |
  3. //===============================================================================
  4.  
  5. #include <a_samp>
  6. #include <zcmd>
  7. #include <mSelection>
  8.  
  9. #define DIALOG_PICKUP_TEXT 9999
  10.  
  11. new pickuptext[256];
  12. new pickuplist = mS_INVALID_LISTID;
  13.  
  14. public OnFilterScriptInit()
  15. {
  16.     pickuplist = LoadModelSelectionMenu("pickup.txt");
  17.     print("H-Pickup created by Haikal Bintang.");
  18.     return 1;
  19. }
  20.  
  21. public OnPlayerModelSelection(playerid, response, listid, modelid)
  22. {
  23.     new string[256], Float:X, Float:Y, Float:Z;
  24.     if((listid == pickuplist) && response)
  25.     {
  26.         GetPlayerPos(playerid, X, Y, Z);
  27.  
  28.         new File:pos=fopen("createdpickup.txt", io_append);
  29.         format(string, 256, "CreatePickup(%i, 23, %f, %f, %f, %i)\r\n",  modelid, X, Y, Z, GetPlayerVirtualWorld(playerid));
  30.         fwrite(pos, string);
  31.         format(string, 256, "Create3DTextLabel(%s, 0xFFFFFFAA, %f, %f, %f, 5.0, %i)\r\n", pickuptext, X, Y, Z+0.50,         GetPlayerVirtualWorld(playerid));
  32.         fwrite(pos, string);
  33.         fclose(pos);
  34.         CreatePickup(modelid, 23, X, Y, Z, GetPlayerVirtualWorld(playerid));
  35.         Create3DTextLabel(pickuptext, 0xFFFFFFAA, X, Y, Z+0.50, 5.0, GetPlayerVirtualWorld(playerid));
  36.         SendClientMessage(playerid, -1, "{FFFFFF}Pickup telah dibuat, ketik /createpickup untuk membuat lagi.");
  37.     }
  38.     return 1;
  39. }
  40.  
  41. public OnPlayerSpawn(playerid)
  42. {
  43.     SendClientMessage(playerid, -1, "{FFFFFF}Ketik /createpickup untuk membuat sebuah pickup.");
  44.     return 1;
  45. }
  46.  
  47. CMD:createpickup(playerid, params[])
  48. {
  49.     ShowPlayerDialog(playerid, DIALOG_PICKUP_TEXT, DIALOG_STYLE_INPUT, "Pickup Text", "Masukan text pickup di bawah ini :\nContoh di In-Game [Tekan [ENTER] untuk masuk]", "Create", "Cancel");
  50.     return 1;
  51. }
  52.  
  53. public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
  54. {
  55.     if(dialogid == DIALOG_PICKUP_TEXT)
  56.     {
  57.         if(response)
  58.         {
  59.             format(pickuptext, sizeof(pickuptext), "%s", inputtext);
  60.             ShowModelSelectionMenu(playerid, pickuplist, "Pilih Jenis Pickup");
  61.         }
  62.     }
  63.     return 0;
  64. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement