#include <a_samp>
#include <zcmd>
#define TESTDIALOG 2399
CMD:testdialog(playerid, params[])
{
ShowPlayerDialog(playerid, TESTDIALOG, DIALOG_STYLE_LIST, \"Test1\", \"Test1\\nTest2\", \"Mehet!\", \"Mégse\");
return 1;
}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
switch(dialogid)
{
case TESTDIALOG:
{
if(!response)
{
// Ha a nemet választja, akkor mi legyen.
return 1;
}
switch(listitem)
{
case 0:
{
ShowPlayerDialog(playerid, TESTDIALOG+1, DIALOG_STYLE_LIST, \"Test1\", \"Test1\\nTest2\", \"Mehet!\", \"Mégse\");
}
case 1:
{
ShowPlayerDialog(playerid, TESTDIALOG+2, DIALOG_STYLE_LIST, \"Test1\", \"Test1\\nTest2\", \"Mehet!\", \"Mégse\");
}
}
}
case TESTDIALOG+1:
{
if(!response)
{
// Ha a nemet választja, akkor mi legyen.
return 1;
}
switch(listitem)
{
case 0:
{
ShowPlayerDialog(playerid, TESTDIALOG+1, DIALOG_STYLE_LIST, \"Test1\", \"Test1\\nTest2\", \"Mehet!\", \"Mégse\");
}
case 1:
{
ShowPlayerDialog(playerid, TESTDIALOG+2, DIALOG_STYLE_LIST, \"Test1\", \"Test1\\nTest2\", \"Mehet!\", \"Mégse\");
}
}
}
// stb.
}
return 0;
}

 
Színezés:
 

ShowPlayerDialog(......, \"{000000} Ez\\n{FFFFFF}Egy színes dialog\",....);

Azon, amin jelentkeztél / jelentkeztem.
Bartnak nem lesz sok dolga, mivel kevés bug van a szerveren, mert üres. De majd kipofázom valamennyire.

/*
Adminszolgálat szkript
Készítõ: Sheet - 2011
*/
//----------------------
#include <a_samp>
//----------------------
#define COLOR_RED 0xFF0000FF
#define COLOR_GREEN 0x008000FF
#define COLOR_YELLOW 0xFFFF00FF
//----------------------
new Text3D: ASZ;
new bool: Adminszolgalat[MAX_PLAYERS];
//----------------------
public OnFilterScriptInit() {SendClientMessageToAll(COLOR_GREEN, \"Sheet adminszolgálat betöltve!\"); print(\"Sheet adminszolgálat betöltve!\"); return 1;}
public OnFilterScriptExit() {SendClientMessageToAll(COLOR_GREEN, \"Sheet adminszolgálat kikapcsolva!\"); print(\"Sheet adminszolgálat kikapcsolva!\"); return 1;}
public OnPlayerCommandText(playerid, cmdtext[])
{
new sendername[MAX_PLAYER_NAME];
new string[128];
if (strcmp(\"/aduty\", cmdtext, true) == 0)
{
    if(IsPlayerConnected(playerid))
    {
   if(IsPlayerAdmin(playerid))
   {
       if(Adminszolgalat[playerid] == false)
       {
         ASZ = Create3DTextLabel(\"RCON Admin Szolgálatban\", COLOR_RED, 0.0, 0.0, 2.0, 40, 0, 0);
         Attach3DTextLabelToPlayer(ASZ, playerid, 0.0, 0.0, 0.4);
                     for(new i = 0; i < MAX_PLAYERS; i++) ShowPlayerNameTagForPlayer(playerid, i, true);
                     GetPlayerName(playerid, sendername, sizeof(sendername));
                     SendClientMessageToAll(COLOR_GREEN, \"-------------------------------\");
         format(string, sizeof(string),      \"RCON admin %s szolgálatba lépett!\", sendername);
         SendClientMessageToAll(COLOR_YELLOW,string);
         SendClientMessageToAll(COLOR_GREEN, \"-------------------------------\");
         Adminszolgalat[playerid] = true;
      }
      else if(Adminszolgalat[playerid] == true)
      {
         Delete3DTextLabel(ASZ);
             for(new i = 0; i < MAX_PLAYERS; i++) ShowPlayerNameTagForPlayer(playerid, i, false);
                   GetPlayerName(playerid, sendername, sizeof(sendername));
             SendClientMessageToAll(COLOR_GREEN, \"-------------------------------\");
         format(string, sizeof(string),      \"RCON admin %s kilépett a szolgálatból!\", sendername);
         SendClientMessageToAll(COLOR_YELLOW,string);
         SendClientMessageToAll(COLOR_GREEN, \"-------------------------------\");
         Adminszolgalat[playerid] = false;
      }
   }
   else return SendClientMessage(playerid, COLOR_RED, \"Nem vagy RCON admin!\");
}
return 1;
}
return 0;
}

CMD:savevehicles(playerid,params[])
{
new i=1,str[128],Float:vX,Float:vY,Float:vZ,Float:vA;
new File:hFile;
hFile = fopen(\"vehicles.txt\", io_append);
while(GetVehicleModel(i))
{
    GetVehiclePos(i,vX,vY,vZ);
    GetVehicleZAngle(i,vA);
    format(str,sizeof str,\"CreateVehicle(%d, %.4f, %.4f, %.4f, %.4f, %d, %d, %d); \\r\\n\",GetVehicleModel(i),vX,vY,vZ,vA,-1,-1,-1);
       if (hFile) fwrite(hFile, str);
       i++;
}
fclose(hFile);
format(str,sizeof str,\"Sikeresen lementettél %d darab jármûvet!\",i);
SendClientMessage(playerid,0xFFFFFFFF,str);
return 1;
}

 
Vagy
 

public OnVehicleSpawn(vehicleid)
{
new str[128],Float:vX,Float:vY,Float:vZ,Float:vA;
new File:hFile;
hFile = fopen(\"vehicles.txt\", io_append);
    GetVehiclePos(vehicleid,vX,vY,vZ);
    GetVehicleZAngle(vehicleid,vA);
    format(str,sizeof str,\"CreateVehicle(%d, %.4f, %.4f, %.4f, %.4f, %d, %d, %d); \\r\\n\",GetVehicleModel(vehicleid),vX,vY,vZ,vA,-1,-1,-1);
if (hFile) fwrite(hFile, str);
fclose(hFile);
return 1;
}

 
Zeli készítette.

Skatefield, ki volt?

ja amúgy készenvagyok, még finomítok rajta kicsit és kész

Sziasztok.
StaR vagyok, aki RPben ismert meg, annak Mich. Több fórumot is moderálok, szerintem sikeresen. A fórumon elég régóta vagyok tag (Pontosan ma van 2 éve, hogy tag vagyok. (21órakor lesz)), tehát ismerem a köröket. Lehet kicsit sok, de az alábbiakat szeretném moderálni: Segítség, Szkript kérések, Bemutatkozás. SA-MPban is elég régóta vagyok, tehát több klánban voltam. Fórumra visszatérve, általában be szoktam nézni sokszor a Segítség, Szkript kérésekbe és ha nem válaszoltak még rá, próbálok segíteni. Bemutatkozás meg szerintem kicsit elhanyagolt, ezért jelentkezek oda.