101Level - Foro

[NPC] Estilista

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado Atlas

  • *
  • 643
  • 19
  • Actividad:
    0%
  • Sexo: Femenino
  • Ante la duda gas ~
[NPC] Estilista
« en: 09 de Agosto de 2013, 03:42 »
Bueno he elaborado un estilista en español, es algo sencillito pero a ver que os parece. Recordad que podéis coger el script y modificarlo!  :phiwa3:

Código: Lua
  1. //////////////////////////////////
  2. //===== Script =======================================
  3. //= Atlas Script
  4. //===== By: ==================================================
  5. //= Atlas
  6. //===== Version: =====================================
  7. //= 1.0
  8. //===== Compatible =====================================
  9. //= Hercules - rAthena
  10. //===== Additional Comments: =================================
  11. //============================================================
  12. prontera,169,179,1      script  Edwin::styl1    122,{
  13.  
  14.         setarray .@Styles[1],getbattleflag("max_cloth_color"),getbattleflag("max_hair_style"),getbattleflag("max_hair_color");
  15.         setarray .@Look[1],7,1,6;
  16.         set .@s, select("Tinte de ropa:Estilo de peinado:Tinte de pelo");
  17.         set .@Revert, getlook(.@Look[.@s]);
  18.         set .@Style,1;
  19.         while(1) {
  20.                 setlook .@Look[.@s], .@Style;
  21.                 message strcharinfo(0),"Este es el estilo #"+.@Style+".";
  22.                 set .@menu$, " Siguiente (^0055FF"+((.@Style!=.@Styles[.@s])?.@Style+1:1)+"^000000): Anterior (^0055FF"+((.@Style!=1)?.@Style-1:.@Styles[.@s])+"^000000): Ir a...: Volver al original (^0055FF"+.@Revert+"^000000)";
  23.                 switch(select(.@menu$)) {
  24.                         case 1: set .@Style, ((.@Style!=.@Styles[.@s])?.@Style+1:1); break;
  25.                         case 2: set .@Style, ((.@Style!=1)?.@Style-1:.@Styles[.@s]); break;
  26.                         case 3: message strcharinfo(0),"Escoge un estilo de 1 a "+.@Styles[.@s]+".";
  27.                                 input .@Style,0,.@Styles[.@s];
  28.                                 if (!.@Style) set .@Style, rand(1,.@Styles[.@s]);
  29.                                 break;
  30.                         case 4: set .@Style, .@Revert; setlook .@Look[.@s], .@Revert; break;
  31.                 }
  32.         }
  33.        
  34. OnInit:
  35.         waitingroom "       Estilista",0;
  36.         end;
  37. }
« última modificación: 09 de Agosto de 2013, 10:31 por Miengo »


Desconectado Blindado

  • *
  • 44
  • 0
  • Actividad:
    0%
  • Sexo: Masculino
Re:[NPC] Estilista
« Respuesta #1 en: 15 de Octubre de 2014, 18:58 »
Buen aporte  :p04_on: me servirá.. (La única intensión del mensaje es que me servirá, no deseo necro).
« última modificación: 16 de Octubre de 2014, 06:35 por Blindado »


 

Estilista con Favoritos

Iniciado por Tirfing

Respuestas: 10
Vistas: 3404
Último mensaje 18 de Julio de 2012, 18:18
por Yuasa