Írta: gbr333 - 2014. Augusztus 10. - 11:50:08
![\"Safe.png\"](\"http://individual.icons-land.com/IconsPreview/BaseSoftware/PNG/48x48/Safe.png\"){kind=icon}
rSafeInformációk:
Készítõ:Rolux
Elkészítési idõ 1 óra
Sorok száma:238
Parancsok:
/ujszef - Létrehozol egy új széfet ((Csak rCon admin használhatja))
/szefnyit <jelszó> - Kinyitod a legközelebbi széfet((Ha jó a jelszó :d))
/szefzar - Bezárod a széfet
/szefpenz - Megnézed a széfben lévõ pénzt
/szefbetesz <összeg> - Egy adott mennyiségû pénzt teszel a széfbe
/szefkivesz <összeg> - Egy adott mennyiségû pénzt veszel ki a széfbõl
Képek:
[hs width=300 height=300]http://kepfeltoltes.hu/140811/sa-mp-007_www.kepfeltoltes.hu_.png[/hs]
![http://kepfeltoltes.hu/140811/sa-mp-007_www.kepfeltoltes.hu_.png](\"http://kepfeltoltes.hu/140811/sa-mp-007_www.kepfeltoltes.hu_.png\"){kind=link}
[hs width=300 height=300]http://kepfeltoltes.hu/140811/sa-mp-008_www.kepfeltoltes.hu_.png[/hs]
![http://kepfeltoltes.hu/140811/sa-mp-008_www.kepfeltoltes.hu_.png](\"http://kepfeltoltes.hu/140811/sa-mp-008_www.kepfeltoltes.hu_.png\"){kind=link}
[hs width=300 height=300]http://kepfeltoltes.hu/140810/793808861sa-mp-005_www.kepfeltoltes.hu_.png[/hs]
![http://kepfeltoltes.hu/140810/793808861sa-mp-005_www.kepfeltoltes.hu_.png](\"http://kepfeltoltes.hu/140810/793808861sa-mp-005_www.kepfeltoltes.hu_.png\"){kind=link}
Maga a kód:
http://data.hu/get/7953510/szefr.pwn
http://pastebin.com/z4V1bvk6
#include <a_samp>
#include <zcmd>
#include \"sscanf2\"
#include \"dini\"
#define MAX_SZEF 200
enum r_szef{
Float:szX,
Float:szY,
Float:szZ,
Float:szROT,
Pass[24],
Object,
Text3D:sztext,
Nyitva,
Frakcio,
Penz
}
new xfact[MAX_PLAYERS];
new xjelsz[MAX_PLAYERS][24];
new objectke[MAX_PLAYERS];
new szfile[128];
new szInfo[MAX_SZEF][r_szef];
new szefid;
CMD:ujszef(playerid,params[]){
if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid,0xff0000AA,\"»Nem vagy admin !\");
new szoveg[24],fid;
if(sscanf(params, \"s[24]d\",szoveg,fid)) return SendClientMessage(playerid,0xff0000AA,\"» Használat /újszéf » jelszó « » frakció id «\");
new Float:x, Float:y, Float:z;
GetPlayerPos(playerid, x, y, z);
objectke[playerid] = CreateObject(2332, x, y, z, 0.0, 0.0, 96.0);
EditObject(playerid, objectke[playerid]);
format(xjelsz[playerid], 24, \"%s\", szoveg);
SendClientMessage(playerid,0xff0000AA,\"» A kamera mozgatásához nyomd meg a SPACE gombot«\");
return 1;
}
CMD:szefpenz(playerid,params[])
{
for(new i; i < MAX_SZEF; i ++)
{
if(IsPlayerInRangeOfPoint(playerid, 2.0, szInfo[szX], szInfo[szY], szInfo[szZ]))
{
if(szInfo[Nyitva] == 0) return SendClientMessage(playerid,0xff0000AA,\"» Elõször nyissd ki! \");
//if(GetPVarInt(playerid,\"CurSafe\") != i) return SendClientMessage(playerid,0xff0000AA,\"» Elõször írd be a jelszót » /szefjelszo «\");
new string[128];
format(string,sizeof(string),\"A széfben lévõ pénz: %d$\",szInfo[Penz]);
SendClientMessage(playerid,0xFFFFFFAA,string);
}
}
return 1;
}
CMD:szefkivesz(playerid,params[])
{
new szoveg;
if(sscanf(params, \"d\",szoveg)) return SendClientMessage(playerid,0xff0000AA,\"» Használat /széfkivesz » összeg «\");
for(new i; i < MAX_SZEF; i ++)
{
if(IsPlayerInRangeOfPoint(playerid, 2.0, szInfo[szX], szInfo[szY], szInfo[szZ]))
{
if(szInfo[Nyitva] == 0) return SendClientMessage(playerid,0xff0000AA,\"» Elõször nyissd ki! \");
//if(GetPVarInt(playerid,\"CurSafe\") != i) return SendClientMessage(playerid,0xff0000AA,\"» Elõször írd be a jelszót » /szefjelszo «\");
if(szInfo[Penz] < szoveg) return SendClientMessage(playerid,0xff0000AA,\"»Nincs ennyi pénz a széfben!\");
if(szoveg < 1) return SendClientMessage(playerid,0xff0000AA,\"» Ne is próbálkozz !\");
szInfo[Penz] -= szoveg;
new string[128];
format(string,sizeof(string),\"Sikeresen kivettél %d$-t\",szoveg);
SendClientMessage(playerid,0xff0000AA,string);
GivePlayerMoney(playerid,szoveg);
}
}
return 1;
}
CMD:szefbetesz(playerid,params[])
{
new szoveg;
if(sscanf(params, \"d\",szoveg)) return SendClientMessage(playerid,0xff0000AA,\"» Használat /széfbetesz » összeg «\");
for(new i; i < MAX_SZEF; i ++)
{
if(IsPlayerInRangeOfPoint(playerid, 2.0, szInfo[szX], szInfo[szY], szInfo[szZ]))
{
if(szInfo[Nyitva] == 0) return SendClientMessage(playerid,0xff0000AA,\"» Elõször nyissd ki! \");
//if(GetPVarInt(playerid,\"CurSafe\") != i) return SendClientMessage(playerid,0xff0000AA,\"» Elõször írd be a jelszót » /szefjelszo «\");
if(GetPlayerMoney(playerid) < szoveg) return SendClientMessage(playerid,0xff0000AA,\"» Nincs ennyi pénzed !\");
if(szoveg < 1) return SendClientMessage(playerid,0xff0000AA,\"» Ne is próbálkozz !\");
szInfo[Penz] += szoveg;
new string[128];
format(string,sizeof(string),\"Sikeresen betettél %d$-t\",szoveg);
SendClientMessage(playerid,0xff0000AA,string);
GivePlayerMoney(playerid,-szoveg);
}
}
return 1;
}
CMD:szefnyit(playerid,params[])
{
new szoveg[24];
if(sscanf(params, \"s[24]\",szoveg)) return SendClientMessage(playerid,0xff0000AA,\"» Használat /szefjelszo » jelszó «\");
for(new i; i < MAX_SZEF; i ++)
{
if(IsPlayerInRangeOfPoint(playerid, 2.0, szInfo[szX], szInfo[szY], szInfo[szZ]))
{
if(szInfo[Nyitva] == 1) return SendClientMessage(playerid,0xff0000AA,\"» Már ki van nyitva! \");
if(!strcmp(szInfo[Pass],szoveg,false))
{
SendClientMessage(playerid,-1,\"» Sikeresen beírtad a jelszót!\");
szInfo[Nyitva] = 1;
Update3DTextLabelText(szInfo[sztext], 0x008080FF, \"Széf\\n{00ff3c}Nyitva\");
DestroyObject(szInfo[Object] );
szInfo[Object] = CreateObject(1829, szInfo[szX],szInfo[szY], szInfo[szZ], 0.0, 0.0, szInfo[szROT]);
}else{
SendClientMessage(playerid,-1,\"» Hibás jelszó !\");
}
}
}
return 1;
}
CMD:szefzar(playerid,params[])
{
for(new i; i < MAX_SZEF; i ++)
{
if(IsPlayerInRangeOfPoint(playerid, 2.0, szInfo[szX], szInfo[szY], szInfo[szZ]))
{
if(szInfo[Nyitva] == 0) return SendClientMessage(playerid,0xff0000AA,\"» Már be van zárva! \");
SendClientMessage(playerid,-1,\"» Sikeresen bezártad a széfet!\");
szInfo[Nyitva] = 0;
Update3DTextLabelText(szInfo[sztext], 0x008080FF, \"Széf\\n{ff0000}Zárva\");
DestroyObject(szInfo[Object] );
szInfo[Object] = CreateObject(2332, szInfo[szX],szInfo[szY], szInfo[szZ], 0.0, 0.0, szInfo[szROT]);
}
}
return 1;
}
public OnGameModeInit(){
for(new i; i < MAX_SZEF; i ++){
LoadSafe(i);
}
return 1;
}
public OnGameModeExit(){
for(new i; i < MAX_SZEF; i ++){
SaveSafe(i);
}
return 1;
}
public OnPlayerEditObject(playerid, playerobject, objectid, response, Float:fX, Float:fY, Float:fZ, Float:fRotX, Float:fRotY, Float:fRotZ)
{
if(response == EDIT_RESPONSE_FINAL)
{
CreateSzef(xjelsz[playerid],0,fX, fY, fZ,fRotZ,xfact[playerid]);
DestroyObject(objectke[playerid]);
xfact[playerid] = 0;
}
if(response == EDIT_RESPONSE_UPDATE)
{
}
if(response == EDIT_RESPONSE_CANCEL)
{
DestroyObject(objectke[playerid]);
}
}
stock LoadSafe(xszefid)
{
format(szfile, sizeof(szfile), \"Szefek/%d.ini\", xszefid);
if(dini_Exists(szfile))
{
szInfo[xszefid][Frakcio] = dini_Int(szfile, \"Frakció\");
szInfo[xszefid][Penz] = dini_Int(szfile, \"Tartalom\");
szInfo[xszefid][Nyitva] = dini_Int(szfile, \"Zár\");
szInfo[xszefid][szX] = dini_Float(szfile, \"X\");
szInfo[xszefid][szY] = dini_Float(szfile, \"Y\");
szInfo[xszefid][szZ] = dini_Float(szfile, \"Z\");
szInfo[xszefid][szROT] = dini_Float(szfile, \"ROT\");
format(szInfo[xszefid][Pass], 24, \"%s\", dini_Get(szfile, \"jelszó\"));
if(szInfo[xszefid][Nyitva] == 0){
szInfo[xszefid][sztext] = Create3DTextLabel(\"Széf\\n{ff0000}Zárva\", 0x008080FF, szInfo[xszefid][szX],szInfo[xszefid][szY], szInfo[xszefid][szZ]+1, 40.0, 0, 0);
szInfo[xszefid][Object] = CreateObject(2332, szInfo[xszefid][szX],szInfo[xszefid][szY], szInfo[xszefid][szZ], 0.0, 0.0, szInfo[xszefid][szROT]);
}else{
szInfo[xszefid][sztext] = Create3DTextLabel(\"Széf\\n{00ff3c}Nyitva\", 0x008080FF, szInfo[xszefid][szX],szInfo[xszefid][szY], szInfo[xszefid][szZ]+1, 40.0, 0, 0);
szInfo[xszefid][Object] = CreateObject(1829, szInfo[xszefid][szX],szInfo[xszefid][szY], szInfo[xszefid][szZ], 0.0, 0.0, szInfo[xszefid][szROT]);
}
szefid++;//
printf(\"%d széf betöltve\",xszefid);
}
}
stock SaveSafe(xszefid)
{
format(szfile, sizeof(szfile), \"Szefek/%d.ini\", xszefid);
if(dini_Exists(szfile))
{
dini_IntSet(szfile, \"Frakció\", szInfo[xszefid][Frakcio]);
dini_IntSet(szfile, \"Zár\", szInfo[xszefid][Nyitva]);
dini_IntSet(szfile, \"Tartalom\", szInfo[xszefid][Penz]);
dini_FloatSet(szfile, \"X\", szInfo[xszefid][szX]);
dini_FloatSet(szfile, \"Y\", szInfo[xszefid][szY]);
dini_FloatSet(szfile, \"Z\", szInfo[xszefid][szZ]);
dini_FloatSet(szfile, \"ROT\", szInfo[xszefid][szROT]);
dini_Set(szfile, \"Pass\", szInfo[xszefid][Pass]);
}
}
stock CreateSzef(jelsz[],xPenz,Float:X,Float:Y,Float:Z,Float:ROT,frakc)
{
szefid++;
format(szfile, sizeof(szfile), \"Szefek/%d.ini\", szefid);
dini_Create(szfile);
szInfo[szefid][Frakcio] = frakc;
szInfo[szefid][Nyitva] = 0;
szInfo[szefid][szX] = X;
szInfo[szefid][szY] = Y;
szInfo[szefid][szZ] = Z;
szInfo[szefid][szROT] = ROT;
szInfo[szefid][Penz] = xPenz;
szInfo[szefid][Object] = CreateObject(2332, X, Y, Z, 0.0, 0.0, ROT);
szInfo[szefid][sztext] = Create3DTextLabel(\"Széf\\n{ff0000}Zárva\", 0x008080FF, X, Y, Z+2, 40.0, 0, 0);
format(szInfo[szefid][Pass], 24, \"%s\", jelsz);
SaveSafe(szefid);
}
Fontos:
A scriptfiles mappába létre kell hozni egy Szefek - nevû mappát.
A nevem feltüntetése kötelezõ!
Írta: Jim Toretto - 2014. Augusztus 10. - 12:42:24
Írta: Mr_Jack - 2014. Augusztus 10. - 12:55:56
Írta: blackdog476 - 2014. Augusztus 10. - 13:02:49
Írta: gbr333 - 2014. Augusztus 10. - 13:27:19
Idézetet írta: Jim Toretto date=1407667344\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
Nagyon f***a lett! Köszi! :)
Szép munka RoLuX! ;)[/quote]
Köszönöm :D
Téged is megihletett a segítség kérõ fórum?:D Én is akartam ilyen rendszert csinálni, de lusta voltam ::| :D
[/quote]
Szeretek segíteni :angel:
Írta: Sallai - 2014. Augusztus 10. - 21:51:00
Írta: Schlaffinghton™ - 2014. Augusztus 11. - 08:10:06
Idézetet írta: Sallai date=1407700260\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
Sziasztok nekem lenne egy olyan kérdésem hogy hova kell betenni a xd.pwn-t ??Lekonvertálod, majd az amxet beteszed a Filterscripts -hez, majd a server.cfg-be a filterscripts nél odaírod hogy \"xd\" idézõjelek nélkül.
Írta: ShaadY - 2014. Augusztus 11. - 10:03:24
Egyébként szép munka, ment a +!
Írta: ROOCK - 2014. Augusztus 11. - 10:15:04
Írta: gbr333 - 2014. Augusztus 11. - 10:34:45
Idézetet írta: ShaadY date=1407744204\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
Egyszerû, mégis hasznos! Amikor én írtam széf rendszert, akkor úgy csináltam meg, hogyha kinyitod a széfet a nyitott széf object van lerakva, ha becsukod akkor a zárt. Elég jól néz ki úgy! :)Köszi!
Egyébként szép munka, ment a +!
v2.kész
Írta: Sallai - 2014. Augusztus 11. - 13:31:04
Írta: gbr333 - 2014. Augusztus 11. - 13:57:41
Idézetet írta: Sallai date=1407756664\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
Oké azt értem de nekem nem akarja lekonvertálni :( :(kell hozzá :
zcmd
sscanf2
és
dini
Írta: Mate. - 2014. Augusztus 11. - 19:15:44
Írta: gbr333 - 2014. Augusztus 11. - 19:28:03
RTM[Mate\" post=510054\" timestamp=\"1407777344]
Nekem tetszik. \" + \"
[/quote]
Köszönöm!
Írta: ROOCK - 2014. Augusztus 12. - 01:35:51
Írta: ZyZu. - 2014. Augusztus 12. - 02:34:49
Írta: Sallai - 2014. Augusztus 12. - 20:32:29
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(37) : error 017: undefined symbol \"EditObject\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(164) : warning 235: public function lacks forward declaration (symbol \"OnPlayerEditObject\")
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(167) : error 017: undefined symbol \"EDIT_RESPONSE_FINAL\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(172) : error 017: undefined symbol \"EDIT_RESPONSE_UPDATE\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(176) : error 017: undefined symbol \"EDIT_RESPONSE_CANCEL\"
Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase
Írta: EnterR - 2014. Augusztus 12. - 20:38:57
Idézetet írta: Sallai date=1407868349\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
ezek mind megvannak de akkor sem jó :( ezt írja ki :[mod]Code tag-be tettem, legközelebb erre figyelj.[/mod]
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(37) : error 017: undefined symbol \"EditObject\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(164) : warning 235: public function lacks forward declaration (symbol \"OnPlayerEditObject\")
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(167) : error 017: undefined symbol \"EDIT_RESPONSE_FINAL\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(172) : error 017: undefined symbol \"EDIT_RESPONSE_UPDATE\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(176) : error 017: undefined symbol \"EDIT_RESPONSE_CANCEL\"
Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase
Írta: gbr333 - 2014. Augusztus 12. - 20:45:59
Idézetet írta: Sallai date=1407868349\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
ezek mind megvannak de akkor sem jó :( ezt írja ki :Frissítsd az alap Includokat!
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(37) : error 017: undefined symbol \"EditObject\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(164) : warning 235: public function lacks forward declaration (symbol \"OnPlayerEditObject\")
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(167) : error 017: undefined symbol \"EDIT_RESPONSE_FINAL\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(172) : error 017: undefined symbol \"EDIT_RESPONSE_UPDATE\"
C:\\Documents and Settings\\Norbi\\Asztal\\Új mappa\\Új mappa\\filterscripts\\xd.pwn(176) : error 017: undefined symbol \"EDIT_RESPONSE_CANCEL\"
Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase
http://sa-mp.com/download.php
^
Itt a windows servert.
Írta: Sallai - 2014. Augusztus 12. - 22:14:30
Írta: gbr333 - 2014. Augusztus 13. - 07:03:19
Idézetet írta: Sallai date=1407874470\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
Mostmár minden jó csak az a baj hogy beirom hogy ujszef és nem jóóBe kell lépni rCon-ba.
és
A scriptfiles mappába létre kell hozni egy Szefek - nevû mappát.
SSCANF2 plugin is bent van?
Írta: Loren - 2014. Augusztus 13. - 09:18:54
Írta: gbr333 - 2014. Augusztus 13. - 10:49:59
Idézetet írta: ZyZu. date=1407803689\" data-ipsquote-contentapp=\"forums\" data-ipsquote-contenttype=\"forums\" data-ipsquote-contentid=\"49982\" data-ipsquote-contentclass=\"forums_Topic
Tetszik az ötlet.. :) Adtál egy nagyon jó ötletet most ebbõl! ::|megihletett a segítség kérõ fórum :)
Szép lett. Gratula :)![/quote]
Köszi :)
Írta: Sallai - 2014. Augusztus 13. - 13:28:51
Írta: gbr333 - 2014. Augusztus 13. - 13:53:38
Írta: Sallai - 2014. Augusztus 13. - 14:22:40
Írta: ROOCK - 2014. Augusztus 13. - 14:45:04
Írta: Sallai - 2014. Augusztus 13. - 15:19:00
Írta: Flash - 2014. Augusztus 13. - 15:20:39