[Radar Sistemi] Mysql İle

[HasanEfe]

Merhaba öncelikle çoğu kişinin Yn:Cnr gibi bir mod yapmak istediğini gördüm
Bende arkadaşlara yardımcı olmak için 1-2 sistem yaparak onlara Yn:Cnr gibi olan sistemleri sunucağım
Başta söyliğim Yn:Cnr Modları için radar sistemi değil sadece Yn:Cnr renk kodları ile radar sistemidir

Video Tanıtım:

https://youtu.be/jvg8LFOMS7E

İlk başta modunuza ekliyicekseniz:

Modun Başına:

PAWN Kodu: Seç

#define MAX_RADAR   (50)

new MySQL:bMysql;

new RadarFlood[MAX_PLAYERS];

new RadarSayisi = 0;

enum radarB
{
radarID,
Float: radarPos[3],
radarHiz
};
new radarData[MAX_RADAR][radarB];

OnGameModeInit publicine

PAWN Kodu: Seç

    bMysql = mysql_connect(SQL_HOST, SQL_KULLANICI, SQL_SIFRE, SQL_DB);
    mysql_tquery(bMysql, "SELECT * FROM `radarlar`", "RadarYukle");//Radarları yükler
    RadarSayisi = 0;

OnPlayerConnect publicine

PAWN Kodu: Seç

RadarFlood[playerid] = 0;
OnPlayerUpdate publicine

PAWN Kodu: Seç

public OnPlayerUpdate(playerid)
{
    for(new i; i < MAX_RADAR; i++)
    {
       if(IsPlayerInRangeOfPoint(playerid, 20.0, radarData[i][radarPos][0], radarData[i][radarPos][1], radarData[i][radarPos][2]))
       {
         new id = GetPlayerVehicleID(playerid);
         if(RadarFlood[playerid] == 0 && IsPlayerInAnyVehicle(playerid) && radarData[i][radarHiz] < GetVehicleSpeed(id))
     {
           SendClientMessage(playerid, 0x59ACFFFF, "[RADAR]{10F441} Hız limitini aşarak radara yakalandınız. Hesabınızdan 2500 dolar kesildi.");
       new RadarM[200], Hiz = radarData[i][radarHiz];
           format(RadarM, sizeof(RadarM), "{10F441}[RADAR]{59ACFF} Hızınız: %d  -  Limit: %d", GetVehicleSpeed(id), Hiz);
           SendClientMessage(playerid, 0x10F441FF, RadarM);
           RadarFlood[playerid] = 1;
       GivePlayerMoney(playerid, -2500);
       SetTimerEx("RadarF", 4000, false, "i", playerid);
         }
       }
     }
    return true;
}

Boş biryere:

PAWN Kodu: Seç

stock GetVehicleSpeed(vehicleid)
{
new Float:Pos[3],Float:ARRAY ;
GetVehicleVelocity(vehicleid, Pos[0], Pos[1], Pos[2]);
ARRAY = floatsqroot(Pos[0]*Pos[0] + Pos[1]*Pos[1] + Pos[2]*Pos[2])*200;
return floatround(ARRAY,floatround_round);
}

forward RadarF(playerid);
public RadarF(playerid)
{
RadarFlood[playerid] = 0;
return 1;
}

forward RadarOlustur(aID, Float: X, Float: Y, Float: Z, Float: N, Hiz);
public RadarOlustur(aID, Float: X, Float: Y, Float: Z, Float: N, Hiz)
{
   RadarSayisi++;
   radarData[aID][radarID] = aID;

   radarData[aID][radarPos][0] = X;
   radarData[aID][radarPos][1] = Y;
   radarData[aID][radarPos][2] = Z;

   radarData[aID][radarHiz] = Hiz;

   CreateObject(18880, X, Y, Z-1.3, 0.0, 0.0, N, 150.0);
   new query[120];
   format(query, sizeof(query), "{33FF33}[Radar - %d]\n{59ACFF}Maximum Hız: {FFFFFF}%d{59ACFF} KM/H", aID, Hiz);
   Create3DTextLabel(query, -1, X, Y, Z, 40.0, 0, 0);
   return 1;
}

forward RadarYukle();
public RadarYukle()
{
new rows, id, Float: atx, Float: aty, Float: atz, Float: atmN, hizlimit;
cache_get_row_count(rows);


for(new i=0;i<rows;i++)
{
        cache_get_value_name_int(i, "radarID", id);

        cache_get_value_name_float(i, "radarX", atx);
        cache_get_value_name_float(i, "radarY", aty);
        cache_get_value_name_float(i, "radarZ", atz);
        cache_get_value_name_float(i, "radarN", atmN);

        cache_get_value_name_int(i, "hizLimit", hizlimit);

RadarOlustur(id, atx, aty, atz, atmN, hizlimit);
}
return 1;
}

Komutu için :

PAWN Kodu: Seç

CMD:radarolustur(playerid, params[])
{
   if(!IsPlayerAdmin(playerid)) return SendClientMessage(playerid, -1, "Bu komutu kullanabilmek için {FF0033}Rcon Admin{FFFFFF}olmanız gerekiyor.");
   new limit;
   if(sscanf(params, "d", limit)) return SendClientMessage(playerid, -1, "/radarolustur [Hız-Limit]");
   new Float: X, Float: Y, Float: Z, Float: N, rID;
   radarData[rID][radarID] = RadarSayisi;
   GetPlayerFacingAngle(playerid, N);
   GetPlayerPos(playerid, X, Y, Z);
   RadarOlustur(RadarSayisi+1, X, Y, Z, N, limit);
   new query[200];
   format(query, sizeof(query), "INSERT INTO `radarlar` (`radarID`, `radarX`, `radarY`, `radarZ`, `radarN`, `hizLimit`) VALUES (%d, %f, %f, %f, %f, %d)", RadarSayisi+1, X, Y, Z, N, limit);
   mysql_query(bMysql, query);
   RadarSayisi++;
   return 1;
}

Eğer Filterscript olarak kullanıcaksınız

https://pastebinp.com/hvGk8E7N adresine gidiniz

Alternatif : https://hastebin.com/xudavesesu.cpp

Pastebin VpnSiz Girmek?:Pastebin'e vpn siz girmek için  pastebin.com yerine pastebinp.com kullanın

Not:Mysql sürümüm 41-4 diğer includeler son sürümdür

Mysql Tablosu İçin:

.Sql Dosyasını Pastebin Hali : https://pastebinp.com/5rxbDSLH

.Sql Dosyasını MediaFire İndirme Linki : https://www.mediafire.com/file/24x565g4actuw20/radarlar.sql/file

Eğer hatam var ise yazabilirsiniz İYİ FORUMLAR )

Şimdi grandlarc ile test ettim sıkıntı yok kullanabilirsiniz.

Not-2:Sıfırdan yapılmıştır bug olabilir daha bu sabah yaptım

[Osmanlı Roleplay]

Eline sağlık çok güzel olmuş.

[S W E S T]

Eline sağlık güzel sistem olmuş

[HasanEfe]

Eline sağlık güzel sistem olmuş

Eline sağlık çok güzel olmuş.

Teşekkür ederim, İyi forumlar

Elimde birde atm sistemi var istiyen olursa paylaşırım oda yn:cnr gibi

[Vesa]

Başarılı.

[HasanEfe]

Başarılı.

Teşekkür ederim.


OnPlayerUpdate sunucunuzu kastırabilir bu nedenle saniyede 2 defa çalıcak bi kod:

Boş biryere :

PAWN Kodu: Seç

forward RadarAlgila(playerid);
public RadarAlgila(playerid)
{
    for(new i; i < MAX_RADAR; i++)
    {
       if(IsPlayerInRangeOfPoint(playerid, 20.0, radarData[i][radarPos][0], radarData[i][radarPos][1], radarData[i][radarPos][2]))
       {
         new id = GetPlayerVehicleID(playerid);
         if(RadarFlood[playerid] == 0 && IsPlayerInAnyVehicle(playerid) && radarData[i][radarHiz] < GetVehicleSpeed(id))
{
           SendClientMessage(playerid, 0x59ACFFFF, "[RADAR]{10F441} Hız limitini aşarak radara yakalandınız. Hesabınızdan 2500 dolar kesildi.");
   new RadarM[200], Hiz = radarData[i][radarHiz];
           format(RadarM, sizeof(RadarM), "{10F441}[RADAR]{59ACFF} Hızınız: %d  -  Limit: %d", GetVehicleSpeed(id), Hiz);
           SendClientMessage(playerid, 0x10F441FF, RadarM);
           RadarFlood[playerid] = 1;
       ParaVer(playerid, -2500);
       SetTimerEx("RadarF", 4000, false, "i", playerid);
         }
       }
}
}
OnPlayerConnect

PAWN Kodu: Seç

SetTimerEx("RadarAlgila", 500, true, "d", playerid);
Nedir Bu :: Kullanıcı Sunucuya Giriş Yaptığında Oto Olarak saniyede 2 defa kullanıcı radar pozisyonlarındamı diye kontrol eder

[CaLderoN]

Başarılı.

Teşekkür ederim.


OnPlayerUpdate sunucunuzu kastırabilir bu nedenle saniyede 2 defa çalıcak bi kod:

Boş biryere :

PAWN Kodu: Seç

forward RadarAlgila(playerid);
public RadarAlgila(playerid)
{
    for(new i; i < MAX_RADAR; i++)
    {
       if(IsPlayerInRangeOfPoint(playerid, 20.0, radarData[i][radarPos][0], radarData[i][radarPos][1], radarData[i][radarPos][2]))
       {
         new id = GetPlayerVehicleID(playerid);
         if(RadarFlood[playerid] == 0 && IsPlayerInAnyVehicle(playerid) && radarData[i][radarHiz] < GetVehicleSpeed(id))
{
           SendClientMessage(playerid, 0x59ACFFFF, "[RADAR]{10F441} Hız limitini aşarak radara yakalandınız. Hesabınızdan 2500 dolar kesildi.");
   new RadarM[200], Hiz = radarData[i][radarHiz];
           format(RadarM, sizeof(RadarM), "{10F441}[RADAR]{59ACFF} Hızınız: %d  -  Limit: %d", GetVehicleSpeed(id), Hiz);
           SendClientMessage(playerid, 0x10F441FF, RadarM);
           RadarFlood[playerid] = 1;
       ParaVer(playerid, -2500);
       SetTimerEx("RadarF", 4000, false, "i", playerid);
         }
       }
}
}
OnPlayerConnect

PAWN Kodu: Seç

SetTimerEx("RadarAlgila", 500, true, "d", playerid);
Nedir Bu :: Kullanıcı Sunucuya Giriş Yaptığında Oto Olarak saniyede 2 defa kullanıcı radar pozisyonlarındamı diye kontrol eder

Oyuncu oyundan çıktıktan sonra Timer'ın durdurulması lazım yoksa belleği şişirirsin.

[DracDonix]

güzel

[HasanEfe]

Başarılı.

Teşekkür ederim.


OnPlayerUpdate sunucunuzu kastırabilir bu nedenle saniyede 2 defa çalıcak bi kod:

Boş biryere :

PAWN Kodu: Seç

forward RadarAlgila(playerid);
public RadarAlgila(playerid)
{
    for(new i; i < MAX_RADAR; i++)
    {
       if(IsPlayerInRangeOfPoint(playerid, 20.0, radarData[i][radarPos][0], radarData[i][radarPos][1], radarData[i][radarPos][2]))
       {
         new id = GetPlayerVehicleID(playerid);
         if(RadarFlood[playerid] == 0 && IsPlayerInAnyVehicle(playerid) && radarData[i][radarHiz] < GetVehicleSpeed(id))
{
           SendClientMessage(playerid, 0x59ACFFFF, "[RADAR]{10F441} Hız limitini aşarak radara yakalandınız. Hesabınızdan 2500 dolar kesildi.");
   new RadarM[200], Hiz = radarData[i][radarHiz];
           format(RadarM, sizeof(RadarM), "{10F441}[RADAR]{59ACFF} Hızınız: %d  -  Limit: %d", GetVehicleSpeed(id), Hiz);
           SendClientMessage(playerid, 0x10F441FF, RadarM);
           RadarFlood[playerid] = 1;
       ParaVer(playerid, -2500);
       SetTimerEx("RadarF", 4000, false, "i", playerid);
         }
       }
}
}
OnPlayerConnect

PAWN Kodu: Seç

SetTimerEx("RadarAlgila", 500, true, "d", playerid);
Nedir Bu :: Kullanıcı Sunucuya Giriş Yaptığında Oto Olarak saniyede 2 defa kullanıcı radar pozisyonlarındamı diye kontrol eder

Oyuncu oyundan çıktıktan sonra Timer'ın durdurulması lazım yoksa belleği şişirirsin.

başa

PAWN Kodu: Seç

new RadarTimer[MAX_PLAYERS];
OnPlayerConnected

PAWN Kodu: Seç

RadarTimer[playerid] = SetTimerEx("RadarF", 4000, false, "i", playerid);
OnPlayerDisconnect

PAWN Kodu: Seç

KillTimer(RadarTimer[playerid]);

[Pexqy]

Gayet başarılı bir sistem elinize sağlık.

[maXpoWer]

Eline sağlık.