CreateFullPickup

///////////////////////////////////////////////////INCLUDE
/**********************************
 *                                *
 *   @Author:      Stuneris       *
 *   @Version:     0.1            *
 *   @Released:    2011/08/06     *
 *   @Updated:     -              *
 *                                *
 **********************************/

#if defined _cfp_included
#endinput
#endif
#define _cfp_included

#define Pickup:%0(%1) forward pickup_%0(%1); public pickup_%0(%1)
#define CreateFullPickup(%0,%1,%2,%3,%4,%5) (%0) = CreatePickup(%1, %2, %3, %4, %5, -1); pickupu_funkcijos[%0] = #%0

new pickupu_funkcijos[2000][20];

public OnPlayerPickUpPickup(playerid, pickupid)
{
    new funkcija[30];
    format(funkcija, sizeof(funkcija), "pickup_%s", pickupu_funkcijos[pickupid]);
    if(funcidx(funkcija) != -1) CallLocalFunction(funkcija, "d", playerid);
    return 1;
}
///////////////////////////////////////////////////SCRIPT
/*
                PERSKAITYK, KAD NEKILTŲ KLAUSIMŲ NAUDOJANT!

________________________________APRAŠYMAS_______________________________________
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
Mintis kilo iš naujokų klausimų "kodėl nekreguoja pickup'as?".
Taigi, kad sumažėtu tokie klausimai sukuriu šitą script'ą.
Jo naudojimas labai paprastas. Sukuriame pickup'ą:
________________________________________________________________________________

CreateFullPickup(Funkcijos pavadinimas, Pickup model, Pickup type, Pos X, Pos Y, Pos Z);

CreateFullPickup(Info, 1239, 2, 0.0, 0.0, 0.0);
________________________________________________________________________________

Tada sukuriame funkcija(pavadinimas kaip pickup'e) ir joje rašome ką pickup'as atliks.
Pavyzdys:
________________________________________________________________________________

Pickup:Info(playerid)
{
    SendClientMessage(playerid, -1, "CreateFullPickup v0.1");
}
________________________________________________________________________________

Ir galiausiai sukuriame funkcijos pavadinimo kintamajį:
________________________________________________________________________________

new Info;
________________________________________________________________________________

_________________________________KREDITAI_______________________________________
¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
+ Include's kurtos SA-MP komandos.
+ Script'ą rašė Stuneris.
+ Didelis ačiū Arnoldas už pagalbą.
                                                                                */

#include <a_samp>
#include <cfp>

new Info;

public OnFilterScriptInit()
{
    CreateFullPickup(Info, 1239, 2, 0.0, 0.0, 0.0);
    return 1;
}

Pickup:Info(playerid)
{
    SendClientMessage(playerid, -1, "CreateFullPickup v0.1");
}