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

San Andreas Multiplayer (SA-MP) => SA-MP: Szerverfejlesztés => Szkript kérések => A témát indította: szecskamester - 2012. június 16. - 17:25:15

Cím: Report script.
Írta: szecskamester - 2012. június 16. - 17:25:15

Üdv!Nagyon szeretnék egy olyan report rendszert, ahol a kérdések az adminokhoz mennek be, és õk is tudnak rá válaszolni. Sajnos én még ilyeneket nem tudok csinálni, mert még nagyon kezdõ vagyok.
Ha valaki tudna nekem segíteni, annak nagyon örülnék! :)
KÖSZÖNÖM!

Cím: Report script.
Írta: instant - 2012. június 16. - 17:48:24

Üdv. Tessék:
 

CMD:report(playerid, params[])
{
new  aName[MAX_PLAYER_NAME], reason, iD;
if (sscanf(params, \"dz\", iD, reason)) return SendClientMessage(playerid, SARGA, \"Használat: /report [id] [indok]\");
if (iD == INVALID_PLAYER_ID) return SendClientMessage(playerid, PIROS, \"A Játékos nincs csatlakoztatva!\");
if (playerid == iD) return SendClientMessage(playerid, PIROS, \"Magadat Nem jelentheted fel!\");
GetPlayerName(iD, aName, sizeof(aName));
for (new i = 0; i < MAX_PLAYERS; i++)
{
if (GetPVarInt(i,\"Level\") < 1)
{
format(str, sizeof(str), \"%s(%d) feljelentette %s(%d) indok: %s\", pName(playerid), playerid, aName, iD, reason);
MessageToAdmins(0x99FF00AA,str);
}
}
return 1;
}
forward MessageToAdmins(color,const string[]);
public MessageToAdmins(color,const string[])
{
for(new i = 0; i < MAX_PLAYERS; i++)
{
if(IsPlayerConnected(i) == 1) if (GetPVarInt(i,\"Level\") < 1) SendClientMessage(i, color, string);
}
return 1;
}

Cím: Report script.
Írta: szecskamester - 2012. június 16. - 17:51:53

Nagyon Köszönöm neked!!! :)

Cím: Report script.
Írta: Sramm - 2012. június 16. - 18:06:19

#include <a_samp>
#include <zcmd>
#include <sscanf2>
#define MAX_REPORTS 30
#define REPS \"Alap\"
new repstring[MAX_REPORTS][128];
public OnFilterScriptInit()
{
for(new r; r<MAX_REPORTS; r++)
{
repstring[r] = \"Alap\";
}
return 1;
}
CMD:report(playerid,params[])
{
new szoveg[128],kovrep = KovRep();
if(sscanf(params,\"s[128]\",szoveg)) return SendClientMessage(playerid,-1,\"Használat: /report [szöveg]\");
format(repstring[kovrep],128,\"%s reportja: %s\",GetName(playerid),szoveg);
SendAdminMessage(repstring[kovrep]);
SendClientMessage(playerid,-1,\"Jelentés elküldve.\");
return 1;
}
CMD:valasz(playerid,params[])
{
new szoveg[128],kovrep,m[128];
if(!IsPlayerAdmin(playerid)) return 1;
if(sscanf(params,\"is[128]\",kovrep,szoveg)) return SendClientMessage(playerid,-1,\"Használat: /valasz [reportid] [szöveg]\");
if(Compare(repstring[kovrep],\"Alap\")) return SendClientMessage(playerid,-1,\"Nincs ilyen report. Reportid-k: /reports\");
SendClientMessageToAll(-1,repstring[kovrep]);
format(m,128,\"[Admin] %s válasza: %s\",GetName(playerid),szoveg);
SendClientMessageToAll(-1,m);
repstring[kovrep] = \"Alap\";
SendClientMessage(playerid,-1,\"Válasz elküldve.\");
return 1;
}
CMD:reportorol(playerid,params[])
{
new repid;
if(sscanf(params,\"i\",repid)) return SendClientMessage(playerid,-1,\"Használat: /reportorol [reportid]\");
for(new r; r<MAX_REPORTS; r++)
{
if(Compare(repstring[r],\"Alap\")) return SendClientMessage(playerid,-1,\"Nincs ilyen report! (/reports)\");
repstring[repid] = \"Alap\";
SendClientMessage(playerid,-1,\"Report törölve!\");
}
return 1;
}
CMD:reports(playerid,params[])
{
new s[128];
if(!IsPlayerAdmin(playerid)) return 1;
for(new r; r<MAX_REPORTS; r++)
{
if(!Compare(repstring[r],\"Alap\"))
{
   format(s,128,\"| REPORTID: %d |\",r);
   SendClientMessage(playerid,-1,s);
   SendClientMessage(playerid,-1,repstring[r]);
}
}
return 1;
}
 
stock Compare(comp[], with[]) // By: Florian
{
new LenghtComp = strlen(comp);
new LenghtWith = strlen(with);
new Character;
if( LenghtComp != LenghtWith ) return false;
for( new i = 0; i < LenghtComp; i++ )
{
if( comp == with )
{
   Character++;
}
}
if( LenghtComp == Character ) return true;
return false;
}
stock GetName(playerid)
{
new n[MAX_PLAYER_NAME];
GetPlayerName(playerid,n,sizeof(n));
return 1;
}
stock SendAdminMessage(msg[])
{
for(new i; i<MAX_PLAYERS; i++)
{
if(IsPlayerAdmin(i))
{
   SendClientMessage(i,-1,msg);
}
}
return 1;
}
stock KovRep()
{
for(new r; r<= MAX_REPORTS; r++) if(Compare(repstring[r],\"Alap\")) return r;
return 1;
}

 
Nem biztos, hogy mûködik, teszteld le. (Ez FS)
Ebbe lehet válaszolni :)

Cím: Report script.
Írta: szecskamester - 2012. június 16. - 18:24:56

Neked is köszönöm! tesztelni fogom, de biztos hogy jó. :)