GTA Közösség - A magyar GTA fórum

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => A témát indította: Ricsey - 2011. Április 25. - 19:58:44

Cím: DMPack
Írta: Ricsey - 2011. Április 25. - 19:58:44
Hali unalmamba irtam egy scriptet ami a DMPack nevet kapta
Tartalma
 

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]
Cím: DMPack
Írta: Flash - 2011. Április 26. - 11:18:59
szép lett! grat!:D
Am hogy kel beszínezni a}{() meg ezekert pirosan?
Cím: DMPack
Írta: [SWAT]Messi - 2011. Április 26. - 11:23:24
Idézetet írta: XzibiT date=1303809539\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"7731\" data-ipsquote-contentclass=\"forums_Topic
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.
Cím: DMPack
Írta: Buba - 2011. Április 27. - 13:41:41
Jó:) Dialogos jobban nézne ki :D De így is jó
Cím: DMPack
Írta: Ricsey - 2011. Május 04. - 17:28:14
Köszi mindenkinek át tettem más tárhelyre úgy egyszerûbb :D
Cím: DMPack
Írta: TengeriMalac - 2011. Május 04. - 21:04:35
õõ izéé.. szerintem kissé televan hibával..
 
CMD:orokelet(playerid,params&#91;])
{
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;
}

 
elõször ad neki pénzt, utána elveszi? hogy is van ez?