http://sampforum.hu/index.php?topic=17527.0
Ezzel minden félét tudsz csinálni, csak a mentéseket kell átírni

http://forum.sa-mp.com/showthread.php?t=217076

Hello!
Azt vettem észre, hogy sok helyen bugos, ill. laggot okoz az OnPlayerUpdate miatt. Íme egy egyszerûbb megoldás, laggmentes, és remélhetõleg nem bugos.
 

/*
Adminszolgálat színek:
- 0. Kikapcsolva
- 1. Citromsárga
- 2. Piros
- 3. Kék
- 4. Zöld
- 5. Fehér
*/
#include < a_samp >
#include < zcmd >
#include < sscanf2 >
#define COLOR_YELLOW 0xFFFF00AA
#define COLOR_RED 0xFF0000AA
#define COLOR_BLUE 0x0037ffAA
#define COLOR_GREEN 0x33AA33AA
#define COLOR_WHITE 0xFFFFFFAA
#undef MAX_PLAYERS
#define MAX_PLAYERS 30 // Szerver férõhelye
new asz[MAX_PLAYERS];
new Text3D:at[MAX_PLAYERS];
stock ASZ(playerid,ertek)
{
new str[30],str2[128];
asz[playerid] = ertek;
if(ertek == 0) return SendClientMessage(playerid, COLOR_WHITE, \"Adminszolgálat kikapcsolva.\") , Delete3DTextLabel(at[playerid]);
if(ertek == 1) return SendClientMessage(playerid, COLOR_WHITE, \"Adminszolgálat bekapcsolva. (Citromsárga)\"), Update3DTextLabelText(at[playerid],COLOR_YELLOW,\"Admin szolgálatban\");
if(ertek == 2) return SendClientMessage(playerid, COLOR_WHITE, \"Adminszolgálat bekapcsolva. (Piros)\"), Update3DTextLabelText(at[playerid],COLOR_RED,\"Admin szolgálatban\");
if(ertek == 3) return SendClientMessage(playerid, COLOR_WHITE, \"Adminszolgálat bekapcsolva. (Kék)\") , Update3DTextLabelText(at[playerid],COLOR_BLUE,\"Admin szolgálatban\");
if(ertek == 4) return SendClientMessage(playerid, COLOR_WHITE, \"Adminszolgálat bekapcsolva. (Zöld)\") , Update3DTextLabelText(at[playerid],COLOR_GREEN,\"Admin szolgálatban\");
if(ertek == 5) return SendClientMessage(playerid, COLOR_WHITE, \"Adminszolgálat bekapcsolva. (Fehér)\"), Update3DTextLabelText(at[playerid],COLOR_WHITE,\"Admin szolgálatban\");
GetPlayerName(playerid, str,30);
if(ertek != 0) return format(str2,128,\"%s adminszolgálatba lépett.\",str), SendClientMessageToAll(COLOR_RED,str2);
if(ertek == 0) return format(str2,128,\"%s kilépett az adminszolgálatból.\",str),SendClientMessageToAll(COLOR_RED,str2) ;
Attach3DTextLabelToPlayer(at[playerid], playerid, 0.0, 0.0, 0.5);
return 1;
}
CMD:duty(playerid,params[])
{
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, COLOR_RED, \"Nem vagy admin...\");
new szin;
if(sscanf(params,\"d\",szin)) return SendClientMessage(playerid, COLOR_RED, \"Használat: /duty < 0-5 >\");
if(szin <= 1|| szin >= 6) return SendClientMessage(playerid, COLOR_WHITE,\"Minimum: 0 - Max: 5.\");
if(szin == 0) return ASZ(playerid,0);
if(asz[playerid] == 0)
{
if(szin == 1) return ASZ(playerid,1);
if(szin == 2) return ASZ(playerid,2);
if(szin == 3) return ASZ(playerid,3);
if(szin == 4) return ASZ(playerid,4);
if(szin == 5) return ASZ(playerid,5);
}
else return SendClientMessage(playerid, COLOR_RED,\"Már szolgálatban vagy...\");
return 1;
}
public OnPlayerConnect(playerid)
{
asz[playerid] = 0;
at[playerid] = Create3DTextLabel(\"-\", 0xFF0000FF, 0.0, 0.0, 0.0, 20, 0, 1);
return 1;
}
public OnPlayerDisconnect(playerid)
{
Delete3DTextLabel(at[playerid]);
return 1;
}
public OnFilterScriptInit()
{
print(\"Bence adminszolgálat script betöltve.\");
return 0;
}

http://sampforum.hu/index.php?topic=23586.0

[pawn]CMD:c(playerid, params[])
{
if(IsPlayerConnected(playerid))
{
new car, color1, color2, Float:F, Float:X, Float:Y, Float:Z, string[128], int1;
if(sscanf(params, \"ddd\", car, color1, color2)) return SendClientMessage(playerid, NARANCS, \"Használat: /c [Név / ID] [szín 1] [szín 2]\");
    GetPlayerPos(playerid, X,Y,Z);
    GetPlayerFacingAngle(playerid, F);
    if(SpawnedVehicles[playerid] != 0) DestroyVehicle(SpawnedVehicles[playerid]);
SpawnedVehicles[playerid] = CreateVehicle(car, X+3,Y,Z,F, color1, color2, -1);
new LVehicleID = GetVehicleModelIDFromName(params);
car = GetVehicleModelIDFromName(params);
LinkVehicleToInterior(LVehicleID,int1);
PlayerPlaySound(playerid,1085,0,0,0);
format(string, 128, \"{33AA33}Lekértél egy {FFFF00}%s -t! | {33CCFF}Színei: {FFFF00}%i, %i\", VehicleNames[car-400], color1, color2);
SendClientMessage(playerid, -1, string);
PutPlayerInVehicle(playerid,SpawnedVehicles[playerid],0);
}
return 1;
}[/pawn]

Átraktam mindet sampforumra

Hello. Csináltam nektek egy szavazás rendszert.
Be kell írni, hogy: /votestart és elindítja a szavazást.
Tesztelve, hibátlanul mûködik.
Lényege:
Mikor beírod, hogy /votestart, kihoz egy dialogot, oda be kell írni a kérdést. Utána még egyet, oda az 1-es választ.
Aztán még egyet,oda a 2-es választ. Miután ezzel kész megmutatja hogy fog kinézni, aztán megkérdezi, hogy elküldöd-e vagy sem. Miután rámentünk az elküldésre, az összes emberkének a szerveren kihozza a szavazás dialogot az általad megadott adatokkal. Ilyenkor mindenki szavaz, miután vége a szavazásnak kiírja hogy melyik nyert. Ha döntetlen azt is, ha nem szavaztak, azt is.
Érdekességek:
Ha megnyitod a Filterscriptet, definálva van minden. Be tudod állítani ott hogy mi legyen a Kérdés limitje, stb..
Így el lehet kerülni, hogy ne regényt írjanak, és csússzon el az egész.
Így vannak a definíciók:
 

#define KERDESLIMIT 70 //Átírhatod arra, ami tetszik.
#define VALASZ1LIMIT 6 //Ezt is
#define VALASZ2LIMIT 6 //Ezt is
#define VOTEENDTIME 30 //A cucc másodpercben méri a dolgokat. Alap 30mp van beállítva. természetesen megváltoztathatod

 
Másik érdekesség:
A mondatok szépen, színezve vannak.
Letöltés:
Pwn: http://solidfiles.com/d/2b3e/
Amx: http://solidfiles.com/d/3ad9b/
Érdemes kipróbálni!