Programación en Pawn - SAMP

[APORTE] Sistema de Loro para GM OZ o otras.

Reglas del Foro

  • Si tu código es corto, no crees un tema nuevo para liberarlo, publica un mensaje en el tema [Funciones] ¡Publica tu código aquí!.
  • Si creas una guía, debes explicar el código claramente. Evita poner la explicación en forma de comentarios dentro del mismo y no olvides utilizar el BBCode correspondiente: [Pawn]Código aquí[/Pawn].
  • Si tu código necesita plugins, includes u otros códigos adicionales para funcionar, debes mencionarlo en el mensaje.
  • Si has utilizado códigos de otros autores, recuerda colocar los créditos correspondientes. (El plagio es motivo de sanción).
  • El título del tema debe contener el nombre del GameMode al cual está destinado el código (puedes utilizar abreviaturas o tags). Por ejemplo: "[ZC] Menú para 24/7".

Moderador: Ayudantes

Hola que tal a todos llevo tiempo sin aportar nada a la comunidad y pues vi que andan pidiendo esa cosa del loro que yo la verdad ni le encuentro sentido.

Pero sin mas que decir vamos con la Guia
 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

//_____-VAMOS A LOS DEFINES Y DEFINIMOS LO SIGUIENTE
#define DLORO_1 1004
#define DLORO_2 1005
//________________VAMOS A LOS NEWS Y PONDREMOS ESTO.
new desfras[MAX_PLAYERS],loroactivo[MAX_PLAYERS],Palabrasloro[MAX_PLAYERS];
//_________________VAMOS A LOS CMD Y COLOCAMOS ESTO
CMD:loro(playerid,params[]){
ShowPlayerDialog(playerid,DLORO_1,DIALOG_STYLE_LIST,"Loro", "Enseñar frase\nSilenciar", "Aceptar", "Cancelar");
return 1;
}
//_______________VAMOS DONDE ESTÁN LOS DIALOGOS Y COLOCAMOS ESTO
case DLORO_1:
        {
            if(response)
            {
                switch(listitem)
                {
                    case 0:
                    {
                    ShowPlayerDialog(playerid, DLORO_2, DIALOG_STYLE_INPUT, "Enseñar frase al loro", "Escribe una frase:", "Aceptar", "Cancelar");
                       
                    }
                    case 1:
                    {
                    SendClientMessage(playerid, -1,"El loro no hablará hasta que le enseñes otra frase.");
                    loroactivo[playerid] = 0;
                    

                    }
                   
                }
            }
            
    }
    	case DLORO_2:
		{

			if(response == 1)
			{
			SendClientMessage(playerid, -1,"El loro aprendió a repetir la frase");
  
         format(Palabrasloro,sizeof(Palabrasloro),"%s",inputtext);
 	new fraseloro[200];
	format(fraseloro, sizeof(fraseloro), "Loro de %s dice: %s", NombreJugador(playerid),Palabrasloro);
	ProxDetector(20.0, playerid, fraseloro,COLOR_WHITE,COLOR_WHITE,COLOR_WHITE,COLOR_WHITE,COLOR_WHITE);
         desfras[playerid] = 60;
 loroactivo[playerid] = 1;
			}
			return 1;
		}
		//---------VAMOS A LO ULTIMO  Buscamos BAJARTIEMPOS y pegamos esto
if(desfras[i] > 0)
	    {
	        desfras[i]--;
	    }
	    if(desfras[i] == 0)
	    {
     	if(loroactivo[i] == 1)
					{
			new fraslor[128];
			format(fraslor, sizeof(fraslor),"%s",Palabrasloro);
		    new fraseloro[200];
			format(fraseloro, sizeof(fraseloro), "Loro de %s dice: %s", NombreJugador(i),fraslor);
			ProxDetector(30.0, i, fraseloro,COLOR_WHITE,COLOR_WHITE,COLOR_WHITE,COLOR_WHITE,COLOR_WHITE);
		 	desfras[i] = 60;
   		}
	    }
//_____________________________________ESO ES TODO
		
	

  Cantidad de llaves: Abiertas(11)-Cerradas(11) | Lineas Totales: 71


Espero y disfrutes el aporte y respetes créditos.
SI NO LOS RESPETAS QUEDA EN TU PERSONA :D
Saludos.
PD: Este es un sistema base pero es bueno.

_________________-NOTA: LA GM QUE VEZ EN LA IMAGENES NO TIENE NINGUNA BASE POR SI PREGUNTAN______
Gracias men respetare los créditos
Gabriel Ortiz escribió:
03 Sep 2017 16:59
Gracias men respetare los créditos
Sí de nada amigo :),disfrutalo.

Saludos.. -hi -hi
Resuelto -hi
arrriba del Case aplica una llave para que cierre
}
Resuelto -hi
SIN PALABRAS -laughing -nosweat
Resuelto -hi
SIN PALABRAS -laughing -nosweat
Ayuda me dan estos errores


is never used: "Changes"
F:\usuarios\Escritorio\OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : error 001: expected token: ")", but found "["
F:\usuarios\Escritorio\ OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : error 029: invalid expression, assumed zero
F:\usuarios\Escritorio\OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : warning 215: expression has no effect
F:\usuarios\Escritorio\OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : error 001: expected token: ";", but found "]"
F:\usuarios\Escritorio\OZS1-V1.41 - copia\gamemodes\OZ.pwn(64949) : fatal error 107: too many error messages on one line

Compilation aborted.Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase


4 Errors.
Sale estos errores:
 Codigo Pawno:
1
2
3
4
5

C:\Users\Keyghan\Desktop\Organizando\EZ RP\gamemodes\GZ.pwn(68107) : error 001: expected token: ")", but found "["
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : error 029: invalid expression, assumed zero
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : warning 215: expression has no effect
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : error 001: expected token: ";", but found "]"
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : fatal error 107: too many error messages on one line
  Cantidad de llaves: Abiertas(0)-Cerradas(0) | Lineas Totales: 5
En esta linea:

 Codigo Pawno:
1

if(PlayerInfo[playerid][pObj] == 19078 && UsandoObj[playerid] == 1|| PlayerInfo[playerid][pObj2] == 19078 && UsandoObj2[playerid] == 1 || PlayerInfo[playerid][pObj3] == 19078 && UsandoObj3[playerid] [playerid] == 1 || PlayerInfo[playerid][pObj4] == 19078 && UsandoObj4[playerid] [playerid] == 1);
  Cantidad de llaves: Abiertas(0)-Cerradas(0) | Lineas Totales: 1
Sonic019 escribió:
03 Sep 2017 18:53
Sale estos errores:
 Codigo Pawno:
1
2
3
4
5

C:\Users\Keyghan\Desktop\Organizando\EZ RP\gamemodes\GZ.pwn(68107) : error 001: expected token: ")", but found "["
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : error 029: invalid expression, assumed zero
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : warning 215: expression has no effect
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : error 001: expected token: ";", but found "]"
C:\Users\Keyghan\Desktop\Organizando\Keyghan\gamemodes\GZ.pwn(68107) : fatal error 107: too many error messages on one line
  Cantidad de llaves: Abiertas(0)-Cerradas(0) | Lineas Totales: 5
En esta linea:

 Codigo Pawno:
1

if(PlayerInfo[playerid][pObj] == 19078 && UsandoObj[playerid] == 1|| PlayerInfo[playerid][pObj2] == 19078 && UsandoObj2[playerid] == 1 || PlayerInfo[playerid][pObj3] == 19078 && UsandoObj3[playerid] [playerid] == 1 || PlayerInfo[playerid][pObj4] == 19078 && UsandoObj4[playerid] [playerid] == 1);
  Cantidad de llaves: Abiertas(0)-Cerradas(0) | Lineas Totales: 1
Remplaza todo el comando por esoto
 Codigo Pawno:
1
2
3
4
5
6

CMD:loro(playerid,params[]){
if(PlayerInfo[playerid][pObj] == 19078 && UsandoObj[playerid] == 1|| PlayerInfo[playerid][pObj2] == 19078 && UsandoObj2[playerid] == 1 || PlayerInfo[playerid][pObj3] == 19078 && UsandoObj3[playerid] == 1 || PlayerInfo[playerid][pObj4] == 19078 && UsandoObj4[playerid] == 1)
return SendClientMessage(playerid,-1,"No tienes un loro en el hombro");
ShowPlayerDialog(playerid,DLORO_1,DIALOG_STYLE_LIST,"Loro", "Enseñar frase\nSilenciar", "Aceptar", "Cancelar");
return 1;
}
  Cantidad de llaves: Abiertas(1)-Cerradas(1) | Lineas Totales: 6
WondeZoneFan escribió:
03 Sep 2017 18:47
Ayuda me dan estos errores


is never used: "Changes"
F:\usuarios\Escritorio\OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : error 001: expected token: ")", but found "["
F:\usuarios\Escritorio\ OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : error 029: invalid expression, assumed zero
F:\usuarios\Escritorio\OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : warning 215: expression has no effect
F:\usuarios\Escritorio\OZS1 -V1.41 - copia\gamemodes\OZ.pwn(64949) : error 001: expected token: ";", but found "]"
F:\usuarios\Escritorio\OZS1-V1.41 - copia\gamemodes\OZ.pwn(64949) : fatal error 107: too many error messages on one line

Compilation aborted.Pawn compiler 3.2.3664 Copyright (c) 1997-2006, ITB CompuPhase


4 Errors.
Ahí reparé.

¿Quién está conectado?

En total hay 1 usuario conectado :: 0 registrados, 0 ocultos y 1 invitado (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 1 invitado