Sistema de Vuelo

[Swarlog]

● Información Adicional:

Aqui os dejo este sistema de vuelo, el cual os permitira viajar por las distintas ciudades de vuestro servidor pagando una cantidad de dinero. Es totalmente personalizable, asi como el precio del viaje, rutas, checkpoints, etc..

● Código:

Código [Seleccionar] Expandir

/******************** Inicio de FS Espero que les guste ********************/

#include <a_samp>
#pragma tabsize 0
#define FILTERSCRIPT
new LS;
new LV;
new SF;
#define Dialog_Viajes 0021

/////////////////////Forward////////////////////

forward OnPlayerPickUpDynamicPickup(playerid, pickupid);
forward LosSantosV(playerid);
forward SanFierroV(playerid);
forward LasVenturasV(playerid);

////////////////Colors//////////////////////////

#define TEAM_GREEN_COLOR 0xFFFFFFAA

///////////////////////////////////////////////

public OnFilterScriptInit()
{
print(" //================================================================//");
print(" ----- Zume zero-Max Box-Leito Avila ------- ");
print(" //==================== Creditos / Sistema ===================//");
print(" Sistema de Vuelo a Ciudades..... ");
print("//===============================================================// ");
return 1;
}
//==========================================================================//
public OnPlayerConnect(playerid)
{
return 1;
}

public OnGameModeInit()
{
    SF = CreatePickup(1314,23, -1422.2039,-287.8795,14.1484);
    LS = CreatePickup(1314,23, 1685.4694,-2239.1096,-2.7034);
    LV = CreatePickup(1314,23, 1664.2542,1472.6200,10.7813);
return 1;
}

////////////////////////////////////////////////////////////////////////////////

public OnPlayerPickUpDynamicPickup(playerid, pickupid)
{
  if(pickupid == LS)
  {
   ShowPlayerDialog(playerid, Dialog_Viajes, DIALOG_STYLE_LIST, "Aerolineas San Andres. Esta en Los Santos ¿ A Donde Quieres Viajar?", "Las Venturas San Fierro", "Viajar", "Cancelar");
   return true;
  }
  if(pickupid == LV)
  {
   ShowPlayerDialog(playerid, Dialog_Viajes+1, DIALOG_STYLE_LIST, "Aerolineas San Andreas. Estas en La Aventura ¿ A Donde Quieres Viajar?", "Los Santos San Fierro", "Viajar", "Cancelar");
   return true;
  }
  if(pickupid == SF)
  {
   ShowPlayerDialog(playerid, Dialog_Viajes+2, DIALOG_STYLE_LIST, "Aerolineas San Andreas. Estas en San Fierro ¿ A Donde Quieres Viajar?", "Las Venturas Los Santos", "Viajar", "Cancelar");
   return true;
  }
return 1;
}

////////////////////////////////////////////////////////////////////////////////

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
if(dialogid == Dialog_Viajes) // Los Santos
{
if(response)
{
if(listitem == 0)
{
if(GetPlayerMoney(playerid) < 1000) return SendClientMessage(playerid, -1,"Usted No Tiene Dinero Suficiente Para Viajar.El Costo es 1000$.");//Lo Que Dira Si No Tienes el Dinero.
SetPlayerInterior(playerid, 1);
SetPlayerPos(playerid, 1.808619,32.384357,1199.593750);
GivePlayerMoney(playerid, -1000);//
SendClientMessage(playerid, -1, "Aerolineas Delsing:Esperamos que Este Conforme Con El Viaje.");
SendClientMessage(playerid, -1, "Dentro de 1 Hora Llegaremos A Las Venturas.");
SetTimerEx("LasVenturasV", 120000, true, "i", playerid);
}
if(listitem == 1) //
{
if(GetPlayerMoney(playerid) < 1000) return SendClientMessage(playerid, -1,"No Tienes Suficiente Dinero! Nesesitas 1.000$");//Lo Que Dira Si No Tienes el Dinero.
SetPlayerInterior(playerid, 1);
SetPlayerPos(playerid, 1.808619,32.384357,1199.593750);
GivePlayerMoney(playerid, -1000);
SendClientMessage(playerid, -1, "Aerolineas Delsing:Esperamos que Este Conforme Con El Viaje.");
SendClientMessage(playerid, -1, "Dentro de 1 Hora Llegaremos A San Fierro.");
SetTimerEx("SanFierroV", 120000, true, "i", playerid);
}
}
return true;
}
if(dialogid == Dialog_Viajes+1) // Las Venturas
{
if(response)
{
if(listitem == 0)
{
if(GetPlayerMoney(playerid) < 1000) return SendClientMessage(playerid, -1,"Usted No Tiene Dinero Suficiente Para Viajar.El Costo es 1000$.");//Lo Que Dira Si No Tienes el Dinero.
SetPlayerInterior(playerid, 1);
SetPlayerPos(playerid, 1.808619,32.384357,1199.593750);
GivePlayerMoney(playerid, -1000);
SendClientMessage(playerid, -1, "Aerolineas San Adreas:Esperamos que Este Conforme Con El Viaje.");
SendClientMessage(playerid, -1, "Dentro de 2 Hora Llegaremos A Los Santos.");
SetTimerEx("LosSantosV", 120000, true, "i", playerid);
}
if(listitem == 1)
{
if(GetPlayerMoney(playerid) < 1000) return SendClientMessage(playerid, -1,"Usted No Tiene Dinero Suficiente Para Viajar.El Costo es 1000$.");//Lo Que Dira Si No Tienes el Dinero.
SetPlayerInterior(playerid, 1);
SetPlayerPos(playerid, 1.808619,32.384357,1199.593750);
GivePlayerMoney(playerid, -1000);
SendClientMessage(playerid, -1, "Aerolineas San Andreas:Esperamos que Este Conforme Con El Viaje.");
SendClientMessage(playerid, -1, "Dentro de 2 Hora Llegaremos A San Fierro.");
SetTimerEx("SanFierroV", 120000, true, "i", playerid);
}
}
return true;
}
if(dialogid == Dialog_Viajes+2) // San Fierro
{
if(response)
{
if(listitem == 0)
{
if(GetPlayerMoney(playerid) < 1000) return SendClientMessage(playerid, -1,"Usted No Tiene Dinero Suficiente Para Viajar.El Costo es 1000$.");//Lo Que Dira Si No Tienes el Dinero.
SetPlayerInterior(playerid, 1);
SetPlayerPos(playerid, 1.808619,32.384357,1199.593750);
GivePlayerMoney(playerid, -1000);
SendClientMessage(playerid, -1, "Aerolineas San Andreas:Esperamos que Este Conforme Con El Viaje.");
SendClientMessage(playerid, -1, "Dentro de 2 Hora Llegaremos A Las Venturas.");
SetTimerEx("LasVenturasV", 120000, true, "i", playerid);
}
if(listitem == 1)
{
if(GetPlayerMoney(playerid) < 1000) return SendClientMessage(playerid, -1,"Usted No Tiene Dinero Suficiente Para Viajar.El Costo es 1000$.");//Lo Que Dira Si No Tienes el Dinero.
SetPlayerInterior(playerid, 1);
SetPlayerPos(playerid, 1.808619,32.384357,1199.593750);
GivePlayerMoney(playerid, -1000);
SendClientMessage(playerid, -1, "Aerolineas San Andreas:Esperamos que Este Conforme Con El Viaje.");
SendClientMessage(playerid, -1, "Dentro de 2 Hora Llegaremos A Los Santos.");
SetTimerEx("LosSantosV", 120000, true, "i", playerid);
}
}
return true;
}
return 1;
}

///////////////// Public LSv //////////////////////////////

public LosSantosV(playerid)
  {
   SetPlayerPos(playerid, 1646.9956,-2287.7659,-1.2109);//Cordenadas Donde Llegara el Usuario
   SetPlayerInterior(playerid, 0);//interior
   GameTextForPlayer(playerid, "/w/Los Santos", 5000, 1);//Texto Que Dira.
   SendClientMessage(playerid,TEAM_GREEN_COLOR, " [Servidor]:{FFFFFF}Ustéd llegó a Los Santos.");
   return true;
  }

///////////////// Public SFv ///////////////////////////////

public SanFierroV(playerid)
  {
   SetPlayerPos(playerid, -1519.8051,-403.9310,7.0781);
   SetPlayerInterior(playerid, 0);
   GameTextForPlayer(playerid, "/w/San Fierro", 5000, 1);
   SendClientMessage(playerid,TEAM_GREEN_COLOR, " [Servidor]:{FFFFFF}Ustéd llegó a San Fierro.");
   }

/////////////// Public LVv ////////////////////////////////////

public LasVenturasV(playerid)
  {
   SetPlayerPos(playerid, 1693.5861,1610.8607,10.8203);
   SetPlayerInterior(playerid, 0);
   GameTextForPlayer(playerid,"/w/Las Venturas", 5000, 1);
   SendClientMessage(playerid,TEAM_GREEN_COLOR, " [Servidor]:{FFFFFF}Ustéd llegó a Las Aventuras.");
  }


/******************** Fin de FS Espero que les guste ********************/