H-Pickup 1.1

//===============================================================================
//|                 This Script Originaly Made by Haikal Bintang                |
//===============================================================================

#include <a_samp>
#include <zcmd>
#include <mSelection>

new pickuplist = mS_INVALID_LISTID;

public OnFilterScriptInit()
{
    pickuplist = LoadModelSelectionMenu("pickup.txt");
    print("H-Pickup created by Haikal Bintang.");
    return 1;
}

public OnPlayerModelSelection(playerid, response, listid, modelid)
{
    new string[256], Float:X, Float:Y, Float:Z;
    if((listid == pickuplist) && response)
    {
        GetPlayerPos(playerid, X, Y, Z);

        new File:pos=fopen("createdpickup.txt", io_append);
        format(string, 256, "CreatePickup(%i, 23, %f, %f, %f, %i)\r\n",  modelid, X, Y, Z, GetPlayerVirtualWorld(playerid));
        fwrite(pos, string);
        fclose(pos);
        CreatePickup(modelid, 23, X, Y, Z, GetPlayerVirtualWorld(playerid));
        SendClientMessage(playerid, -1, "{FFFFFF}Pickup telah dibuat, ketik /createpickup untuk membuat lagi.");
    }
    return 1;
}

public OnPlayerSpawn(playerid)
{
    SendClientMessage(playerid, -1, "{FFFFFF}Ketik /createpickup untuk membuat sebuah pickup.");
    return 1;
}

CMD:createpickup(playerid, params[])
{
    ShowModelSelectionMenu(playerid, pickuplist, "Pilih Jenis Pickup");
    return 1;
}