eléggé jó lett   ha jól látom a dialogot az én scriptemböl vetted GRAT igy tovább
 

//=================[Pedrito]==================//
//Ez egy dialogos fegyver rendszer by Pedrito//
//=================[Pedrito]================//
#include <a_samp>
#include <zcmd>
public OnFilterScriptInit()
{
    print(\"=============================\");
print(\"Fegyver rendszer by Pedrito\");
print(\"=============================\");
return 1;
}
CMD:weapon(playerid){
ShowPlayerDialog(playerid,1987,DIALOG_STYLE_LIST,\"Fegyverek\",\"Colt45 [760$]\\nSilenced [1500$]\\nShotgun [850$]\\nUzi [1125$]\\nMP5 [1450$]\\nAK47 [2000$]\\nM4 [2150$]\\nTec 9 [1175$]\\nRifle [1230$]\\nMesterlövész [2500$]\\nSray [500$]\\nPorolto [750$]\\nEjtõernyõ [3000$]\\nFüst gáz [2000$]\\nKatana [6000$]\\nMolotov koktél [10000$]\",\"Megveszem\",\"Kilépés\");//ide vannak felsorolva a fegyverek!FONTOS HOGY A n\\ OTT LEGYEN!
return 1;}
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == 1987)
{
if(listitem == 0){
if(GetPlayerMoney(playerid) < 760) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
GivePlayerWeapon(playerid,22,500);//milyen fegyver és a töltény szám
GivePlayerMoney(playerid,-760);//mennyi pénzt vegyen le a playertõl
SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Colt45 tipusú fegyvert ! Közelharcra kiváló!\");//Ez a szöveg
}
    if(listitem == 1){
    if(GetPlayerMoney(playerid) < 1500) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,23,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-1500);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Silencedet ! Ha Hitmant játszol tökéletes!\");//Ez a szöveg
    }
    if(listitem == 2){
    if(GetPlayerMoney(playerid) < 850) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,25,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-850);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Shotgunt ! Közel harcra megfelelõ!\");//Ez a szöveg
    }
    if(listitem == 3){
    if(GetPlayerMoney(playerid) < 1125) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,28,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-1125);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Uzi-t ! Ha bandást játszól a legjobb fegyvert választottad!\");//Ez a szöveg
    }
    if(listitem == 4){
    if(GetPlayerMoney(playerid) < 1450) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,29,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-1450);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy MP5-öt ! Távolharcra nem annyira alkalmas de közelharcra veszélyes lehet!\");//Ez a szöveg
    }
    if(listitem == 5){
    if(GetPlayerMoney(playerid) < 2000) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,30,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-2000);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Ak47-et ! Távolharcra nagyon alkalmas és erõs lõfegyver!\");//Ez a szöveg
    }
    if(listitem == 6){
    if(GetPlayerMoney(playerid) < 2150) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,31,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-2150);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy M4-et ! Távolharcra tökéletes!Ezt használja a SWAT is!\");//Ez a szöveg
    }
    if(listitem == 7){
    if(GetPlayerMoney(playerid) < 1675) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,32,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-1675);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy TEC 9-et ! Ha gyorsan akarsz valakit elintétni akkor jót választottál!\");//Ez a szöveg
    }
    if(listitem == {
    if(GetPlayerMoney(playerid) < 1230) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! ]\");
    GivePlayerWeapon(playerid,33,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-1230);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Riflet ! Vadászatra tökéletes!\");//Ez a szöveg
    }
    if(listitem == 9){
    if(GetPlayerMoney(playerid) < 2500) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,34,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-2500);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Snipert ! Ha titokban akarok kivégezni az ellenséget akkor jót választottál!\");//Ez a szöveg
    }
    if(listitem == 10){
    if(GetPlayerMoney(playerid) < 500) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,41,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-500);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Spray-t ! Grafitizni tökéletes egy bandás számára!\");//Ez a szöveg
    }
    if(listitem == 11){
    if(GetPlayerMoney(playerid) < 750) return SendClientMessage(playerid, -1, \"Nincs elég pénzed!\");
    GivePlayerWeapon(playerid,42,500);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-750);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy poroltót ! Tûz oltásra a legalkalmasabb!\");//Ez a szöveg
    }
    if(listitem == 12){
    if(GetPlayerMoney(playerid) < 3000) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! []\");
    GivePlayerWeapon(playerid,46,1);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-3000);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy ejtõernyõt ! Magasugráshoz tökéletes!\");//Ez a szöveg
    }
    if(listitem == 13){
    if(GetPlayerMoney(playerid) < 2000) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,17,25);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-2000);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Füst gáz-t ! Tömegoszlató fegyver!\");//Ez a szöveg
    }
    if(listitem == 14){
    if(GetPlayerMoney(playerid) < 6000) return SendClientMessage(playerid, -1, \"Nincs elég pénzed! \");
    GivePlayerWeapon(playerid,8,1);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-6000);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Katanát ! A Japánok kultúrájához tartozik!\");//Ez a szöveg
    }
    if(listitem == 15){
    if(GetPlayerMoney(playerid) < 10000) return SendClientMessage(playerid, -1, \"Nincs elég pénzed!\");
    GivePlayerWeapon(playerid,18,75);//milyen fegyver és a töltény szám
    GivePlayerMoney(playerid,-10000);//mennyi pénzt vegyen le a playertõl
    SendClientMessage(playerid,0xFFFFCCAA,\"Vettél egy Molotov koktélt ! Vandalizmust nem lehet cisnálni ez az eszköz nélkül.\");//Ez a szöveg
    }
return 1;
    }
    return 0;
}

Zyzu, te meg még mindig nem tudol helyesen írni, és most mért kell beleszólnod mások \"vitájába\"?
 

Ja, meg olyanba üti a dolgát, aminek nem látja át a jellegét. ZyZu egy hõbörgõ jellemtelen birka.

---

BlackJack link=topic=31471.msg369873#msg369873 date=1354632335]
Borzaszto mennyi pazarlas...ezt konyeben is meg lehet :facepalm:
 
[/quote]
Te is borzasztó vagy, cs.

---

Nem lett rossz a pazarlást leszámítva, kezdésként jó lesz megoldásnak, de gondolom nem hosszútávra fogja senki sem alkalmazni..
 
[/quote]
Te mindenkit le nezel?nez mar magadra te sz*r*ncs*tl*n ne b*zd fel azagyamat mert szet szedlek.  :grrrrr:
Igy nezne ki az enyem:
 

CMD:re(playerid){
if(!fexist(\"van.txt\")){
new File:create = fopen(\"van.txt\", io_write);
if(create) fclose(create);}
return 1;}
CMD:teszt(playerid){
if(!fexist(\"van.txt\")) return SendClientMessage(playerid, -2, \"Ezt a parancsot mar nem hasznalhatod!\");
fremove(\"van.txt\");}
return 1;
}

 
Amugy irj szin definiciot a \"red\" szinek mert sokaknak ez nagy teher.  :facepalm:
pl.
#define red (COLOR KOD)