algumas funзгo mudou eu tentei troca las mais nгo consigo pois da erro da sintaxe!
pawn Код:
//
// # INCLUDES #
//
#include < A_SAMP > // Team SA-MP
#include < A_MySQL > // BlueG
#include < ZCMD > // Zeex
#define FUNCAO::%0(%1) forward %0(%1); public %0(%1)
#define pDialog (0)
enum pInfo {
pCash,
pVIP
};
new playerInfo[MAX_PLAYERS][pInfo];
new MySQLConnect;
#define hostName "localhost" // Endereзo
#define userName "root" // Usuбrio de Login
#define dataName "pCash" // Data Base
#define passName "" // Senha de Login
FUNCAO::checkCode(Codigo[], playerid) {
new pRow, pField, String[100], Query1[150], Query2[100], Quantidade, Value[50];
cache_get_data(pRow, pField, MySQLConnect);
if(!pRow)
return SendClientMessage(playerid, -1, "{CCCCCC}[ {0779F2}ERRO {CCCCCC}]: Este cуdigo й invбlido ou jб foi usado por alguйm");
cache_get_field_content(0, "Quantidade", Value, MySQLConnect);
Quantidade = strval(Value);
format(String, 100, "{CCCCCC}[ {0779F2}CASH {CCCCCC}]: Vocк ativou em sua conta %02i de Cash", Quantidade);
SendClientMessage(playerid, -1, String);
playerInfo[playerid][pCash] += Quantidade;
format(Query1, 150, "INSERT INTO cashempty (Quantidade, Codigo, Nick) VALUES ('%i', '%s', '%s')", Quantidade, Codigo, getNome(playerid));
mysql_function_query(MySQLConnect, Query1, false, #, #);
format(Query2, 100, "DELETE FROM cash WHERE Codigo='%s'", Codigo);
mysql_function_query(MySQLConnect, Query2, false, #, #);
return true;
}
stock getNome(playerid) {
new NAME[21];
GetPlayerName(playerid, NAME, 21);
return NAME;
}
public OnFilterScriptInit() {
MySQLConnect = mysql_connect (hostName, userName, dataName, passName);
if(mysql_ping() >= 1)
printf("# [ MySQL ]: Banco de Dados carregado! #");
else
printf("# [ MySQL ]: Banco de Dados nгo carregado! #");
return true;
}
COMMAND:ativarcash(playerid, params[]) {
if(isnull(params))
return SendClientMessage(playerid, -1, "{CCCCCC}[ {0779F2}USE {CCCCCC}]: /ativarcash [Cуdigo]");
new query[150];
format(query, 150, "SELECT Quantidade FROM cash WHERE Codigo='%s'", params);
mysql_function_query(MySQLConnect, query, true, "checkCode", "si", params, playerid);
return true;
}
COMMAND:dados(playerid, params[]) {
new str[50], xVIP[20];
switch(playerInfo[playerid][pVIP]) {
case 0: xVIP = "Nгo tem";
case 1: xVIP = "Premium";
case 2: xVIP = "pr0";
}
format(str, 50, "Nick: %s / Cash: %02i / VIP: %s", getNome(playerid), playerInfo[playerid][pCash], xVIP);
SendClientMessage(playerid, -1, str);
return true;
}
COMMAND:menuvip(playerid, params[]) {
ShowPlayerDialog(playerid, pDialog, DIALOG_STYLE_LIST, #Comprar VIP, #VIP Premium\nVIP pr0, #Comprar, #Cancelar);
return true;
}
public OnDialogResponse (playerid, dialogid, response, listitem, inputtext []) {
switch(dialogid) {
case pDialog: {
if(!response)
return true;
switch(listitem) {
case 0: {
if(playerInfo[playerid][pCash] < 1000)
return SendClientMessage(playerid, -1, "[ ERRO ]: Vocк nгo tem 1.000 de Cash");
playerInfo[playerid][pVIP] = 1;
playerInfo[playerid][pCash] -= 1000;
SendClientMessage(playerid, -1, "Vocк comprou VIP Premium por 1.000 de Cash");
}
case 1: {
if(playerInfo[playerid][pCash] < 2000)
return SendClientMessage(playerid, -1, "[ ERRO ]: Vocк nгo tem 2.000 de Cash");
playerInfo[playerid][pVIP] = 2;
playerInfo[playerid][pCash] -= 2000;
SendClientMessage(playerid, -1, "Vocк comprou VIP Premium por 2.000 de Cash");
}
}
}
}
return true;
}
Nгo faзo a utilizaзгo de # para strings, portanto nгo sei te dizer se suporta strings vazias.