Hali unalmamba irtam egy scriptet ami a DMPack nevet kapta
Tartalma
 

• 3 fegyver csomag


• Lehet venni örök életet


• Lehet venni életfeltöltést


• Lehet venni páncélt


• Lehet venni minigunt

Elkészítési idõ:10 perc
Letöltés
HuN.S Party Server tárhelye
Pastebin
[pawn]#include <a_samp>
#include <zcmd>
#include <fixchars>
#define SZIN_PIROS 0xFF0000AA
#define SZIN_ZOLD 0x45E01FFF
public OnFilterScriptInit()
{
        print(\"                          \\n\");
        print(\"       DMPack      \");
        print(\"\\n    by [HUN.S]DjRiCsI[5]        \");
}
CMD:orokelet(playerid,params[])
{
if(GetPlayerMoney(playerid) < 1000000) return SendClientMessage(playerid,SZIN_PIROS,\"Nincs elég pénzed\");
GivePlayerMoney(playerid, 1000000);
SetPlayerHealth(playerid,100000);
GivePlayerMoney(playerid, -1000000);
SendClientMessage(playerid,SZIN_ZOLD,\"Sikeresen vettél örök életet\");
GameTextForPlayer(playerid, \"~r~Örök élet\", 500, 3);
return 1;
}
CMD:elet(playerid,params[])
{
if(GetPlayerMoney(playerid) < 10000) return SendClientMessage(playerid,SZIN_PIROS,\"Nincs elég pénzed\");
GivePlayerMoney(playerid, -10000);
SetPlayerHealth(playerid,100);
SendClientMessage(playerid,SZIN_ZOLD,\"Sikeresen vettél életet\");
GameTextForPlayer(playerid, \"~r~Élet\", 500, 3);
return 1;
}
CMD:pancel(playerid, params[])
{
if(GetPlayerMoney(playerid) < 10000) return SendClientMessage(playerid,SZIN_PIROS,\"Nincs elég pénzed!\");
GivePlayerMoney(playerid, -10000);
SetPlayerArmour(playerid,100.0);
SendClientMessage(playerid,SZIN_ZOLD,\"Sikeresen megvetted a páncélt\");
return 1;
}
CMD:fegyver1(playerid, params[])
{
if(GetPlayerMoney(playerid) < 20000) return SendClientMessage(playerid,SZIN_PIROS,\"Nincs elég pénzed!\");
GivePlayerMoney(playerid, -2000);
GivePlayerWeapon(playerid, 1, 1);
GivePlayerWeapon(playerid, 22, 9000);
GivePlayerWeapon(playerid, 29, 5000);
GivePlayerWeapon(playerid, 30, 9000);
GivePlayerWeapon(playerid, 34, 30);
GivePlayerWeapon(playerid, 46, 1);
SendClientMessage(playerid,SZIN_ZOLD,\"Sikeresen megvetted az 1-es fegyvercsomagot\");
return 1;
}
CMD:fegyver2(playerid, params[])
{
if(GetPlayerMoney(playerid) < 20000) return SendClientMessage(playerid,SZIN_PIROS,\"Nincs elég pénzed!\");
GivePlayerMoney(playerid, -2000);
GivePlayerWeapon(playerid, 2, 1);
GivePlayerWeapon(playerid, 23, 9000);
GivePlayerWeapon(playerid, 28, 5000);
GivePlayerWeapon(playerid, 31, 9000);
GivePlayerWeapon(playerid, 33, 30);
GivePlayerWeapon(playerid, 44, 1);
SendClientMessage(playerid,SZIN_ZOLD,\"Sikeresen megvetted a 2-es fegyvercsomagot\");
return 1;
}
CMD:fegyver3(playerid, params[])
{
if(GetPlayerMoney(playerid) < 20000) return SendClientMessage(playerid,SZIN_PIROS,\"Nincs elég pénzed!\");
GivePlayerMoney(playerid, -2000);
GivePlayerWeapon(playerid, 4, 1);
GivePlayerWeapon(playerid, 24, 9000);
GivePlayerWeapon(playerid, 28, 5000);
GivePlayerWeapon(playerid, 32, 9000);
GivePlayerWeapon(playerid, 33, 30);
GivePlayerWeapon(playerid, 43, 1);
SendClientMessage(playerid,SZIN_ZOLD,\"Sikeresen megvetted a 3-as fegyvercsomagot\");
return 1;
}
CMD:minigun(playerid, params[])
{
if(GetPlayerMoney(playerid) < 1000000) return SendClientMessage(playerid,SZIN_PIROS,\"Nincs elég pénzed!\");
GivePlayerMoney(playerid, -1000000);
GivePlayerWeapon(playerid, 38, 1000);
SendClientMessage(playerid,SZIN_ZOLD,\"Sikeresen megvetted a minigunt\");
return 1;
}[/pawn]

szép lett! grat!:D
Am hogy kel beszínezni a}{() meg ezekert pirosan?
 

Magától színezi ha a  Pawn jelre kattolsz és az közé illeszted be a kódot.

Köszi mindenkinek át tettem más tárhelyre úgy egyszerûbb