Programación en Pawn - SAMP

[FS] AUTOS TUNING PARA FREEROAM [DIALOG]

¿Tienes un FilterScript muy bueno y quieres compartirlo con los demás? ¿Qué esperas? ¡Muéstranoslo aquí!
Reglas del Foro

  • Al liberar un FilterScript, debes informar sobre qué trata el código claramente, imágenes o vídeos y la explicación de cómo usarlo.
  • Si el link de descarga no funciona, el tema será movido a la papelera sin aviso.

Moderador: Ayudantes

Holaa -hi buenos días / tarde / noche , hoy les vengo aportar este filterscripts es algo simple, pero bueno algunos les servirá

Imagenes

Codigo
 Codigo Pawno:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179

#include <a_samp>

#define COLOR_ROJO 0xFF0000AA

new SpawnearAuto[MAX_PLAYERS];

public OnPlayerCommandText(playerid, cmdtext[])
{
new cmd[256], idx;
cmd = strtok(cmdtext, idx);

if (!strcmp(cmdtext, "/autost", true))
{
if(IsPlayerInAnyVehicle(playerid)) return SendClientMessage(playerid, COLOR_ROJO,"INFO <X>: Baja primero de tu vehiculo para obtener otro"); //Puedes cambiar este mensaje 
ShowPlayerDialog(playerid, 5000, DIALOG_STYLE_LIST, "AUTOS TUNING", "{FF0000}Elegy {FFFFFF}Tuning\n{0000FF}Flash {FFFFFF}Tuning\n{00FFFF}Sultan {FFFFFF}Tuning\n{008000}Jester {FFFFFF}Tuning\n{00FFD0}Phoenix {FFFFFF}Tuning\n{99FF00}Cheetah {FFFFFF}Tuning\n{E600FF}Uranus {FFFFFF}Tuning", "Seleccionar", "Cancelar");
return 1;
}
return 0;
}

public OnDialogResponse(playerid, dialogid, response, listitem, inputtext[])
{
//Menu de Auto
if(dialogid == 5000)
{
if(response)
{
if(listitem == 0)
{
//Elegy
DarVehiculo(playerid, 562);
ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),0);
ChangeVehicleColor(GetPlayerVehicleID(playerid),1,1);
AddVehicleComponent(GetPlayerVehicleID(playerid),1037);
AddVehicleComponent(GetPlayerVehicleID(playerid),1171);
AddVehicleComponent(GetPlayerVehicleID(playerid),1149);
AddVehicleComponent(GetPlayerVehicleID(playerid),1038);
AddVehicleComponent(GetPlayerVehicleID(playerid),1146);
AddVehicleComponent(GetPlayerVehicleID(playerid),1039);
AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
AddVehicleComponent(GetPlayerVehicleID(playerid),1097);
AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
}
if(listitem == 1)
{
//Flash
DarVehiculo(playerid, 565);
ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),2);
ChangeVehicleColor(GetPlayerVehicleID(playerid),1,1);
AddVehicleComponent(GetPlayerVehicleID(playerid),1045);
AddVehicleComponent(GetPlayerVehicleID(playerid),1153);
AddVehicleComponent(GetPlayerVehicleID(playerid),1150);
AddVehicleComponent(GetPlayerVehicleID(playerid),1053);
AddVehicleComponent(GetPlayerVehicleID(playerid),1049);
AddVehicleComponent(GetPlayerVehicleID(playerid),1048);
AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
AddVehicleComponent(GetPlayerVehicleID(playerid),1097);
AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
}
if(listitem == 2)
{
//Sultan
DarVehiculo(playerid, 560);
ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),2);
ChangeVehicleColor(GetPlayerVehicleID(playerid),1,1);
AddVehicleComponent(GetPlayerVehicleID(playerid),1028);
AddVehicleComponent(GetPlayerVehicleID(playerid),1169);
AddVehicleComponent(GetPlayerVehicleID(playerid),1141);
AddVehicleComponent(GetPlayerVehicleID(playerid),1033);
AddVehicleComponent(GetPlayerVehicleID(playerid),1138);
AddVehicleComponent(GetPlayerVehicleID(playerid),1026);
AddVehicleComponent(GetPlayerVehicleID(playerid),1097);
AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
}
if(listitem == 3)
{
//Jester
DarVehiculo(playerid, 559);
ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),2);
ChangeVehicleColor(GetPlayerVehicleID(playerid),1,1);
AddVehicleComponent(GetPlayerVehicleID(playerid),1065);
AddVehicleComponent(GetPlayerVehicleID(playerid),1097);
AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
AddVehicleComponent(GetPlayerVehicleID(playerid),1160);
AddVehicleComponent(GetPlayerVehicleID(playerid),1173);
AddVehicleComponent(GetPlayerVehicleID(playerid),1161);
AddVehicleComponent(GetPlayerVehicleID(playerid),1068);
AddVehicleComponent(GetPlayerVehicleID(playerid),1158);
AddVehicleComponent(GetPlayerVehicleID(playerid),1070);
AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
}
if(listitem == 4)
{
//Phoenix
DarVehiculo(playerid, 603);
ChangeVehicleColor(GetPlayerVehicleID(playerid),3,3);
AddVehicleComponent(GetPlayerVehicleID(playerid),1000);
AddVehicleComponent(GetPlayerVehicleID(playerid),1006);
AddVehicleComponent(GetPlayerVehicleID(playerid),1024);
AddVehicleComponent(GetPlayerVehicleID(playerid),1145);
AddVehicleComponent(GetPlayerVehicleID(playerid),1020);
AddVehicleComponent(GetPlayerVehicleID(playerid),1097);
AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
}
if(listitem == 5)
{
//Cheetah
DarVehiculo(playerid, 415);
ChangeVehicleColor(GetPlayerVehicleID(playerid),1,1);
AddVehicleComponent(GetPlayerVehicleID(playerid),1097);
AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
AddVehicleComponent(GetPlayerVehicleID(playerid),1019);
AddVehicleComponent(GetPlayerVehicleID(playerid),1023);
AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
}
if(listitem == 6)
{
//Uranus
DarVehiculo(playerid, 558);
ChangeVehiclePaintjob(GetPlayerVehicleID(playerid),2);
ChangeVehicleColor(GetPlayerVehicleID(playerid),1,1);
AddVehicleComponent(GetPlayerVehicleID(playerid),1087);
AddVehicleComponent(GetPlayerVehicleID(playerid),1089);
AddVehicleComponent(GetPlayerVehicleID(playerid),1166);
AddVehicleComponent(GetPlayerVehicleID(playerid),1168);
AddVehicleComponent(GetPlayerVehicleID(playerid),1091);
AddVehicleComponent(GetPlayerVehicleID(playerid),1163);
AddVehicleComponent(GetPlayerVehicleID(playerid),1090);
AddVehicleComponent(GetPlayerVehicleID(playerid),1097);
AddVehicleComponent(GetPlayerVehicleID(playerid),1010);
}
}
}
return 1;
}

strtok(const string[], &index)
{
new length = strlen(string);
while ((index < length) && (string[index] <= ' '))
{
index++;
}

new offset = index;
new result[20];
while ((index < length) && (string[index] > ' ') && ((index - offset) < (sizeof(result) - 1)))
{
result[index - offset] = string[index];
index++;
}
result[index - offset] = EOS;
return result;
}

DarVehiculo(playerid, modelid)
{
new Auto, Float:x,Float:y,Float:z,Float:angulo;
if(GetPlayerState(playerid) == PLAYER_STATE_DRIVER)
{
Auto = GetPlayerVehicleID(playerid);
GetVehiclePos(Auto, x, y, z);
GetVehicleZAngle(Auto, angulo);
DestroyVehicle(Auto);
}
else
{
GetPlayerPos(playerid, x, y, z);
GetPlayerFacingAngle(playerid, angulo);
}
if(SpawnearAuto[playerid] != 0) DestroyVehicle(SpawnearAuto[playerid]);
SpawnearAuto[playerid] = CreateVehicle(modelid,x,y,z,angulo,-1,-1,60);
PutPlayerInVehicle(playerid,SpawnearAuto[playerid],0);
LinkVehicleToInterior(Auto, GetPlayerInterior(playerid));
SetVehicleVirtualWorld(Auto, GetPlayerVirtualWorld(playerid));
return 1;
}
  Cantidad de llaves: Abiertas(32)-Cerradas(32) | Lineas Totales: 179

ACLARO: El Fs no es mio todos los créditos para el creado no recuerdo de donde lo saque solo lo traducí
Esta bueno prro +1
Muy Bueno, Talves suba el Sistema de vehiculos que acabo de hacer a traves De catalogo para mi Fr de 0.

Te felicito Bro, Entre y dije: "Alguien me ahorro trabajo" Ahora me iba a poner un sistema de tuneo con el mismo catalogo, Va quedar bueno, Me llevo algunos codigo de tuneo Respetando creditos, Si lo subo te doy creditos de los codigos de tuneo.
RevolucionRp escribió:
03 Abr 2018 16:05
Muy Bueno, Talves suba el Sistema de vehiculos que acabo de hacer a traves De catalogo para mi Fr de 0.

Te felicito Bro, Entre y dije: "Alguien me ahorro trabajo" Ahora me iba a poner un sistema de tuneo con el mismo catalogo, Va quedar bueno, Me llevo algunos codigo de tuneo Respetando creditos, Si lo subo te doy creditos de los codigos de tuneo.
Gracias también tengo pensado crear uno pero grande osea muchos tuneos en un auto por ejemplo /tunear avanzado -nosweat -laughing
Lindo +1 -hi
Valentin452 escribió:
04 Abr 2018 20:08
Lindo +1 -hi
Gracias lince , -nosweat
Muy bueno +1 le haré unas mejoras y lo usare en mi servidor
Está excelente, sigue así!
Kalex escribió:
18 Abr 2018 19:28
Está excelente, sigue así!
Gracias amigo un saludito -hi

¿Quién está conectado?

En total hay 3 usuarios conectados :: 0 registrados, 0 ocultos y 3 invitados (basados en usuarios activos en los últimos 5 minutos)
La mayor cantidad de usuarios identificados fue 855 el 27 May 2018 00:03

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados