Patricl0n

//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$//
   //                                                                        //
  //                       Warps by Patricl0n v.3                           //
 //                                                                        //
//$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$//

// Include
#include 
// Define
#define     dialog_warpy    500
//Define Color
#define COLOR_WHITE 0xFFFFFFFF
#define COLOR_GREEN 0x22FF00FF
#define COLOR_RED 0xFF0000FF
//Define Color
#define Bila              "{FFFFFF}"
#define Bežova            "{FFDC80}"
#define Zluta             "{FFFF00}"
#define TZluta            "{FFCE00}"
#define Oranzova          "{FF9900}"
#define SRuzova           "{FF8090}"
#define Ruzova            "{FF0080}"
#define Cervena           "{FF0000}"
#define Fialova           "{8C50FF}"
#define SZelena           "{00FF00}"
#define Zelena            "{008C00}"
#define SModra            "{00FFFF}"
#define Modra             "{0A46FF}"
#define Seda              "{888888}"
//New
new Float:pos[3];
new car;

PlayerName(playerid)
{
new name[20];
GetPlayerName(playerid,name,20);
return name;
}

public OnPlayerSpawn(playerid)
{
    SetPlayerPos(playerid, 1038.0546,1032.9006,11.0000);
    SetPlayerFacingAngle(playerid, 311.1212);
return 1;
}

public OnPlayerConnect(playerid)
{
SendClientMessage(playerid,COLOR_WHITE,"{FF0000}[ Warp System ]{FFFFFF} Server používá Warp System v.3 by {FFFF00}Patricl0n{FFFFFF} [/Warps]");

return 1;
}

public OnPlayerCommandText(playerid, cmdtext[])
{
if(!strcmp(cmdtext, "/warps", true))
    {
        ShowPlayerDialog(playerid, dialog_warpy, DIALOG_STYLE_LIST, "Warpy", "Los Santos\nSan Fierro\nLas Venturas", "Vybrat", "Zavřít");
        return 1;
    }
    return 0;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
    switch(dialogid)
    {
        case dialog_warpy:
        {
            if(response)
{
           switch(listitem)
           {
               case 0: ShowPlayerDialog(playerid, dialog_warpy+1, DIALOG_STYLE_LIST, "Warpy - Los Santos", "Los Santos\nUřad LS\nTunning LS\nMrakodrap\nGrove Street\nBallas\nAztecas\nVagos", "Vybrat", "Zavřít");
               case 1: ShowPlayerDialog(playerid, dialog_warpy+2, DIALOG_STYLE_LIST, "Warpy - San Fierro", "San Fiera\nUrad SF\nTunning SF\nWangs Cars\nOtto Cars", "Vybrat", "Zavřít");
               case 2: ShowPlayerDialog(playerid, dialog_warpy+3, DIALOG_STYLE_LIST, "Warpy - Las Venturas", "Las Venturas\nUrad LV\nTunning LV", "Vybrat", "Zavřít");
           }
}
return 1;
        }
        case dialog_warpy+1:
        {
            if(response)
{
           switch(listitem)
           {
               case 0: 
               {
               if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),1777.5620,-1695.6482,13.4699);
                    else SetPlayerPos(playerid,1777.5620,-1695.6482,13.4699);
           new str[128];
           format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do Los Santos",PlayerName(playerid));
           SendClientMessageToAll(-1,str);
               return 1;
               }
               case 1:
                    {
                    if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),1723.0045,-1627.6743,20.2128);
               else SetPlayerPos(playerid,1723.0045,-1627.6743,20.2128);
           new str[128];
           format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval na Uřad v Los Santos",PlayerName(playerid));
               SendClientMessageToAll(-1,str);
           return 1;
                    }
                    case 2:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),2647.8149,-2003.6581,13.3828);
else SetPlayerPos(playerid,2647.8149,-2003.6581,13.3828);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do Tunning Garaže v Los Santos",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 3:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),1544.8025,-1352.9573,329.4749);
else SetPlayerPos(playerid,1544.8025,-1352.9573,329.4749);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval na Mrakodrap v Los Santos",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 4:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),2493.9626,-1668.6128,13.3438);
else SetPlayerPos(playerid,2493.9626,-1668.6128,13.3438);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval na Grove Street v Los Santos",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
}
case 5:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),2223.7793,-1164.7506,25.7331);
else SetPlayerPos(playerid,2223.7793,-1164.7506,25.7331);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval k Gangu Ballas v Los Santos",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 6:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),1883.7229,-2044.8148,13.3828);
else SetPlayerPos(playerid,1883.7229,-2044.8148,13.3828);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval k Gangu Aztecas v Los Santos",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 7:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),2362.6848,-1161.4586,27.6253);
else SetPlayerPos(playerid,2362.6848,-1161.4586,27.6253);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval k Gangu Vagos v Los Santos",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
           }
            }
return 1;
        }
        case dialog_warpy+2:
        {
            if(response)
{
           switch(listitem)
           {
               case 8:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),-1926.3779,572.9505,35.1719);
else SetPlayerPos(playerid,-1926.3779,572.9505,35.1719);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do San Fiera",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 9:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),-1611.1088,716.4878,12.9885);
else SetPlayerPos(playerid,-1611.1088,716.4878,12.9885);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval na Uřad v San Fieru",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 10:
          {
     if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),-2696.9194,218.0981,4.1797);
else SetPlayerPos(playerid,-2696.9194,218.0981,4.1797);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do Tunning Garaže v San Fiero",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 11:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),-1979.3955,280.1875,35.1794);
else SetPlayerPos(playerid,-1979.3955,280.1875,35.1794);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do Wangs Cars v San Fiero",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
          case 12:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),-1634.6942,1201.0123,7.1797);
else SetPlayerPos(playerid,-1634.6942,1201.0123,7.1797);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do Otto Cars v San Fiero",PlayerName(playerid));
SendClientMessageToAll(-1,str);
return 1;
          }
           }
            }
return 1;
        }
        case dialog_warpy+3:
        {
            if(response)
{
           switch(listitem)
           {
               case 13:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),2132.2202,1433.2367,10.8203);
else SetPlayerPos(playerid,2132.2202,1433.2367,10.8203);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do Las Venturas",PlayerName(playerid));
SendClientMessageToAll(-1,str);
}
case 14:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),2434.5295,1123.7059,10.8203);
else SetPlayerPos(playerid,2434.5295,1123.7059,10.8203);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval na Uřad v Las Venturas",PlayerName(playerid));
  SendClientMessageToAll(-1,str);
            }
            case 15:
          {
          if(IsPlayerInAnyVehicle(playerid)) SetVehiclePos(GetPlayerVehicleID(playerid),2386.0574,1008.7895,10.8203);
else SetPlayerPos(playerid,2386.0574,1008.7895,10.8203);
new str[128];
format(str,sizeof(str),"{FF0000}[ ! ]{FFFFFF} Hráč {00FF00}%s{FFFFFF} se teleportoval do Tunning Garaže v Las Venturas",PlayerName(playerid));
SendClientMessageToAll(-1,str);
          }
            }
return 1;
        }
    }
    return 0;
}

#include <a_samp>
#include<dini>
 
#define DIALOG_REGISTER 1
#define DIALOG_LOGIN 2
 
//Color
#define Bila              "{FFFFFF}"
#define Bežova            "{FFDC80}"
#define Zluta             "{FFFF00}"
#define TZluta            "{FFCE00}"
#define Oranzova          "{FF9900}"
#define SRuzova           "{FF8090}"
#define Ruzova            "{FF0080}"
#define Cervena           "{FF0000}"
#define Fialova           "{8C50FF}"
#define SZelena           "{00FF00}"
#define Zelena            "{008C00}"
#define SModra            "{00FFFF}"
#define Modra             "{0A46FF}"
#define Seda              "{888888}"
 
public OnGameModeInit()
{
// Don't use these lines if it's a filterscript
SetGameModeText("Blank Script");
AddPlayerClass(0, 1958.3783, 1343.1572, 15.3746, 269.1425, 0, 0, 0, 0, 0, 0);
return 1;
}
 
public OnGameModeExit()
{
return 1;
}
 
public OnPlayerRequestClass(playerid, classid)
{
SetPlayerPos(playerid, 1958.3783, 1343.1572, 15.3746);
SetPlayerCameraPos(playerid, 1958.3783, 1343.1572, 15.3746);
SetPlayerCameraLookAt(playerid, 1958.3783, 1343.1572, 15.3746);
return 1;
}
 
public OnPlayerConnect(playerid)
{
new File[64];
new name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(File,sizeof(File),"/Nalozi/%s.txt",name);
if(dini_Exists(File))
{
   ShowPlayerDialog(playerid, DIALOG_LOGIN, DIALOG_STYLE_INPUT,""SZelena"Přihlášení...",""Bila"Zadejte níže své heslo pro přihlášení.","Přihlasit","Odejit");
}
else
{
   ShowPlayerDialog(playerid, DIALOG_REGISTER, DIALOG_STYLE_INPUT,""SZelena"Registrovani...",""Bila"Zadejte heslo níže zaregistrovat nový účet.","Registrovat","Odejit");
}
return 1;
}
 
public OnPlayerDisconnect(playerid, reason)
{
    if(GetPVarInt(playerid,"Přihlášen")== 1)
    {
        SnimiStatistiku(playerid);
    }
return 1;
}
 
public OnPlayerSpawn(playerid)
{
return 1;
}
 
public OnPlayerDeath(playerid, killerid, reason)
{
return 1;
}
 
public OnVehicleSpawn(vehicleid)
{
return 1;
}
 
public OnVehicleDeath(vehicleid, killerid)
{
return 1;
}
 
public OnPlayerText(playerid, text[])
{
return 1;
}
 
public OnPlayerCommandText(playerid, cmdtext[])
{
if (strcmp("/mycommand", cmdtext, true, 10) == 0)
{
// Do something here
return 1;
}
return 0;
}
 
public OnPlayerEnterVehicle(playerid, vehicleid, ispassenger)
{
return 1;
}
 
public OnPlayerExitVehicle(playerid, vehicleid)
{
return 1;
}
 
public OnPlayerStateChange(playerid, newstate, oldstate)
{
return 1;
}
 
public OnPlayerEnterCheckpoint(playerid)
{
return 1;
}
 
public OnPlayerLeaveCheckpoint(playerid)
{
return 1;
}
 
public OnPlayerEnterRaceCheckpoint(playerid)
{
return 1;
}
 
public OnPlayerLeaveRaceCheckpoint(playerid)
{
return 1;
}
 
public OnRconCommand(cmd[])
{
return 1;
}
 
public OnPlayerRequestSpawn(playerid)
{
return 1;
}
 
public OnObjectMoved(objectid)
{
return 1;
}
 
public OnPlayerObjectMoved(playerid, objectid)
{
return 1;
}
 
public OnPlayerPickUpPickup(playerid, pickupid)
{
return 1;
}
 
public OnVehicleMod(playerid, vehicleid, componentid)
{
return 1;
}
 
public OnVehiclePaintjob(playerid, vehicleid, paintjobid)
{
return 1;
}
 
public OnVehicleRespray(playerid, vehicleid, color1, color2)
{
return 1;
}
 
public OnPlayerSelectedMenuRow(playerid, row)
{
return 1;
}
 
public OnPlayerExitedMenu(playerid)
{
return 1;
}
 
public OnPlayerInteriorChange(playerid, newinteriorid, oldinteriorid)
{
return 1;
}
 
public OnPlayerKeyStateChange(playerid, newkeys, oldkeys)
{
return 1;
}
 
public OnRconLoginAttempt(ip[], password[], success)
{
return 1;
}
 
public OnPlayerUpdate(playerid)
{
return 1;
}
 
public OnPlayerStreamIn(playerid, forplayerid)
{
return 1;
}
 
public OnPlayerStreamOut(playerid, forplayerid)
{
return 1;
}
 
public OnVehicleStreamIn(vehicleid, forplayerid)
{
return 1;
}
 
public OnVehicleStreamOut(vehicleid, forplayerid)
{
return 1;
}
 
public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == DIALOG_LOGIN)
{
   if(response == 0)
   {
       SendClientMessage(playerid,0xFF0000FF,"Musíte se přihlásit na server!");
       Kick(playerid);
}
if(response == 1)
}
   if(!strlen(inputtext))
  {
      SendClientMessage(playerid,0xFF0000FF,"Nesprávný heslo!");
      ShowPlayerDialog(playerid, DIALOG_LOGIN, DIALOG_STYLE_INPUT,""SZelena"Přihlášení...",""Bila"Zadejte níže své heslo pro přihlášení.","Přihlasit","Odejit");
      return 1;
}
else
{
Přihlášení(playerid,imputtext);
return 1;
}
}
}
if(dialogid == DIALOG_REGISTER)
(
if(response == 0)
(
SendClientMessage(playerid,0xFF0000FF,"Musíte se za registrovat na server!");
Kick(playerid);
}
if(response == 1)
{
   if(!strlen(inputtext))
  {
      SendClientMessage(playerid,0xFF0000FF,"Nesprávný heslo!");
           ShowPlayerDialog(playerid, DIALOG_REGISTER, DIALOG_STYLE_INPUT,""SZelena"Registrovani...",""Bila"Zadejte heslo níže zaregistrovat nový účet.","Registrovat","Odejit");
           return 1
(
else
(
   Registrace(playerid,imputtext);
   return 1;
}
}
}
return 1;
}
 
public OnPlayerClickPlayer(playerid, clickedplayerid, source)
{
return 1;
}
 
stock Registrace(playerid,key[])
{
new File[64];
new name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(File,sizeof(File),"/Nalozi/%s.txt",name);
dini_Create(File);
dini_Set(File,"Heslo",key);
SendClientMessage(playerid,0x22FF00FF,"Uspěšně jsi se za registroval!");
dini_IntSet(File,"Skor",0);
SetPVarInt(playerid,"Přihlášen",1);
return 1;
{
stock Přihlášení(playerid,key[])
{
new File[64];
new name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(File,sizeof(File),"/Nalozi/%s.txt",name);
if(!strcwp[key,dini_Get(File,"Heslo"),false))
{
   ObnovitNalog(playerid);
   SendClientMessage(playerid,0x22FF00FF,"Uspěšně jsi se Přihlásil!");
   return 1;
}
}
stock ObnovitNalog(playerid)
(
new File[64];
new name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(File,sizeof(File),"/Nalozi/%s.txt",name);
SetPlayerScore(playerid,dini_Int(File,"Skor"));
GivePlayerMoney(playerid,dini_Int(File,"Novac"));
SetPVarInt(playerid,"Přihlášen",1);
return 1;
}
stock SnimiStatistiku(playerid)
}
if(GetPVarInt(playerid,"Přihlášen")== 1)
{
new File[64];
new name[MAX_PLAYER_NAME];
GetPlayerName(playerid,name,sizeof(name));
format(File,sizeof(File),"/Nalozi/%s.txt",name);
dini_IntSet(File,"Skor",GetPlayerScore{playerid));
    dini_IntSet(File,"Novac",GetPlayerMoney{playerid));
{
return 1;
}

#include <a_samp>
 
#pragma tabsize 0
 
new RandText[10]; //samotný text má 10 písmen max můžete si přidat/měnit potom ale nezapomente zmenit aj cisla
new LetterList[26][] = {
"A", "B", "C", "D", "E", "F", "G", "H", "I", "J", "K", "L", "M", "N", "O", "P", "Q", "R", "S", "T", "U", "V", "W", "X", "Y", "Z"
}; // seznam písmen
new RText=0;
 
forward RandomText(); //forward pro publick RandomText
 
public OnFilterScriptInit(){
SetTimer("RandomText", 5*60000, true); //timer
return true;
}
 
stock randomStr(data[], size) {
    for(new i = 0; i < size; ++i) {
    data[i] = LetterList[random(sizeof(LetterList))];
    }
    data[size] = '\0';
}
 
RandomText();
public RandomText(){
    new rand[11], str[256];
    randomStr(rand, 10);
 
    RandText = rand; //uloží písmena na RandText, RandText musi byt aspom 11 velky! Nemozes dat vacsi text do mensieho
 
    RText=1;
    format(str, sizeof(str), "[ {C2A2DA}Text{FFFFFF} ] Kdo jako první napíše náhodný text \"%s\" získá náhodnou cástku.",rand);
    SendClientMessageToAll(-1,str); //vypíše zprávu pro všechny hráce
    return true;
}
public OnFilterScriptExit(){
return true;
}
 
public OnPlayerText(playerid, text[]){
new string[256];
new cash = random(50000); //náhodný cash od 0 do 50 000 je lepší použít RandomEx (najdete na samp foru) a nastavit si třeba od 5000 do 1500
if(RText == 1){ //pokud je RaText na 1 bude to reagovat
if(!strcmp(text, RandText, true)){ //zjistí jestli někdo napsal ten text
format(string, sizeof(string), "[ {C2A2DA}Text{FFFFFF} ] Jako první napsal náhodný text '' %s '' hráč %s a získal {33AA33}$%d{FFFFFF}.",RandText,PlayerName(playerid),cash);
SendClientMessageToAll(-1,string); //vypíše zprávu pro všechny hráče
GivePlayerMoney(playerid, cash); //dá tomu co napsal jako první cash
       RText=0;
}
 
}
return true;
}