/*

    ŠI MODDIFIKACIJA SUKURTA NAUJOKAMS, MOKYMOSI TIKSLAMS ARBA KT.
    VIENINTELIS DEVELOPERIS example' (c) 2014

    KREDITUS NUTRYNĘS - SĄŽINĘ SUTEPSI

*/


#include <a_samp>
#include <a_mysql>
#include <MD5>

#define version "#new 0.0.1"
#define world "mapname Las - Venturas"

#define host "localhost"
#define user "root"
#define db "new_gm"
#define pass ""

#define calback: public

new
    pTimer[ MAX_PLAYERS ],
    bool:online[ MAX_PLAYERS ],
    bool:login[ MAX_PLAYERS ],
    bool:registered[ MAX_PLAYERS ]
;


enum pData
{
    xp,
    pinigai,
    admin,
    bool:vip,
    skin
}
new playerDB[ MAX_PLAYERS ][ pData ] ;


main()
{
    print( "    MODIFIKACIJA / ĮJUNGTA!" ) ;
}


calback: OnGameModeInit()
{
    SetGameModeText(version);
    SendRconCommand(world);
    AddPlayerClass(0, 1958.3783, 1343.1572, 15.3746, 269.1425, 0, 0, 0, 0, 0, 0);
    mysql_debug( true ) ;
    mysql_connect( host, user, db, pass ) ;
    if( mysql_ping( ) > 1 ) print( "   + Prie mySQL duomenu bazes prisijungta!" ) ;
    else print( "   - Prie mySQL duomenu bazes neprisijungta!" );
    return 1;
}

calback: OnGameModeExit()
{
    mysql_close( ) ;
    return 1;
}

calback: OnPlayerRequestClass(playerid, classid)
{
    new
        playerQuery[ 128 ] ;
    format( playerQuery, 128, "SELECT * FROM `new_gm` WHERE Vardas = '%s' ", zName( playerid ) ) ;
    mysql_query( playerQuery ) ;
    mysql_store_result( ) ;
    if( mysql_num_rows( ) > 0 ) ShowPlayerDialog( playerid, 0, DIALOG_STYLE_PASSWORD, "Prisijungimas", "Sveiki.\n\nPrisijunkite:", "Prisijungti", "Atsaukti" ) ;
    else ShowPlayerDialog( playerid, 1, DIALOG_STYLE_PASSWORD, "Registracija", "Sveiki.\n\nRegistruokites:", "Registruotis", "Atsaukti" ) ;
    return 1;
}

calback: OnPlayerConnect(playerid)
{
    return 1;
}

calback: OnPlayerDisconnect(playerid, reason)
{
    savePlayerData( playerid ) ;
    return 1;
}

calback: OnPlayerSpawn(playerid)
{
    if( !online[ playerid ] ) return Kick( playerid ) ;
    if( registered[ playerid ] ) // jeigu zaidejas ka tik uzsiregistravo ir paspaude mygtuka Spawn
    {
        pTimer[ playerid ] = SetTimerEx( "xpTIMERIS", 60*1000, true , "i" , playerid ) ;
        savePlayerData( playerid ) ;
        registered[ playerid ] = false ; // po siuo kodu nieko negalima daryti, tik virs registered[ playerid ] = false ;
    }
    if( login[ playerid ] ) // jeigu zaidejas ka tik prisijunge ir paspaude mygtuka Spawn
    {
        loadPlayerData( playerid ) ;
        pTimer[ playerid ] = SetTimerEx( "xpTIMERIS", 60*1000, true , "i" , playerid ) ;
        login[ playerid ] = false ; // po siuo kodu nieko negali daryti, tik virs login[ playerid ] = false ;
    }
    return 1;
}

calback: OnPlayerDeath(playerid, killerid, reason)
{
    return 1;
}

calback: OnVehicleSpawn(vehicleid)
{
    return 1;
}

calback: OnVehicleDeath(vehicleid, killerid)
{
    return 1;
}

calback: OnPlayerText(playerid, text[])
{
    return 1;
}

calback: OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
{
    return 1;
}

calback: OnPlayerExitVehicle(playerid, vehicleid)
{
    return 1;
}

calback: OnPlayerStateChange(playerid, newstate, oldstate)
{
    return 1;
}

calback: OnPlayerEnterCheckpoint(playerid)
{
    return 1;
}

calback: OnPlayerLeaveCheckpoint(playerid)
{
    return 1;
}

calback: OnPlayerEnterRaceCheckpoint(playerid)
{
    return 1;
}

calback: OnPlayerLeaveRaceCheckpoint(playerid)
{
    return 1;
}

calback: OnRconCommand(cmd[])
{
    return 1;
}

calback: OnPlayerRequestSpawn(playerid)
{
    if( !online[ playerid ] ) return SendClientMessage( playerid, -1, "Turite prisijungti/prisiregistruoti" ) ;
    return 1;
}

calback: OnObjectMoved(objectid)
{
    return 1;
}

calback: OnPlayerObjectMoved(playerid, objectid)
{
    return 1;
}

calback: OnPlayerPickUpPickup(playerid, pickupid)
{
    return 1;
}

calback: OnVehicleMod(playerid, vehicleid, componentid)
{
    return 1;
}

calback: OnVehiclePaintjob(playerid, vehicleid, paintjobid)
{
    return 1;
}

calback: OnVehicleRespray(playerid, vehicleid, color1, color2)
{
    return 1;
}

calback: OnPlayerSelectedMenuRow(playerid, row)
{
    return 1;
}

calback: OnPlayerExitedMenu(playerid)
{
    return 1;
}

calback: OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
{
    return 1;
}

calback: OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{
    return 1;
}

calback: OnRconLoginAttempt(ip[], password[], success)
{
    return 1;
}

calback: OnPlayerUpdate(playerid)
{
    return 1;
}

calback: OnPlayerStreamIn(playerid, forplayerid)
{
    return 1;
}

calback: OnPlayerStreamOut(playerid, forplayerid)
{
    return 1;
}

calback: OnVehicleStreamIn(vehicleid, forplayerid)
{
    return 1;
}

calback: OnVehicleStreamOut(vehicleid, forplayerid)
{
    return 1;
}

calback: OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    switch( dialogid )
    {
    case 0:
        {
            if( response )
            {
                new
                    playerQuery[ 128 ] ;
                format(playerQuery,sizeof(playerQuery),"SELECT * FROM `new_gm` WHERE Vardas='%s' AND Slaptazodis='%s'", zName( playerid ), MD5_Hash( inputtext ) ) ;
                mysql_query( playerQuery ) ;
                mysql_store_result( ) ;
                if( mysql_num_rows( ) == 0 )
                {
                    SendClientMessage( playerid, -1, "Suvestas slaptažodis neteisingas!" ) ;
                    ShowPlayerDialog( playerid, 0, DIALOG_STYLE_PASSWORD, "Prisijungimas", "Sveiki.\n\nPrisijunkite:", "Prisijungti", "Atsaukti" ) ;
                }
                else
                {
                    login [ playerid ] = true;
                    online [ playerid ] = true;
                }
                mysql_free_result();
            }
        }
        case 1:
        {
            if( response )
            {
                new playerQuery [ 128 ];
                if( strlen( inputtext ) < 5 )
                {
                    SendClientMessage( playerid, -1, "Slaptažodis turi būti sudarytas bent iš 5 simbolių!" ) ;
                    ShowPlayerDialog( playerid, 1, DIALOG_STYLE_PASSWORD, "Registracija", "Sveiki.\n\nRegistruokites:", "Registruotis", "Atsaukti" ) ;
                }
                else
                {
                    format( playerQuery, sizeof(playerQuery), "INSERT INTO new_gm (Vardas, Slaptazodis) VALUES ( '%s', '%s' )", zName ( playerid ) , MD5_Hash(inputtext) ) ;
                    mysql_query( playerQuery ) ;
                    registered [ playerid ] = true;
                    online [ playerid ] = true;
                }
            }
            else Kick( playerid ) ;
        }
    }
    return 1;

}

calback: OnPlayerClickPlayer(playerid, clickedplayerid, source)
{
    return 1;
}

// funkcijos
stock zName( playerid )
{
    new
        pName[ MAX_PLAYER_NAME+1 ] ;
    GetPlayerName( playerid, pName, MAX_PLAYER_NAME+1  ) ;
    return pName ;
}

stock loadPlayerData( playerid )
{
    new
        Float:gpPos[3],
        lQuery[100],
        swx[ 500 ]
    ;

    format(lQuery, sizeof(lQuery), "SELECT * FROM `new_gm` WHERE `Vardas` = '%s'", zName(playerid));
    mysql_query(lQuery);
    mysql_store_result();

    if(mysql_num_rows() != 0)
    {
        mysql_fetch_row(swx);
        mysql_fetch_field_row(lQuery, "xp"); SetPlayerScore(playerid, strval(lQuery));
        mysql_fetch_field_row(lQuery, "pinigai"); GivePlayerMoney( playerid, strval( lQuery ) ) ;
        mysql_fetch_field_row(lQuery, "vip"); playerDB[playerid][vip] = !!strval(lQuery);
        mysql_fetch_field_row(lQuery, "admin"); playerDB[playerid][admin] = strval(lQuery);
        mysql_fetch_field_row(lQuery, "skin"); playerDB[playerid][skin] = strval(lQuery);
        mysql_fetch_field_row(lQuery, "pos_X"); gpPos[0] = floatstr(lQuery);
        mysql_fetch_field_row(lQuery, "pos_Y"); gpPos[1] = floatstr(lQuery);
        mysql_fetch_field_row(lQuery, "pos_Z"); gpPos[2] = floatstr(lQuery);
        SetPlayerPos(playerid, gpPos[0], gpPos[1], gpPos[2]+1);
    }
    mysql_free_result();

    printf( "[ LOAD ] %s žaidėjas pakraunamas .", zName( playerid ) ) ;
}

stock savePlayerData( playerid )
{
    new
        zQuery[350],
        Float:gpPos[3]
    ;

    GetPlayerPos(playerid, gpPos[0], gpPos[1], gpPos[2]);
    format(zQuery, sizeof(zQuery), "UPDATE `new_gm` SET `pos_X` = '%f', `pos_Y` = '%f', pos_Z = '%f', `xp` = '%d', `pinigai` = '%d', skin = '%d' WHERE `Vardas` = '%s'", gpPos[0], gpPos[1],gpPos[2],playerDB[playerid ][ xp ], playerDB[ playerid ][ pinigai ], playerDB[ playerid ][ skin ], zName(playerid));
    mysql_query(zQuery);
    format( zQuery, sizeof( zQuery ), "UPDATE `new_gm` SET admin = '%i', vip = '%i' WHERE Vardas = '%s' ", playerDB[ playerid ][admin], playerDB[ playerid ][ vip ], zName( playerid ) ) ;
    mysql_query( zQuery ) ;

    printf( "[ SAVE ] %s žaidėjas išsaugomas .", zName( playerid ) ) ;
}

// public
forward xpTIMERIS( playerid, score ) ;
calback: xpTIMERIS( playerid, score ) { SetPlayerScore( playerid, GetPlayerScore( playerid )+score ) ; }